gi-gtk-0.3.18.10: GI/Gtk.hs
-- Generated code.
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,
TypeFamilies, MultiParamTypeClasses, KindSignatures,
FlexibleInstances, UndecidableInstances, DataKinds,
OverloadedStrings, NegativeLiterals, FlexibleContexts #-}
module GI.Gtk where
import Prelude ()
import Data.GI.Base.ShortPrelude
import Data.Char
import Data.Int
import Data.Word
import qualified Data.ByteString.Char8 as B
import Data.ByteString.Char8 (ByteString)
import qualified Data.Map as Map
import Foreign.C
import Foreign.Ptr
import Foreign.ForeignPtr
import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
import Foreign.Storable (peek, poke, sizeOf)
import Control.Applicative ((<$>))
import Control.Exception (onException)
import Control.Monad.IO.Class
import qualified Data.Text as T
import Data.GI.Base.Attributes hiding (get, set)
import Data.GI.Base.BasicTypes
import Data.GI.Base.BasicConversions
import Data.GI.Base.Closure
import Data.GI.Base.GError
import Data.GI.Base.GHashTable
import Data.GI.Base.GParamSpec
import Data.GI.Base.GVariant
import Data.GI.Base.GValue
import Data.GI.Base.ManagedPtr
import Data.GI.Base.Overloading
import Data.GI.Base.Properties hiding (new)
import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)
import Data.GI.Base.Utils
import qualified GI.Atk as Atk
import qualified GI.AtkAttributes as AtkA
import qualified GI.GLib as GLib
import qualified GI.GLibAttributes as GLibA
import qualified GI.GObject as GObject
import qualified GI.GObjectAttributes as GObjectA
import qualified GI.Gdk as Gdk
import qualified GI.GdkAttributes as GdkA
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.GdkPixbufAttributes as GdkPixbufA
import qualified GI.Gio as Gio
import qualified GI.GioAttributes as GioA
import qualified GI.Pango as Pango
import qualified GI.PangoAttributes as PangoA
import qualified GI.Cairo as Cairo
import qualified GI.CairoAttributes as CairoA
-- object AboutDialog
newtype AboutDialog = AboutDialog (ForeignPtr AboutDialog)
noAboutDialog :: Maybe AboutDialog
noAboutDialog = Nothing
foreign import ccall "gtk_about_dialog_get_type"
c_gtk_about_dialog_get_type :: IO GType
type instance ParentTypes AboutDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject AboutDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_about_dialog_get_type
class GObject o => AboutDialogK o
instance (GObject o, IsDescendantOf AboutDialog o) => AboutDialogK o
toAboutDialog :: AboutDialogK o => o -> IO AboutDialog
toAboutDialog = unsafeCastTo AboutDialog
-- method AboutDialog::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "AboutDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_new" gtk_about_dialog_new ::
IO (Ptr AboutDialog)
aboutDialogNew ::
(MonadIO m) =>
m AboutDialog
aboutDialogNew = liftIO $ do
result <- gtk_about_dialog_new
checkUnexpectedReturnNULL "gtk_about_dialog_new" result
result' <- (newObject AboutDialog) result
return result'
-- method AboutDialog::add_credit_section
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_add_credit_section" gtk_about_dialog_add_credit_section ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- section_name : TBasicType TUTF8
Ptr CString -> -- people : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
aboutDialogAddCreditSection ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
T.Text -> -- section_name
[T.Text] -> -- people
m ()
aboutDialogAddCreditSection _obj section_name people = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
section_name' <- textToCString section_name
people' <- packZeroTerminatedUTF8CArray people
gtk_about_dialog_add_credit_section _obj' section_name' people'
touchManagedPtr _obj
freeMem section_name'
mapZeroTerminatedCArray freeMem people'
freeMem people'
return ()
-- method AboutDialog::get_artists
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_artists" gtk_about_dialog_get_artists ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO (Ptr CString)
aboutDialogGetArtists ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m [T.Text]
aboutDialogGetArtists _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_artists _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_artists" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_authors
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_authors" gtk_about_dialog_get_authors ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO (Ptr CString)
aboutDialogGetAuthors ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m [T.Text]
aboutDialogGetAuthors _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_authors _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_authors" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_comments
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_comments" gtk_about_dialog_get_comments ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetComments ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetComments _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_comments _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_comments" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_copyright
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_copyright" gtk_about_dialog_get_copyright ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetCopyright ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetCopyright _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_copyright _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_copyright" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_documenters
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_documenters" gtk_about_dialog_get_documenters ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO (Ptr CString)
aboutDialogGetDocumenters ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m [T.Text]
aboutDialogGetDocumenters _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_documenters _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_documenters" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_license
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_license" gtk_about_dialog_get_license ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetLicense ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetLicense _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_license _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_license" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_license_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "License"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_license_type" gtk_about_dialog_get_license_type ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CUInt
aboutDialogGetLicenseType ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m License
aboutDialogGetLicenseType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_license_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_logo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_logo" gtk_about_dialog_get_logo ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO (Ptr GdkPixbuf.Pixbuf)
aboutDialogGetLogo ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
aboutDialogGetLogo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_logo _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_logo" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_logo_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_logo_icon_name" gtk_about_dialog_get_logo_icon_name ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetLogoIconName ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetLogoIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_logo_icon_name _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_logo_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_program_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_program_name" gtk_about_dialog_get_program_name ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetProgramName ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetProgramName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_program_name _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_program_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_translator_credits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_translator_credits" gtk_about_dialog_get_translator_credits ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetTranslatorCredits ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetTranslatorCredits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_translator_credits _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_translator_credits" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_version" gtk_about_dialog_get_version ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetVersion ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_version _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_version" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_website
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_website" gtk_about_dialog_get_website ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetWebsite ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetWebsite _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_website _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_website" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_website_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_website_label" gtk_about_dialog_get_website_label ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CString
aboutDialogGetWebsiteLabel ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m T.Text
aboutDialogGetWebsiteLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_website_label _obj'
checkUnexpectedReturnNULL "gtk_about_dialog_get_website_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AboutDialog::get_wrap_license
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_get_wrap_license" gtk_about_dialog_get_wrap_license ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
IO CInt
aboutDialogGetWrapLicense ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
m Bool
aboutDialogGetWrapLicense _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_about_dialog_get_wrap_license _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AboutDialog::set_artists
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_artists" gtk_about_dialog_set_artists ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
Ptr CString -> -- artists : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
aboutDialogSetArtists ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
[T.Text] -> -- artists
m ()
aboutDialogSetArtists _obj artists = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
artists' <- packZeroTerminatedUTF8CArray artists
gtk_about_dialog_set_artists _obj' artists'
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem artists'
freeMem artists'
return ()
-- method AboutDialog::set_authors
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_authors" gtk_about_dialog_set_authors ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
Ptr CString -> -- authors : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
aboutDialogSetAuthors ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
[T.Text] -> -- authors
m ()
aboutDialogSetAuthors _obj authors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
authors' <- packZeroTerminatedUTF8CArray authors
gtk_about_dialog_set_authors _obj' authors'
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem authors'
freeMem authors'
return ()
-- method AboutDialog::set_comments
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_comments" gtk_about_dialog_set_comments ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- comments : TBasicType TUTF8
IO ()
aboutDialogSetComments ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- comments
m ()
aboutDialogSetComments _obj comments = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeComments <- case comments of
Nothing -> return nullPtr
Just jComments -> do
jComments' <- textToCString jComments
return jComments'
gtk_about_dialog_set_comments _obj' maybeComments
touchManagedPtr _obj
freeMem maybeComments
return ()
-- method AboutDialog::set_copyright
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_copyright" gtk_about_dialog_set_copyright ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- copyright : TBasicType TUTF8
IO ()
aboutDialogSetCopyright ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- copyright
m ()
aboutDialogSetCopyright _obj copyright = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCopyright <- case copyright of
Nothing -> return nullPtr
Just jCopyright -> do
jCopyright' <- textToCString jCopyright
return jCopyright'
gtk_about_dialog_set_copyright _obj' maybeCopyright
touchManagedPtr _obj
freeMem maybeCopyright
return ()
-- method AboutDialog::set_documenters
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_documenters" gtk_about_dialog_set_documenters ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
Ptr CString -> -- documenters : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
aboutDialogSetDocumenters ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
[T.Text] -> -- documenters
m ()
aboutDialogSetDocumenters _obj documenters = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
documenters' <- packZeroTerminatedUTF8CArray documenters
gtk_about_dialog_set_documenters _obj' documenters'
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem documenters'
freeMem documenters'
return ()
-- method AboutDialog::set_license
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_license" gtk_about_dialog_set_license ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- license : TBasicType TUTF8
IO ()
aboutDialogSetLicense ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- license
m ()
aboutDialogSetLicense _obj license = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLicense <- case license of
Nothing -> return nullPtr
Just jLicense -> do
jLicense' <- textToCString jLicense
return jLicense'
gtk_about_dialog_set_license _obj' maybeLicense
touchManagedPtr _obj
freeMem maybeLicense
return ()
-- method AboutDialog::set_license_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_license_type" gtk_about_dialog_set_license_type ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CUInt -> -- license_type : TInterface "Gtk" "License"
IO ()
aboutDialogSetLicenseType ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
License -> -- license_type
m ()
aboutDialogSetLicenseType _obj license_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let license_type' = (fromIntegral . fromEnum) license_type
gtk_about_dialog_set_license_type _obj' license_type'
touchManagedPtr _obj
return ()
-- method AboutDialog::set_logo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_logo" gtk_about_dialog_set_logo ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
Ptr GdkPixbuf.Pixbuf -> -- logo : TInterface "GdkPixbuf" "Pixbuf"
IO ()
aboutDialogSetLogo ::
(MonadIO m, AboutDialogK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
Maybe (b) -> -- logo
m ()
aboutDialogSetLogo _obj logo = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLogo <- case logo of
Nothing -> return nullPtr
Just jLogo -> do
let jLogo' = unsafeManagedPtrCastPtr jLogo
return jLogo'
gtk_about_dialog_set_logo _obj' maybeLogo
touchManagedPtr _obj
whenJust logo touchManagedPtr
return ()
-- method AboutDialog::set_logo_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_logo_icon_name" gtk_about_dialog_set_logo_icon_name ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- icon_name : TBasicType TUTF8
IO ()
aboutDialogSetLogoIconName ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- icon_name
m ()
aboutDialogSetLogoIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_about_dialog_set_logo_icon_name _obj' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method AboutDialog::set_program_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_program_name" gtk_about_dialog_set_program_name ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- name : TBasicType TUTF8
IO ()
aboutDialogSetProgramName ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
T.Text -> -- name
m ()
aboutDialogSetProgramName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_about_dialog_set_program_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method AboutDialog::set_translator_credits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_translator_credits" gtk_about_dialog_set_translator_credits ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- translator_credits : TBasicType TUTF8
IO ()
aboutDialogSetTranslatorCredits ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- translator_credits
m ()
aboutDialogSetTranslatorCredits _obj translator_credits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTranslator_credits <- case translator_credits of
Nothing -> return nullPtr
Just jTranslator_credits -> do
jTranslator_credits' <- textToCString jTranslator_credits
return jTranslator_credits'
gtk_about_dialog_set_translator_credits _obj' maybeTranslator_credits
touchManagedPtr _obj
freeMem maybeTranslator_credits
return ()
-- method AboutDialog::set_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_version" gtk_about_dialog_set_version ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- version : TBasicType TUTF8
IO ()
aboutDialogSetVersion ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- version
m ()
aboutDialogSetVersion _obj version = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeVersion <- case version of
Nothing -> return nullPtr
Just jVersion -> do
jVersion' <- textToCString jVersion
return jVersion'
gtk_about_dialog_set_version _obj' maybeVersion
touchManagedPtr _obj
freeMem maybeVersion
return ()
-- method AboutDialog::set_website
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_website" gtk_about_dialog_set_website ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- website : TBasicType TUTF8
IO ()
aboutDialogSetWebsite ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Maybe (T.Text) -> -- website
m ()
aboutDialogSetWebsite _obj website = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWebsite <- case website of
Nothing -> return nullPtr
Just jWebsite -> do
jWebsite' <- textToCString jWebsite
return jWebsite'
gtk_about_dialog_set_website _obj' maybeWebsite
touchManagedPtr _obj
freeMem maybeWebsite
return ()
-- method AboutDialog::set_website_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_website_label" gtk_about_dialog_set_website_label ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CString -> -- website_label : TBasicType TUTF8
IO ()
aboutDialogSetWebsiteLabel ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
T.Text -> -- website_label
m ()
aboutDialogSetWebsiteLabel _obj website_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
website_label' <- textToCString website_label
gtk_about_dialog_set_website_label _obj' website_label'
touchManagedPtr _obj
freeMem website_label'
return ()
-- method AboutDialog::set_wrap_license
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_about_dialog_set_wrap_license" gtk_about_dialog_set_wrap_license ::
Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog"
CInt -> -- wrap_license : TBasicType TBoolean
IO ()
aboutDialogSetWrapLicense ::
(MonadIO m, AboutDialogK a) =>
a -> -- _obj
Bool -> -- wrap_license
m ()
aboutDialogSetWrapLicense _obj wrap_license = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap_license' = (fromIntegral . fromEnum) wrap_license
gtk_about_dialog_set_wrap_license _obj' wrap_license'
touchManagedPtr _obj
return ()
-- signal AboutDialog::activate-link
type AboutDialogActivateLinkCallback =
T.Text ->
IO Bool
noAboutDialogActivateLinkCallback :: Maybe AboutDialogActivateLinkCallback
noAboutDialogActivateLinkCallback = Nothing
type AboutDialogActivateLinkCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkAboutDialogActivateLinkCallback :: AboutDialogActivateLinkCallbackC -> IO (FunPtr AboutDialogActivateLinkCallbackC)
aboutDialogActivateLinkClosure :: AboutDialogActivateLinkCallback -> IO Closure
aboutDialogActivateLinkClosure cb = newCClosure =<< mkAboutDialogActivateLinkCallback wrapped
where wrapped = aboutDialogActivateLinkCallbackWrapper cb
aboutDialogActivateLinkCallbackWrapper ::
AboutDialogActivateLinkCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CInt
aboutDialogActivateLinkCallbackWrapper _cb _ uri _ = do
uri' <- cstringToText uri
result <- _cb uri'
let result' = (fromIntegral . fromEnum) result
return result'
onAboutDialogActivateLink :: (GObject a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId
onAboutDialogActivateLink obj cb = liftIO $ connectAboutDialogActivateLink obj cb SignalConnectBefore
afterAboutDialogActivateLink :: (GObject a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId
afterAboutDialogActivateLink obj cb = connectAboutDialogActivateLink obj cb SignalConnectAfter
connectAboutDialogActivateLink :: (GObject a, MonadIO m) =>
a -> AboutDialogActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectAboutDialogActivateLink obj cb after = liftIO $ do
cb' <- mkAboutDialogActivateLinkCallback (aboutDialogActivateLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-link" cb' after
-- Flags AccelFlags
data AccelFlags =
AccelFlagsVisible
| AccelFlagsLocked
| AccelFlagsMask
| AnotherAccelFlags Int
deriving (Show, Eq)
instance Enum AccelFlags where
fromEnum AccelFlagsVisible = 1
fromEnum AccelFlagsLocked = 2
fromEnum AccelFlagsMask = 7
fromEnum (AnotherAccelFlags k) = k
toEnum 1 = AccelFlagsVisible
toEnum 2 = AccelFlagsLocked
toEnum 7 = AccelFlagsMask
toEnum k = AnotherAccelFlags k
foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type ::
IO GType
instance BoxedEnum AccelFlags where
boxedEnumType _ = c_gtk_accel_flags_get_type
instance IsGFlag AccelFlags
-- object AccelGroup
newtype AccelGroup = AccelGroup (ForeignPtr AccelGroup)
noAccelGroup :: Maybe AccelGroup
noAccelGroup = Nothing
foreign import ccall "gtk_accel_group_get_type"
c_gtk_accel_group_get_type :: IO GType
type instance ParentTypes AccelGroup = '[GObject.Object]
instance GObject AccelGroup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_accel_group_get_type
class GObject o => AccelGroupK o
instance (GObject o, IsDescendantOf AccelGroup o) => AccelGroupK o
toAccelGroup :: AccelGroupK o => o -> IO AccelGroup
toAccelGroup = unsafeCastTo AccelGroup
-- method AccelGroup::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_new" gtk_accel_group_new ::
IO (Ptr AccelGroup)
accelGroupNew ::
(MonadIO m) =>
m AccelGroup
accelGroupNew = liftIO $ do
result <- gtk_accel_group_new
checkUnexpectedReturnNULL "gtk_accel_group_new" result
result' <- (wrapObject AccelGroup) result
return result'
-- method AccelGroup::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_activate" gtk_accel_group_activate ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_quark : TBasicType TUInt32
Ptr GObject.Object -> -- acceleratable : TInterface "GObject" "Object"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO CInt
accelGroupActivate ::
(MonadIO m, AccelGroupK a, GObject.ObjectK b) =>
a -> -- _obj
Word32 -> -- accel_quark
b -> -- acceleratable
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m Bool
accelGroupActivate _obj accel_quark acceleratable accel_key accel_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let acceleratable' = unsafeManagedPtrCastPtr acceleratable
let accel_mods' = gflagsToWord accel_mods
result <- gtk_accel_group_activate _obj' accel_quark acceleratable' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr acceleratable
return result'
-- method AccelGroup::connect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_connect" gtk_accel_group_connect ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags"
Ptr Closure -> -- closure : TInterface "GObject" "Closure"
IO ()
accelGroupConnect ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
[AccelFlags] -> -- accel_flags
Closure -> -- closure
m ()
accelGroupConnect _obj accel_key accel_mods accel_flags closure = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_mods' = gflagsToWord accel_mods
let accel_flags' = gflagsToWord accel_flags
let closure' = unsafeManagedPtrGetPtr closure
gtk_accel_group_connect _obj' accel_key accel_mods' accel_flags' closure'
touchManagedPtr _obj
touchManagedPtr closure
return ()
-- method AccelGroup::connect_by_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_connect_by_path" gtk_accel_group_connect_by_path ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
CString -> -- accel_path : TBasicType TUTF8
Ptr Closure -> -- closure : TInterface "GObject" "Closure"
IO ()
accelGroupConnectByPath ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
T.Text -> -- accel_path
Closure -> -- closure
m ()
accelGroupConnectByPath _obj accel_path closure = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accel_path' <- textToCString accel_path
let closure' = unsafeManagedPtrGetPtr closure
gtk_accel_group_connect_by_path _obj' accel_path' closure'
touchManagedPtr _obj
touchManagedPtr closure
freeMem accel_path'
return ()
-- method AccelGroup::disconnect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_disconnect" gtk_accel_group_disconnect ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
Ptr Closure -> -- closure : TInterface "GObject" "Closure"
IO CInt
accelGroupDisconnect ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
Maybe (Closure) -> -- closure
m Bool
accelGroupDisconnect _obj closure = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeClosure <- case closure of
Nothing -> return nullPtr
Just jClosure -> do
let jClosure' = unsafeManagedPtrGetPtr jClosure
return jClosure'
result <- gtk_accel_group_disconnect _obj' maybeClosure
let result' = (/= 0) result
touchManagedPtr _obj
whenJust closure touchManagedPtr
return result'
-- method AccelGroup::disconnect_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_disconnect_key" gtk_accel_group_disconnect_key ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO CInt
accelGroupDisconnectKey ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m Bool
accelGroupDisconnectKey _obj accel_key accel_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_mods' = gflagsToWord accel_mods
result <- gtk_accel_group_disconnect_key _obj' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AccelGroup::find
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelKey"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_find" gtk_accel_group_find ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
FunPtr AccelGroupFindFuncC -> -- find_func : TInterface "Gtk" "AccelGroupFindFunc"
Ptr () -> -- data : TBasicType TVoid
IO (Ptr AccelKey)
accelGroupFind ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
AccelGroupFindFunc -> -- find_func
m AccelKey
accelGroupFind _obj find_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
find_func' <- mkAccelGroupFindFunc (accelGroupFindFuncWrapper Nothing find_func)
let data_ = nullPtr
result <- gtk_accel_group_find _obj' find_func' data_
checkUnexpectedReturnNULL "gtk_accel_group_find" result
result' <- (newPtr 12 AccelKey) result
safeFreeFunPtr $ castFunPtrToPtr find_func'
touchManagedPtr _obj
return result'
-- method AccelGroup::get_is_locked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_get_is_locked" gtk_accel_group_get_is_locked ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
IO CInt
accelGroupGetIsLocked ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
m Bool
accelGroupGetIsLocked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accel_group_get_is_locked _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AccelGroup::get_modifier_mask
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "ModifierType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_get_modifier_mask" gtk_accel_group_get_modifier_mask ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
IO CUInt
accelGroupGetModifierMask ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
m [Gdk.ModifierType]
accelGroupGetModifierMask _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accel_group_get_modifier_mask _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method AccelGroup::lock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_lock" gtk_accel_group_lock ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
IO ()
accelGroupLock ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
m ()
accelGroupLock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_accel_group_lock _obj'
touchManagedPtr _obj
return ()
-- method AccelGroup::query
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_query" gtk_accel_group_query ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
Ptr Word32 -> -- n_entries : TBasicType TUInt32
IO (Ptr AccelGroupEntry)
accelGroupQuery ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m [AccelGroupEntry]
accelGroupQuery _obj accel_key accel_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_mods' = gflagsToWord accel_mods
n_entries <- allocMem :: IO (Ptr Word32)
result <- gtk_accel_group_query _obj' accel_key accel_mods' n_entries
n_entries' <- peek n_entries
checkUnexpectedReturnNULL "gtk_accel_group_query" result
result' <- (unpackBlockArrayWithLength 32 n_entries') result
result'' <- mapM (newPtr 32 AccelGroupEntry) result'
touchManagedPtr _obj
freeMem n_entries
return result''
-- method AccelGroup::unlock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_unlock" gtk_accel_group_unlock ::
Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup"
IO ()
accelGroupUnlock ::
(MonadIO m, AccelGroupK a) =>
a -> -- _obj
m ()
accelGroupUnlock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_accel_group_unlock _obj'
touchManagedPtr _obj
return ()
-- method AccelGroup::from_accel_closure
-- method type : MemberFunction
-- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_group_from_accel_closure" gtk_accel_group_from_accel_closure ::
Ptr Closure -> -- closure : TInterface "GObject" "Closure"
IO (Ptr AccelGroup)
accelGroupFromAccelClosure ::
(MonadIO m) =>
Closure -> -- closure
m AccelGroup
accelGroupFromAccelClosure closure = liftIO $ do
let closure' = unsafeManagedPtrGetPtr closure
result <- gtk_accel_group_from_accel_closure closure'
checkUnexpectedReturnNULL "gtk_accel_group_from_accel_closure" result
result' <- (newObject AccelGroup) result
touchManagedPtr closure
return result'
-- signal AccelGroup::accel-activate
type AccelGroupAccelActivateCallback =
GObject.Object ->
Word32 ->
[Gdk.ModifierType] ->
IO Bool
noAccelGroupAccelActivateCallback :: Maybe AccelGroupAccelActivateCallback
noAccelGroupAccelActivateCallback = Nothing
type AccelGroupAccelActivateCallbackC =
Ptr () -> -- object
Ptr GObject.Object ->
Word32 ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkAccelGroupAccelActivateCallback :: AccelGroupAccelActivateCallbackC -> IO (FunPtr AccelGroupAccelActivateCallbackC)
accelGroupAccelActivateClosure :: AccelGroupAccelActivateCallback -> IO Closure
accelGroupAccelActivateClosure cb = newCClosure =<< mkAccelGroupAccelActivateCallback wrapped
where wrapped = accelGroupAccelActivateCallbackWrapper cb
accelGroupAccelActivateCallbackWrapper ::
AccelGroupAccelActivateCallback ->
Ptr () ->
Ptr GObject.Object ->
Word32 ->
CUInt ->
Ptr () ->
IO CInt
accelGroupAccelActivateCallbackWrapper _cb _ acceleratable keyval modifier _ = do
acceleratable' <- (newObject GObject.Object) acceleratable
let modifier' = wordToGFlags modifier
result <- _cb acceleratable' keyval modifier'
let result' = (fromIntegral . fromEnum) result
return result'
onAccelGroupAccelActivate :: (GObject a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId
onAccelGroupAccelActivate obj cb = liftIO $ connectAccelGroupAccelActivate obj cb SignalConnectBefore
afterAccelGroupAccelActivate :: (GObject a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId
afterAccelGroupAccelActivate obj cb = connectAccelGroupAccelActivate obj cb SignalConnectAfter
connectAccelGroupAccelActivate :: (GObject a, MonadIO m) =>
a -> AccelGroupAccelActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectAccelGroupAccelActivate obj cb after = liftIO $ do
cb' <- mkAccelGroupAccelActivateCallback (accelGroupAccelActivateCallbackWrapper cb)
connectSignalFunPtr obj "accel-activate" cb' after
-- signal AccelGroup::accel-changed
type AccelGroupAccelChangedCallback =
Word32 ->
[Gdk.ModifierType] ->
Closure ->
IO ()
noAccelGroupAccelChangedCallback :: Maybe AccelGroupAccelChangedCallback
noAccelGroupAccelChangedCallback = Nothing
type AccelGroupAccelChangedCallbackC =
Ptr () -> -- object
Word32 ->
CUInt ->
Ptr Closure ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAccelGroupAccelChangedCallback :: AccelGroupAccelChangedCallbackC -> IO (FunPtr AccelGroupAccelChangedCallbackC)
accelGroupAccelChangedClosure :: AccelGroupAccelChangedCallback -> IO Closure
accelGroupAccelChangedClosure cb = newCClosure =<< mkAccelGroupAccelChangedCallback wrapped
where wrapped = accelGroupAccelChangedCallbackWrapper cb
accelGroupAccelChangedCallbackWrapper ::
AccelGroupAccelChangedCallback ->
Ptr () ->
Word32 ->
CUInt ->
Ptr Closure ->
Ptr () ->
IO ()
accelGroupAccelChangedCallbackWrapper _cb _ keyval modifier accel_closure _ = do
let modifier' = wordToGFlags modifier
accel_closure' <- (newBoxed Closure) accel_closure
_cb keyval modifier' accel_closure'
onAccelGroupAccelChanged :: (GObject a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId
onAccelGroupAccelChanged obj cb = liftIO $ connectAccelGroupAccelChanged obj cb SignalConnectBefore
afterAccelGroupAccelChanged :: (GObject a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId
afterAccelGroupAccelChanged obj cb = connectAccelGroupAccelChanged obj cb SignalConnectAfter
connectAccelGroupAccelChanged :: (GObject a, MonadIO m) =>
a -> AccelGroupAccelChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAccelGroupAccelChanged obj cb after = liftIO $ do
cb' <- mkAccelGroupAccelChangedCallback (accelGroupAccelChangedCallbackWrapper cb)
connectSignalFunPtr obj "accel-changed" cb' after
-- callback AccelGroupActivate
accelGroupActivateClosure :: AccelGroupActivate -> IO Closure
accelGroupActivateClosure cb = newCClosure =<< mkAccelGroupActivate wrapped
where wrapped = accelGroupActivateWrapper Nothing cb
type AccelGroupActivateC =
Ptr AccelGroup ->
Ptr GObject.Object ->
Word32 ->
CUInt ->
IO CInt
foreign import ccall "wrapper"
mkAccelGroupActivate :: AccelGroupActivateC -> IO (FunPtr AccelGroupActivateC)
type AccelGroupActivate =
AccelGroup ->
GObject.Object ->
Word32 ->
[Gdk.ModifierType] ->
IO Bool
noAccelGroupActivate :: Maybe AccelGroupActivate
noAccelGroupActivate = Nothing
accelGroupActivateWrapper ::
Maybe (Ptr (FunPtr (AccelGroupActivateC))) ->
AccelGroupActivate ->
Ptr AccelGroup ->
Ptr GObject.Object ->
Word32 ->
CUInt ->
IO CInt
accelGroupActivateWrapper funptrptr _cb accel_group acceleratable keyval modifier = do
accel_group' <- (newObject AccelGroup) accel_group
acceleratable' <- (newObject GObject.Object) acceleratable
let modifier' = wordToGFlags modifier
result <- _cb accel_group' acceleratable' keyval modifier'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- struct AccelGroupEntry
newtype AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry)
noAccelGroupEntry :: Maybe AccelGroupEntry
noAccelGroupEntry = Nothing
accelGroupEntryReadKey :: AccelGroupEntry -> IO AccelKey
accelGroupEntryReadKey s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr AccelKey)
val' <- (newPtr 12 AccelKey) val
return val'
accelGroupEntryReadClosure :: AccelGroupEntry -> IO Closure
accelGroupEntryReadClosure s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr Closure)
val' <- (newBoxed Closure) val
return val'
accelGroupEntryReadAccelPathQuark :: AccelGroupEntry -> IO Word32
accelGroupEntryReadAccelPathQuark s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
-- callback AccelGroupFindFunc
accelGroupFindFuncClosure :: AccelGroupFindFunc -> IO Closure
accelGroupFindFuncClosure cb = newCClosure =<< mkAccelGroupFindFunc wrapped
where wrapped = accelGroupFindFuncWrapper Nothing cb
type AccelGroupFindFuncC =
Ptr AccelKey ->
Ptr Closure ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkAccelGroupFindFunc :: AccelGroupFindFuncC -> IO (FunPtr AccelGroupFindFuncC)
type AccelGroupFindFunc =
AccelKey ->
Closure ->
IO Bool
noAccelGroupFindFunc :: Maybe AccelGroupFindFunc
noAccelGroupFindFunc = Nothing
accelGroupFindFuncWrapper ::
Maybe (Ptr (FunPtr (AccelGroupFindFuncC))) ->
AccelGroupFindFunc ->
Ptr AccelKey ->
Ptr Closure ->
Ptr () ->
IO CInt
accelGroupFindFuncWrapper funptrptr _cb key closure _ = do
key' <- (newPtr 12 AccelKey) key
closure' <- (newBoxed Closure) closure
result <- _cb key' closure'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- struct AccelKey
newtype AccelKey = AccelKey (ForeignPtr AccelKey)
noAccelKey :: Maybe AccelKey
noAccelKey = Nothing
accelKeyReadAccelKey :: AccelKey -> IO Word32
accelKeyReadAccelKey s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word32
return val
accelKeyReadAccelMods :: AccelKey -> IO [Gdk.ModifierType]
accelKeyReadAccelMods s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CUInt
let val' = wordToGFlags val
return val'
accelKeyReadAccelFlags :: AccelKey -> IO Word32
accelKeyReadAccelFlags s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
-- object AccelLabel
newtype AccelLabel = AccelLabel (ForeignPtr AccelLabel)
noAccelLabel :: Maybe AccelLabel
noAccelLabel = Nothing
foreign import ccall "gtk_accel_label_get_type"
c_gtk_accel_label_get_type :: IO GType
type instance ParentTypes AccelLabel = '[Label, Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject AccelLabel where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_accel_label_get_type
class GObject o => AccelLabelK o
instance (GObject o, IsDescendantOf AccelLabel o) => AccelLabelK o
toAccelLabel :: AccelLabelK o => o -> IO AccelLabel
toAccelLabel = unsafeCastTo AccelLabel
-- method AccelLabel::new
-- method type : Constructor
-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelLabel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_new" gtk_accel_label_new ::
CString -> -- string : TBasicType TUTF8
IO (Ptr AccelLabel)
accelLabelNew ::
(MonadIO m) =>
T.Text -> -- string
m AccelLabel
accelLabelNew string = liftIO $ do
string' <- textToCString string
result <- gtk_accel_label_new string'
checkUnexpectedReturnNULL "gtk_accel_label_new" result
result' <- (newObject AccelLabel) result
freeMem string'
return result'
-- method AccelLabel::get_accel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_get_accel" gtk_accel_label_get_accel ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
Ptr Word32 -> -- accelerator_key : TBasicType TUInt32
Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
accelLabelGetAccel ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
m (Word32,[Gdk.ModifierType])
accelLabelGetAccel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accelerator_key <- allocMem :: IO (Ptr Word32)
accelerator_mods <- allocMem :: IO (Ptr CUInt)
gtk_accel_label_get_accel _obj' accelerator_key accelerator_mods
accelerator_key' <- peek accelerator_key
accelerator_mods' <- peek accelerator_mods
let accelerator_mods'' = wordToGFlags accelerator_mods'
touchManagedPtr _obj
freeMem accelerator_key
freeMem accelerator_mods
return (accelerator_key', accelerator_mods'')
-- method AccelLabel::get_accel_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_get_accel_widget" gtk_accel_label_get_accel_widget ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
IO (Ptr Widget)
accelLabelGetAccelWidget ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
m Widget
accelLabelGetAccelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accel_label_get_accel_widget _obj'
checkUnexpectedReturnNULL "gtk_accel_label_get_accel_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method AccelLabel::get_accel_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_get_accel_width" gtk_accel_label_get_accel_width ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
IO Word32
accelLabelGetAccelWidth ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
m Word32
accelLabelGetAccelWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accel_label_get_accel_width _obj'
touchManagedPtr _obj
return result
-- method AccelLabel::refetch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_refetch" gtk_accel_label_refetch ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
IO CInt
accelLabelRefetch ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
m Bool
accelLabelRefetch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accel_label_refetch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AccelLabel::set_accel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_set_accel" gtk_accel_label_set_accel ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
Word32 -> -- accelerator_key : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
accelLabelSetAccel ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
Word32 -> -- accelerator_key
[Gdk.ModifierType] -> -- accelerator_mods
m ()
accelLabelSetAccel _obj accelerator_key accelerator_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accelerator_mods' = gflagsToWord accelerator_mods
gtk_accel_label_set_accel _obj' accelerator_key accelerator_mods'
touchManagedPtr _obj
return ()
-- method AccelLabel::set_accel_closure
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_set_accel_closure" gtk_accel_label_set_accel_closure ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
Ptr Closure -> -- accel_closure : TInterface "GObject" "Closure"
IO ()
accelLabelSetAccelClosure ::
(MonadIO m, AccelLabelK a) =>
a -> -- _obj
Closure -> -- accel_closure
m ()
accelLabelSetAccelClosure _obj accel_closure = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_closure' = unsafeManagedPtrGetPtr accel_closure
gtk_accel_label_set_accel_closure _obj' accel_closure'
touchManagedPtr _obj
touchManagedPtr accel_closure
return ()
-- method AccelLabel::set_accel_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_label_set_accel_widget" gtk_accel_label_set_accel_widget ::
Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel"
Ptr Widget -> -- accel_widget : TInterface "Gtk" "Widget"
IO ()
accelLabelSetAccelWidget ::
(MonadIO m, AccelLabelK a, WidgetK b) =>
a -> -- _obj
b -> -- accel_widget
m ()
accelLabelSetAccelWidget _obj accel_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_widget' = unsafeManagedPtrCastPtr accel_widget
gtk_accel_label_set_accel_widget _obj' accel_widget'
touchManagedPtr _obj
touchManagedPtr accel_widget
return ()
-- object AccelMap
newtype AccelMap = AccelMap (ForeignPtr AccelMap)
noAccelMap :: Maybe AccelMap
noAccelMap = Nothing
foreign import ccall "gtk_accel_map_get_type"
c_gtk_accel_map_get_type :: IO GType
type instance ParentTypes AccelMap = '[GObject.Object]
instance GObject AccelMap where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_accel_map_get_type
class GObject o => AccelMapK o
instance (GObject o, IsDescendantOf AccelMap o) => AccelMapK o
toAccelMap :: AccelMapK o => o -> IO AccelMap
toAccelMap = unsafeCastTo AccelMap
-- method AccelMap::add_entry
-- method type : MemberFunction
-- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_add_entry" gtk_accel_map_add_entry ::
CString -> -- accel_path : TBasicType TUTF8
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO ()
accelMapAddEntry ::
(MonadIO m) =>
T.Text -> -- accel_path
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m ()
accelMapAddEntry accel_path accel_key accel_mods = liftIO $ do
accel_path' <- textToCString accel_path
let accel_mods' = gflagsToWord accel_mods
gtk_accel_map_add_entry accel_path' accel_key accel_mods'
freeMem accel_path'
return ()
-- method AccelMap::add_filter
-- method type : MemberFunction
-- Args : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_add_filter" gtk_accel_map_add_filter ::
CString -> -- filter_pattern : TBasicType TUTF8
IO ()
accelMapAddFilter ::
(MonadIO m) =>
T.Text -> -- filter_pattern
m ()
accelMapAddFilter filter_pattern = liftIO $ do
filter_pattern' <- textToCString filter_pattern
gtk_accel_map_add_filter filter_pattern'
freeMem filter_pattern'
return ()
-- method AccelMap::change_entry
-- method type : MemberFunction
-- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_change_entry" gtk_accel_map_change_entry ::
CString -> -- accel_path : TBasicType TUTF8
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
CInt -> -- replace : TBasicType TBoolean
IO CInt
accelMapChangeEntry ::
(MonadIO m) =>
T.Text -> -- accel_path
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
Bool -> -- replace
m Bool
accelMapChangeEntry accel_path accel_key accel_mods replace = liftIO $ do
accel_path' <- textToCString accel_path
let accel_mods' = gflagsToWord accel_mods
let replace' = (fromIntegral . fromEnum) replace
result <- gtk_accel_map_change_entry accel_path' accel_key accel_mods' replace'
let result' = (/= 0) result
freeMem accel_path'
return result'
-- method AccelMap::foreach
-- method type : MemberFunction
-- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach ::
Ptr () -> -- data : TBasicType TVoid
FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach"
IO ()
accelMapForeach ::
(MonadIO m) =>
Maybe (Ptr ()) -> -- data
AccelMapForeach -> -- foreach_func
m ()
accelMapForeach data_ foreach_func = liftIO $ do
maybeData_ <- case data_ of
Nothing -> return nullPtr
Just jData_ -> do
return jData_
foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func)
gtk_accel_map_foreach maybeData_ foreach_func'
safeFreeFunPtr $ castFunPtrToPtr foreach_func'
return ()
-- method AccelMap::foreach_unfiltered
-- method type : MemberFunction
-- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered ::
Ptr () -> -- data : TBasicType TVoid
FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach"
IO ()
accelMapForeachUnfiltered ::
(MonadIO m) =>
Ptr () -> -- data
AccelMapForeach -> -- foreach_func
m ()
accelMapForeachUnfiltered data_ foreach_func = liftIO $ do
foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func)
gtk_accel_map_foreach_unfiltered data_ foreach_func'
safeFreeFunPtr $ castFunPtrToPtr foreach_func'
return ()
-- method AccelMap::get
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "AccelMap"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_get" gtk_accel_map_get ::
IO (Ptr AccelMap)
accelMapGet ::
(MonadIO m) =>
m AccelMap
accelMapGet = liftIO $ do
result <- gtk_accel_map_get
checkUnexpectedReturnNULL "gtk_accel_map_get" result
result' <- (newObject AccelMap) result
return result'
-- method AccelMap::load
-- method type : MemberFunction
-- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_load" gtk_accel_map_load ::
CString -> -- file_name : TBasicType TFileName
IO ()
accelMapLoad ::
(MonadIO m) =>
[Char] -> -- file_name
m ()
accelMapLoad file_name = liftIO $ do
file_name' <- stringToCString file_name
gtk_accel_map_load file_name'
freeMem file_name'
return ()
-- method AccelMap::load_fd
-- method type : MemberFunction
-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_load_fd" gtk_accel_map_load_fd ::
Int32 -> -- fd : TBasicType TInt32
IO ()
accelMapLoadFd ::
(MonadIO m) =>
Int32 -> -- fd
m ()
accelMapLoadFd fd = liftIO $ do
gtk_accel_map_load_fd fd
return ()
-- method AccelMap::load_scanner
-- method type : MemberFunction
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_load_scanner" gtk_accel_map_load_scanner ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
IO ()
accelMapLoadScanner ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
m ()
accelMapLoadScanner scanner = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
gtk_accel_map_load_scanner scanner'
touchManagedPtr scanner
return ()
-- method AccelMap::lock_path
-- method type : MemberFunction
-- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_lock_path" gtk_accel_map_lock_path ::
CString -> -- accel_path : TBasicType TUTF8
IO ()
accelMapLockPath ::
(MonadIO m) =>
T.Text -> -- accel_path
m ()
accelMapLockPath accel_path = liftIO $ do
accel_path' <- textToCString accel_path
gtk_accel_map_lock_path accel_path'
freeMem accel_path'
return ()
-- method AccelMap::lookup_entry
-- method type : MemberFunction
-- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_lookup_entry" gtk_accel_map_lookup_entry ::
CString -> -- accel_path : TBasicType TUTF8
Ptr AccelKey -> -- key : TInterface "Gtk" "AccelKey"
IO CInt
accelMapLookupEntry ::
(MonadIO m) =>
T.Text -> -- accel_path
m (Bool,AccelKey)
accelMapLookupEntry accel_path = liftIO $ do
accel_path' <- textToCString accel_path
key <- callocBytes 12 :: IO (Ptr AccelKey)
result <- gtk_accel_map_lookup_entry accel_path' key
let result' = (/= 0) result
key' <- (wrapPtr AccelKey) key
freeMem accel_path'
return (result', key')
-- method AccelMap::save
-- method type : MemberFunction
-- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_save" gtk_accel_map_save ::
CString -> -- file_name : TBasicType TFileName
IO ()
accelMapSave ::
(MonadIO m) =>
[Char] -> -- file_name
m ()
accelMapSave file_name = liftIO $ do
file_name' <- stringToCString file_name
gtk_accel_map_save file_name'
freeMem file_name'
return ()
-- method AccelMap::save_fd
-- method type : MemberFunction
-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_save_fd" gtk_accel_map_save_fd ::
Int32 -> -- fd : TBasicType TInt32
IO ()
accelMapSaveFd ::
(MonadIO m) =>
Int32 -> -- fd
m ()
accelMapSaveFd fd = liftIO $ do
gtk_accel_map_save_fd fd
return ()
-- method AccelMap::unlock_path
-- method type : MemberFunction
-- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_map_unlock_path" gtk_accel_map_unlock_path ::
CString -> -- accel_path : TBasicType TUTF8
IO ()
accelMapUnlockPath ::
(MonadIO m) =>
T.Text -> -- accel_path
m ()
accelMapUnlockPath accel_path = liftIO $ do
accel_path' <- textToCString accel_path
gtk_accel_map_unlock_path accel_path'
freeMem accel_path'
return ()
-- signal AccelMap::changed
type AccelMapChangedCallback =
T.Text ->
Word32 ->
[Gdk.ModifierType] ->
IO ()
noAccelMapChangedCallback :: Maybe AccelMapChangedCallback
noAccelMapChangedCallback = Nothing
type AccelMapChangedCallbackC =
Ptr () -> -- object
CString ->
Word32 ->
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAccelMapChangedCallback :: AccelMapChangedCallbackC -> IO (FunPtr AccelMapChangedCallbackC)
accelMapChangedClosure :: AccelMapChangedCallback -> IO Closure
accelMapChangedClosure cb = newCClosure =<< mkAccelMapChangedCallback wrapped
where wrapped = accelMapChangedCallbackWrapper cb
accelMapChangedCallbackWrapper ::
AccelMapChangedCallback ->
Ptr () ->
CString ->
Word32 ->
CUInt ->
Ptr () ->
IO ()
accelMapChangedCallbackWrapper _cb _ accel_path accel_key accel_mods _ = do
accel_path' <- cstringToText accel_path
let accel_mods' = wordToGFlags accel_mods
_cb accel_path' accel_key accel_mods'
onAccelMapChanged :: (GObject a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId
onAccelMapChanged obj cb = liftIO $ connectAccelMapChanged obj cb SignalConnectBefore
afterAccelMapChanged :: (GObject a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId
afterAccelMapChanged obj cb = connectAccelMapChanged obj cb SignalConnectAfter
connectAccelMapChanged :: (GObject a, MonadIO m) =>
a -> AccelMapChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAccelMapChanged obj cb after = liftIO $ do
cb' <- mkAccelMapChangedCallback (accelMapChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- callback AccelMapForeach
accelMapForeachClosure :: AccelMapForeach -> IO Closure
accelMapForeachClosure cb = newCClosure =<< mkAccelMapForeach wrapped
where wrapped = accelMapForeachWrapper Nothing cb
type AccelMapForeachC =
Ptr () ->
CString ->
Word32 ->
CUInt ->
CInt ->
IO ()
foreign import ccall "wrapper"
mkAccelMapForeach :: AccelMapForeachC -> IO (FunPtr AccelMapForeachC)
type AccelMapForeach =
Ptr () ->
T.Text ->
Word32 ->
[Gdk.ModifierType] ->
Bool ->
IO ()
noAccelMapForeach :: Maybe AccelMapForeach
noAccelMapForeach = Nothing
accelMapForeachWrapper ::
Maybe (Ptr (FunPtr (AccelMapForeachC))) ->
AccelMapForeach ->
Ptr () ->
CString ->
Word32 ->
CUInt ->
CInt ->
IO ()
accelMapForeachWrapper funptrptr _cb data_ accel_path accel_key accel_mods changed = do
accel_path' <- cstringToText accel_path
let accel_mods' = wordToGFlags accel_mods
let changed' = (/= 0) changed
_cb data_ accel_path' accel_key accel_mods' changed'
maybeReleaseFunPtr funptrptr
-- object Accessible
newtype Accessible = Accessible (ForeignPtr Accessible)
noAccessible :: Maybe Accessible
noAccessible = Nothing
foreign import ccall "gtk_accessible_get_type"
c_gtk_accessible_get_type :: IO GType
type instance ParentTypes Accessible = '[Atk.Object, GObject.Object]
instance GObject Accessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_accessible_get_type
class GObject o => AccessibleK o
instance (GObject o, IsDescendantOf Accessible o) => AccessibleK o
toAccessible :: AccessibleK o => o -> IO Accessible
toAccessible = unsafeCastTo Accessible
-- method Accessible::connect_widget_destroyed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accessible_connect_widget_destroyed" gtk_accessible_connect_widget_destroyed ::
Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible"
IO ()
{-# DEPRECATED accessibleConnectWidgetDestroyed ["(Since version 3.4)","Use gtk_accessible_set_widget() and its vfuncs."]#-}
accessibleConnectWidgetDestroyed ::
(MonadIO m, AccessibleK a) =>
a -> -- _obj
m ()
accessibleConnectWidgetDestroyed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_accessible_connect_widget_destroyed _obj'
touchManagedPtr _obj
return ()
-- method Accessible::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accessible_get_widget" gtk_accessible_get_widget ::
Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible"
IO (Ptr Widget)
accessibleGetWidget ::
(MonadIO m, AccessibleK a) =>
a -> -- _obj
m Widget
accessibleGetWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_accessible_get_widget _obj'
checkUnexpectedReturnNULL "gtk_accessible_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Accessible::set_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accessible_set_widget" gtk_accessible_set_widget ::
Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
accessibleSetWidget ::
(MonadIO m, AccessibleK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
accessibleSetWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_accessible_set_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- object Action
newtype Action = Action (ForeignPtr Action)
noAction :: Maybe Action
noAction = Nothing
foreign import ccall "gtk_action_get_type"
c_gtk_action_get_type :: IO GType
type instance ParentTypes Action = '[GObject.Object, Buildable]
instance GObject Action where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_action_get_type
class GObject o => ActionK o
instance (GObject o, IsDescendantOf Action o) => ActionK o
toAction :: ActionK o => o -> IO Action
toAction = unsafeCastTo Action
-- method Action::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_new" gtk_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr Action)
{-# DEPRECATED actionNew ["(Since version 3.10)","Use #GAction instead, associating it to a widget with","#GtkActionable or creating a #GtkMenu with gtk_menu_new_from_model()"]#-}
actionNew ::
(MonadIO m) =>
T.Text -> -- name
Maybe (T.Text) -> -- label
Maybe (T.Text) -> -- tooltip
Maybe (T.Text) -> -- stock_id
m Action
actionNew name label tooltip stock_id = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
result <- gtk_action_new name' maybeLabel maybeTooltip maybeStock_id
checkUnexpectedReturnNULL "gtk_action_new" result
result' <- (wrapObject Action) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStock_id
return result'
-- method Action::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_activate" gtk_action_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionActivate ["(Since version 3.10)","Use g_action_group_activate_action() on a #GAction instead"]#-}
actionActivate ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m ()
actionActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_activate _obj'
touchManagedPtr _obj
return ()
-- method Action::block_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_block_activate" gtk_action_block_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionBlockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to disable the","#GSimpleAction instead"]#-}
actionBlockActivate ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m ()
actionBlockActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_block_activate _obj'
touchManagedPtr _obj
return ()
-- method Action::connect_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_connect_accelerator" gtk_action_connect_accelerator ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionConnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionConnectAccelerator ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m ()
actionConnectAccelerator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_connect_accelerator _obj'
touchManagedPtr _obj
return ()
-- method Action::create_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_icon" gtk_action_create_icon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Int32 -> -- icon_size : TBasicType TInt32
IO (Ptr Widget)
{-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-}
actionCreateIcon ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Int32 -> -- icon_size
m Widget
actionCreateIcon _obj icon_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_icon _obj' icon_size
checkUnexpectedReturnNULL "gtk_action_create_icon" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Action::create_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_menu" gtk_action_create_menu ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateMenu ["(Since version 3.10)","Use #GAction and #GMenuModel instead, and create a","#GtkMenu with gtk_menu_new_from_model()"]#-}
actionCreateMenu ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Widget
actionCreateMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_menu _obj'
checkUnexpectedReturnNULL "gtk_action_create_menu" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Action::create_menu_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_menu_item" gtk_action_create_menu_item ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateMenuItem ["(Since version 3.10)","Use g_menu_item_new() and associate it with a #GAction","instead."]#-}
actionCreateMenuItem ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Widget
actionCreateMenuItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_menu_item _obj'
checkUnexpectedReturnNULL "gtk_action_create_menu_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Action::create_tool_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_tool_item" gtk_action_create_tool_item ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateToolItem ["(Since version 3.10)","Use a #GtkToolItem and associate it with a #GAction using","gtk_actionable_set_action_name() instead"]#-}
actionCreateToolItem ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Widget
actionCreateToolItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_tool_item _obj'
checkUnexpectedReturnNULL "gtk_action_create_tool_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Action::disconnect_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_disconnect_accelerator" gtk_action_disconnect_accelerator ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionDisconnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionDisconnectAccelerator ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m ()
actionDisconnectAccelerator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_disconnect_accelerator _obj'
touchManagedPtr _obj
return ()
-- method Action::get_accel_closure
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Closure"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_accel_closure" gtk_action_get_accel_closure ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Closure)
{-# DEPRECATED actionGetAccelClosure ["(Since version 3.10)","Use #GAction and #GtkMenu instead, which have no","equivalent for getting the accel closure"]#-}
actionGetAccelClosure ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Closure
actionGetAccelClosure _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_accel_closure _obj'
checkUnexpectedReturnNULL "gtk_action_get_accel_closure" result
result' <- (newBoxed Closure) result
touchManagedPtr _obj
return result'
-- method Action::get_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_accel_path" gtk_action_get_accel_path ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-}
actionGetAccelPath ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetAccelPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_accel_path _obj'
checkUnexpectedReturnNULL "gtk_action_get_accel_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_always_show_image" gtk_action_get_always_show_image ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_get_attribute_value() on a #GMenuItem","instead"]#-}
actionGetAlwaysShowImage ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetAlwaysShowImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_always_show_image _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::get_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_gicon" gtk_action_get_gicon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Gio.Icon)
{-# DEPRECATED actionGetGicon ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-}
actionGetGicon ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Gio.Icon
actionGetGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_gicon _obj'
checkUnexpectedReturnNULL "gtk_action_get_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
-- method Action::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_icon_name" gtk_action_get_icon_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetIconName ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-}
actionGetIconName ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_action_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_is_important" gtk_action_get_is_important ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-}
actionGetIsImportant ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetIsImportant _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_is_important _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_label" gtk_action_get_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetLabel ["(Since version 3.10)","Use #GAction instead, and get a label from a menu item","with g_menu_item_get_attribute_value(). For #GtkActionable widgets, use the","widget-specific API to get a label"]#-}
actionGetLabel ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_label _obj'
checkUnexpectedReturnNULL "gtk_action_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_name" gtk_action_get_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetName ["(Since version 3.10)","Use g_action_get_name() on a #GAction instead"]#-}
actionGetName ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_name _obj'
checkUnexpectedReturnNULL "gtk_action_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_proxies
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_proxies" gtk_action_get_proxies ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr (GSList (Ptr Widget)))
{-# DEPRECATED actionGetProxies ["(Since version 3.10)"]#-}
actionGetProxies ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m [Widget]
actionGetProxies _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_proxies _obj'
checkUnexpectedReturnNULL "gtk_action_get_proxies" result
result' <- unpackGSList result
result'' <- mapM (newObject Widget) result'
touchManagedPtr _obj
return result''
-- method Action::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_sensitive" gtk_action_get_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-}
actionGetSensitive ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::get_short_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_short_label" gtk_action_get_short_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-}
actionGetShortLabel ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetShortLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_short_label _obj'
checkUnexpectedReturnNULL "gtk_action_get_short_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_stock_id" gtk_action_get_stock_id ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-}
actionGetStockId ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetStockId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_stock_id _obj'
checkUnexpectedReturnNULL "gtk_action_get_stock_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_tooltip" gtk_action_get_tooltip ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetTooltip ["(Since version 3.10)","Use #GAction instead, and get tooltips from associated","#GtkActionable widgets with gtk_widget_get_tooltip_text()"]#-}
actionGetTooltip ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m T.Text
actionGetTooltip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_tooltip _obj'
checkUnexpectedReturnNULL "gtk_action_get_tooltip" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Action::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_visible" gtk_action_get_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionGetVisible ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::get_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_visible_horizontal" gtk_action_get_visible_horizontal ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionGetVisibleHorizontal ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetVisibleHorizontal _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible_horizontal _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::get_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_visible_vertical" gtk_action_get_visible_vertical ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionGetVisibleVertical ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionGetVisibleVertical _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible_vertical _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::is_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_is_sensitive" gtk_action_is_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionIsSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-}
actionIsSensitive ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionIsSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_is_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_is_visible" gtk_action_is_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionIsVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionIsVisible ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m Bool
actionIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Action::set_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_accel_group" gtk_action_set_accel_group ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
{-# DEPRECATED actionSetAccelGroup ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionSetAccelGroup ::
(MonadIO m, ActionK a, AccelGroupK b) =>
a -> -- _obj
Maybe (b) -> -- accel_group
m ()
actionSetAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
gtk_action_set_accel_group _obj' maybeAccel_group
touchManagedPtr _obj
whenJust accel_group touchManagedPtr
return ()
-- method Action::set_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_accel_path" gtk_action_set_accel_path ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- accel_path : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-}
actionSetAccelPath ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- accel_path
m ()
actionSetAccelPath _obj accel_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accel_path' <- textToCString accel_path
gtk_action_set_accel_path _obj' accel_path'
touchManagedPtr _obj
freeMem accel_path'
return ()
-- method Action::set_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_always_show_image" gtk_action_set_always_show_image ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- always_show : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_set_icon() on a #GMenuItem instead, if the","item should have an image"]#-}
actionSetAlwaysShowImage ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- always_show
m ()
actionSetAlwaysShowImage _obj always_show = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let always_show' = (fromIntegral . fromEnum) always_show
gtk_action_set_always_show_image _obj' always_show'
touchManagedPtr _obj
return ()
-- method Action::set_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_gicon" gtk_action_set_gicon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
{-# DEPRECATED actionSetGicon ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-}
actionSetGicon ::
(MonadIO m, ActionK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
m ()
actionSetGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_action_set_gicon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method Action::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_icon_name" gtk_action_set_icon_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- icon_name : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetIconName ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-}
actionSetIconName ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- icon_name
m ()
actionSetIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
gtk_action_set_icon_name _obj' icon_name'
touchManagedPtr _obj
freeMem icon_name'
return ()
-- method Action::set_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_is_important" gtk_action_set_is_important ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- is_important : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-}
actionSetIsImportant ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- is_important
m ()
actionSetIsImportant _obj is_important = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_important' = (fromIntegral . fromEnum) is_important
gtk_action_set_is_important _obj' is_important'
touchManagedPtr _obj
return ()
-- method Action::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_label" gtk_action_set_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- label : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetLabel ["(Since version 3.10)","Use #GAction instead, and set a label on a menu item with","g_menu_item_set_label(). For #GtkActionable widgets, use the widget-specific","API to set a label"]#-}
actionSetLabel ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- label
m ()
actionSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
label' <- textToCString label
gtk_action_set_label _obj' label'
touchManagedPtr _obj
freeMem label'
return ()
-- method Action::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_sensitive" gtk_action_set_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetSensitive ["(Since version 3.10)","Use g_simple_action_set_enabled() on a #GSimpleAction","instead"]#-}
actionSetSensitive ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- sensitive
m ()
actionSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_action_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
-- method Action::set_short_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_short_label" gtk_action_set_short_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- short_label : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-}
actionSetShortLabel ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- short_label
m ()
actionSetShortLabel _obj short_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
short_label' <- textToCString short_label
gtk_action_set_short_label _obj' short_label'
touchManagedPtr _obj
freeMem short_label'
return ()
-- method Action::set_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_stock_id" gtk_action_set_stock_id ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-}
actionSetStockId ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- stock_id
m ()
actionSetStockId _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
gtk_action_set_stock_id _obj' stock_id'
touchManagedPtr _obj
freeMem stock_id'
return ()
-- method Action::set_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_tooltip" gtk_action_set_tooltip ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- tooltip : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetTooltip ["(Since version 3.10)","Use #GAction instead, and set tooltips on associated","#GtkActionable widgets with gtk_widget_set_tooltip_text()"]#-}
actionSetTooltip ::
(MonadIO m, ActionK a) =>
a -> -- _obj
T.Text -> -- tooltip
m ()
actionSetTooltip _obj tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tooltip' <- textToCString tooltip
gtk_action_set_tooltip _obj' tooltip'
touchManagedPtr _obj
freeMem tooltip'
return ()
-- method Action::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_visible" gtk_action_set_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionSetVisible ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- visible
m ()
actionSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_action_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method Action::set_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_visible_horizontal" gtk_action_set_visible_horizontal ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible_horizontal : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionSetVisibleHorizontal ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- visible_horizontal
m ()
actionSetVisibleHorizontal _obj visible_horizontal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal
gtk_action_set_visible_horizontal _obj' visible_horizontal'
touchManagedPtr _obj
return ()
-- method Action::set_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_set_visible_vertical" gtk_action_set_visible_vertical ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible_vertical : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionSetVisibleVertical ::
(MonadIO m, ActionK a) =>
a -> -- _obj
Bool -> -- visible_vertical
m ()
actionSetVisibleVertical _obj visible_vertical = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible_vertical' = (fromIntegral . fromEnum) visible_vertical
gtk_action_set_visible_vertical _obj' visible_vertical'
touchManagedPtr _obj
return ()
-- method Action::unblock_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_unblock_activate" gtk_action_unblock_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionUnblockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to enable the","#GSimpleAction instead"]#-}
actionUnblockActivate ::
(MonadIO m, ActionK a) =>
a -> -- _obj
m ()
actionUnblockActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_unblock_activate _obj'
touchManagedPtr _obj
return ()
-- signal Action::activate
type ActionActivateCallback =
IO ()
noActionActivateCallback :: Maybe ActionActivateCallback
noActionActivateCallback = Nothing
type ActionActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionActivateCallback :: ActionActivateCallbackC -> IO (FunPtr ActionActivateCallbackC)
actionActivateClosure :: ActionActivateCallback -> IO Closure
actionActivateClosure cb = newCClosure =<< mkActionActivateCallback wrapped
where wrapped = actionActivateCallbackWrapper cb
actionActivateCallbackWrapper ::
ActionActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
actionActivateCallbackWrapper _cb _ _ = do
_cb
onActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
onActionActivate obj cb = liftIO $ connectActionActivate obj cb SignalConnectBefore
afterActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
afterActionActivate obj cb = connectActionActivate obj cb SignalConnectAfter
connectActionActivate :: (GObject a, MonadIO m) =>
a -> ActionActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectActionActivate obj cb after = liftIO $ do
cb' <- mkActionActivateCallback (actionActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- object ActionBar
newtype ActionBar = ActionBar (ForeignPtr ActionBar)
noActionBar :: Maybe ActionBar
noActionBar = Nothing
foreign import ccall "gtk_action_bar_get_type"
c_gtk_action_bar_get_type :: IO GType
type instance ParentTypes ActionBar = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ActionBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_action_bar_get_type
class GObject o => ActionBarK o
instance (GObject o, IsDescendantOf ActionBar o) => ActionBarK o
toActionBar :: ActionBarK o => o -> IO ActionBar
toActionBar = unsafeCastTo ActionBar
-- method ActionBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ActionBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_bar_new" gtk_action_bar_new ::
IO (Ptr ActionBar)
actionBarNew ::
(MonadIO m) =>
m ActionBar
actionBarNew = liftIO $ do
result <- gtk_action_bar_new
checkUnexpectedReturnNULL "gtk_action_bar_new" result
result' <- (newObject ActionBar) result
return result'
-- method ActionBar::get_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_bar_get_center_widget" gtk_action_bar_get_center_widget ::
Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar"
IO (Ptr Widget)
actionBarGetCenterWidget ::
(MonadIO m, ActionBarK a) =>
a -> -- _obj
m Widget
actionBarGetCenterWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_bar_get_center_widget _obj'
checkUnexpectedReturnNULL "gtk_action_bar_get_center_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ActionBar::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_bar_pack_end" gtk_action_bar_pack_end ::
Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
actionBarPackEnd ::
(MonadIO m, ActionBarK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
actionBarPackEnd _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_action_bar_pack_end _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ActionBar::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_bar_pack_start" gtk_action_bar_pack_start ::
Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
actionBarPackStart ::
(MonadIO m, ActionBarK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
actionBarPackStart _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_action_bar_pack_start _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ActionBar::set_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_bar_set_center_widget" gtk_action_bar_set_center_widget ::
Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar"
Ptr Widget -> -- center_widget : TInterface "Gtk" "Widget"
IO ()
actionBarSetCenterWidget ::
(MonadIO m, ActionBarK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- center_widget
m ()
actionBarSetCenterWidget _obj center_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCenter_widget <- case center_widget of
Nothing -> return nullPtr
Just jCenter_widget -> do
let jCenter_widget' = unsafeManagedPtrCastPtr jCenter_widget
return jCenter_widget'
gtk_action_bar_set_center_widget _obj' maybeCenter_widget
touchManagedPtr _obj
whenJust center_widget touchManagedPtr
return ()
-- struct ActionEntry
newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry)
noActionEntry :: Maybe ActionEntry
noActionEntry = Nothing
actionEntryReadName :: ActionEntry -> IO T.Text
actionEntryReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
actionEntryReadStockId :: ActionEntry -> IO T.Text
actionEntryReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
actionEntryReadLabel :: ActionEntry -> IO T.Text
actionEntryReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
actionEntryReadAccelerator :: ActionEntry -> IO T.Text
actionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
actionEntryReadTooltip :: ActionEntry -> IO T.Text
actionEntryReadTooltip s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
-- XXX Skipped getter for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
-- object ActionGroup
newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup)
noActionGroup :: Maybe ActionGroup
noActionGroup = Nothing
foreign import ccall "gtk_action_group_get_type"
c_gtk_action_group_get_type :: IO GType
type instance ParentTypes ActionGroup = '[GObject.Object, Buildable]
instance GObject ActionGroup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_action_group_get_type
class GObject o => ActionGroupK o
instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o
toActionGroup :: ActionGroupK o => o -> IO ActionGroup
toActionGroup = unsafeCastTo ActionGroup
-- method ActionGroup::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ActionGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_new" gtk_action_group_new ::
CString -> -- name : TBasicType TUTF8
IO (Ptr ActionGroup)
{-# DEPRECATED actionGroupNew ["(Since version 3.10)"]#-}
actionGroupNew ::
(MonadIO m) =>
T.Text -> -- name
m ActionGroup
actionGroupNew name = liftIO $ do
name' <- textToCString name
result <- gtk_action_group_new name'
checkUnexpectedReturnNULL "gtk_action_group_new" result
result' <- (wrapObject ActionGroup) result
freeMem name'
return result'
-- method ActionGroup::add_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_add_action" gtk_action_group_add_action ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
Ptr Action -> -- action : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionGroupAddAction ["(Since version 3.10)"]#-}
actionGroupAddAction ::
(MonadIO m, ActionGroupK a, ActionK b) =>
a -> -- _obj
b -> -- action
m ()
actionGroupAddAction _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = unsafeManagedPtrCastPtr action
gtk_action_group_add_action _obj' action'
touchManagedPtr _obj
touchManagedPtr action
return ()
-- method ActionGroup::add_action_with_accel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_add_action_with_accel" gtk_action_group_add_action_with_accel ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
Ptr Action -> -- action : TInterface "Gtk" "Action"
CString -> -- accelerator : TBasicType TUTF8
IO ()
{-# DEPRECATED actionGroupAddActionWithAccel ["(Since version 3.10)"]#-}
actionGroupAddActionWithAccel ::
(MonadIO m, ActionGroupK a, ActionK b) =>
a -> -- _obj
b -> -- action
Maybe (T.Text) -> -- accelerator
m ()
actionGroupAddActionWithAccel _obj action accelerator = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = unsafeManagedPtrCastPtr action
maybeAccelerator <- case accelerator of
Nothing -> return nullPtr
Just jAccelerator -> do
jAccelerator' <- textToCString jAccelerator
return jAccelerator'
gtk_action_group_add_action_with_accel _obj' action' maybeAccelerator
touchManagedPtr _obj
touchManagedPtr action
freeMem maybeAccelerator
return ()
-- method ActionGroup::get_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_get_accel_group" gtk_action_group_get_accel_group ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
IO (Ptr AccelGroup)
{-# DEPRECATED actionGroupGetAccelGroup ["(Since version 3.10)"]#-}
actionGroupGetAccelGroup ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
m AccelGroup
actionGroupGetAccelGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_group_get_accel_group _obj'
checkUnexpectedReturnNULL "gtk_action_group_get_accel_group" result
result' <- (newObject AccelGroup) result
touchManagedPtr _obj
return result'
-- method ActionGroup::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_get_action" gtk_action_group_get_action ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
CString -> -- action_name : TBasicType TUTF8
IO (Ptr Action)
{-# DEPRECATED actionGroupGetAction ["(Since version 3.10)"]#-}
actionGroupGetAction ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
T.Text -> -- action_name
m Action
actionGroupGetAction _obj action_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
action_name' <- textToCString action_name
result <- gtk_action_group_get_action _obj' action_name'
checkUnexpectedReturnNULL "gtk_action_group_get_action" result
result' <- (newObject Action) result
touchManagedPtr _obj
freeMem action_name'
return result'
-- method ActionGroup::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_get_name" gtk_action_group_get_name ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
IO CString
{-# DEPRECATED actionGroupGetName ["(Since version 3.10)"]#-}
actionGroupGetName ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
m T.Text
actionGroupGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_group_get_name _obj'
checkUnexpectedReturnNULL "gtk_action_group_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ActionGroup::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_get_sensitive" gtk_action_group_get_sensitive ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
IO CInt
{-# DEPRECATED actionGroupGetSensitive ["(Since version 3.10)"]#-}
actionGroupGetSensitive ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
m Bool
actionGroupGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_group_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ActionGroup::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_get_visible" gtk_action_group_get_visible ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
IO CInt
{-# DEPRECATED actionGroupGetVisible ["(Since version 3.10)"]#-}
actionGroupGetVisible ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
m Bool
actionGroupGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_group_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ActionGroup::list_actions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Action")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_list_actions" gtk_action_group_list_actions ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
IO (Ptr (GList (Ptr Action)))
{-# DEPRECATED actionGroupListActions ["(Since version 3.10)"]#-}
actionGroupListActions ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
m [Action]
actionGroupListActions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_group_list_actions _obj'
checkUnexpectedReturnNULL "gtk_action_group_list_actions" result
result' <- unpackGList result
result'' <- mapM (newObject Action) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method ActionGroup::remove_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_remove_action" gtk_action_group_remove_action ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
Ptr Action -> -- action : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionGroupRemoveAction ["(Since version 3.10)"]#-}
actionGroupRemoveAction ::
(MonadIO m, ActionGroupK a, ActionK b) =>
a -> -- _obj
b -> -- action
m ()
actionGroupRemoveAction _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = unsafeManagedPtrCastPtr action
gtk_action_group_remove_action _obj' action'
touchManagedPtr _obj
touchManagedPtr action
return ()
-- method ActionGroup::set_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_set_accel_group" gtk_action_group_set_accel_group ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
{-# DEPRECATED actionGroupSetAccelGroup ["(Since version 3.10)"]#-}
actionGroupSetAccelGroup ::
(MonadIO m, ActionGroupK a, AccelGroupK b) =>
a -> -- _obj
Maybe (b) -> -- accel_group
m ()
actionGroupSetAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
gtk_action_group_set_accel_group _obj' maybeAccel_group
touchManagedPtr _obj
whenJust accel_group touchManagedPtr
return ()
-- method ActionGroup::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_set_sensitive" gtk_action_group_set_sensitive ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
{-# DEPRECATED actionGroupSetSensitive ["(Since version 3.10)"]#-}
actionGroupSetSensitive ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
Bool -> -- sensitive
m ()
actionGroupSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_action_group_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
-- method ActionGroup::set_translate_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_set_translate_func" gtk_action_group_set_translate_func ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO ()
{-# DEPRECATED actionGroupSetTranslateFunc ["(Since version 3.10)"]#-}
actionGroupSetTranslateFunc ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
TranslateFunc -> -- func
m ()
actionGroupSetTranslateFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTranslateFunc (translateFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let notify = safeFreeFunPtrPtr
gtk_action_group_set_translate_func _obj' func' data_ notify
touchManagedPtr _obj
return ()
-- method ActionGroup::set_translation_domain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_set_translation_domain" gtk_action_group_set_translation_domain ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
CString -> -- domain : TBasicType TUTF8
IO ()
{-# DEPRECATED actionGroupSetTranslationDomain ["(Since version 3.10)"]#-}
actionGroupSetTranslationDomain ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
Maybe (T.Text) -> -- domain
m ()
actionGroupSetTranslationDomain _obj domain = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeDomain <- case domain of
Nothing -> return nullPtr
Just jDomain -> do
jDomain' <- textToCString jDomain
return jDomain'
gtk_action_group_set_translation_domain _obj' maybeDomain
touchManagedPtr _obj
freeMem maybeDomain
return ()
-- method ActionGroup::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_set_visible" gtk_action_group_set_visible ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
CInt -> -- visible : TBasicType TBoolean
IO ()
{-# DEPRECATED actionGroupSetVisible ["(Since version 3.10)"]#-}
actionGroupSetVisible ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
Bool -> -- visible
m ()
actionGroupSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_action_group_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method ActionGroup::translate_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_group_translate_string" gtk_action_group_translate_string ::
Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup"
CString -> -- string : TBasicType TUTF8
IO CString
{-# DEPRECATED actionGroupTranslateString ["(Since version 3.10)"]#-}
actionGroupTranslateString ::
(MonadIO m, ActionGroupK a) =>
a -> -- _obj
T.Text -> -- string
m T.Text
actionGroupTranslateString _obj string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
string' <- textToCString string
result <- gtk_action_group_translate_string _obj' string'
checkUnexpectedReturnNULL "gtk_action_group_translate_string" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem string'
return result'
-- signal ActionGroup::connect-proxy
type ActionGroupConnectProxyCallback =
Action ->
Widget ->
IO ()
noActionGroupConnectProxyCallback :: Maybe ActionGroupConnectProxyCallback
noActionGroupConnectProxyCallback = Nothing
type ActionGroupConnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionGroupConnectProxyCallback :: ActionGroupConnectProxyCallbackC -> IO (FunPtr ActionGroupConnectProxyCallbackC)
actionGroupConnectProxyClosure :: ActionGroupConnectProxyCallback -> IO Closure
actionGroupConnectProxyClosure cb = newCClosure =<< mkActionGroupConnectProxyCallback wrapped
where wrapped = actionGroupConnectProxyCallbackWrapper cb
actionGroupConnectProxyCallbackWrapper ::
ActionGroupConnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
actionGroupConnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onActionGroupConnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId
onActionGroupConnectProxy obj cb = liftIO $ connectActionGroupConnectProxy obj cb SignalConnectBefore
afterActionGroupConnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId
afterActionGroupConnectProxy obj cb = connectActionGroupConnectProxy obj cb SignalConnectAfter
connectActionGroupConnectProxy :: (GObject a, MonadIO m) =>
a -> ActionGroupConnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectActionGroupConnectProxy obj cb after = liftIO $ do
cb' <- mkActionGroupConnectProxyCallback (actionGroupConnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "connect-proxy" cb' after
-- signal ActionGroup::disconnect-proxy
type ActionGroupDisconnectProxyCallback =
Action ->
Widget ->
IO ()
noActionGroupDisconnectProxyCallback :: Maybe ActionGroupDisconnectProxyCallback
noActionGroupDisconnectProxyCallback = Nothing
type ActionGroupDisconnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionGroupDisconnectProxyCallback :: ActionGroupDisconnectProxyCallbackC -> IO (FunPtr ActionGroupDisconnectProxyCallbackC)
actionGroupDisconnectProxyClosure :: ActionGroupDisconnectProxyCallback -> IO Closure
actionGroupDisconnectProxyClosure cb = newCClosure =<< mkActionGroupDisconnectProxyCallback wrapped
where wrapped = actionGroupDisconnectProxyCallbackWrapper cb
actionGroupDisconnectProxyCallbackWrapper ::
ActionGroupDisconnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
actionGroupDisconnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onActionGroupDisconnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId
onActionGroupDisconnectProxy obj cb = liftIO $ connectActionGroupDisconnectProxy obj cb SignalConnectBefore
afterActionGroupDisconnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId
afterActionGroupDisconnectProxy obj cb = connectActionGroupDisconnectProxy obj cb SignalConnectAfter
connectActionGroupDisconnectProxy :: (GObject a, MonadIO m) =>
a -> ActionGroupDisconnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectActionGroupDisconnectProxy obj cb after = liftIO $ do
cb' <- mkActionGroupDisconnectProxyCallback (actionGroupDisconnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "disconnect-proxy" cb' after
-- signal ActionGroup::post-activate
type ActionGroupPostActivateCallback =
Action ->
IO ()
noActionGroupPostActivateCallback :: Maybe ActionGroupPostActivateCallback
noActionGroupPostActivateCallback = Nothing
type ActionGroupPostActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionGroupPostActivateCallback :: ActionGroupPostActivateCallbackC -> IO (FunPtr ActionGroupPostActivateCallbackC)
actionGroupPostActivateClosure :: ActionGroupPostActivateCallback -> IO Closure
actionGroupPostActivateClosure cb = newCClosure =<< mkActionGroupPostActivateCallback wrapped
where wrapped = actionGroupPostActivateCallbackWrapper cb
actionGroupPostActivateCallbackWrapper ::
ActionGroupPostActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
actionGroupPostActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onActionGroupPostActivate :: (GObject a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId
onActionGroupPostActivate obj cb = liftIO $ connectActionGroupPostActivate obj cb SignalConnectBefore
afterActionGroupPostActivate :: (GObject a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId
afterActionGroupPostActivate obj cb = connectActionGroupPostActivate obj cb SignalConnectAfter
connectActionGroupPostActivate :: (GObject a, MonadIO m) =>
a -> ActionGroupPostActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectActionGroupPostActivate obj cb after = liftIO $ do
cb' <- mkActionGroupPostActivateCallback (actionGroupPostActivateCallbackWrapper cb)
connectSignalFunPtr obj "post-activate" cb' after
-- signal ActionGroup::pre-activate
type ActionGroupPreActivateCallback =
Action ->
IO ()
noActionGroupPreActivateCallback :: Maybe ActionGroupPreActivateCallback
noActionGroupPreActivateCallback = Nothing
type ActionGroupPreActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionGroupPreActivateCallback :: ActionGroupPreActivateCallbackC -> IO (FunPtr ActionGroupPreActivateCallbackC)
actionGroupPreActivateClosure :: ActionGroupPreActivateCallback -> IO Closure
actionGroupPreActivateClosure cb = newCClosure =<< mkActionGroupPreActivateCallback wrapped
where wrapped = actionGroupPreActivateCallbackWrapper cb
actionGroupPreActivateCallbackWrapper ::
ActionGroupPreActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
actionGroupPreActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onActionGroupPreActivate :: (GObject a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId
onActionGroupPreActivate obj cb = liftIO $ connectActionGroupPreActivate obj cb SignalConnectBefore
afterActionGroupPreActivate :: (GObject a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId
afterActionGroupPreActivate obj cb = connectActionGroupPreActivate obj cb SignalConnectAfter
connectActionGroupPreActivate :: (GObject a, MonadIO m) =>
a -> ActionGroupPreActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectActionGroupPreActivate obj cb after = liftIO $ do
cb' <- mkActionGroupPreActivateCallback (actionGroupPreActivateCallbackWrapper cb)
connectSignalFunPtr obj "pre-activate" cb' after
-- interface Actionable
newtype Actionable = Actionable (ForeignPtr Actionable)
noActionable :: Maybe Actionable
noActionable = Nothing
foreign import ccall "gtk_actionable_get_type"
c_gtk_actionable_get_type :: IO GType
type instance ParentTypes Actionable = '[Widget, GObject.Object]
instance GObject Actionable where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_actionable_get_type
class GObject o => ActionableK o
instance (GObject o, IsDescendantOf Actionable o) => ActionableK o
toActionable :: ActionableK o => o -> IO Actionable
toActionable = unsafeCastTo Actionable
-- method Actionable::get_action_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_actionable_get_action_name" gtk_actionable_get_action_name ::
Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable"
IO CString
actionableGetActionName ::
(MonadIO m, ActionableK a) =>
a -> -- _obj
m T.Text
actionableGetActionName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_actionable_get_action_name _obj'
checkUnexpectedReturnNULL "gtk_actionable_get_action_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Actionable::get_action_target_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "gtk_actionable_get_action_target_value" gtk_actionable_get_action_target_value ::
Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable"
IO (Ptr GVariant)
actionableGetActionTargetValue ::
(MonadIO m, ActionableK a) =>
a -> -- _obj
m GVariant
actionableGetActionTargetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_actionable_get_action_target_value _obj'
checkUnexpectedReturnNULL "gtk_actionable_get_action_target_value" result
result' <- newGVariantFromPtr result
touchManagedPtr _obj
return result'
-- method Actionable::set_action_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_actionable_set_action_name" gtk_actionable_set_action_name ::
Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable"
CString -> -- action_name : TBasicType TUTF8
IO ()
actionableSetActionName ::
(MonadIO m, ActionableK a) =>
a -> -- _obj
T.Text -> -- action_name
m ()
actionableSetActionName _obj action_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
action_name' <- textToCString action_name
gtk_actionable_set_action_name _obj' action_name'
touchManagedPtr _obj
freeMem action_name'
return ()
-- method Actionable::set_action_target_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_actionable_set_action_target_value" gtk_actionable_set_action_target_value ::
Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable"
Ptr GVariant -> -- target_value : TVariant
IO ()
actionableSetActionTargetValue ::
(MonadIO m, ActionableK a) =>
a -> -- _obj
GVariant -> -- target_value
m ()
actionableSetActionTargetValue _obj target_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target_value' = unsafeManagedPtrGetPtr target_value
gtk_actionable_set_action_target_value _obj' target_value'
touchManagedPtr _obj
return ()
-- method Actionable::set_detailed_action_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_actionable_set_detailed_action_name" gtk_actionable_set_detailed_action_name ::
Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable"
CString -> -- detailed_action_name : TBasicType TUTF8
IO ()
actionableSetDetailedActionName ::
(MonadIO m, ActionableK a) =>
a -> -- _obj
T.Text -> -- detailed_action_name
m ()
actionableSetDetailedActionName _obj detailed_action_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
detailed_action_name' <- textToCString detailed_action_name
gtk_actionable_set_detailed_action_name _obj' detailed_action_name'
touchManagedPtr _obj
freeMem detailed_action_name'
return ()
-- interface Activatable
newtype Activatable = Activatable (ForeignPtr Activatable)
noActivatable :: Maybe Activatable
noActivatable = Nothing
foreign import ccall "gtk_activatable_get_type"
c_gtk_activatable_get_type :: IO GType
type instance ParentTypes Activatable = '[GObject.Object]
instance GObject Activatable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_activatable_get_type
class GObject o => ActivatableK o
instance (GObject o, IsDescendantOf Activatable o) => ActivatableK o
toActivatable :: ActivatableK o => o -> IO Activatable
toActivatable = unsafeCastTo Activatable
-- method Activatable::do_set_related_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_do_set_related_action" gtk_activatable_do_set_related_action ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
Ptr Action -> -- action : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED activatableDoSetRelatedAction ["(Since version 3.10)"]#-}
activatableDoSetRelatedAction ::
(MonadIO m, ActivatableK a, ActionK b) =>
a -> -- _obj
b -> -- action
m ()
activatableDoSetRelatedAction _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = unsafeManagedPtrCastPtr action
gtk_activatable_do_set_related_action _obj' action'
touchManagedPtr _obj
touchManagedPtr action
return ()
-- method Activatable::get_related_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_get_related_action" gtk_activatable_get_related_action ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
IO (Ptr Action)
{-# DEPRECATED activatableGetRelatedAction ["(Since version 3.10)"]#-}
activatableGetRelatedAction ::
(MonadIO m, ActivatableK a) =>
a -> -- _obj
m Action
activatableGetRelatedAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_activatable_get_related_action _obj'
checkUnexpectedReturnNULL "gtk_activatable_get_related_action" result
result' <- (newObject Action) result
touchManagedPtr _obj
return result'
-- method Activatable::get_use_action_appearance
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_get_use_action_appearance" gtk_activatable_get_use_action_appearance ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
IO CInt
{-# DEPRECATED activatableGetUseActionAppearance ["(Since version 3.10)"]#-}
activatableGetUseActionAppearance ::
(MonadIO m, ActivatableK a) =>
a -> -- _obj
m Bool
activatableGetUseActionAppearance _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_activatable_get_use_action_appearance _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Activatable::set_related_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_set_related_action" gtk_activatable_set_related_action ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
Ptr Action -> -- action : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED activatableSetRelatedAction ["(Since version 3.10)"]#-}
activatableSetRelatedAction ::
(MonadIO m, ActivatableK a, ActionK b) =>
a -> -- _obj
b -> -- action
m ()
activatableSetRelatedAction _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = unsafeManagedPtrCastPtr action
gtk_activatable_set_related_action _obj' action'
touchManagedPtr _obj
touchManagedPtr action
return ()
-- method Activatable::set_use_action_appearance
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_set_use_action_appearance" gtk_activatable_set_use_action_appearance ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
CInt -> -- use_appearance : TBasicType TBoolean
IO ()
{-# DEPRECATED activatableSetUseActionAppearance ["(Since version 3.10)"]#-}
activatableSetUseActionAppearance ::
(MonadIO m, ActivatableK a) =>
a -> -- _obj
Bool -> -- use_appearance
m ()
activatableSetUseActionAppearance _obj use_appearance = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_appearance' = (fromIntegral . fromEnum) use_appearance
gtk_activatable_set_use_action_appearance _obj' use_appearance'
touchManagedPtr _obj
return ()
-- method Activatable::sync_action_properties
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_activatable_sync_action_properties" gtk_activatable_sync_action_properties ::
Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable"
Ptr Action -> -- action : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED activatableSyncActionProperties ["(Since version 3.10)"]#-}
activatableSyncActionProperties ::
(MonadIO m, ActivatableK a, ActionK b) =>
a -> -- _obj
Maybe (b) -> -- action
m ()
activatableSyncActionProperties _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAction <- case action of
Nothing -> return nullPtr
Just jAction -> do
let jAction' = unsafeManagedPtrCastPtr jAction
return jAction'
gtk_activatable_sync_action_properties _obj' maybeAction
touchManagedPtr _obj
whenJust action touchManagedPtr
return ()
-- object Adjustment
newtype Adjustment = Adjustment (ForeignPtr Adjustment)
noAdjustment :: Maybe Adjustment
noAdjustment = Nothing
foreign import ccall "gtk_adjustment_get_type"
c_gtk_adjustment_get_type :: IO GType
type instance ParentTypes Adjustment = '[GObject.Object]
instance GObject Adjustment where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_adjustment_get_type
class GObject o => AdjustmentK o
instance (GObject o, IsDescendantOf Adjustment o) => AdjustmentK o
toAdjustment :: AdjustmentK o => o -> IO Adjustment
toAdjustment = unsafeCastTo Adjustment
-- method Adjustment::new
-- method type : Constructor
-- Args : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_new" gtk_adjustment_new ::
CDouble -> -- value : TBasicType TDouble
CDouble -> -- lower : TBasicType TDouble
CDouble -> -- upper : TBasicType TDouble
CDouble -> -- step_increment : TBasicType TDouble
CDouble -> -- page_increment : TBasicType TDouble
CDouble -> -- page_size : TBasicType TDouble
IO (Ptr Adjustment)
adjustmentNew ::
(MonadIO m) =>
Double -> -- value
Double -> -- lower
Double -> -- upper
Double -> -- step_increment
Double -> -- page_increment
Double -> -- page_size
m Adjustment
adjustmentNew value lower upper step_increment page_increment page_size = liftIO $ do
let value' = realToFrac value
let lower' = realToFrac lower
let upper' = realToFrac upper
let step_increment' = realToFrac step_increment
let page_increment' = realToFrac page_increment
let page_size' = realToFrac page_size
result <- gtk_adjustment_new value' lower' upper' step_increment' page_increment' page_size'
checkUnexpectedReturnNULL "gtk_adjustment_new" result
result' <- (newObject Adjustment) result
return result'
-- method Adjustment::changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_changed" gtk_adjustment_changed ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED adjustmentChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::changed itself whenever any"," of the properties (other than value) change"]#-}
adjustmentChanged ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m ()
adjustmentChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_adjustment_changed _obj'
touchManagedPtr _obj
return ()
-- method Adjustment::clamp_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_clamp_page" gtk_adjustment_clamp_page ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- lower : TBasicType TDouble
CDouble -> -- upper : TBasicType TDouble
IO ()
adjustmentClampPage ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- lower
Double -> -- upper
m ()
adjustmentClampPage _obj lower upper = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let lower' = realToFrac lower
let upper' = realToFrac upper
gtk_adjustment_clamp_page _obj' lower' upper'
touchManagedPtr _obj
return ()
-- method Adjustment::configure
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_configure" gtk_adjustment_configure ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- value : TBasicType TDouble
CDouble -> -- lower : TBasicType TDouble
CDouble -> -- upper : TBasicType TDouble
CDouble -> -- step_increment : TBasicType TDouble
CDouble -> -- page_increment : TBasicType TDouble
CDouble -> -- page_size : TBasicType TDouble
IO ()
adjustmentConfigure ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- value
Double -> -- lower
Double -> -- upper
Double -> -- step_increment
Double -> -- page_increment
Double -> -- page_size
m ()
adjustmentConfigure _obj value lower upper step_increment page_increment page_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
let lower' = realToFrac lower
let upper' = realToFrac upper
let step_increment' = realToFrac step_increment
let page_increment' = realToFrac page_increment
let page_size' = realToFrac page_size
gtk_adjustment_configure _obj' value' lower' upper' step_increment' page_increment' page_size'
touchManagedPtr _obj
return ()
-- method Adjustment::get_lower
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_lower" gtk_adjustment_get_lower ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetLower ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetLower _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_lower _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_minimum_increment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_minimum_increment" gtk_adjustment_get_minimum_increment ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetMinimumIncrement ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetMinimumIncrement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_minimum_increment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_page_increment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_page_increment" gtk_adjustment_get_page_increment ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetPageIncrement ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetPageIncrement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_page_increment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_page_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_page_size" gtk_adjustment_get_page_size ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetPageSize ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetPageSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_page_size _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_step_increment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_step_increment" gtk_adjustment_get_step_increment ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetStepIncrement ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetStepIncrement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_step_increment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_upper
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_upper" gtk_adjustment_get_upper ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetUpper ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetUpper _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_upper _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_get_value" gtk_adjustment_get_value ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO CDouble
adjustmentGetValue ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m Double
adjustmentGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_adjustment_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Adjustment::set_lower
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_lower" gtk_adjustment_set_lower ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- lower : TBasicType TDouble
IO ()
adjustmentSetLower ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- lower
m ()
adjustmentSetLower _obj lower = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let lower' = realToFrac lower
gtk_adjustment_set_lower _obj' lower'
touchManagedPtr _obj
return ()
-- method Adjustment::set_page_increment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_page_increment" gtk_adjustment_set_page_increment ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- page_increment : TBasicType TDouble
IO ()
adjustmentSetPageIncrement ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- page_increment
m ()
adjustmentSetPageIncrement _obj page_increment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page_increment' = realToFrac page_increment
gtk_adjustment_set_page_increment _obj' page_increment'
touchManagedPtr _obj
return ()
-- method Adjustment::set_page_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_page_size" gtk_adjustment_set_page_size ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- page_size : TBasicType TDouble
IO ()
adjustmentSetPageSize ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- page_size
m ()
adjustmentSetPageSize _obj page_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page_size' = realToFrac page_size
gtk_adjustment_set_page_size _obj' page_size'
touchManagedPtr _obj
return ()
-- method Adjustment::set_step_increment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_step_increment" gtk_adjustment_set_step_increment ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- step_increment : TBasicType TDouble
IO ()
adjustmentSetStepIncrement ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- step_increment
m ()
adjustmentSetStepIncrement _obj step_increment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step_increment' = realToFrac step_increment
gtk_adjustment_set_step_increment _obj' step_increment'
touchManagedPtr _obj
return ()
-- method Adjustment::set_upper
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_upper" gtk_adjustment_set_upper ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- upper : TBasicType TDouble
IO ()
adjustmentSetUpper ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- upper
m ()
adjustmentSetUpper _obj upper = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let upper' = realToFrac upper
gtk_adjustment_set_upper _obj' upper'
touchManagedPtr _obj
return ()
-- method Adjustment::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_set_value" gtk_adjustment_set_value ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
CDouble -> -- value : TBasicType TDouble
IO ()
adjustmentSetValue ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
Double -> -- value
m ()
adjustmentSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_adjustment_set_value _obj' value'
touchManagedPtr _obj
return ()
-- method Adjustment::value_changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_adjustment_value_changed" gtk_adjustment_value_changed ::
Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED adjustmentValueChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::value-changed itself whenever"," the value changes"]#-}
adjustmentValueChanged ::
(MonadIO m, AdjustmentK a) =>
a -> -- _obj
m ()
adjustmentValueChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_adjustment_value_changed _obj'
touchManagedPtr _obj
return ()
-- signal Adjustment::changed
type AdjustmentChangedCallback =
IO ()
noAdjustmentChangedCallback :: Maybe AdjustmentChangedCallback
noAdjustmentChangedCallback = Nothing
type AdjustmentChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAdjustmentChangedCallback :: AdjustmentChangedCallbackC -> IO (FunPtr AdjustmentChangedCallbackC)
adjustmentChangedClosure :: AdjustmentChangedCallback -> IO Closure
adjustmentChangedClosure cb = newCClosure =<< mkAdjustmentChangedCallback wrapped
where wrapped = adjustmentChangedCallbackWrapper cb
adjustmentChangedCallbackWrapper ::
AdjustmentChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
adjustmentChangedCallbackWrapper _cb _ _ = do
_cb
onAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId
onAdjustmentChanged obj cb = liftIO $ connectAdjustmentChanged obj cb SignalConnectBefore
afterAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId
afterAdjustmentChanged obj cb = connectAdjustmentChanged obj cb SignalConnectAfter
connectAdjustmentChanged :: (GObject a, MonadIO m) =>
a -> AdjustmentChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAdjustmentChanged obj cb after = liftIO $ do
cb' <- mkAdjustmentChangedCallback (adjustmentChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal Adjustment::value-changed
type AdjustmentValueChangedCallback =
IO ()
noAdjustmentValueChangedCallback :: Maybe AdjustmentValueChangedCallback
noAdjustmentValueChangedCallback = Nothing
type AdjustmentValueChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAdjustmentValueChangedCallback :: AdjustmentValueChangedCallbackC -> IO (FunPtr AdjustmentValueChangedCallbackC)
adjustmentValueChangedClosure :: AdjustmentValueChangedCallback -> IO Closure
adjustmentValueChangedClosure cb = newCClosure =<< mkAdjustmentValueChangedCallback wrapped
where wrapped = adjustmentValueChangedCallbackWrapper cb
adjustmentValueChangedCallbackWrapper ::
AdjustmentValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
adjustmentValueChangedCallbackWrapper _cb _ _ = do
_cb
onAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId
onAdjustmentValueChanged obj cb = liftIO $ connectAdjustmentValueChanged obj cb SignalConnectBefore
afterAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId
afterAdjustmentValueChanged obj cb = connectAdjustmentValueChanged obj cb SignalConnectAfter
connectAdjustmentValueChanged :: (GObject a, MonadIO m) =>
a -> AdjustmentValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAdjustmentValueChanged obj cb after = liftIO $ do
cb' <- mkAdjustmentValueChangedCallback (adjustmentValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
-- Enum Align
data Align =
AlignFill
| AlignStart
| AlignEnd
| AlignCenter
| AlignBaseline
| AnotherAlign Int
deriving (Show, Eq)
instance Enum Align where
fromEnum AlignFill = 0
fromEnum AlignStart = 1
fromEnum AlignEnd = 2
fromEnum AlignCenter = 3
fromEnum AlignBaseline = 4
fromEnum (AnotherAlign k) = k
toEnum 0 = AlignFill
toEnum 1 = AlignStart
toEnum 2 = AlignEnd
toEnum 3 = AlignCenter
toEnum 4 = AlignBaseline
toEnum k = AnotherAlign k
foreign import ccall "gtk_align_get_type" c_gtk_align_get_type ::
IO GType
instance BoxedEnum Align where
boxedEnumType _ = c_gtk_align_get_type
-- object Alignment
newtype Alignment = Alignment (ForeignPtr Alignment)
noAlignment :: Maybe Alignment
noAlignment = Nothing
foreign import ccall "gtk_alignment_get_type"
c_gtk_alignment_get_type :: IO GType
type instance ParentTypes Alignment = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Alignment where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_alignment_get_type
class GObject o => AlignmentK o
instance (GObject o, IsDescendantOf Alignment o) => AlignmentK o
toAlignment :: AlignmentK o => o -> IO Alignment
toAlignment = unsafeCastTo Alignment
-- method Alignment::new
-- method type : Constructor
-- Args : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Alignment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alignment_new" gtk_alignment_new ::
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
CFloat -> -- xscale : TBasicType TFloat
CFloat -> -- yscale : TBasicType TFloat
IO (Ptr Alignment)
{-# DEPRECATED alignmentNew ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}
alignmentNew ::
(MonadIO m) =>
Float -> -- xalign
Float -> -- yalign
Float -> -- xscale
Float -> -- yscale
m Alignment
alignmentNew xalign yalign xscale yscale = liftIO $ do
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
let xscale' = realToFrac xscale
let yscale' = realToFrac yscale
result <- gtk_alignment_new xalign' yalign' xscale' yscale'
checkUnexpectedReturnNULL "gtk_alignment_new" result
result' <- (newObject Alignment) result
return result'
-- method Alignment::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alignment_get_padding" gtk_alignment_get_padding ::
Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment"
Ptr Word32 -> -- padding_top : TBasicType TUInt32
Ptr Word32 -> -- padding_bottom : TBasicType TUInt32
Ptr Word32 -> -- padding_left : TBasicType TUInt32
Ptr Word32 -> -- padding_right : TBasicType TUInt32
IO ()
{-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}
alignmentGetPadding ::
(MonadIO m, AlignmentK a) =>
a -> -- _obj
m (Word32,Word32,Word32,Word32)
alignmentGetPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
padding_top <- allocMem :: IO (Ptr Word32)
padding_bottom <- allocMem :: IO (Ptr Word32)
padding_left <- allocMem :: IO (Ptr Word32)
padding_right <- allocMem :: IO (Ptr Word32)
gtk_alignment_get_padding _obj' padding_top padding_bottom padding_left padding_right
padding_top' <- peek padding_top
padding_bottom' <- peek padding_bottom
padding_left' <- peek padding_left
padding_right' <- peek padding_right
touchManagedPtr _obj
freeMem padding_top
freeMem padding_bottom
freeMem padding_left
freeMem padding_right
return (padding_top', padding_bottom', padding_left', padding_right')
-- method Alignment::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alignment_set" gtk_alignment_set ::
Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
CFloat -> -- xscale : TBasicType TFloat
CFloat -> -- yscale : TBasicType TFloat
IO ()
{-# DEPRECATED alignmentSet ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}
alignmentSet ::
(MonadIO m, AlignmentK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
Float -> -- xscale
Float -> -- yscale
m ()
alignmentSet _obj xalign yalign xscale yscale = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
let xscale' = realToFrac xscale
let yscale' = realToFrac yscale
gtk_alignment_set _obj' xalign' yalign' xscale' yscale'
touchManagedPtr _obj
return ()
-- method Alignment::set_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alignment_set_padding" gtk_alignment_set_padding ::
Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment"
Word32 -> -- padding_top : TBasicType TUInt32
Word32 -> -- padding_bottom : TBasicType TUInt32
Word32 -> -- padding_left : TBasicType TUInt32
Word32 -> -- padding_right : TBasicType TUInt32
IO ()
{-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-}
alignmentSetPadding ::
(MonadIO m, AlignmentK a) =>
a -> -- _obj
Word32 -> -- padding_top
Word32 -> -- padding_bottom
Word32 -> -- padding_left
Word32 -> -- padding_right
m ()
alignmentSetPadding _obj padding_top padding_bottom padding_left padding_right = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_alignment_set_padding _obj' padding_top padding_bottom padding_left padding_right
touchManagedPtr _obj
return ()
-- interface AppChooser
newtype AppChooser = AppChooser (ForeignPtr AppChooser)
noAppChooser :: Maybe AppChooser
noAppChooser = Nothing
foreign import ccall "gtk_app_chooser_get_type"
c_gtk_app_chooser_get_type :: IO GType
type instance ParentTypes AppChooser = '[Widget, GObject.Object]
instance GObject AppChooser where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_app_chooser_get_type
class GObject o => AppChooserK o
instance (GObject o, IsDescendantOf AppChooser o) => AppChooserK o
toAppChooser :: AppChooserK o => o -> IO AppChooser
toAppChooser = unsafeCastTo AppChooser
-- method AppChooser::get_app_info
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "AppInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_get_app_info" gtk_app_chooser_get_app_info ::
Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser"
IO (Ptr Gio.AppInfo)
appChooserGetAppInfo ::
(MonadIO m, AppChooserK a) =>
a -> -- _obj
m Gio.AppInfo
appChooserGetAppInfo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_get_app_info _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_get_app_info" result
result' <- (wrapObject Gio.AppInfo) result
touchManagedPtr _obj
return result'
-- method AppChooser::get_content_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_get_content_type" gtk_app_chooser_get_content_type ::
Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser"
IO CString
appChooserGetContentType ::
(MonadIO m, AppChooserK a) =>
a -> -- _obj
m T.Text
appChooserGetContentType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_get_content_type _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_get_content_type" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method AppChooser::refresh
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_refresh" gtk_app_chooser_refresh ::
Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser"
IO ()
appChooserRefresh ::
(MonadIO m, AppChooserK a) =>
a -> -- _obj
m ()
appChooserRefresh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_app_chooser_refresh _obj'
touchManagedPtr _obj
return ()
-- object AppChooserButton
newtype AppChooserButton = AppChooserButton (ForeignPtr AppChooserButton)
noAppChooserButton :: Maybe AppChooserButton
noAppChooserButton = Nothing
foreign import ccall "gtk_app_chooser_button_get_type"
c_gtk_app_chooser_button_get_type :: IO GType
type instance ParentTypes AppChooserButton = '[ComboBox, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable, CellEditable, CellLayout]
instance GObject AppChooserButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_app_chooser_button_get_type
class GObject o => AppChooserButtonK o
instance (GObject o, IsDescendantOf AppChooserButton o) => AppChooserButtonK o
toAppChooserButton :: AppChooserButtonK o => o -> IO AppChooserButton
toAppChooserButton = unsafeCastTo AppChooserButton
-- method AppChooserButton::new
-- method type : Constructor
-- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AppChooserButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_new" gtk_app_chooser_button_new ::
CString -> -- content_type : TBasicType TUTF8
IO (Ptr AppChooserButton)
appChooserButtonNew ::
(MonadIO m) =>
T.Text -> -- content_type
m AppChooserButton
appChooserButtonNew content_type = liftIO $ do
content_type' <- textToCString content_type
result <- gtk_app_chooser_button_new content_type'
checkUnexpectedReturnNULL "gtk_app_chooser_button_new" result
result' <- (newObject AppChooserButton) result
freeMem content_type'
return result'
-- method AppChooserButton::append_custom_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_append_custom_item" gtk_app_chooser_button_append_custom_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
appChooserButtonAppendCustomItem ::
(MonadIO m, AppChooserButtonK a, Gio.IconK b) =>
a -> -- _obj
T.Text -> -- name
T.Text -> -- label
b -> -- icon
m ()
appChooserButtonAppendCustomItem _obj name label icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
label' <- textToCString label
let icon' = unsafeManagedPtrCastPtr icon
gtk_app_chooser_button_append_custom_item _obj' name' label' icon'
touchManagedPtr _obj
touchManagedPtr icon
freeMem name'
freeMem label'
return ()
-- method AppChooserButton::append_separator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_append_separator" gtk_app_chooser_button_append_separator ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
IO ()
appChooserButtonAppendSeparator ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
m ()
appChooserButtonAppendSeparator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_app_chooser_button_append_separator _obj'
touchManagedPtr _obj
return ()
-- method AppChooserButton::get_heading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_get_heading" gtk_app_chooser_button_get_heading ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
IO CString
appChooserButtonGetHeading ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
m T.Text
appChooserButtonGetHeading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_button_get_heading _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_button_get_heading" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AppChooserButton::get_show_default_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_get_show_default_item" gtk_app_chooser_button_get_show_default_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
IO CInt
appChooserButtonGetShowDefaultItem ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
m Bool
appChooserButtonGetShowDefaultItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_button_get_show_default_item _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserButton::get_show_dialog_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_get_show_dialog_item" gtk_app_chooser_button_get_show_dialog_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
IO CInt
appChooserButtonGetShowDialogItem ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
m Bool
appChooserButtonGetShowDialogItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_button_get_show_dialog_item _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserButton::set_active_custom_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_set_active_custom_item" gtk_app_chooser_button_set_active_custom_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
CString -> -- name : TBasicType TUTF8
IO ()
appChooserButtonSetActiveCustomItem ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
T.Text -> -- name
m ()
appChooserButtonSetActiveCustomItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_app_chooser_button_set_active_custom_item _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method AppChooserButton::set_heading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_set_heading" gtk_app_chooser_button_set_heading ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
CString -> -- heading : TBasicType TUTF8
IO ()
appChooserButtonSetHeading ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
T.Text -> -- heading
m ()
appChooserButtonSetHeading _obj heading = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
heading' <- textToCString heading
gtk_app_chooser_button_set_heading _obj' heading'
touchManagedPtr _obj
freeMem heading'
return ()
-- method AppChooserButton::set_show_default_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_set_show_default_item" gtk_app_chooser_button_set_show_default_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserButtonSetShowDefaultItem ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserButtonSetShowDefaultItem _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_button_set_show_default_item _obj' setting'
touchManagedPtr _obj
return ()
-- method AppChooserButton::set_show_dialog_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_button_set_show_dialog_item" gtk_app_chooser_button_set_show_dialog_item ::
Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserButtonSetShowDialogItem ::
(MonadIO m, AppChooserButtonK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserButtonSetShowDialogItem _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_button_set_show_dialog_item _obj' setting'
touchManagedPtr _obj
return ()
-- signal AppChooserButton::custom-item-activated
type AppChooserButtonCustomItemActivatedCallback =
T.Text ->
IO ()
noAppChooserButtonCustomItemActivatedCallback :: Maybe AppChooserButtonCustomItemActivatedCallback
noAppChooserButtonCustomItemActivatedCallback = Nothing
type AppChooserButtonCustomItemActivatedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAppChooserButtonCustomItemActivatedCallback :: AppChooserButtonCustomItemActivatedCallbackC -> IO (FunPtr AppChooserButtonCustomItemActivatedCallbackC)
appChooserButtonCustomItemActivatedClosure :: AppChooserButtonCustomItemActivatedCallback -> IO Closure
appChooserButtonCustomItemActivatedClosure cb = newCClosure =<< mkAppChooserButtonCustomItemActivatedCallback wrapped
where wrapped = appChooserButtonCustomItemActivatedCallbackWrapper cb
appChooserButtonCustomItemActivatedCallbackWrapper ::
AppChooserButtonCustomItemActivatedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
appChooserButtonCustomItemActivatedCallbackWrapper _cb _ item_name _ = do
item_name' <- cstringToText item_name
_cb item_name'
onAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId
onAppChooserButtonCustomItemActivated obj cb = liftIO $ connectAppChooserButtonCustomItemActivated obj cb SignalConnectBefore
afterAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId
afterAppChooserButtonCustomItemActivated obj cb = connectAppChooserButtonCustomItemActivated obj cb SignalConnectAfter
connectAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) =>
a -> AppChooserButtonCustomItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectAppChooserButtonCustomItemActivated obj cb after = liftIO $ do
cb' <- mkAppChooserButtonCustomItemActivatedCallback (appChooserButtonCustomItemActivatedCallbackWrapper cb)
connectSignalFunPtr obj "custom-item-activated" cb' after
-- object AppChooserDialog
newtype AppChooserDialog = AppChooserDialog (ForeignPtr AppChooserDialog)
noAppChooserDialog :: Maybe AppChooserDialog
noAppChooserDialog = Nothing
foreign import ccall "gtk_app_chooser_dialog_get_type"
c_gtk_app_chooser_dialog_get_type :: IO GType
type instance ParentTypes AppChooserDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable]
instance GObject AppChooserDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_app_chooser_dialog_get_type
class GObject o => AppChooserDialogK o
instance (GObject o, IsDescendantOf AppChooserDialog o) => AppChooserDialogK o
toAppChooserDialog :: AppChooserDialogK o => o -> IO AppChooserDialog
toAppChooserDialog = unsafeCastTo AppChooserDialog
-- method AppChooserDialog::new
-- method type : Constructor
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AppChooserDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_dialog_new" gtk_app_chooser_dialog_new ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
CUInt -> -- flags : TInterface "Gtk" "DialogFlags"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
IO (Ptr AppChooserDialog)
appChooserDialogNew ::
(MonadIO m, WindowK a, Gio.FileK b) =>
Maybe (a) -> -- parent
[DialogFlags] -> -- flags
b -> -- file
m AppChooserDialog
appChooserDialogNew parent flags file = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
let flags' = gflagsToWord flags
let file' = unsafeManagedPtrCastPtr file
result <- gtk_app_chooser_dialog_new maybeParent flags' file'
checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new" result
result' <- (newObject AppChooserDialog) result
whenJust parent touchManagedPtr
touchManagedPtr file
return result'
-- method AppChooserDialog::new_for_content_type
-- method type : Constructor
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AppChooserDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_dialog_new_for_content_type" gtk_app_chooser_dialog_new_for_content_type ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
CUInt -> -- flags : TInterface "Gtk" "DialogFlags"
CString -> -- content_type : TBasicType TUTF8
IO (Ptr AppChooserDialog)
appChooserDialogNewForContentType ::
(MonadIO m, WindowK a) =>
Maybe (a) -> -- parent
[DialogFlags] -> -- flags
T.Text -> -- content_type
m AppChooserDialog
appChooserDialogNewForContentType parent flags content_type = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
let flags' = gflagsToWord flags
content_type' <- textToCString content_type
result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' content_type'
checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new_for_content_type" result
result' <- (newObject AppChooserDialog) result
whenJust parent touchManagedPtr
freeMem content_type'
return result'
-- method AppChooserDialog::get_heading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_dialog_get_heading" gtk_app_chooser_dialog_get_heading ::
Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog"
IO CString
appChooserDialogGetHeading ::
(MonadIO m, AppChooserDialogK a) =>
a -> -- _obj
m T.Text
appChooserDialogGetHeading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_dialog_get_heading _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_dialog_get_heading" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AppChooserDialog::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_dialog_get_widget" gtk_app_chooser_dialog_get_widget ::
Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog"
IO (Ptr Widget)
appChooserDialogGetWidget ::
(MonadIO m, AppChooserDialogK a) =>
a -> -- _obj
m Widget
appChooserDialogGetWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_dialog_get_widget _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_dialog_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method AppChooserDialog::set_heading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_dialog_set_heading" gtk_app_chooser_dialog_set_heading ::
Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog"
CString -> -- heading : TBasicType TUTF8
IO ()
appChooserDialogSetHeading ::
(MonadIO m, AppChooserDialogK a) =>
a -> -- _obj
T.Text -> -- heading
m ()
appChooserDialogSetHeading _obj heading = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
heading' <- textToCString heading
gtk_app_chooser_dialog_set_heading _obj' heading'
touchManagedPtr _obj
freeMem heading'
return ()
-- object AppChooserWidget
newtype AppChooserWidget = AppChooserWidget (ForeignPtr AppChooserWidget)
noAppChooserWidget :: Maybe AppChooserWidget
noAppChooserWidget = Nothing
foreign import ccall "gtk_app_chooser_widget_get_type"
c_gtk_app_chooser_widget_get_type :: IO GType
type instance ParentTypes AppChooserWidget = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable, Orientable]
instance GObject AppChooserWidget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_app_chooser_widget_get_type
class GObject o => AppChooserWidgetK o
instance (GObject o, IsDescendantOf AppChooserWidget o) => AppChooserWidgetK o
toAppChooserWidget :: AppChooserWidgetK o => o -> IO AppChooserWidget
toAppChooserWidget = unsafeCastTo AppChooserWidget
-- method AppChooserWidget::new
-- method type : Constructor
-- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AppChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_new" gtk_app_chooser_widget_new ::
CString -> -- content_type : TBasicType TUTF8
IO (Ptr AppChooserWidget)
appChooserWidgetNew ::
(MonadIO m) =>
T.Text -> -- content_type
m AppChooserWidget
appChooserWidgetNew content_type = liftIO $ do
content_type' <- textToCString content_type
result <- gtk_app_chooser_widget_new content_type'
checkUnexpectedReturnNULL "gtk_app_chooser_widget_new" result
result' <- (newObject AppChooserWidget) result
freeMem content_type'
return result'
-- method AppChooserWidget::get_default_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_default_text" gtk_app_chooser_widget_get_default_text ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CString
appChooserWidgetGetDefaultText ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m T.Text
appChooserWidgetGetDefaultText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_default_text _obj'
checkUnexpectedReturnNULL "gtk_app_chooser_widget_get_default_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::get_show_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_show_all" gtk_app_chooser_widget_get_show_all ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CInt
appChooserWidgetGetShowAll ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m Bool
appChooserWidgetGetShowAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_show_all _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::get_show_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_show_default" gtk_app_chooser_widget_get_show_default ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CInt
appChooserWidgetGetShowDefault ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m Bool
appChooserWidgetGetShowDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_show_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::get_show_fallback
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_show_fallback" gtk_app_chooser_widget_get_show_fallback ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CInt
appChooserWidgetGetShowFallback ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m Bool
appChooserWidgetGetShowFallback _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_show_fallback _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::get_show_other
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_show_other" gtk_app_chooser_widget_get_show_other ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CInt
appChooserWidgetGetShowOther ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m Bool
appChooserWidgetGetShowOther _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_show_other _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::get_show_recommended
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_get_show_recommended" gtk_app_chooser_widget_get_show_recommended ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
IO CInt
appChooserWidgetGetShowRecommended ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
m Bool
appChooserWidgetGetShowRecommended _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_app_chooser_widget_get_show_recommended _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method AppChooserWidget::set_default_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_default_text" gtk_app_chooser_widget_set_default_text ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CString -> -- text : TBasicType TUTF8
IO ()
appChooserWidgetSetDefaultText ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
T.Text -> -- text
m ()
appChooserWidgetSetDefaultText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_app_chooser_widget_set_default_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method AppChooserWidget::set_show_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_show_all" gtk_app_chooser_widget_set_show_all ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserWidgetSetShowAll ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserWidgetSetShowAll _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_widget_set_show_all _obj' setting'
touchManagedPtr _obj
return ()
-- method AppChooserWidget::set_show_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_show_default" gtk_app_chooser_widget_set_show_default ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserWidgetSetShowDefault ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserWidgetSetShowDefault _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_widget_set_show_default _obj' setting'
touchManagedPtr _obj
return ()
-- method AppChooserWidget::set_show_fallback
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_show_fallback" gtk_app_chooser_widget_set_show_fallback ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserWidgetSetShowFallback ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserWidgetSetShowFallback _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_widget_set_show_fallback _obj' setting'
touchManagedPtr _obj
return ()
-- method AppChooserWidget::set_show_other
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_show_other" gtk_app_chooser_widget_set_show_other ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserWidgetSetShowOther ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserWidgetSetShowOther _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_widget_set_show_other _obj' setting'
touchManagedPtr _obj
return ()
-- method AppChooserWidget::set_show_recommended
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_app_chooser_widget_set_show_recommended" gtk_app_chooser_widget_set_show_recommended ::
Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget"
CInt -> -- setting : TBasicType TBoolean
IO ()
appChooserWidgetSetShowRecommended ::
(MonadIO m, AppChooserWidgetK a) =>
a -> -- _obj
Bool -> -- setting
m ()
appChooserWidgetSetShowRecommended _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_app_chooser_widget_set_show_recommended _obj' setting'
touchManagedPtr _obj
return ()
-- signal AppChooserWidget::application-activated
type AppChooserWidgetApplicationActivatedCallback =
Gio.AppInfo ->
IO ()
noAppChooserWidgetApplicationActivatedCallback :: Maybe AppChooserWidgetApplicationActivatedCallback
noAppChooserWidgetApplicationActivatedCallback = Nothing
type AppChooserWidgetApplicationActivatedCallbackC =
Ptr () -> -- object
Ptr Gio.AppInfo ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAppChooserWidgetApplicationActivatedCallback :: AppChooserWidgetApplicationActivatedCallbackC -> IO (FunPtr AppChooserWidgetApplicationActivatedCallbackC)
appChooserWidgetApplicationActivatedClosure :: AppChooserWidgetApplicationActivatedCallback -> IO Closure
appChooserWidgetApplicationActivatedClosure cb = newCClosure =<< mkAppChooserWidgetApplicationActivatedCallback wrapped
where wrapped = appChooserWidgetApplicationActivatedCallbackWrapper cb
appChooserWidgetApplicationActivatedCallbackWrapper ::
AppChooserWidgetApplicationActivatedCallback ->
Ptr () ->
Ptr Gio.AppInfo ->
Ptr () ->
IO ()
appChooserWidgetApplicationActivatedCallbackWrapper _cb _ application _ = do
application' <- (newObject Gio.AppInfo) application
_cb application'
onAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId
onAppChooserWidgetApplicationActivated obj cb = liftIO $ connectAppChooserWidgetApplicationActivated obj cb SignalConnectBefore
afterAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId
afterAppChooserWidgetApplicationActivated obj cb = connectAppChooserWidgetApplicationActivated obj cb SignalConnectAfter
connectAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) =>
a -> AppChooserWidgetApplicationActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectAppChooserWidgetApplicationActivated obj cb after = liftIO $ do
cb' <- mkAppChooserWidgetApplicationActivatedCallback (appChooserWidgetApplicationActivatedCallbackWrapper cb)
connectSignalFunPtr obj "application-activated" cb' after
-- signal AppChooserWidget::application-selected
type AppChooserWidgetApplicationSelectedCallback =
Gio.AppInfo ->
IO ()
noAppChooserWidgetApplicationSelectedCallback :: Maybe AppChooserWidgetApplicationSelectedCallback
noAppChooserWidgetApplicationSelectedCallback = Nothing
type AppChooserWidgetApplicationSelectedCallbackC =
Ptr () -> -- object
Ptr Gio.AppInfo ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAppChooserWidgetApplicationSelectedCallback :: AppChooserWidgetApplicationSelectedCallbackC -> IO (FunPtr AppChooserWidgetApplicationSelectedCallbackC)
appChooserWidgetApplicationSelectedClosure :: AppChooserWidgetApplicationSelectedCallback -> IO Closure
appChooserWidgetApplicationSelectedClosure cb = newCClosure =<< mkAppChooserWidgetApplicationSelectedCallback wrapped
where wrapped = appChooserWidgetApplicationSelectedCallbackWrapper cb
appChooserWidgetApplicationSelectedCallbackWrapper ::
AppChooserWidgetApplicationSelectedCallback ->
Ptr () ->
Ptr Gio.AppInfo ->
Ptr () ->
IO ()
appChooserWidgetApplicationSelectedCallbackWrapper _cb _ application _ = do
application' <- (newObject Gio.AppInfo) application
_cb application'
onAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId
onAppChooserWidgetApplicationSelected obj cb = liftIO $ connectAppChooserWidgetApplicationSelected obj cb SignalConnectBefore
afterAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId
afterAppChooserWidgetApplicationSelected obj cb = connectAppChooserWidgetApplicationSelected obj cb SignalConnectAfter
connectAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) =>
a -> AppChooserWidgetApplicationSelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectAppChooserWidgetApplicationSelected obj cb after = liftIO $ do
cb' <- mkAppChooserWidgetApplicationSelectedCallback (appChooserWidgetApplicationSelectedCallbackWrapper cb)
connectSignalFunPtr obj "application-selected" cb' after
-- signal AppChooserWidget::populate-popup
type AppChooserWidgetPopulatePopupCallback =
Menu ->
Gio.AppInfo ->
IO ()
noAppChooserWidgetPopulatePopupCallback :: Maybe AppChooserWidgetPopulatePopupCallback
noAppChooserWidgetPopulatePopupCallback = Nothing
type AppChooserWidgetPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Menu ->
Ptr Gio.AppInfo ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAppChooserWidgetPopulatePopupCallback :: AppChooserWidgetPopulatePopupCallbackC -> IO (FunPtr AppChooserWidgetPopulatePopupCallbackC)
appChooserWidgetPopulatePopupClosure :: AppChooserWidgetPopulatePopupCallback -> IO Closure
appChooserWidgetPopulatePopupClosure cb = newCClosure =<< mkAppChooserWidgetPopulatePopupCallback wrapped
where wrapped = appChooserWidgetPopulatePopupCallbackWrapper cb
appChooserWidgetPopulatePopupCallbackWrapper ::
AppChooserWidgetPopulatePopupCallback ->
Ptr () ->
Ptr Menu ->
Ptr Gio.AppInfo ->
Ptr () ->
IO ()
appChooserWidgetPopulatePopupCallbackWrapper _cb _ menu application _ = do
menu' <- (newObject Menu) menu
application' <- (newObject Gio.AppInfo) application
_cb menu' application'
onAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId
onAppChooserWidgetPopulatePopup obj cb = liftIO $ connectAppChooserWidgetPopulatePopup obj cb SignalConnectBefore
afterAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId
afterAppChooserWidgetPopulatePopup obj cb = connectAppChooserWidgetPopulatePopup obj cb SignalConnectAfter
connectAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) =>
a -> AppChooserWidgetPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectAppChooserWidgetPopulatePopup obj cb after = liftIO $ do
cb' <- mkAppChooserWidgetPopulatePopupCallback (appChooserWidgetPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- object Application
newtype Application = Application (ForeignPtr Application)
noApplication :: Maybe Application
noApplication = Nothing
foreign import ccall "gtk_application_get_type"
c_gtk_application_get_type :: IO GType
type instance ParentTypes Application = '[Gio.Application, GObject.Object, Gio.ActionGroup, Gio.ActionMap]
instance GObject Application where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_application_get_type
class GObject o => ApplicationK o
instance (GObject o, IsDescendantOf Application o) => ApplicationK o
toApplication :: ApplicationK o => o -> IO Application
toApplication = unsafeCastTo Application
-- method Application::new
-- method type : Constructor
-- Args : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Application"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_new" gtk_application_new ::
CString -> -- application_id : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "ApplicationFlags"
IO (Ptr Application)
applicationNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- application_id
[Gio.ApplicationFlags] -> -- flags
m Application
applicationNew application_id flags = liftIO $ do
maybeApplication_id <- case application_id of
Nothing -> return nullPtr
Just jApplication_id -> do
jApplication_id' <- textToCString jApplication_id
return jApplication_id'
let flags' = gflagsToWord flags
result <- gtk_application_new maybeApplication_id flags'
checkUnexpectedReturnNULL "gtk_application_new" result
result' <- (wrapObject Application) result
freeMem maybeApplication_id
return result'
-- method Application::add_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_add_accelerator" gtk_application_add_accelerator ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- accelerator : TBasicType TUTF8
CString -> -- action_name : TBasicType TUTF8
Ptr GVariant -> -- parameter : TVariant
IO ()
{-# DEPRECATED applicationAddAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-}
applicationAddAccelerator ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- accelerator
T.Text -> -- action_name
Maybe (GVariant) -> -- parameter
m ()
applicationAddAccelerator _obj accelerator action_name parameter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accelerator' <- textToCString accelerator
action_name' <- textToCString action_name
maybeParameter <- case parameter of
Nothing -> return nullPtr
Just jParameter -> do
let jParameter' = unsafeManagedPtrGetPtr jParameter
return jParameter'
gtk_application_add_accelerator _obj' accelerator' action_name' maybeParameter
touchManagedPtr _obj
freeMem accelerator'
freeMem action_name'
return ()
-- method Application::add_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_add_window" gtk_application_add_window ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Ptr Window -> -- window : TInterface "Gtk" "Window"
IO ()
applicationAddWindow ::
(MonadIO m, ApplicationK a, WindowK b) =>
a -> -- _obj
b -> -- window
m ()
applicationAddWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_application_add_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method Application::get_accels_for_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_accels_for_action" gtk_application_get_accels_for_action ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- detailed_action_name : TBasicType TUTF8
IO (Ptr CString)
applicationGetAccelsForAction ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- detailed_action_name
m [T.Text]
applicationGetAccelsForAction _obj detailed_action_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
detailed_action_name' <- textToCString detailed_action_name
result <- gtk_application_get_accels_for_action _obj' detailed_action_name'
checkUnexpectedReturnNULL "gtk_application_get_accels_for_action" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
freeMem detailed_action_name'
return result'
-- method Application::get_actions_for_accel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_actions_for_accel" gtk_application_get_actions_for_accel ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- accel : TBasicType TUTF8
IO (Ptr CString)
applicationGetActionsForAccel ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- accel
m [T.Text]
applicationGetActionsForAccel _obj accel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accel' <- textToCString accel
result <- gtk_application_get_actions_for_accel _obj' accel'
checkUnexpectedReturnNULL "gtk_application_get_actions_for_accel" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
freeMem accel'
return result'
-- method Application::get_active_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_active_window" gtk_application_get_active_window ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO (Ptr Window)
applicationGetActiveWindow ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m Window
applicationGetActiveWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_get_active_window _obj'
checkUnexpectedReturnNULL "gtk_application_get_active_window" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
-- method Application::get_app_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "MenuModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_app_menu" gtk_application_get_app_menu ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO (Ptr Gio.MenuModel)
applicationGetAppMenu ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m Gio.MenuModel
applicationGetAppMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_get_app_menu _obj'
checkUnexpectedReturnNULL "gtk_application_get_app_menu" result
result' <- (newObject Gio.MenuModel) result
touchManagedPtr _obj
return result'
-- method Application::get_menu_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Menu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_menu_by_id" gtk_application_get_menu_by_id ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- id : TBasicType TUTF8
IO (Ptr Gio.Menu)
applicationGetMenuById ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- id
m Gio.Menu
applicationGetMenuById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- gtk_application_get_menu_by_id _obj' id'
checkUnexpectedReturnNULL "gtk_application_get_menu_by_id" result
result' <- (newObject Gio.Menu) result
touchManagedPtr _obj
freeMem id'
return result'
-- method Application::get_menubar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "MenuModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_menubar" gtk_application_get_menubar ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO (Ptr Gio.MenuModel)
applicationGetMenubar ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m Gio.MenuModel
applicationGetMenubar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_get_menubar _obj'
checkUnexpectedReturnNULL "gtk_application_get_menubar" result
result' <- (newObject Gio.MenuModel) result
touchManagedPtr _obj
return result'
-- method Application::get_window_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Word32 -> -- id : TBasicType TUInt32
IO (Ptr Window)
applicationGetWindowById ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
Word32 -> -- id
m Window
applicationGetWindowById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_get_window_by_id _obj' id
checkUnexpectedReturnNULL "gtk_application_get_window_by_id" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
-- method Application::get_windows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Window")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_get_windows" gtk_application_get_windows ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO (Ptr (GList (Ptr Window)))
applicationGetWindows ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m [Window]
applicationGetWindows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_get_windows _obj'
checkUnexpectedReturnNULL "gtk_application_get_windows" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
touchManagedPtr _obj
return result''
-- method Application::inhibit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_inhibit" gtk_application_inhibit ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Ptr Window -> -- window : TInterface "Gtk" "Window"
CUInt -> -- flags : TInterface "Gtk" "ApplicationInhibitFlags"
CString -> -- reason : TBasicType TUTF8
IO Word32
applicationInhibit ::
(MonadIO m, ApplicationK a, WindowK b) =>
a -> -- _obj
Maybe (b) -> -- window
[ApplicationInhibitFlags] -> -- flags
Maybe (T.Text) -> -- reason
m Word32
applicationInhibit _obj window flags reason = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWindow <- case window of
Nothing -> return nullPtr
Just jWindow -> do
let jWindow' = unsafeManagedPtrCastPtr jWindow
return jWindow'
let flags' = gflagsToWord flags
maybeReason <- case reason of
Nothing -> return nullPtr
Just jReason -> do
jReason' <- textToCString jReason
return jReason'
result <- gtk_application_inhibit _obj' maybeWindow flags' maybeReason
touchManagedPtr _obj
whenJust window touchManagedPtr
freeMem maybeReason
return result
-- method Application::is_inhibited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_is_inhibited" gtk_application_is_inhibited ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CUInt -> -- flags : TInterface "Gtk" "ApplicationInhibitFlags"
IO CInt
applicationIsInhibited ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
[ApplicationInhibitFlags] -> -- flags
m Bool
applicationIsInhibited _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
result <- gtk_application_is_inhibited _obj' flags'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Application::list_action_descriptions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_list_action_descriptions" gtk_application_list_action_descriptions ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO (Ptr CString)
applicationListActionDescriptions ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m [T.Text]
applicationListActionDescriptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_list_action_descriptions _obj'
checkUnexpectedReturnNULL "gtk_application_list_action_descriptions" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
-- method Application::prefers_app_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_prefers_app_menu" gtk_application_prefers_app_menu ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
IO CInt
applicationPrefersAppMenu ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
m Bool
applicationPrefersAppMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_prefers_app_menu _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Application::remove_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_remove_accelerator" gtk_application_remove_accelerator ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- action_name : TBasicType TUTF8
Ptr GVariant -> -- parameter : TVariant
IO ()
{-# DEPRECATED applicationRemoveAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-}
applicationRemoveAccelerator ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- action_name
Maybe (GVariant) -> -- parameter
m ()
applicationRemoveAccelerator _obj action_name parameter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
action_name' <- textToCString action_name
maybeParameter <- case parameter of
Nothing -> return nullPtr
Just jParameter -> do
let jParameter' = unsafeManagedPtrGetPtr jParameter
return jParameter'
gtk_application_remove_accelerator _obj' action_name' maybeParameter
touchManagedPtr _obj
freeMem action_name'
return ()
-- method Application::remove_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_remove_window" gtk_application_remove_window ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Ptr Window -> -- window : TInterface "Gtk" "Window"
IO ()
applicationRemoveWindow ::
(MonadIO m, ApplicationK a, WindowK b) =>
a -> -- _obj
b -> -- window
m ()
applicationRemoveWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_application_remove_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method Application::set_accels_for_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_set_accels_for_action" gtk_application_set_accels_for_action ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
CString -> -- detailed_action_name : TBasicType TUTF8
Ptr CString -> -- accels : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
applicationSetAccelsForAction ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
T.Text -> -- detailed_action_name
[T.Text] -> -- accels
m ()
applicationSetAccelsForAction _obj detailed_action_name accels = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
detailed_action_name' <- textToCString detailed_action_name
accels' <- packZeroTerminatedUTF8CArray accels
gtk_application_set_accels_for_action _obj' detailed_action_name' accels'
touchManagedPtr _obj
freeMem detailed_action_name'
mapZeroTerminatedCArray freeMem accels'
freeMem accels'
return ()
-- method Application::set_app_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_set_app_menu" gtk_application_set_app_menu ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Ptr Gio.MenuModel -> -- app_menu : TInterface "Gio" "MenuModel"
IO ()
applicationSetAppMenu ::
(MonadIO m, ApplicationK a, Gio.MenuModelK b) =>
a -> -- _obj
Maybe (b) -> -- app_menu
m ()
applicationSetAppMenu _obj app_menu = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeApp_menu <- case app_menu of
Nothing -> return nullPtr
Just jApp_menu -> do
let jApp_menu' = unsafeManagedPtrCastPtr jApp_menu
return jApp_menu'
gtk_application_set_app_menu _obj' maybeApp_menu
touchManagedPtr _obj
whenJust app_menu touchManagedPtr
return ()
-- method Application::set_menubar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_set_menubar" gtk_application_set_menubar ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Ptr Gio.MenuModel -> -- menubar : TInterface "Gio" "MenuModel"
IO ()
applicationSetMenubar ::
(MonadIO m, ApplicationK a, Gio.MenuModelK b) =>
a -> -- _obj
Maybe (b) -> -- menubar
m ()
applicationSetMenubar _obj menubar = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMenubar <- case menubar of
Nothing -> return nullPtr
Just jMenubar -> do
let jMenubar' = unsafeManagedPtrCastPtr jMenubar
return jMenubar'
gtk_application_set_menubar _obj' maybeMenubar
touchManagedPtr _obj
whenJust menubar touchManagedPtr
return ()
-- method Application::uninhibit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit ::
Ptr Application -> -- _obj : TInterface "Gtk" "Application"
Word32 -> -- cookie : TBasicType TUInt32
IO ()
applicationUninhibit ::
(MonadIO m, ApplicationK a) =>
a -> -- _obj
Word32 -> -- cookie
m ()
applicationUninhibit _obj cookie = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_application_uninhibit _obj' cookie
touchManagedPtr _obj
return ()
-- signal Application::window-added
type ApplicationWindowAddedCallback =
Window ->
IO ()
noApplicationWindowAddedCallback :: Maybe ApplicationWindowAddedCallback
noApplicationWindowAddedCallback = Nothing
type ApplicationWindowAddedCallbackC =
Ptr () -> -- object
Ptr Window ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkApplicationWindowAddedCallback :: ApplicationWindowAddedCallbackC -> IO (FunPtr ApplicationWindowAddedCallbackC)
applicationWindowAddedClosure :: ApplicationWindowAddedCallback -> IO Closure
applicationWindowAddedClosure cb = newCClosure =<< mkApplicationWindowAddedCallback wrapped
where wrapped = applicationWindowAddedCallbackWrapper cb
applicationWindowAddedCallbackWrapper ::
ApplicationWindowAddedCallback ->
Ptr () ->
Ptr Window ->
Ptr () ->
IO ()
applicationWindowAddedCallbackWrapper _cb _ window _ = do
window' <- (newObject Window) window
_cb window'
onApplicationWindowAdded :: (GObject a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId
onApplicationWindowAdded obj cb = liftIO $ connectApplicationWindowAdded obj cb SignalConnectBefore
afterApplicationWindowAdded :: (GObject a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId
afterApplicationWindowAdded obj cb = connectApplicationWindowAdded obj cb SignalConnectAfter
connectApplicationWindowAdded :: (GObject a, MonadIO m) =>
a -> ApplicationWindowAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationWindowAdded obj cb after = liftIO $ do
cb' <- mkApplicationWindowAddedCallback (applicationWindowAddedCallbackWrapper cb)
connectSignalFunPtr obj "window-added" cb' after
-- signal Application::window-removed
type ApplicationWindowRemovedCallback =
Window ->
IO ()
noApplicationWindowRemovedCallback :: Maybe ApplicationWindowRemovedCallback
noApplicationWindowRemovedCallback = Nothing
type ApplicationWindowRemovedCallbackC =
Ptr () -> -- object
Ptr Window ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkApplicationWindowRemovedCallback :: ApplicationWindowRemovedCallbackC -> IO (FunPtr ApplicationWindowRemovedCallbackC)
applicationWindowRemovedClosure :: ApplicationWindowRemovedCallback -> IO Closure
applicationWindowRemovedClosure cb = newCClosure =<< mkApplicationWindowRemovedCallback wrapped
where wrapped = applicationWindowRemovedCallbackWrapper cb
applicationWindowRemovedCallbackWrapper ::
ApplicationWindowRemovedCallback ->
Ptr () ->
Ptr Window ->
Ptr () ->
IO ()
applicationWindowRemovedCallbackWrapper _cb _ window _ = do
window' <- (newObject Window) window
_cb window'
onApplicationWindowRemoved :: (GObject a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId
onApplicationWindowRemoved obj cb = liftIO $ connectApplicationWindowRemoved obj cb SignalConnectBefore
afterApplicationWindowRemoved :: (GObject a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId
afterApplicationWindowRemoved obj cb = connectApplicationWindowRemoved obj cb SignalConnectAfter
connectApplicationWindowRemoved :: (GObject a, MonadIO m) =>
a -> ApplicationWindowRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationWindowRemoved obj cb after = liftIO $ do
cb' <- mkApplicationWindowRemovedCallback (applicationWindowRemovedCallbackWrapper cb)
connectSignalFunPtr obj "window-removed" cb' after
-- Flags ApplicationInhibitFlags
data ApplicationInhibitFlags =
ApplicationInhibitFlagsLogout
| ApplicationInhibitFlagsSwitch
| ApplicationInhibitFlagsSuspend
| ApplicationInhibitFlagsIdle
| AnotherApplicationInhibitFlags Int
deriving (Show, Eq)
instance Enum ApplicationInhibitFlags where
fromEnum ApplicationInhibitFlagsLogout = 1
fromEnum ApplicationInhibitFlagsSwitch = 2
fromEnum ApplicationInhibitFlagsSuspend = 4
fromEnum ApplicationInhibitFlagsIdle = 8
fromEnum (AnotherApplicationInhibitFlags k) = k
toEnum 1 = ApplicationInhibitFlagsLogout
toEnum 2 = ApplicationInhibitFlagsSwitch
toEnum 4 = ApplicationInhibitFlagsSuspend
toEnum 8 = ApplicationInhibitFlagsIdle
toEnum k = AnotherApplicationInhibitFlags k
foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type ::
IO GType
instance BoxedEnum ApplicationInhibitFlags where
boxedEnumType _ = c_gtk_application_inhibit_flags_get_type
instance IsGFlag ApplicationInhibitFlags
-- object ApplicationWindow
newtype ApplicationWindow = ApplicationWindow (ForeignPtr ApplicationWindow)
noApplicationWindow :: Maybe ApplicationWindow
noApplicationWindow = Nothing
foreign import ccall "gtk_application_window_get_type"
c_gtk_application_window_get_type :: IO GType
type instance ParentTypes ApplicationWindow = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Gio.ActionGroup, Gio.ActionMap, Buildable]
instance GObject ApplicationWindow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_application_window_get_type
class GObject o => ApplicationWindowK o
instance (GObject o, IsDescendantOf ApplicationWindow o) => ApplicationWindowK o
toApplicationWindow :: ApplicationWindowK o => o -> IO ApplicationWindow
toApplicationWindow = unsafeCastTo ApplicationWindow
-- method ApplicationWindow::new
-- method type : Constructor
-- Args : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ApplicationWindow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_window_new" gtk_application_window_new ::
Ptr Application -> -- application : TInterface "Gtk" "Application"
IO (Ptr ApplicationWindow)
applicationWindowNew ::
(MonadIO m, ApplicationK a) =>
a -> -- application
m ApplicationWindow
applicationWindowNew application = liftIO $ do
let application' = unsafeManagedPtrCastPtr application
result <- gtk_application_window_new application'
checkUnexpectedReturnNULL "gtk_application_window_new" result
result' <- (newObject ApplicationWindow) result
touchManagedPtr application
return result'
-- method ApplicationWindow::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_window_get_id" gtk_application_window_get_id ::
Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow"
IO Word32
applicationWindowGetId ::
(MonadIO m, ApplicationWindowK a) =>
a -> -- _obj
m Word32
applicationWindowGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_window_get_id _obj'
touchManagedPtr _obj
return result
-- method ApplicationWindow::get_show_menubar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_window_get_show_menubar" gtk_application_window_get_show_menubar ::
Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow"
IO CInt
applicationWindowGetShowMenubar ::
(MonadIO m, ApplicationWindowK a) =>
a -> -- _obj
m Bool
applicationWindowGetShowMenubar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_application_window_get_show_menubar _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ApplicationWindow::set_show_menubar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_application_window_set_show_menubar" gtk_application_window_set_show_menubar ::
Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow"
CInt -> -- show_menubar : TBasicType TBoolean
IO ()
applicationWindowSetShowMenubar ::
(MonadIO m, ApplicationWindowK a) =>
a -> -- _obj
Bool -> -- show_menubar
m ()
applicationWindowSetShowMenubar _obj show_menubar = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_menubar' = (fromIntegral . fromEnum) show_menubar
gtk_application_window_set_show_menubar _obj' show_menubar'
touchManagedPtr _obj
return ()
-- object Arrow
newtype Arrow = Arrow (ForeignPtr Arrow)
noArrow :: Maybe Arrow
noArrow = Nothing
foreign import ccall "gtk_arrow_get_type"
c_gtk_arrow_get_type :: IO GType
type instance ParentTypes Arrow = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Arrow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_arrow_get_type
class GObject o => ArrowK o
instance (GObject o, IsDescendantOf Arrow o) => ArrowK o
toArrow :: ArrowK o => o -> IO Arrow
toArrow = unsafeCastTo Arrow
-- method Arrow::new
-- method type : Constructor
-- Args : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Arrow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_arrow_new" gtk_arrow_new ::
CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
IO (Ptr Arrow)
{-# DEPRECATED arrowNew ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-}
arrowNew ::
(MonadIO m) =>
ArrowType -> -- arrow_type
ShadowType -> -- shadow_type
m Arrow
arrowNew arrow_type shadow_type = liftIO $ do
let arrow_type' = (fromIntegral . fromEnum) arrow_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
result <- gtk_arrow_new arrow_type' shadow_type'
checkUnexpectedReturnNULL "gtk_arrow_new" result
result' <- (newObject Arrow) result
return result'
-- method Arrow::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_arrow_set" gtk_arrow_set ::
Ptr Arrow -> -- _obj : TInterface "Gtk" "Arrow"
CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
IO ()
{-# DEPRECATED arrowSet ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-}
arrowSet ::
(MonadIO m, ArrowK a) =>
a -> -- _obj
ArrowType -> -- arrow_type
ShadowType -> -- shadow_type
m ()
arrowSet _obj arrow_type shadow_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let arrow_type' = (fromIntegral . fromEnum) arrow_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
gtk_arrow_set _obj' arrow_type' shadow_type'
touchManagedPtr _obj
return ()
-- object ArrowAccessible
newtype ArrowAccessible = ArrowAccessible (ForeignPtr ArrowAccessible)
noArrowAccessible :: Maybe ArrowAccessible
noArrowAccessible = Nothing
foreign import ccall "gtk_arrow_accessible_get_type"
c_gtk_arrow_accessible_get_type :: IO GType
type instance ParentTypes ArrowAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image]
instance GObject ArrowAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_arrow_accessible_get_type
class GObject o => ArrowAccessibleK o
instance (GObject o, IsDescendantOf ArrowAccessible o) => ArrowAccessibleK o
toArrowAccessible :: ArrowAccessibleK o => o -> IO ArrowAccessible
toArrowAccessible = unsafeCastTo ArrowAccessible
-- Enum ArrowPlacement
data ArrowPlacement =
ArrowPlacementBoth
| ArrowPlacementStart
| ArrowPlacementEnd
| AnotherArrowPlacement Int
deriving (Show, Eq)
instance Enum ArrowPlacement where
fromEnum ArrowPlacementBoth = 0
fromEnum ArrowPlacementStart = 1
fromEnum ArrowPlacementEnd = 2
fromEnum (AnotherArrowPlacement k) = k
toEnum 0 = ArrowPlacementBoth
toEnum 1 = ArrowPlacementStart
toEnum 2 = ArrowPlacementEnd
toEnum k = AnotherArrowPlacement k
foreign import ccall "gtk_arrow_placement_get_type" c_gtk_arrow_placement_get_type ::
IO GType
instance BoxedEnum ArrowPlacement where
boxedEnumType _ = c_gtk_arrow_placement_get_type
-- Enum ArrowType
data ArrowType =
ArrowTypeUp
| ArrowTypeDown
| ArrowTypeLeft
| ArrowTypeRight
| ArrowTypeNone
| AnotherArrowType Int
deriving (Show, Eq)
instance Enum ArrowType where
fromEnum ArrowTypeUp = 0
fromEnum ArrowTypeDown = 1
fromEnum ArrowTypeLeft = 2
fromEnum ArrowTypeRight = 3
fromEnum ArrowTypeNone = 4
fromEnum (AnotherArrowType k) = k
toEnum 0 = ArrowTypeUp
toEnum 1 = ArrowTypeDown
toEnum 2 = ArrowTypeLeft
toEnum 3 = ArrowTypeRight
toEnum 4 = ArrowTypeNone
toEnum k = AnotherArrowType k
foreign import ccall "gtk_arrow_type_get_type" c_gtk_arrow_type_get_type ::
IO GType
instance BoxedEnum ArrowType where
boxedEnumType _ = c_gtk_arrow_type_get_type
-- object AspectFrame
newtype AspectFrame = AspectFrame (ForeignPtr AspectFrame)
noAspectFrame :: Maybe AspectFrame
noAspectFrame = Nothing
foreign import ccall "gtk_aspect_frame_get_type"
c_gtk_aspect_frame_get_type :: IO GType
type instance ParentTypes AspectFrame = '[Frame, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject AspectFrame where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_aspect_frame_get_type
class GObject o => AspectFrameK o
instance (GObject o, IsDescendantOf AspectFrame o) => AspectFrameK o
toAspectFrame :: AspectFrameK o => o -> IO AspectFrame
toAspectFrame = unsafeCastTo AspectFrame
-- method AspectFrame::new
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AspectFrame"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_aspect_frame_new" gtk_aspect_frame_new ::
CString -> -- label : TBasicType TUTF8
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
CFloat -> -- ratio : TBasicType TFloat
CInt -> -- obey_child : TBasicType TBoolean
IO (Ptr AspectFrame)
aspectFrameNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- label
Float -> -- xalign
Float -> -- yalign
Float -> -- ratio
Bool -> -- obey_child
m AspectFrame
aspectFrameNew label xalign yalign ratio obey_child = liftIO $ do
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
let ratio' = realToFrac ratio
let obey_child' = (fromIntegral . fromEnum) obey_child
result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obey_child'
checkUnexpectedReturnNULL "gtk_aspect_frame_new" result
result' <- (newObject AspectFrame) result
freeMem maybeLabel
return result'
-- method AspectFrame::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_aspect_frame_set" gtk_aspect_frame_set ::
Ptr AspectFrame -> -- _obj : TInterface "Gtk" "AspectFrame"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
CFloat -> -- ratio : TBasicType TFloat
CInt -> -- obey_child : TBasicType TBoolean
IO ()
aspectFrameSet ::
(MonadIO m, AspectFrameK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
Float -> -- ratio
Bool -> -- obey_child
m ()
aspectFrameSet _obj xalign yalign ratio obey_child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
let ratio' = realToFrac ratio
let obey_child' = (fromIntegral . fromEnum) obey_child
gtk_aspect_frame_set _obj' xalign' yalign' ratio' obey_child'
touchManagedPtr _obj
return ()
-- object Assistant
newtype Assistant = Assistant (ForeignPtr Assistant)
noAssistant :: Maybe Assistant
noAssistant = Nothing
foreign import ccall "gtk_assistant_get_type"
c_gtk_assistant_get_type :: IO GType
type instance ParentTypes Assistant = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Assistant where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_assistant_get_type
class GObject o => AssistantK o
instance (GObject o, IsDescendantOf Assistant o) => AssistantK o
toAssistant :: AssistantK o => o -> IO Assistant
toAssistant = unsafeCastTo Assistant
-- method Assistant::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Assistant"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_new" gtk_assistant_new ::
IO (Ptr Assistant)
assistantNew ::
(MonadIO m) =>
m Assistant
assistantNew = liftIO $ do
result <- gtk_assistant_new
checkUnexpectedReturnNULL "gtk_assistant_new" result
result' <- (newObject Assistant) result
return result'
-- method Assistant::add_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_add_action_widget" gtk_assistant_add_action_widget ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
assistantAddActionWidget ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
assistantAddActionWidget _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_assistant_add_action_widget _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Assistant::append_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_append_page" gtk_assistant_append_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO Int32
assistantAppendPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m Int32
assistantAppendPage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_append_page _obj' page'
touchManagedPtr _obj
touchManagedPtr page
return result
-- method Assistant::commit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_commit" gtk_assistant_commit ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO ()
assistantCommit ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m ()
assistantCommit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_commit _obj'
touchManagedPtr _obj
return ()
-- method Assistant::get_current_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_current_page" gtk_assistant_get_current_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO Int32
assistantGetCurrentPage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m Int32
assistantGetCurrentPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_current_page _obj'
touchManagedPtr _obj
return result
-- method Assistant::get_n_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_n_pages" gtk_assistant_get_n_pages ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO Int32
assistantGetNPages ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m Int32
assistantGetNPages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_n_pages _obj'
touchManagedPtr _obj
return result
-- method Assistant::get_nth_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Int32 -> -- page_num : TBasicType TInt32
IO (Ptr Widget)
assistantGetNthPage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
Int32 -> -- page_num
m Widget
assistantGetNthPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_nth_page _obj' page_num
checkUnexpectedReturnNULL "gtk_assistant_get_nth_page" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Assistant::get_page_complete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_complete" gtk_assistant_get_page_complete ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO CInt
assistantGetPageComplete ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m Bool
assistantGetPageComplete _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_complete _obj' page'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::get_page_has_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_has_padding" gtk_assistant_get_page_has_padding ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO CInt
assistantGetPageHasPadding ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m Bool
assistantGetPageHasPadding _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_has_padding _obj' page'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::get_page_header_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_header_image" gtk_assistant_get_page_header_image ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED assistantGetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-}
assistantGetPageHeaderImage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m GdkPixbuf.Pixbuf
assistantGetPageHeaderImage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_header_image _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_header_image" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::get_page_side_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_side_image" gtk_assistant_get_page_side_image ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED assistantGetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-}
assistantGetPageSideImage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m GdkPixbuf.Pixbuf
assistantGetPageSideImage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_side_image _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_side_image" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::get_page_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_title" gtk_assistant_get_page_title ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO CString
assistantGetPageTitle ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m T.Text
assistantGetPageTitle _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_title _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_title" result
result' <- cstringToText result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::get_page_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AssistantPageType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_get_page_type" gtk_assistant_get_page_type ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO CUInt
assistantGetPageType ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m AssistantPageType
assistantGetPageType _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_type _obj' page'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr page
return result'
-- method Assistant::insert_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO Int32
assistantInsertPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
Int32 -> -- position
m Int32
assistantInsertPage _obj page position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_insert_page _obj' page' position
touchManagedPtr _obj
touchManagedPtr page
return result
-- method Assistant::next_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_next_page" gtk_assistant_next_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO ()
assistantNextPage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m ()
assistantNextPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_next_page _obj'
touchManagedPtr _obj
return ()
-- method Assistant::prepend_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_prepend_page" gtk_assistant_prepend_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
IO Int32
assistantPrependPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
m Int32
assistantPrependPage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_prepend_page _obj' page'
touchManagedPtr _obj
touchManagedPtr page
return result
-- method Assistant::previous_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_previous_page" gtk_assistant_previous_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO ()
assistantPreviousPage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m ()
assistantPreviousPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_previous_page _obj'
touchManagedPtr _obj
return ()
-- method Assistant::remove_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_remove_action_widget" gtk_assistant_remove_action_widget ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
assistantRemoveActionWidget ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
assistantRemoveActionWidget _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_assistant_remove_action_widget _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Assistant::remove_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Int32 -> -- page_num : TBasicType TInt32
IO ()
assistantRemovePage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
Int32 -> -- page_num
m ()
assistantRemovePage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_remove_page _obj' page_num
touchManagedPtr _obj
return ()
-- method Assistant::set_current_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Int32 -> -- page_num : TBasicType TInt32
IO ()
assistantSetCurrentPage ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
Int32 -> -- page_num
m ()
assistantSetCurrentPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_set_current_page _obj' page_num
touchManagedPtr _obj
return ()
-- method Assistant::set_forward_page_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
FunPtr AssistantPageFuncC -> -- page_func : TInterface "Gtk" "AssistantPageFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
assistantSetForwardPageFunc ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
Maybe (AssistantPageFunc) -> -- page_func
m ()
assistantSetForwardPageFunc _obj page_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePage_func <- case page_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jPage_func -> do
jPage_func' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPage_func)
return jPage_func'
let data_ = castFunPtrToPtr maybePage_func
let destroy = safeFreeFunPtrPtr
gtk_assistant_set_forward_page_func _obj' maybePage_func data_ destroy
touchManagedPtr _obj
return ()
-- method Assistant::set_page_complete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_complete" gtk_assistant_set_page_complete ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
CInt -> -- complete : TBasicType TBoolean
IO ()
assistantSetPageComplete ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
Bool -> -- complete
m ()
assistantSetPageComplete _obj page complete = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let complete' = (fromIntegral . fromEnum) complete
gtk_assistant_set_page_complete _obj' page' complete'
touchManagedPtr _obj
touchManagedPtr page
return ()
-- method Assistant::set_page_has_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_has_padding" gtk_assistant_set_page_has_padding ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
CInt -> -- has_padding : TBasicType TBoolean
IO ()
assistantSetPageHasPadding ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
Bool -> -- has_padding
m ()
assistantSetPageHasPadding _obj page has_padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let has_padding' = (fromIntegral . fromEnum) has_padding
gtk_assistant_set_page_has_padding _obj' page' has_padding'
touchManagedPtr _obj
touchManagedPtr page
return ()
-- method Assistant::set_page_header_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_header_image" gtk_assistant_set_page_header_image ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
{-# DEPRECATED assistantSetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-}
assistantSetPageHeaderImage ::
(MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) =>
a -> -- _obj
b -> -- page
Maybe (c) -> -- pixbuf
m ()
assistantSetPageHeaderImage _obj page pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_assistant_set_page_header_image _obj' page' maybePixbuf
touchManagedPtr _obj
touchManagedPtr page
whenJust pixbuf touchManagedPtr
return ()
-- method Assistant::set_page_side_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_side_image" gtk_assistant_set_page_side_image ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
{-# DEPRECATED assistantSetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-}
assistantSetPageSideImage ::
(MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) =>
a -> -- _obj
b -> -- page
Maybe (c) -> -- pixbuf
m ()
assistantSetPageSideImage _obj page pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_assistant_set_page_side_image _obj' page' maybePixbuf
touchManagedPtr _obj
touchManagedPtr page
whenJust pixbuf touchManagedPtr
return ()
-- method Assistant::set_page_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_title" gtk_assistant_set_page_title ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
CString -> -- title : TBasicType TUTF8
IO ()
assistantSetPageTitle ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
T.Text -> -- title
m ()
assistantSetPageTitle _obj page title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
title' <- textToCString title
gtk_assistant_set_page_title _obj' page' title'
touchManagedPtr _obj
touchManagedPtr page
freeMem title'
return ()
-- method Assistant::set_page_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_set_page_type" gtk_assistant_set_page_type ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
Ptr Widget -> -- page : TInterface "Gtk" "Widget"
CUInt -> -- type : TInterface "Gtk" "AssistantPageType"
IO ()
assistantSetPageType ::
(MonadIO m, AssistantK a, WidgetK b) =>
a -> -- _obj
b -> -- page
AssistantPageType -> -- type
m ()
assistantSetPageType _obj page type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let type_' = (fromIntegral . fromEnum) type_
gtk_assistant_set_page_type _obj' page' type_'
touchManagedPtr _obj
touchManagedPtr page
return ()
-- method Assistant::update_buttons_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_assistant_update_buttons_state" gtk_assistant_update_buttons_state ::
Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant"
IO ()
assistantUpdateButtonsState ::
(MonadIO m, AssistantK a) =>
a -> -- _obj
m ()
assistantUpdateButtonsState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_update_buttons_state _obj'
touchManagedPtr _obj
return ()
-- signal Assistant::apply
type AssistantApplyCallback =
IO ()
noAssistantApplyCallback :: Maybe AssistantApplyCallback
noAssistantApplyCallback = Nothing
type AssistantApplyCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAssistantApplyCallback :: AssistantApplyCallbackC -> IO (FunPtr AssistantApplyCallbackC)
assistantApplyClosure :: AssistantApplyCallback -> IO Closure
assistantApplyClosure cb = newCClosure =<< mkAssistantApplyCallback wrapped
where wrapped = assistantApplyCallbackWrapper cb
assistantApplyCallbackWrapper ::
AssistantApplyCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantApplyCallbackWrapper _cb _ _ = do
_cb
onAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
onAssistantApply obj cb = liftIO $ connectAssistantApply obj cb SignalConnectBefore
afterAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
afterAssistantApply obj cb = connectAssistantApply obj cb SignalConnectAfter
connectAssistantApply :: (GObject a, MonadIO m) =>
a -> AssistantApplyCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantApply obj cb after = liftIO $ do
cb' <- mkAssistantApplyCallback (assistantApplyCallbackWrapper cb)
connectSignalFunPtr obj "apply" cb' after
-- signal Assistant::cancel
type AssistantCancelCallback =
IO ()
noAssistantCancelCallback :: Maybe AssistantCancelCallback
noAssistantCancelCallback = Nothing
type AssistantCancelCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAssistantCancelCallback :: AssistantCancelCallbackC -> IO (FunPtr AssistantCancelCallbackC)
assistantCancelClosure :: AssistantCancelCallback -> IO Closure
assistantCancelClosure cb = newCClosure =<< mkAssistantCancelCallback wrapped
where wrapped = assistantCancelCallbackWrapper cb
assistantCancelCallbackWrapper ::
AssistantCancelCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantCancelCallbackWrapper _cb _ _ = do
_cb
onAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
onAssistantCancel obj cb = liftIO $ connectAssistantCancel obj cb SignalConnectBefore
afterAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
afterAssistantCancel obj cb = connectAssistantCancel obj cb SignalConnectAfter
connectAssistantCancel :: (GObject a, MonadIO m) =>
a -> AssistantCancelCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantCancel obj cb after = liftIO $ do
cb' <- mkAssistantCancelCallback (assistantCancelCallbackWrapper cb)
connectSignalFunPtr obj "cancel" cb' after
-- signal Assistant::close
type AssistantCloseCallback =
IO ()
noAssistantCloseCallback :: Maybe AssistantCloseCallback
noAssistantCloseCallback = Nothing
type AssistantCloseCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAssistantCloseCallback :: AssistantCloseCallbackC -> IO (FunPtr AssistantCloseCallbackC)
assistantCloseClosure :: AssistantCloseCallback -> IO Closure
assistantCloseClosure cb = newCClosure =<< mkAssistantCloseCallback wrapped
where wrapped = assistantCloseCallbackWrapper cb
assistantCloseCallbackWrapper ::
AssistantCloseCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantCloseCallbackWrapper _cb _ _ = do
_cb
onAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
onAssistantClose obj cb = liftIO $ connectAssistantClose obj cb SignalConnectBefore
afterAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
afterAssistantClose obj cb = connectAssistantClose obj cb SignalConnectAfter
connectAssistantClose :: (GObject a, MonadIO m) =>
a -> AssistantCloseCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantClose obj cb after = liftIO $ do
cb' <- mkAssistantCloseCallback (assistantCloseCallbackWrapper cb)
connectSignalFunPtr obj "close" cb' after
-- signal Assistant::escape
type AssistantEscapeCallback =
IO ()
noAssistantEscapeCallback :: Maybe AssistantEscapeCallback
noAssistantEscapeCallback = Nothing
type AssistantEscapeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAssistantEscapeCallback :: AssistantEscapeCallbackC -> IO (FunPtr AssistantEscapeCallbackC)
assistantEscapeClosure :: AssistantEscapeCallback -> IO Closure
assistantEscapeClosure cb = newCClosure =<< mkAssistantEscapeCallback wrapped
where wrapped = assistantEscapeCallbackWrapper cb
assistantEscapeCallbackWrapper ::
AssistantEscapeCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantEscapeCallbackWrapper _cb _ _ = do
_cb
onAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
onAssistantEscape obj cb = liftIO $ connectAssistantEscape obj cb SignalConnectBefore
afterAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
afterAssistantEscape obj cb = connectAssistantEscape obj cb SignalConnectAfter
connectAssistantEscape :: (GObject a, MonadIO m) =>
a -> AssistantEscapeCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantEscape obj cb after = liftIO $ do
cb' <- mkAssistantEscapeCallback (assistantEscapeCallbackWrapper cb)
connectSignalFunPtr obj "escape" cb' after
-- signal Assistant::prepare
type AssistantPrepareCallback =
Widget ->
IO ()
noAssistantPrepareCallback :: Maybe AssistantPrepareCallback
noAssistantPrepareCallback = Nothing
type AssistantPrepareCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkAssistantPrepareCallback :: AssistantPrepareCallbackC -> IO (FunPtr AssistantPrepareCallbackC)
assistantPrepareClosure :: AssistantPrepareCallback -> IO Closure
assistantPrepareClosure cb = newCClosure =<< mkAssistantPrepareCallback wrapped
where wrapped = assistantPrepareCallbackWrapper cb
assistantPrepareCallbackWrapper ::
AssistantPrepareCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
assistantPrepareCallbackWrapper _cb _ page _ = do
page' <- (newObject Widget) page
_cb page'
onAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
onAssistantPrepare obj cb = liftIO $ connectAssistantPrepare obj cb SignalConnectBefore
afterAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
afterAssistantPrepare obj cb = connectAssistantPrepare obj cb SignalConnectAfter
connectAssistantPrepare :: (GObject a, MonadIO m) =>
a -> AssistantPrepareCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantPrepare obj cb after = liftIO $ do
cb' <- mkAssistantPrepareCallback (assistantPrepareCallbackWrapper cb)
connectSignalFunPtr obj "prepare" cb' after
-- callback AssistantPageFunc
assistantPageFuncClosure :: AssistantPageFunc -> IO Closure
assistantPageFuncClosure cb = newCClosure =<< mkAssistantPageFunc wrapped
where wrapped = assistantPageFuncWrapper Nothing cb
type AssistantPageFuncC =
Int32 ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkAssistantPageFunc :: AssistantPageFuncC -> IO (FunPtr AssistantPageFuncC)
type AssistantPageFunc =
Int32 ->
IO Int32
noAssistantPageFunc :: Maybe AssistantPageFunc
noAssistantPageFunc = Nothing
assistantPageFuncWrapper ::
Maybe (Ptr (FunPtr (AssistantPageFuncC))) ->
AssistantPageFunc ->
Int32 ->
Ptr () ->
IO Int32
assistantPageFuncWrapper funptrptr _cb current_page _ = do
result <- _cb current_page
maybeReleaseFunPtr funptrptr
return result
-- Enum AssistantPageType
data AssistantPageType =
AssistantPageTypeContent
| AssistantPageTypeIntro
| AssistantPageTypeConfirm
| AssistantPageTypeSummary
| AssistantPageTypeProgress
| AssistantPageTypeCustom
| AnotherAssistantPageType Int
deriving (Show, Eq)
instance Enum AssistantPageType where
fromEnum AssistantPageTypeContent = 0
fromEnum AssistantPageTypeIntro = 1
fromEnum AssistantPageTypeConfirm = 2
fromEnum AssistantPageTypeSummary = 3
fromEnum AssistantPageTypeProgress = 4
fromEnum AssistantPageTypeCustom = 5
fromEnum (AnotherAssistantPageType k) = k
toEnum 0 = AssistantPageTypeContent
toEnum 1 = AssistantPageTypeIntro
toEnum 2 = AssistantPageTypeConfirm
toEnum 3 = AssistantPageTypeSummary
toEnum 4 = AssistantPageTypeProgress
toEnum 5 = AssistantPageTypeCustom
toEnum k = AnotherAssistantPageType k
foreign import ccall "gtk_assistant_page_type_get_type" c_gtk_assistant_page_type_get_type ::
IO GType
instance BoxedEnum AssistantPageType where
boxedEnumType _ = c_gtk_assistant_page_type_get_type
-- Flags AttachOptions
data AttachOptions =
AttachOptionsExpand
| AttachOptionsShrink
| AttachOptionsFill
| AnotherAttachOptions Int
deriving (Show, Eq)
instance Enum AttachOptions where
fromEnum AttachOptionsExpand = 1
fromEnum AttachOptionsShrink = 2
fromEnum AttachOptionsFill = 4
fromEnum (AnotherAttachOptions k) = k
toEnum 1 = AttachOptionsExpand
toEnum 2 = AttachOptionsShrink
toEnum 4 = AttachOptionsFill
toEnum k = AnotherAttachOptions k
foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type ::
IO GType
instance BoxedEnum AttachOptions where
boxedEnumType _ = c_gtk_attach_options_get_type
instance IsGFlag AttachOptions
-- Enum BaselinePosition
data BaselinePosition =
BaselinePositionTop
| BaselinePositionCenter
| BaselinePositionBottom
| AnotherBaselinePosition Int
deriving (Show, Eq)
instance Enum BaselinePosition where
fromEnum BaselinePositionTop = 0
fromEnum BaselinePositionCenter = 1
fromEnum BaselinePositionBottom = 2
fromEnum (AnotherBaselinePosition k) = k
toEnum 0 = BaselinePositionTop
toEnum 1 = BaselinePositionCenter
toEnum 2 = BaselinePositionBottom
toEnum k = AnotherBaselinePosition k
foreign import ccall "gtk_baseline_position_get_type" c_gtk_baseline_position_get_type ::
IO GType
instance BoxedEnum BaselinePosition where
boxedEnumType _ = c_gtk_baseline_position_get_type
-- object Bin
newtype Bin = Bin (ForeignPtr Bin)
noBin :: Maybe Bin
noBin = Nothing
foreign import ccall "gtk_bin_get_type"
c_gtk_bin_get_type :: IO GType
type instance ParentTypes Bin = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Bin where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_bin_get_type
class GObject o => BinK o
instance (GObject o, IsDescendantOf Bin o) => BinK o
toBin :: BinK o => o -> IO Bin
toBin = unsafeCastTo Bin
-- method Bin::get_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_bin_get_child" gtk_bin_get_child ::
Ptr Bin -> -- _obj : TInterface "Gtk" "Bin"
IO (Ptr Widget)
binGetChild ::
(MonadIO m, BinK a) =>
a -> -- _obj
m Widget
binGetChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_bin_get_child _obj'
checkUnexpectedReturnNULL "gtk_bin_get_child" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- struct BindingArg
newtype BindingArg = BindingArg (ForeignPtr BindingArg)
noBindingArg :: Maybe BindingArg
noBindingArg = Nothing
bindingArgReadArgType :: BindingArg -> IO GType
bindingArgReadArgType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CGType
let val' = GType val
return val'
-- struct BindingEntry
newtype BindingEntry = BindingEntry (ForeignPtr BindingEntry)
noBindingEntry :: Maybe BindingEntry
noBindingEntry = Nothing
bindingEntryReadKeyval :: BindingEntry -> IO Word32
bindingEntryReadKeyval s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word32
return val
bindingEntryReadModifiers :: BindingEntry -> IO [Gdk.ModifierType]
bindingEntryReadModifiers s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CUInt
let val' = wordToGFlags val
return val'
bindingEntryReadBindingSet :: BindingEntry -> IO BindingSet
bindingEntryReadBindingSet s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr BindingSet)
val' <- (newPtr 64 BindingSet) val
return val'
bindingEntryReadDestroyed :: BindingEntry -> IO Word32
bindingEntryReadDestroyed s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
bindingEntryReadInEmission :: BindingEntry -> IO Word32
bindingEntryReadInEmission s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
bindingEntryReadMarksUnbound :: BindingEntry -> IO Word32
bindingEntryReadMarksUnbound s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
bindingEntryReadSetNext :: BindingEntry -> IO BindingEntry
bindingEntryReadSetNext s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr BindingEntry)
val' <- (newPtr 56 BindingEntry) val
return val'
bindingEntryReadHashNext :: BindingEntry -> IO BindingEntry
bindingEntryReadHashNext s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry)
val' <- (newPtr 56 BindingEntry) val
return val'
bindingEntryReadSignals :: BindingEntry -> IO BindingSignal
bindingEntryReadSignals s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingSignal)
val' <- (newPtr 32 BindingSignal) val
return val'
-- struct BindingSet
newtype BindingSet = BindingSet (ForeignPtr BindingSet)
noBindingSet :: Maybe BindingSet
noBindingSet = Nothing
bindingSetReadSetName :: BindingSet -> IO T.Text
bindingSetReadSetName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
bindingSetReadPriority :: BindingSet -> IO Int32
bindingSetReadPriority s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
bindingSetReadWidgetPathPspecs :: BindingSet -> IO ([Ptr ()])
bindingSetReadWidgetPathPspecs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ())))
val' <- unpackGSList val
return val'
bindingSetReadWidgetClassPspecs :: BindingSet -> IO ([Ptr ()])
bindingSetReadWidgetClassPspecs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr (GSList (Ptr ())))
val' <- unpackGSList val
return val'
bindingSetReadClassBranchPspecs :: BindingSet -> IO ([Ptr ()])
bindingSetReadClassBranchPspecs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr (GSList (Ptr ())))
val' <- unpackGSList val
return val'
bindingSetReadEntries :: BindingSet -> IO BindingEntry
bindingSetReadEntries s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry)
val' <- (newPtr 56 BindingEntry) val
return val'
bindingSetReadCurrent :: BindingSet -> IO BindingEntry
bindingSetReadCurrent s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingEntry)
val' <- (newPtr 56 BindingEntry) val
return val'
bindingSetReadParsed :: BindingSet -> IO Word32
bindingSetReadParsed s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO Word32
return val
-- method BindingSet::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_set_activate" gtk_binding_set_activate ::
Ptr BindingSet -> -- _obj : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
IO CInt
bindingSetActivate ::
(MonadIO m, GObject.ObjectK a) =>
BindingSet -> -- _obj
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
a -> -- object
m Bool
bindingSetActivate _obj keyval modifiers object = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let modifiers' = gflagsToWord modifiers
let object' = unsafeManagedPtrCastPtr object
result <- gtk_binding_set_activate _obj' keyval modifiers' object'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr object
return result'
-- method BindingSet::add_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_set_add_path" gtk_binding_set_add_path ::
Ptr BindingSet -> -- _obj : TInterface "Gtk" "BindingSet"
CUInt -> -- path_type : TInterface "Gtk" "PathType"
CString -> -- path_pattern : TBasicType TUTF8
CUInt -> -- priority : TInterface "Gtk" "PathPriorityType"
IO ()
{-# DEPRECATED bindingSetAddPath ["(Since version 3.0)"]#-}
bindingSetAddPath ::
(MonadIO m) =>
BindingSet -> -- _obj
PathType -> -- path_type
T.Text -> -- path_pattern
PathPriorityType -> -- priority
m ()
bindingSetAddPath _obj path_type path_pattern priority = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let path_type' = (fromIntegral . fromEnum) path_type
path_pattern' <- textToCString path_pattern
let priority' = (fromIntegral . fromEnum) priority
gtk_binding_set_add_path _obj' path_type' path_pattern' priority'
touchManagedPtr _obj
freeMem path_pattern'
return ()
-- struct BindingSignal
newtype BindingSignal = BindingSignal (ForeignPtr BindingSignal)
noBindingSignal :: Maybe BindingSignal
noBindingSignal = Nothing
bindingSignalReadNext :: BindingSignal -> IO BindingSignal
bindingSignalReadNext s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr BindingSignal)
val' <- (newPtr 32 BindingSignal) val
return val'
bindingSignalReadSignalName :: BindingSignal -> IO T.Text
bindingSignalReadSignalName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
bindingSignalReadNArgs :: BindingSignal -> IO Word32
bindingSignalReadNArgs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
-- XXX Skipped getter for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")"
-- object BooleanCellAccessible
newtype BooleanCellAccessible = BooleanCellAccessible (ForeignPtr BooleanCellAccessible)
noBooleanCellAccessible :: Maybe BooleanCellAccessible
noBooleanCellAccessible = Nothing
foreign import ccall "gtk_boolean_cell_accessible_get_type"
c_gtk_boolean_cell_accessible_get_type :: IO GType
type instance ParentTypes BooleanCellAccessible = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject BooleanCellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_boolean_cell_accessible_get_type
class GObject o => BooleanCellAccessibleK o
instance (GObject o, IsDescendantOf BooleanCellAccessible o) => BooleanCellAccessibleK o
toBooleanCellAccessible :: BooleanCellAccessibleK o => o -> IO BooleanCellAccessible
toBooleanCellAccessible = unsafeCastTo BooleanCellAccessible
-- struct Border
newtype Border = Border (ForeignPtr Border)
noBorder :: Maybe Border
noBorder = Nothing
foreign import ccall "gtk_border_get_type" c_gtk_border_get_type ::
IO GType
instance BoxedObject Border where
boxedType _ = c_gtk_border_get_type
borderReadLeft :: Border -> IO Int16
borderReadLeft s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int16
return val
borderReadRight :: Border -> IO Int16
borderReadRight s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 2) :: IO Int16
return val
borderReadTop :: Border -> IO Int16
borderReadTop s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int16
return val
borderReadBottom :: Border -> IO Int16
borderReadBottom s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 6) :: IO Int16
return val
-- method Border::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Border"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_border_new" gtk_border_new ::
IO (Ptr Border)
borderNew ::
(MonadIO m) =>
m Border
borderNew = liftIO $ do
result <- gtk_border_new
checkUnexpectedReturnNULL "gtk_border_new" result
result' <- (wrapBoxed Border) result
return result'
-- method Border::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Border"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_border_copy" gtk_border_copy ::
Ptr Border -> -- _obj : TInterface "Gtk" "Border"
IO (Ptr Border)
borderCopy ::
(MonadIO m) =>
Border -> -- _obj
m Border
borderCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_border_copy _obj'
checkUnexpectedReturnNULL "gtk_border_copy" result
result' <- (wrapBoxed Border) result
touchManagedPtr _obj
return result'
-- method Border::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_border_free" gtk_border_free ::
Ptr Border -> -- _obj : TInterface "Gtk" "Border"
IO ()
borderFree ::
(MonadIO m) =>
Border -> -- _obj
m ()
borderFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_border_free _obj'
touchManagedPtr _obj
return ()
-- Enum BorderStyle
data BorderStyle =
BorderStyleNone
| BorderStyleSolid
| BorderStyleInset
| BorderStyleOutset
| BorderStyleHidden
| BorderStyleDotted
| BorderStyleDashed
| BorderStyleDouble
| BorderStyleGroove
| BorderStyleRidge
| AnotherBorderStyle Int
deriving (Show, Eq)
instance Enum BorderStyle where
fromEnum BorderStyleNone = 0
fromEnum BorderStyleSolid = 1
fromEnum BorderStyleInset = 2
fromEnum BorderStyleOutset = 3
fromEnum BorderStyleHidden = 4
fromEnum BorderStyleDotted = 5
fromEnum BorderStyleDashed = 6
fromEnum BorderStyleDouble = 7
fromEnum BorderStyleGroove = 8
fromEnum BorderStyleRidge = 9
fromEnum (AnotherBorderStyle k) = k
toEnum 0 = BorderStyleNone
toEnum 1 = BorderStyleSolid
toEnum 2 = BorderStyleInset
toEnum 3 = BorderStyleOutset
toEnum 4 = BorderStyleHidden
toEnum 5 = BorderStyleDotted
toEnum 6 = BorderStyleDashed
toEnum 7 = BorderStyleDouble
toEnum 8 = BorderStyleGroove
toEnum 9 = BorderStyleRidge
toEnum k = AnotherBorderStyle k
foreign import ccall "gtk_border_style_get_type" c_gtk_border_style_get_type ::
IO GType
instance BoxedEnum BorderStyle where
boxedEnumType _ = c_gtk_border_style_get_type
-- object Box
newtype Box = Box (ForeignPtr Box)
noBox :: Maybe Box
noBox = Nothing
foreign import ccall "gtk_box_get_type"
c_gtk_box_get_type :: IO GType
type instance ParentTypes Box = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Box where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_box_get_type
class GObject o => BoxK o
instance (GObject o, IsDescendantOf Box o) => BoxK o
toBox :: BoxK o => o -> IO Box
toBox = unsafeCastTo Box
-- method Box::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Box"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_new" gtk_box_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Int32 -> -- spacing : TBasicType TInt32
IO (Ptr Box)
boxNew ::
(MonadIO m) =>
Orientation -> -- orientation
Int32 -> -- spacing
m Box
boxNew orientation spacing = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_box_new orientation' spacing
checkUnexpectedReturnNULL "gtk_box_new" result
result' <- (newObject Box) result
return result'
-- method Box::get_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BaselinePosition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_baseline_position" gtk_box_get_baseline_position ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO CUInt
boxGetBaselinePosition ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m BaselinePosition
boxGetBaselinePosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_baseline_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Box::get_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_center_widget" gtk_box_get_center_widget ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO (Ptr Widget)
boxGetCenterWidget ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Widget
boxGetCenterWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_center_widget _obj'
checkUnexpectedReturnNULL "gtk_box_get_center_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Box::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_homogeneous" gtk_box_get_homogeneous ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO CInt
boxGetHomogeneous ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Bool
boxGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Box::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_spacing" gtk_box_get_spacing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO Int32
boxGetSpacing ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Int32
boxGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_spacing _obj'
touchManagedPtr _obj
return result
-- method Box::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_pack_end" gtk_box_pack_end ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
IO ()
boxPackEnd ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
m ()
boxPackEnd _obj child expand fill padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
gtk_box_pack_end _obj' child' expand' fill' padding
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_pack_start" gtk_box_pack_start ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
IO ()
boxPackStart ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
m ()
boxPackStart _obj child expand fill padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
gtk_box_pack_start _obj' child' expand' fill' padding
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::query_child_packing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_query_child_packing" gtk_box_query_child_packing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr CInt -> -- expand : TBasicType TBoolean
Ptr CInt -> -- fill : TBasicType TBoolean
Ptr Word32 -> -- padding : TBasicType TUInt32
Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO ()
boxQueryChildPacking ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m (Bool,Bool,Word32,PackType)
boxQueryChildPacking _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
expand <- allocMem :: IO (Ptr CInt)
fill <- allocMem :: IO (Ptr CInt)
padding <- allocMem :: IO (Ptr Word32)
pack_type <- allocMem :: IO (Ptr CUInt)
gtk_box_query_child_packing _obj' child' expand fill padding pack_type
expand' <- peek expand
let expand'' = (/= 0) expand'
fill' <- peek fill
let fill'' = (/= 0) fill'
padding' <- peek padding
pack_type' <- peek pack_type
let pack_type'' = (toEnum . fromIntegral) pack_type'
touchManagedPtr _obj
touchManagedPtr child
freeMem expand
freeMem fill
freeMem padding
freeMem pack_type
return (expand'', fill'', padding', pack_type'')
-- method Box::reorder_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_reorder_child" gtk_box_reorder_child ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
boxReorderChild ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
boxReorderChild _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_box_reorder_child _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::set_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_baseline_position" gtk_box_set_baseline_position ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
CUInt -> -- position : TInterface "Gtk" "BaselinePosition"
IO ()
boxSetBaselinePosition ::
(MonadIO m, BoxK a) =>
a -> -- _obj
BaselinePosition -> -- position
m ()
boxSetBaselinePosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_box_set_baseline_position _obj' position'
touchManagedPtr _obj
return ()
-- method Box::set_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_center_widget" gtk_box_set_center_widget ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
boxSetCenterWidget ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
boxSetCenterWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_box_set_center_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- method Box::set_child_packing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_child_packing" gtk_box_set_child_packing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO ()
boxSetChildPacking ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
PackType -> -- pack_type
m ()
boxSetChildPacking _obj child expand fill padding pack_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
let pack_type' = (fromIntegral . fromEnum) pack_type
gtk_box_set_child_packing _obj' child' expand' fill' padding pack_type'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_homogeneous" gtk_box_set_homogeneous ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
boxSetHomogeneous ::
(MonadIO m, BoxK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
boxSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_box_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Box::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Int32 -> -- spacing : TBasicType TInt32
IO ()
boxSetSpacing ::
(MonadIO m, BoxK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
boxSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_box_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- interface Buildable
newtype Buildable = Buildable (ForeignPtr Buildable)
noBuildable :: Maybe Buildable
noBuildable = Nothing
foreign import ccall "gtk_buildable_get_type"
c_gtk_buildable_get_type :: IO GType
type instance ParentTypes Buildable = '[GObject.Object]
instance GObject Buildable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_buildable_get_type
class GObject o => BuildableK o
instance (GObject o, IsDescendantOf Buildable o) => BuildableK o
toBuildable :: BuildableK o => o -> IO Buildable
toBuildable = unsafeCastTo Buildable
-- method Buildable::add_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_add_child" gtk_buildable_add_child ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
Ptr GObject.Object -> -- child : TInterface "GObject" "Object"
CString -> -- type : TBasicType TUTF8
IO ()
buildableAddChild ::
(MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) =>
a -> -- _obj
b -> -- builder
c -> -- child
Maybe (T.Text) -> -- type
m ()
buildableAddChild _obj builder child type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
let child' = unsafeManagedPtrCastPtr child
maybeType_ <- case type_ of
Nothing -> return nullPtr
Just jType_ -> do
jType_' <- textToCString jType_
return jType_'
gtk_buildable_add_child _obj' builder' child' maybeType_
touchManagedPtr _obj
touchManagedPtr builder
touchManagedPtr child
freeMem maybeType_
return ()
-- method Buildable::construct_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_construct_child" gtk_buildable_construct_child ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
CString -> -- name : TBasicType TUTF8
IO (Ptr GObject.Object)
buildableConstructChild ::
(MonadIO m, BuildableK a, BuilderK b) =>
a -> -- _obj
b -> -- builder
T.Text -> -- name
m GObject.Object
buildableConstructChild _obj builder name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
name' <- textToCString name
result <- gtk_buildable_construct_child _obj' builder' name'
checkUnexpectedReturnNULL "gtk_buildable_construct_child" result
result' <- (wrapObject GObject.Object) result
touchManagedPtr _obj
touchManagedPtr builder
freeMem name'
return result'
-- method Buildable::custom_finished
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_custom_finished" gtk_buildable_custom_finished ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
Ptr GObject.Object -> -- child : TInterface "GObject" "Object"
CString -> -- tagname : TBasicType TUTF8
Ptr () -> -- data : TBasicType TVoid
IO ()
buildableCustomFinished ::
(MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) =>
a -> -- _obj
b -> -- builder
Maybe (c) -> -- child
T.Text -> -- tagname
Ptr () -> -- data
m ()
buildableCustomFinished _obj builder child tagname data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
maybeChild <- case child of
Nothing -> return nullPtr
Just jChild -> do
let jChild' = unsafeManagedPtrCastPtr jChild
return jChild'
tagname' <- textToCString tagname
gtk_buildable_custom_finished _obj' builder' maybeChild tagname' data_
touchManagedPtr _obj
touchManagedPtr builder
whenJust child touchManagedPtr
freeMem tagname'
return ()
-- method Buildable::custom_tag_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_custom_tag_end" gtk_buildable_custom_tag_end ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
Ptr GObject.Object -> -- child : TInterface "GObject" "Object"
CString -> -- tagname : TBasicType TUTF8
Ptr () -> -- data : TBasicType TVoid
IO ()
buildableCustomTagEnd ::
(MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) =>
a -> -- _obj
b -> -- builder
Maybe (c) -> -- child
T.Text -> -- tagname
Ptr () -> -- data
m ()
buildableCustomTagEnd _obj builder child tagname data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
maybeChild <- case child of
Nothing -> return nullPtr
Just jChild -> do
let jChild' = unsafeManagedPtrCastPtr jChild
return jChild'
tagname' <- textToCString tagname
gtk_buildable_custom_tag_end _obj' builder' maybeChild tagname' data_
touchManagedPtr _obj
touchManagedPtr builder
whenJust child touchManagedPtr
freeMem tagname'
return ()
-- method Buildable::custom_tag_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_custom_tag_start" gtk_buildable_custom_tag_start ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
Ptr GObject.Object -> -- child : TInterface "GObject" "Object"
CString -> -- tagname : TBasicType TUTF8
Ptr GLib.MarkupParser -> -- parser : TInterface "GLib" "MarkupParser"
Ptr (Ptr ()) -> -- data : TBasicType TVoid
IO CInt
buildableCustomTagStart ::
(MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) =>
a -> -- _obj
b -> -- builder
Maybe (c) -> -- child
T.Text -> -- tagname
m (Bool,GLib.MarkupParser,(Ptr ()))
buildableCustomTagStart _obj builder child tagname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
maybeChild <- case child of
Nothing -> return nullPtr
Just jChild -> do
let jChild' = unsafeManagedPtrCastPtr jChild
return jChild'
tagname' <- textToCString tagname
parser <- callocBytes 40 :: IO (Ptr GLib.MarkupParser)
data_ <- allocMem :: IO (Ptr (Ptr ()))
result <- gtk_buildable_custom_tag_start _obj' builder' maybeChild tagname' parser data_
let result' = (/= 0) result
parser' <- (wrapPtr GLib.MarkupParser) parser
data_' <- peek data_
touchManagedPtr _obj
touchManagedPtr builder
whenJust child touchManagedPtr
freeMem tagname'
freeMem data_
return (result', parser', data_')
-- method Buildable::get_internal_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_get_internal_child" gtk_buildable_get_internal_child ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
CString -> -- childname : TBasicType TUTF8
IO (Ptr GObject.Object)
buildableGetInternalChild ::
(MonadIO m, BuildableK a, BuilderK b) =>
a -> -- _obj
b -> -- builder
T.Text -> -- childname
m GObject.Object
buildableGetInternalChild _obj builder childname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
childname' <- textToCString childname
result <- gtk_buildable_get_internal_child _obj' builder' childname'
checkUnexpectedReturnNULL "gtk_buildable_get_internal_child" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
touchManagedPtr builder
freeMem childname'
return result'
-- method Buildable::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_get_name" gtk_buildable_get_name ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
IO CString
buildableGetName ::
(MonadIO m, BuildableK a) =>
a -> -- _obj
m T.Text
buildableGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_buildable_get_name _obj'
checkUnexpectedReturnNULL "gtk_buildable_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Buildable::parser_finished
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_parser_finished" gtk_buildable_parser_finished ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
IO ()
buildableParserFinished ::
(MonadIO m, BuildableK a, BuilderK b) =>
a -> -- _obj
b -> -- builder
m ()
buildableParserFinished _obj builder = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
gtk_buildable_parser_finished _obj' builder'
touchManagedPtr _obj
touchManagedPtr builder
return ()
-- method Buildable::set_buildable_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_set_buildable_property" gtk_buildable_set_buildable_property ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
Ptr Builder -> -- builder : TInterface "Gtk" "Builder"
CString -> -- name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
buildableSetBuildableProperty ::
(MonadIO m, BuildableK a, BuilderK b) =>
a -> -- _obj
b -> -- builder
T.Text -> -- name
GValue -> -- value
m ()
buildableSetBuildableProperty _obj builder name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let builder' = unsafeManagedPtrCastPtr builder
name' <- textToCString name
let value' = unsafeManagedPtrGetPtr value
gtk_buildable_set_buildable_property _obj' builder' name' value'
touchManagedPtr _obj
touchManagedPtr builder
touchManagedPtr value
freeMem name'
return ()
-- method Buildable::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_buildable_set_name" gtk_buildable_set_name ::
Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable"
CString -> -- name : TBasicType TUTF8
IO ()
buildableSetName ::
(MonadIO m, BuildableK a) =>
a -> -- _obj
T.Text -> -- name
m ()
buildableSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_buildable_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- object Builder
newtype Builder = Builder (ForeignPtr Builder)
noBuilder :: Maybe Builder
noBuilder = Nothing
foreign import ccall "gtk_builder_get_type"
c_gtk_builder_get_type :: IO GType
type instance ParentTypes Builder = '[GObject.Object]
instance GObject Builder where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_builder_get_type
class GObject o => BuilderK o
instance (GObject o, IsDescendantOf Builder o) => BuilderK o
toBuilder :: BuilderK o => o -> IO Builder
toBuilder = unsafeCastTo Builder
-- method Builder::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Builder"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_new" gtk_builder_new ::
IO (Ptr Builder)
builderNew ::
(MonadIO m) =>
m Builder
builderNew = liftIO $ do
result <- gtk_builder_new
checkUnexpectedReturnNULL "gtk_builder_new" result
result' <- (wrapObject Builder) result
return result'
-- method Builder::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Builder"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_new_from_file" gtk_builder_new_from_file ::
CString -> -- filename : TBasicType TUTF8
IO (Ptr Builder)
builderNewFromFile ::
(MonadIO m) =>
T.Text -> -- filename
m Builder
builderNewFromFile filename = liftIO $ do
filename' <- textToCString filename
result <- gtk_builder_new_from_file filename'
checkUnexpectedReturnNULL "gtk_builder_new_from_file" result
result' <- (wrapObject Builder) result
freeMem filename'
return result'
-- method Builder::new_from_resource
-- method type : Constructor
-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Builder"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_new_from_resource" gtk_builder_new_from_resource ::
CString -> -- resource_path : TBasicType TUTF8
IO (Ptr Builder)
builderNewFromResource ::
(MonadIO m) =>
T.Text -> -- resource_path
m Builder
builderNewFromResource resource_path = liftIO $ do
resource_path' <- textToCString resource_path
result <- gtk_builder_new_from_resource resource_path'
checkUnexpectedReturnNULL "gtk_builder_new_from_resource" result
result' <- (wrapObject Builder) result
freeMem resource_path'
return result'
-- method Builder::new_from_string
-- method type : Constructor
-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Builder"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_new_from_string" gtk_builder_new_from_string ::
CString -> -- string : TBasicType TUTF8
Int64 -> -- length : TBasicType TInt64
IO (Ptr Builder)
builderNewFromString ::
(MonadIO m) =>
T.Text -> -- string
Int64 -> -- length
m Builder
builderNewFromString string length_ = liftIO $ do
string' <- textToCString string
result <- gtk_builder_new_from_string string' length_
checkUnexpectedReturnNULL "gtk_builder_new_from_string" result
result' <- (wrapObject Builder) result
freeMem string'
return result'
-- method Builder::add_callback_symbol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_add_callback_symbol" gtk_builder_add_callback_symbol ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- callback_name : TBasicType TUTF8
FunPtr GObject.CallbackC -> -- callback_symbol : TInterface "GObject" "Callback"
IO ()
builderAddCallbackSymbol ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- callback_name
GObject.Callback -> -- callback_symbol
m ()
builderAddCallbackSymbol _obj callback_name callback_symbol = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback_name' <- textToCString callback_name
ptrcallback_symbol <- callocMem :: IO (Ptr (FunPtr GObject.CallbackC))
callback_symbol' <- GObject.mkCallback (GObject.callbackWrapper (Just ptrcallback_symbol) callback_symbol)
poke ptrcallback_symbol callback_symbol'
gtk_builder_add_callback_symbol _obj' callback_name' callback_symbol'
touchManagedPtr _obj
freeMem callback_name'
return ()
-- method Builder::add_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_from_file" gtk_builder_add_from_file ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- filename : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO Word32
builderAddFromFile ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- filename
m Word32
builderAddFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- textToCString filename
onException (do
result <- propagateGError $ gtk_builder_add_from_file _obj' filename'
touchManagedPtr _obj
freeMem filename'
return result
) (do
freeMem filename'
)
-- method Builder::add_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_from_resource" gtk_builder_add_from_resource ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- resource_path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO Word32
builderAddFromResource ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- resource_path
m Word32
builderAddFromResource _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource_path' <- textToCString resource_path
onException (do
result <- propagateGError $ gtk_builder_add_from_resource _obj' resource_path'
touchManagedPtr _obj
freeMem resource_path'
return result
) (do
freeMem resource_path'
)
-- method Builder::add_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_from_string" gtk_builder_add_from_string ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- buffer : TBasicType TUTF8
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO Word32
builderAddFromString ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- buffer
Word64 -> -- length
m Word32
builderAddFromString _obj buffer length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
buffer' <- textToCString buffer
onException (do
result <- propagateGError $ gtk_builder_add_from_string _obj' buffer' length_
touchManagedPtr _obj
freeMem buffer'
return result
) (do
freeMem buffer'
)
-- method Builder::add_objects_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_objects_from_file" gtk_builder_add_objects_from_file ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- filename : TBasicType TUTF8
Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO Word32
builderAddObjectsFromFile ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- filename
[T.Text] -> -- object_ids
m Word32
builderAddObjectsFromFile _obj filename object_ids = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- textToCString filename
object_ids' <- packZeroTerminatedUTF8CArray object_ids
onException (do
result <- propagateGError $ gtk_builder_add_objects_from_file _obj' filename' object_ids'
touchManagedPtr _obj
freeMem filename'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
return result
) (do
freeMem filename'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
)
-- method Builder::add_objects_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_objects_from_resource" gtk_builder_add_objects_from_resource ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- resource_path : TBasicType TUTF8
Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO Word32
builderAddObjectsFromResource ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- resource_path
[T.Text] -> -- object_ids
m Word32
builderAddObjectsFromResource _obj resource_path object_ids = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource_path' <- textToCString resource_path
object_ids' <- packZeroTerminatedUTF8CArray object_ids
onException (do
result <- propagateGError $ gtk_builder_add_objects_from_resource _obj' resource_path' object_ids'
touchManagedPtr _obj
freeMem resource_path'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
return result
) (do
freeMem resource_path'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
)
-- method Builder::add_objects_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_add_objects_from_string" gtk_builder_add_objects_from_string ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- buffer : TBasicType TUTF8
Word64 -> -- length : TBasicType TUInt64
Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO Word32
builderAddObjectsFromString ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- buffer
Word64 -> -- length
[T.Text] -> -- object_ids
m Word32
builderAddObjectsFromString _obj buffer length_ object_ids = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
buffer' <- textToCString buffer
object_ids' <- packZeroTerminatedUTF8CArray object_ids
onException (do
result <- propagateGError $ gtk_builder_add_objects_from_string _obj' buffer' length_ object_ids'
touchManagedPtr _obj
freeMem buffer'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
return result
) (do
freeMem buffer'
mapZeroTerminatedCArray freeMem object_ids'
freeMem object_ids'
)
-- method Builder::connect_signals
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_connect_signals" gtk_builder_connect_signals ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
builderConnectSignals ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
Ptr () -> -- user_data
m ()
builderConnectSignals _obj user_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_builder_connect_signals _obj' user_data
touchManagedPtr _obj
return ()
-- method Builder::connect_signals_full
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_connect_signals_full" gtk_builder_connect_signals_full ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
FunPtr BuilderConnectFuncC -> -- func : TInterface "Gtk" "BuilderConnectFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
builderConnectSignalsFull ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
BuilderConnectFunc -> -- func
m ()
builderConnectSignalsFull _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkBuilderConnectFunc (builderConnectFuncWrapper Nothing func)
let user_data = nullPtr
gtk_builder_connect_signals_full _obj' func' user_data
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method Builder::expose_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_expose_object" gtk_builder_expose_object ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- name : TBasicType TUTF8
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
IO ()
builderExposeObject ::
(MonadIO m, BuilderK a, GObject.ObjectK b) =>
a -> -- _obj
T.Text -> -- name
b -> -- object
m ()
builderExposeObject _obj name object = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let object' = unsafeManagedPtrCastPtr object
gtk_builder_expose_object _obj' name' object'
touchManagedPtr _obj
touchManagedPtr object
freeMem name'
return ()
-- method Builder::get_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Application"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_get_application" gtk_builder_get_application ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
IO (Ptr Application)
builderGetApplication ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
m Application
builderGetApplication _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_builder_get_application _obj'
checkUnexpectedReturnNULL "gtk_builder_get_application" result
result' <- (newObject Application) result
touchManagedPtr _obj
return result'
-- method Builder::get_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_get_object" gtk_builder_get_object ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- name : TBasicType TUTF8
IO (Ptr GObject.Object)
builderGetObject ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- name
m GObject.Object
builderGetObject _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_builder_get_object _obj' name'
checkUnexpectedReturnNULL "gtk_builder_get_object" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
freeMem name'
return result'
-- method Builder::get_objects
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "GObject" "Object")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_get_objects" gtk_builder_get_objects ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
IO (Ptr (GSList (Ptr GObject.Object)))
builderGetObjects ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
m [GObject.Object]
builderGetObjects _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_builder_get_objects _obj'
checkUnexpectedReturnNULL "gtk_builder_get_objects" result
result' <- unpackGSList result
result'' <- mapM (newObject GObject.Object) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method Builder::get_translation_domain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_get_translation_domain" gtk_builder_get_translation_domain ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
IO CString
builderGetTranslationDomain ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
m T.Text
builderGetTranslationDomain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_builder_get_translation_domain _obj'
checkUnexpectedReturnNULL "gtk_builder_get_translation_domain" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Builder::get_type_from_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_get_type_from_name" gtk_builder_get_type_from_name ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- type_name : TBasicType TUTF8
IO CGType
builderGetTypeFromName ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
T.Text -> -- type_name
m GType
builderGetTypeFromName _obj type_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_name' <- textToCString type_name
result <- gtk_builder_get_type_from_name _obj' type_name'
let result' = GType result
touchManagedPtr _obj
freeMem type_name'
return result'
-- method Builder::set_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_set_application" gtk_builder_set_application ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
Ptr Application -> -- application : TInterface "Gtk" "Application"
IO ()
builderSetApplication ::
(MonadIO m, BuilderK a, ApplicationK b) =>
a -> -- _obj
b -> -- application
m ()
builderSetApplication _obj application = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let application' = unsafeManagedPtrCastPtr application
gtk_builder_set_application _obj' application'
touchManagedPtr _obj
touchManagedPtr application
return ()
-- method Builder::set_translation_domain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_set_translation_domain" gtk_builder_set_translation_domain ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CString -> -- domain : TBasicType TUTF8
IO ()
builderSetTranslationDomain ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
Maybe (T.Text) -> -- domain
m ()
builderSetTranslationDomain _obj domain = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeDomain <- case domain of
Nothing -> return nullPtr
Just jDomain -> do
jDomain' <- textToCString jDomain
return jDomain'
gtk_builder_set_translation_domain _obj' maybeDomain
touchManagedPtr _obj
freeMem maybeDomain
return ()
-- method Builder::value_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_value_from_string" gtk_builder_value_from_string ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
Ptr GParamSpec -> -- pspec : TParamSpec
CString -> -- string : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
Ptr (Ptr GError) -> -- error
IO CInt
builderValueFromString ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
GParamSpec -> -- pspec
T.Text -> -- string
m (GValue)
builderValueFromString _obj pspec string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pspec' = unsafeManagedPtrGetPtr pspec
string' <- textToCString string
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
onException (do
_ <- propagateGError $ gtk_builder_value_from_string _obj' pspec' string' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem string'
return value'
) (do
freeMem string'
freeMem value
)
-- method Builder::value_from_string_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_builder_value_from_string_type" gtk_builder_value_from_string_type ::
Ptr Builder -> -- _obj : TInterface "Gtk" "Builder"
CGType -> -- type : TBasicType TGType
CString -> -- string : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
Ptr (Ptr GError) -> -- error
IO CInt
builderValueFromStringType ::
(MonadIO m, BuilderK a) =>
a -> -- _obj
GType -> -- type
T.Text -> -- string
m (GValue)
builderValueFromStringType _obj type_ string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = gtypeToCGType type_
string' <- textToCString string
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
onException (do
_ <- propagateGError $ gtk_builder_value_from_string_type _obj' type_' string' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem string'
return value'
) (do
freeMem string'
freeMem value
)
-- callback BuilderConnectFunc
builderConnectFuncClosure :: BuilderConnectFunc -> IO Closure
builderConnectFuncClosure cb = newCClosure =<< mkBuilderConnectFunc wrapped
where wrapped = builderConnectFuncWrapper Nothing cb
type BuilderConnectFuncC =
Ptr Builder ->
Ptr GObject.Object ->
CString ->
CString ->
Ptr GObject.Object ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkBuilderConnectFunc :: BuilderConnectFuncC -> IO (FunPtr BuilderConnectFuncC)
type BuilderConnectFunc =
Builder ->
GObject.Object ->
T.Text ->
T.Text ->
Maybe GObject.Object ->
[GObject.ConnectFlags] ->
IO ()
noBuilderConnectFunc :: Maybe BuilderConnectFunc
noBuilderConnectFunc = Nothing
builderConnectFuncWrapper ::
Maybe (Ptr (FunPtr (BuilderConnectFuncC))) ->
BuilderConnectFunc ->
Ptr Builder ->
Ptr GObject.Object ->
CString ->
CString ->
Ptr GObject.Object ->
CUInt ->
Ptr () ->
IO ()
builderConnectFuncWrapper funptrptr _cb builder object signal_name handler_name connect_object flags _ = do
builder' <- (newObject Builder) builder
object' <- (newObject GObject.Object) object
signal_name' <- cstringToText signal_name
handler_name' <- cstringToText handler_name
maybeConnect_object <-
if connect_object == nullPtr
then return Nothing
else do
connect_object' <- (newObject GObject.Object) connect_object
return $ Just connect_object'
let flags' = wordToGFlags flags
_cb builder' object' signal_name' handler_name' maybeConnect_object flags'
maybeReleaseFunPtr funptrptr
-- Enum BuilderError
data BuilderError =
BuilderErrorInvalidTypeFunction
| BuilderErrorUnhandledTag
| BuilderErrorMissingAttribute
| BuilderErrorInvalidAttribute
| BuilderErrorInvalidTag
| BuilderErrorMissingPropertyValue
| BuilderErrorInvalidValue
| BuilderErrorVersionMismatch
| BuilderErrorDuplicateId
| BuilderErrorObjectTypeRefused
| BuilderErrorTemplateMismatch
| BuilderErrorInvalidProperty
| BuilderErrorInvalidSignal
| BuilderErrorInvalidId
| AnotherBuilderError Int
deriving (Show, Eq)
instance Enum BuilderError where
fromEnum BuilderErrorInvalidTypeFunction = 0
fromEnum BuilderErrorUnhandledTag = 1
fromEnum BuilderErrorMissingAttribute = 2
fromEnum BuilderErrorInvalidAttribute = 3
fromEnum BuilderErrorInvalidTag = 4
fromEnum BuilderErrorMissingPropertyValue = 5
fromEnum BuilderErrorInvalidValue = 6
fromEnum BuilderErrorVersionMismatch = 7
fromEnum BuilderErrorDuplicateId = 8
fromEnum BuilderErrorObjectTypeRefused = 9
fromEnum BuilderErrorTemplateMismatch = 10
fromEnum BuilderErrorInvalidProperty = 11
fromEnum BuilderErrorInvalidSignal = 12
fromEnum BuilderErrorInvalidId = 13
fromEnum (AnotherBuilderError k) = k
toEnum 0 = BuilderErrorInvalidTypeFunction
toEnum 1 = BuilderErrorUnhandledTag
toEnum 2 = BuilderErrorMissingAttribute
toEnum 3 = BuilderErrorInvalidAttribute
toEnum 4 = BuilderErrorInvalidTag
toEnum 5 = BuilderErrorMissingPropertyValue
toEnum 6 = BuilderErrorInvalidValue
toEnum 7 = BuilderErrorVersionMismatch
toEnum 8 = BuilderErrorDuplicateId
toEnum 9 = BuilderErrorObjectTypeRefused
toEnum 10 = BuilderErrorTemplateMismatch
toEnum 11 = BuilderErrorInvalidProperty
toEnum 12 = BuilderErrorInvalidSignal
toEnum 13 = BuilderErrorInvalidId
toEnum k = AnotherBuilderError k
instance GErrorClass BuilderError where
gerrorClassDomain _ = "gtk-builder-error-quark"
catchBuilderError ::
IO a ->
(BuilderError -> GErrorMessage -> IO a) ->
IO a
catchBuilderError = catchGErrorJustDomain
handleBuilderError ::
(BuilderError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleBuilderError = handleGErrorJustDomain
foreign import ccall "gtk_builder_error_get_type" c_gtk_builder_error_get_type ::
IO GType
instance BoxedEnum BuilderError where
boxedEnumType _ = c_gtk_builder_error_get_type
-- object Button
newtype Button = Button (ForeignPtr Button)
noButton :: Maybe Button
noButton = Nothing
foreign import ccall "gtk_button_get_type"
c_gtk_button_get_type :: IO GType
type instance ParentTypes Button = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject Button where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_button_get_type
class GObject o => ButtonK o
instance (GObject o, IsDescendantOf Button o) => ButtonK o
toButton :: ButtonK o => o -> IO Button
toButton = unsafeCastTo Button
-- method Button::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new" gtk_button_new ::
IO (Ptr Button)
buttonNew ::
(MonadIO m) =>
m Button
buttonNew = liftIO $ do
result <- gtk_button_new
checkUnexpectedReturnNULL "gtk_button_new" result
result' <- (newObject Button) result
return result'
-- method Button::new_from_icon_name
-- method type : Constructor
-- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_from_icon_name" gtk_button_new_from_icon_name ::
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO (Ptr Button)
buttonNewFromIconName ::
(MonadIO m) =>
T.Text -> -- icon_name
Int32 -> -- size
m Button
buttonNewFromIconName icon_name size = liftIO $ do
icon_name' <- textToCString icon_name
result <- gtk_button_new_from_icon_name icon_name' size
checkUnexpectedReturnNULL "gtk_button_new_from_icon_name" result
result' <- (newObject Button) result
freeMem icon_name'
return result'
-- method Button::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_from_stock" gtk_button_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr Button)
{-# DEPRECATED buttonNewFromStock ["(Since version 3.10)","Use gtk_button_new_with_label() instead."]#-}
buttonNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
m Button
buttonNewFromStock stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_button_new_from_stock stock_id'
checkUnexpectedReturnNULL "gtk_button_new_from_stock" result
result' <- (newObject Button) result
freeMem stock_id'
return result'
-- method Button::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_with_label" gtk_button_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Button)
buttonNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m Button
buttonNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_button_new_with_label label'
checkUnexpectedReturnNULL "gtk_button_new_with_label" result
result' <- (newObject Button) result
freeMem label'
return result'
-- method Button::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_with_mnemonic" gtk_button_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Button)
buttonNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m Button
buttonNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_button_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_button_new_with_mnemonic" result
result' <- (newObject Button) result
freeMem label'
return result'
-- method Button::clicked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_clicked" gtk_button_clicked ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO ()
buttonClicked ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ()
buttonClicked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_button_clicked _obj'
touchManagedPtr _obj
return ()
-- method Button::enter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_enter" gtk_button_enter ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO ()
{-# DEPRECATED buttonEnter ["(Since version 2.20)","Use the #GtkWidget::enter-notify-event signal."]#-}
buttonEnter ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ()
buttonEnter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_button_enter _obj'
touchManagedPtr _obj
return ()
-- method Button::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_alignment" gtk_button_get_alignment ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED buttonGetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-}
buttonGetAlignment ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m (Float,Float)
buttonGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_button_get_alignment _obj' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr _obj
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
-- method Button::get_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_always_show_image" gtk_button_get_always_show_image ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CInt
buttonGetAlwaysShowImage ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Bool
buttonGetAlwaysShowImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_always_show_image _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Button::get_event_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_event_window" gtk_button_get_event_window ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO (Ptr Gdk.Window)
buttonGetEventWindow ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Gdk.Window
buttonGetEventWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_event_window _obj'
checkUnexpectedReturnNULL "gtk_button_get_event_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Button::get_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_focus_on_click" gtk_button_get_focus_on_click ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CInt
buttonGetFocusOnClick ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Bool
buttonGetFocusOnClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_focus_on_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Button::get_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_image" gtk_button_get_image ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO (Ptr Widget)
buttonGetImage ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Widget
buttonGetImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_image _obj'
checkUnexpectedReturnNULL "gtk_button_get_image" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Button::get_image_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_image_position" gtk_button_get_image_position ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CUInt
buttonGetImagePosition ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m PositionType
buttonGetImagePosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_image_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Button::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_label" gtk_button_get_label ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CString
buttonGetLabel ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m T.Text
buttonGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_label _obj'
checkUnexpectedReturnNULL "gtk_button_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Button::get_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ReliefStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_relief" gtk_button_get_relief ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CUInt
buttonGetRelief ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ReliefStyle
buttonGetRelief _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_relief _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Button::get_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_use_stock" gtk_button_get_use_stock ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CInt
{-# DEPRECATED buttonGetUseStock ["(Since version 3.10)"]#-}
buttonGetUseStock ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Bool
buttonGetUseStock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_use_stock _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Button::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_use_underline" gtk_button_get_use_underline ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO CInt
buttonGetUseUnderline ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m Bool
buttonGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Button::leave
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_leave" gtk_button_leave ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO ()
{-# DEPRECATED buttonLeave ["(Since version 2.20)","Use the #GtkWidget::leave-notify-event signal."]#-}
buttonLeave ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ()
buttonLeave _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_button_leave _obj'
touchManagedPtr _obj
return ()
-- method Button::pressed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_pressed" gtk_button_pressed ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO ()
{-# DEPRECATED buttonPressed ["(Since version 2.20)","Use the #GtkWidget::button-press-event signal."]#-}
buttonPressed ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ()
buttonPressed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_button_pressed _obj'
touchManagedPtr _obj
return ()
-- method Button::released
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_released" gtk_button_released ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
IO ()
{-# DEPRECATED buttonReleased ["(Since version 2.20)","Use the #GtkWidget::button-release-event signal."]#-}
buttonReleased ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
m ()
buttonReleased _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_button_released _obj'
touchManagedPtr _obj
return ()
-- method Button::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_alignment" gtk_button_set_alignment ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED buttonSetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-}
buttonSetAlignment ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
m ()
buttonSetAlignment _obj xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_button_set_alignment _obj' xalign' yalign'
touchManagedPtr _obj
return ()
-- method Button::set_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_always_show_image" gtk_button_set_always_show_image ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CInt -> -- always_show : TBasicType TBoolean
IO ()
buttonSetAlwaysShowImage ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
Bool -> -- always_show
m ()
buttonSetAlwaysShowImage _obj always_show = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let always_show' = (fromIntegral . fromEnum) always_show
gtk_button_set_always_show_image _obj' always_show'
touchManagedPtr _obj
return ()
-- method Button::set_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_focus_on_click" gtk_button_set_focus_on_click ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CInt -> -- focus_on_click : TBasicType TBoolean
IO ()
buttonSetFocusOnClick ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
Bool -> -- focus_on_click
m ()
buttonSetFocusOnClick _obj focus_on_click = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focus_on_click' = (fromIntegral . fromEnum) focus_on_click
gtk_button_set_focus_on_click _obj' focus_on_click'
touchManagedPtr _obj
return ()
-- method Button::set_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_image" gtk_button_set_image ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
Ptr Widget -> -- image : TInterface "Gtk" "Widget"
IO ()
buttonSetImage ::
(MonadIO m, ButtonK a, WidgetK b) =>
a -> -- _obj
b -> -- image
m ()
buttonSetImage _obj image = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let image' = unsafeManagedPtrCastPtr image
gtk_button_set_image _obj' image'
touchManagedPtr _obj
touchManagedPtr image
return ()
-- method Button::set_image_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_image_position" gtk_button_set_image_position ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CUInt -> -- position : TInterface "Gtk" "PositionType"
IO ()
buttonSetImagePosition ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
PositionType -> -- position
m ()
buttonSetImagePosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_button_set_image_position _obj' position'
touchManagedPtr _obj
return ()
-- method Button::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_label" gtk_button_set_label ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CString -> -- label : TBasicType TUTF8
IO ()
buttonSetLabel ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
T.Text -> -- label
m ()
buttonSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
label' <- textToCString label
gtk_button_set_label _obj' label'
touchManagedPtr _obj
freeMem label'
return ()
-- method Button::set_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_relief" gtk_button_set_relief ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CUInt -> -- relief : TInterface "Gtk" "ReliefStyle"
IO ()
buttonSetRelief ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
ReliefStyle -> -- relief
m ()
buttonSetRelief _obj relief = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let relief' = (fromIntegral . fromEnum) relief
gtk_button_set_relief _obj' relief'
touchManagedPtr _obj
return ()
-- method Button::set_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_use_stock" gtk_button_set_use_stock ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CInt -> -- use_stock : TBasicType TBoolean
IO ()
{-# DEPRECATED buttonSetUseStock ["(Since version 3.10)"]#-}
buttonSetUseStock ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
Bool -> -- use_stock
m ()
buttonSetUseStock _obj use_stock = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_stock' = (fromIntegral . fromEnum) use_stock
gtk_button_set_use_stock _obj' use_stock'
touchManagedPtr _obj
return ()
-- method Button::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_use_underline" gtk_button_set_use_underline ::
Ptr Button -> -- _obj : TInterface "Gtk" "Button"
CInt -> -- use_underline : TBasicType TBoolean
IO ()
buttonSetUseUnderline ::
(MonadIO m, ButtonK a) =>
a -> -- _obj
Bool -> -- use_underline
m ()
buttonSetUseUnderline _obj use_underline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_underline' = (fromIntegral . fromEnum) use_underline
gtk_button_set_use_underline _obj' use_underline'
touchManagedPtr _obj
return ()
-- signal Button::activate
type ButtonActivateCallback =
IO ()
noButtonActivateCallback :: Maybe ButtonActivateCallback
noButtonActivateCallback = Nothing
type ButtonActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonActivateCallback :: ButtonActivateCallbackC -> IO (FunPtr ButtonActivateCallbackC)
buttonActivateClosure :: ButtonActivateCallback -> IO Closure
buttonActivateClosure cb = newCClosure =<< mkButtonActivateCallback wrapped
where wrapped = buttonActivateCallbackWrapper cb
buttonActivateCallbackWrapper ::
ButtonActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonActivateCallbackWrapper _cb _ _ = do
_cb
onButtonActivate :: (GObject a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId
onButtonActivate obj cb = liftIO $ connectButtonActivate obj cb SignalConnectBefore
afterButtonActivate :: (GObject a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId
afterButtonActivate obj cb = connectButtonActivate obj cb SignalConnectAfter
connectButtonActivate :: (GObject a, MonadIO m) =>
a -> ButtonActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonActivate obj cb after = liftIO $ do
cb' <- mkButtonActivateCallback (buttonActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal Button::clicked
type ButtonClickedCallback =
IO ()
noButtonClickedCallback :: Maybe ButtonClickedCallback
noButtonClickedCallback = Nothing
type ButtonClickedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonClickedCallback :: ButtonClickedCallbackC -> IO (FunPtr ButtonClickedCallbackC)
buttonClickedClosure :: ButtonClickedCallback -> IO Closure
buttonClickedClosure cb = newCClosure =<< mkButtonClickedCallback wrapped
where wrapped = buttonClickedCallbackWrapper cb
buttonClickedCallbackWrapper ::
ButtonClickedCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonClickedCallbackWrapper _cb _ _ = do
_cb
onButtonClicked :: (GObject a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId
onButtonClicked obj cb = liftIO $ connectButtonClicked obj cb SignalConnectBefore
afterButtonClicked :: (GObject a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId
afterButtonClicked obj cb = connectButtonClicked obj cb SignalConnectAfter
connectButtonClicked :: (GObject a, MonadIO m) =>
a -> ButtonClickedCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonClicked obj cb after = liftIO $ do
cb' <- mkButtonClickedCallback (buttonClickedCallbackWrapper cb)
connectSignalFunPtr obj "clicked" cb' after
-- signal Button::enter
type ButtonEnterCallback =
IO ()
noButtonEnterCallback :: Maybe ButtonEnterCallback
noButtonEnterCallback = Nothing
type ButtonEnterCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonEnterCallback :: ButtonEnterCallbackC -> IO (FunPtr ButtonEnterCallbackC)
buttonEnterClosure :: ButtonEnterCallback -> IO Closure
buttonEnterClosure cb = newCClosure =<< mkButtonEnterCallback wrapped
where wrapped = buttonEnterCallbackWrapper cb
buttonEnterCallbackWrapper ::
ButtonEnterCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonEnterCallbackWrapper _cb _ _ = do
_cb
onButtonEnter :: (GObject a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId
onButtonEnter obj cb = liftIO $ connectButtonEnter obj cb SignalConnectBefore
afterButtonEnter :: (GObject a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId
afterButtonEnter obj cb = connectButtonEnter obj cb SignalConnectAfter
connectButtonEnter :: (GObject a, MonadIO m) =>
a -> ButtonEnterCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonEnter obj cb after = liftIO $ do
cb' <- mkButtonEnterCallback (buttonEnterCallbackWrapper cb)
connectSignalFunPtr obj "enter" cb' after
-- signal Button::leave
type ButtonLeaveCallback =
IO ()
noButtonLeaveCallback :: Maybe ButtonLeaveCallback
noButtonLeaveCallback = Nothing
type ButtonLeaveCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonLeaveCallback :: ButtonLeaveCallbackC -> IO (FunPtr ButtonLeaveCallbackC)
buttonLeaveClosure :: ButtonLeaveCallback -> IO Closure
buttonLeaveClosure cb = newCClosure =<< mkButtonLeaveCallback wrapped
where wrapped = buttonLeaveCallbackWrapper cb
buttonLeaveCallbackWrapper ::
ButtonLeaveCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonLeaveCallbackWrapper _cb _ _ = do
_cb
onButtonLeave :: (GObject a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId
onButtonLeave obj cb = liftIO $ connectButtonLeave obj cb SignalConnectBefore
afterButtonLeave :: (GObject a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId
afterButtonLeave obj cb = connectButtonLeave obj cb SignalConnectAfter
connectButtonLeave :: (GObject a, MonadIO m) =>
a -> ButtonLeaveCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonLeave obj cb after = liftIO $ do
cb' <- mkButtonLeaveCallback (buttonLeaveCallbackWrapper cb)
connectSignalFunPtr obj "leave" cb' after
-- signal Button::pressed
type ButtonPressedCallback =
IO ()
noButtonPressedCallback :: Maybe ButtonPressedCallback
noButtonPressedCallback = Nothing
type ButtonPressedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonPressedCallback :: ButtonPressedCallbackC -> IO (FunPtr ButtonPressedCallbackC)
buttonPressedClosure :: ButtonPressedCallback -> IO Closure
buttonPressedClosure cb = newCClosure =<< mkButtonPressedCallback wrapped
where wrapped = buttonPressedCallbackWrapper cb
buttonPressedCallbackWrapper ::
ButtonPressedCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonPressedCallbackWrapper _cb _ _ = do
_cb
onButtonPressed :: (GObject a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId
onButtonPressed obj cb = liftIO $ connectButtonPressed obj cb SignalConnectBefore
afterButtonPressed :: (GObject a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId
afterButtonPressed obj cb = connectButtonPressed obj cb SignalConnectAfter
connectButtonPressed :: (GObject a, MonadIO m) =>
a -> ButtonPressedCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonPressed obj cb after = liftIO $ do
cb' <- mkButtonPressedCallback (buttonPressedCallbackWrapper cb)
connectSignalFunPtr obj "pressed" cb' after
-- signal Button::released
type ButtonReleasedCallback =
IO ()
noButtonReleasedCallback :: Maybe ButtonReleasedCallback
noButtonReleasedCallback = Nothing
type ButtonReleasedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkButtonReleasedCallback :: ButtonReleasedCallbackC -> IO (FunPtr ButtonReleasedCallbackC)
buttonReleasedClosure :: ButtonReleasedCallback -> IO Closure
buttonReleasedClosure cb = newCClosure =<< mkButtonReleasedCallback wrapped
where wrapped = buttonReleasedCallbackWrapper cb
buttonReleasedCallbackWrapper ::
ButtonReleasedCallback ->
Ptr () ->
Ptr () ->
IO ()
buttonReleasedCallbackWrapper _cb _ _ = do
_cb
onButtonReleased :: (GObject a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId
onButtonReleased obj cb = liftIO $ connectButtonReleased obj cb SignalConnectBefore
afterButtonReleased :: (GObject a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId
afterButtonReleased obj cb = connectButtonReleased obj cb SignalConnectAfter
connectButtonReleased :: (GObject a, MonadIO m) =>
a -> ButtonReleasedCallback -> SignalConnectMode -> m SignalHandlerId
connectButtonReleased obj cb after = liftIO $ do
cb' <- mkButtonReleasedCallback (buttonReleasedCallbackWrapper cb)
connectSignalFunPtr obj "released" cb' after
-- object ButtonAccessible
newtype ButtonAccessible = ButtonAccessible (ForeignPtr ButtonAccessible)
noButtonAccessible :: Maybe ButtonAccessible
noButtonAccessible = Nothing
foreign import ccall "gtk_button_accessible_get_type"
c_gtk_button_accessible_get_type :: IO GType
type instance ParentTypes ButtonAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject ButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_button_accessible_get_type
class GObject o => ButtonAccessibleK o
instance (GObject o, IsDescendantOf ButtonAccessible o) => ButtonAccessibleK o
toButtonAccessible :: ButtonAccessibleK o => o -> IO ButtonAccessible
toButtonAccessible = unsafeCastTo ButtonAccessible
-- object ButtonBox
newtype ButtonBox = ButtonBox (ForeignPtr ButtonBox)
noButtonBox :: Maybe ButtonBox
noButtonBox = Nothing
foreign import ccall "gtk_button_box_get_type"
c_gtk_button_box_get_type :: IO GType
type instance ParentTypes ButtonBox = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject ButtonBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_button_box_get_type
class GObject o => ButtonBoxK o
instance (GObject o, IsDescendantOf ButtonBox o) => ButtonBoxK o
toButtonBox :: ButtonBoxK o => o -> IO ButtonBox
toButtonBox = unsafeCastTo ButtonBox
-- method ButtonBox::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ButtonBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_new" gtk_button_box_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO (Ptr ButtonBox)
buttonBoxNew ::
(MonadIO m) =>
Orientation -> -- orientation
m ButtonBox
buttonBoxNew orientation = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_button_box_new orientation'
checkUnexpectedReturnNULL "gtk_button_box_new" result
result' <- (newObject ButtonBox) result
return result'
-- method ButtonBox::get_child_non_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_get_child_non_homogeneous" gtk_button_box_get_child_non_homogeneous ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CInt
buttonBoxGetChildNonHomogeneous ::
(MonadIO m, ButtonBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Bool
buttonBoxGetChildNonHomogeneous _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_button_box_get_child_non_homogeneous _obj' child'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method ButtonBox::get_child_secondary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_get_child_secondary" gtk_button_box_get_child_secondary ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CInt
buttonBoxGetChildSecondary ::
(MonadIO m, ButtonBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Bool
buttonBoxGetChildSecondary _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_button_box_get_child_secondary _obj' child'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method ButtonBox::get_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ButtonBoxStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_get_layout" gtk_button_box_get_layout ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
IO CUInt
buttonBoxGetLayout ::
(MonadIO m, ButtonBoxK a) =>
a -> -- _obj
m ButtonBoxStyle
buttonBoxGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_button_box_get_layout _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ButtonBox::set_child_non_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_set_child_non_homogeneous" gtk_button_box_set_child_non_homogeneous ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- non_homogeneous : TBasicType TBoolean
IO ()
buttonBoxSetChildNonHomogeneous ::
(MonadIO m, ButtonBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- non_homogeneous
m ()
buttonBoxSetChildNonHomogeneous _obj child non_homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let non_homogeneous' = (fromIntegral . fromEnum) non_homogeneous
gtk_button_box_set_child_non_homogeneous _obj' child' non_homogeneous'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ButtonBox::set_child_secondary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_set_child_secondary" gtk_button_box_set_child_secondary ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- is_secondary : TBasicType TBoolean
IO ()
buttonBoxSetChildSecondary ::
(MonadIO m, ButtonBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- is_secondary
m ()
buttonBoxSetChildSecondary _obj child is_secondary = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let is_secondary' = (fromIntegral . fromEnum) is_secondary
gtk_button_box_set_child_secondary _obj' child' is_secondary'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ButtonBox::set_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_box_set_layout" gtk_button_box_set_layout ::
Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox"
CUInt -> -- layout_style : TInterface "Gtk" "ButtonBoxStyle"
IO ()
buttonBoxSetLayout ::
(MonadIO m, ButtonBoxK a) =>
a -> -- _obj
ButtonBoxStyle -> -- layout_style
m ()
buttonBoxSetLayout _obj layout_style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let layout_style' = (fromIntegral . fromEnum) layout_style
gtk_button_box_set_layout _obj' layout_style'
touchManagedPtr _obj
return ()
-- Enum ButtonBoxStyle
data ButtonBoxStyle =
ButtonBoxStyleSpread
| ButtonBoxStyleEdge
| ButtonBoxStyleStart
| ButtonBoxStyleEnd
| ButtonBoxStyleCenter
| ButtonBoxStyleExpand
| AnotherButtonBoxStyle Int
deriving (Show, Eq)
instance Enum ButtonBoxStyle where
fromEnum ButtonBoxStyleSpread = 1
fromEnum ButtonBoxStyleEdge = 2
fromEnum ButtonBoxStyleStart = 3
fromEnum ButtonBoxStyleEnd = 4
fromEnum ButtonBoxStyleCenter = 5
fromEnum ButtonBoxStyleExpand = 6
fromEnum (AnotherButtonBoxStyle k) = k
toEnum 1 = ButtonBoxStyleSpread
toEnum 2 = ButtonBoxStyleEdge
toEnum 3 = ButtonBoxStyleStart
toEnum 4 = ButtonBoxStyleEnd
toEnum 5 = ButtonBoxStyleCenter
toEnum 6 = ButtonBoxStyleExpand
toEnum k = AnotherButtonBoxStyle k
foreign import ccall "gtk_button_box_style_get_type" c_gtk_button_box_style_get_type ::
IO GType
instance BoxedEnum ButtonBoxStyle where
boxedEnumType _ = c_gtk_button_box_style_get_type
-- Enum ButtonRole
data ButtonRole =
ButtonRoleNormal
| ButtonRoleCheck
| ButtonRoleRadio
| AnotherButtonRole Int
deriving (Show, Eq)
instance Enum ButtonRole where
fromEnum ButtonRoleNormal = 0
fromEnum ButtonRoleCheck = 1
fromEnum ButtonRoleRadio = 2
fromEnum (AnotherButtonRole k) = k
toEnum 0 = ButtonRoleNormal
toEnum 1 = ButtonRoleCheck
toEnum 2 = ButtonRoleRadio
toEnum k = AnotherButtonRole k
foreign import ccall "gtk_button_role_get_type" c_gtk_button_role_get_type ::
IO GType
instance BoxedEnum ButtonRole where
boxedEnumType _ = c_gtk_button_role_get_type
-- Enum ButtonsType
data ButtonsType =
ButtonsTypeNone
| ButtonsTypeOk
| ButtonsTypeClose
| ButtonsTypeCancel
| ButtonsTypeYesNo
| ButtonsTypeOkCancel
| AnotherButtonsType Int
deriving (Show, Eq)
instance Enum ButtonsType where
fromEnum ButtonsTypeNone = 0
fromEnum ButtonsTypeOk = 1
fromEnum ButtonsTypeClose = 2
fromEnum ButtonsTypeCancel = 3
fromEnum ButtonsTypeYesNo = 4
fromEnum ButtonsTypeOkCancel = 5
fromEnum (AnotherButtonsType k) = k
toEnum 0 = ButtonsTypeNone
toEnum 1 = ButtonsTypeOk
toEnum 2 = ButtonsTypeClose
toEnum 3 = ButtonsTypeCancel
toEnum 4 = ButtonsTypeYesNo
toEnum 5 = ButtonsTypeOkCancel
toEnum k = AnotherButtonsType k
foreign import ccall "gtk_buttons_type_get_type" c_gtk_buttons_type_get_type ::
IO GType
instance BoxedEnum ButtonsType where
boxedEnumType _ = c_gtk_buttons_type_get_type
-- object Calendar
newtype Calendar = Calendar (ForeignPtr Calendar)
noCalendar :: Maybe Calendar
noCalendar = Nothing
foreign import ccall "gtk_calendar_get_type"
c_gtk_calendar_get_type :: IO GType
type instance ParentTypes Calendar = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Calendar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_calendar_get_type
class GObject o => CalendarK o
instance (GObject o, IsDescendantOf Calendar o) => CalendarK o
toCalendar :: CalendarK o => o -> IO Calendar
toCalendar = unsafeCastTo Calendar
-- method Calendar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Calendar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_new" gtk_calendar_new ::
IO (Ptr Calendar)
calendarNew ::
(MonadIO m) =>
m Calendar
calendarNew = liftIO $ do
result <- gtk_calendar_new
checkUnexpectedReturnNULL "gtk_calendar_new" result
result' <- (newObject Calendar) result
return result'
-- method Calendar::clear_marks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_clear_marks" gtk_calendar_clear_marks ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
IO ()
calendarClearMarks ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
m ()
calendarClearMarks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_clear_marks _obj'
touchManagedPtr _obj
return ()
-- method Calendar::get_date
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Ptr Word32 -> -- year : TBasicType TUInt32
Ptr Word32 -> -- month : TBasicType TUInt32
Ptr Word32 -> -- day : TBasicType TUInt32
IO ()
calendarGetDate ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
m (Word32,Word32,Word32)
calendarGetDate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
year <- allocMem :: IO (Ptr Word32)
month <- allocMem :: IO (Ptr Word32)
day <- allocMem :: IO (Ptr Word32)
gtk_calendar_get_date _obj' year month day
year' <- peek year
month' <- peek month
day' <- peek day
touchManagedPtr _obj
freeMem year
freeMem month
freeMem day
return (year', month', day')
-- method Calendar::get_day_is_marked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Word32 -> -- day : TBasicType TUInt32
IO CInt
calendarGetDayIsMarked ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Word32 -> -- day
m Bool
calendarGetDayIsMarked _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_day_is_marked _obj' day
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Calendar::get_detail_height_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_get_detail_height_rows" gtk_calendar_get_detail_height_rows ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
IO Int32
calendarGetDetailHeightRows ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
m Int32
calendarGetDetailHeightRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_detail_height_rows _obj'
touchManagedPtr _obj
return result
-- method Calendar::get_detail_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_get_detail_width_chars" gtk_calendar_get_detail_width_chars ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
IO Int32
calendarGetDetailWidthChars ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
m Int32
calendarGetDetailWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_detail_width_chars _obj'
touchManagedPtr _obj
return result
-- method Calendar::get_display_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CalendarDisplayOptions"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_get_display_options" gtk_calendar_get_display_options ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
IO CUInt
calendarGetDisplayOptions ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
m [CalendarDisplayOptions]
calendarGetDisplayOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_display_options _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method Calendar::mark_day
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Word32 -> -- day : TBasicType TUInt32
IO ()
calendarMarkDay ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Word32 -> -- day
m ()
calendarMarkDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_mark_day _obj' day
touchManagedPtr _obj
return ()
-- method Calendar::select_day
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Word32 -> -- day : TBasicType TUInt32
IO ()
calendarSelectDay ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Word32 -> -- day
m ()
calendarSelectDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_select_day _obj' day
touchManagedPtr _obj
return ()
-- method Calendar::select_month
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_select_month" gtk_calendar_select_month ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Word32 -> -- month : TBasicType TUInt32
Word32 -> -- year : TBasicType TUInt32
IO ()
calendarSelectMonth ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Word32 -> -- month
Word32 -> -- year
m ()
calendarSelectMonth _obj month year = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_select_month _obj' month year
touchManagedPtr _obj
return ()
-- method Calendar::set_detail_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
FunPtr CalendarDetailFuncC -> -- func : TInterface "Gtk" "CalendarDetailFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
calendarSetDetailFunc ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
CalendarDetailFunc -> -- func
m ()
calendarSetDetailFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCalendarDetailFunc (calendarDetailFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_calendar_set_detail_func _obj' func' data_ destroy
touchManagedPtr _obj
return ()
-- method Calendar::set_detail_height_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Int32 -> -- rows : TBasicType TInt32
IO ()
calendarSetDetailHeightRows ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Int32 -> -- rows
m ()
calendarSetDetailHeightRows _obj rows = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_set_detail_height_rows _obj' rows
touchManagedPtr _obj
return ()
-- method Calendar::set_detail_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Int32 -> -- chars : TBasicType TInt32
IO ()
calendarSetDetailWidthChars ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Int32 -> -- chars
m ()
calendarSetDetailWidthChars _obj chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_set_detail_width_chars _obj' chars
touchManagedPtr _obj
return ()
-- method Calendar::set_display_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_set_display_options" gtk_calendar_set_display_options ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
CUInt -> -- flags : TInterface "Gtk" "CalendarDisplayOptions"
IO ()
calendarSetDisplayOptions ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
[CalendarDisplayOptions] -> -- flags
m ()
calendarSetDisplayOptions _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_calendar_set_display_options _obj' flags'
touchManagedPtr _obj
return ()
-- method Calendar::unmark_day
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day ::
Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar"
Word32 -> -- day : TBasicType TUInt32
IO ()
calendarUnmarkDay ::
(MonadIO m, CalendarK a) =>
a -> -- _obj
Word32 -> -- day
m ()
calendarUnmarkDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_unmark_day _obj' day
touchManagedPtr _obj
return ()
-- signal Calendar::day-selected
type CalendarDaySelectedCallback =
IO ()
noCalendarDaySelectedCallback :: Maybe CalendarDaySelectedCallback
noCalendarDaySelectedCallback = Nothing
type CalendarDaySelectedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarDaySelectedCallback :: CalendarDaySelectedCallbackC -> IO (FunPtr CalendarDaySelectedCallbackC)
calendarDaySelectedClosure :: CalendarDaySelectedCallback -> IO Closure
calendarDaySelectedClosure cb = newCClosure =<< mkCalendarDaySelectedCallback wrapped
where wrapped = calendarDaySelectedCallbackWrapper cb
calendarDaySelectedCallbackWrapper ::
CalendarDaySelectedCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarDaySelectedCallbackWrapper _cb _ _ = do
_cb
onCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
onCalendarDaySelected obj cb = liftIO $ connectCalendarDaySelected obj cb SignalConnectBefore
afterCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
afterCalendarDaySelected obj cb = connectCalendarDaySelected obj cb SignalConnectAfter
connectCalendarDaySelected :: (GObject a, MonadIO m) =>
a -> CalendarDaySelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarDaySelected obj cb after = liftIO $ do
cb' <- mkCalendarDaySelectedCallback (calendarDaySelectedCallbackWrapper cb)
connectSignalFunPtr obj "day-selected" cb' after
-- signal Calendar::day-selected-double-click
type CalendarDaySelectedDoubleClickCallback =
IO ()
noCalendarDaySelectedDoubleClickCallback :: Maybe CalendarDaySelectedDoubleClickCallback
noCalendarDaySelectedDoubleClickCallback = Nothing
type CalendarDaySelectedDoubleClickCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarDaySelectedDoubleClickCallback :: CalendarDaySelectedDoubleClickCallbackC -> IO (FunPtr CalendarDaySelectedDoubleClickCallbackC)
calendarDaySelectedDoubleClickClosure :: CalendarDaySelectedDoubleClickCallback -> IO Closure
calendarDaySelectedDoubleClickClosure cb = newCClosure =<< mkCalendarDaySelectedDoubleClickCallback wrapped
where wrapped = calendarDaySelectedDoubleClickCallbackWrapper cb
calendarDaySelectedDoubleClickCallbackWrapper ::
CalendarDaySelectedDoubleClickCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarDaySelectedDoubleClickCallbackWrapper _cb _ _ = do
_cb
onCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
onCalendarDaySelectedDoubleClick obj cb = liftIO $ connectCalendarDaySelectedDoubleClick obj cb SignalConnectBefore
afterCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
afterCalendarDaySelectedDoubleClick obj cb = connectCalendarDaySelectedDoubleClick obj cb SignalConnectAfter
connectCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) =>
a -> CalendarDaySelectedDoubleClickCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarDaySelectedDoubleClick obj cb after = liftIO $ do
cb' <- mkCalendarDaySelectedDoubleClickCallback (calendarDaySelectedDoubleClickCallbackWrapper cb)
connectSignalFunPtr obj "day-selected-double-click" cb' after
-- signal Calendar::month-changed
type CalendarMonthChangedCallback =
IO ()
noCalendarMonthChangedCallback :: Maybe CalendarMonthChangedCallback
noCalendarMonthChangedCallback = Nothing
type CalendarMonthChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarMonthChangedCallback :: CalendarMonthChangedCallbackC -> IO (FunPtr CalendarMonthChangedCallbackC)
calendarMonthChangedClosure :: CalendarMonthChangedCallback -> IO Closure
calendarMonthChangedClosure cb = newCClosure =<< mkCalendarMonthChangedCallback wrapped
where wrapped = calendarMonthChangedCallbackWrapper cb
calendarMonthChangedCallbackWrapper ::
CalendarMonthChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarMonthChangedCallbackWrapper _cb _ _ = do
_cb
onCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
onCalendarMonthChanged obj cb = liftIO $ connectCalendarMonthChanged obj cb SignalConnectBefore
afterCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
afterCalendarMonthChanged obj cb = connectCalendarMonthChanged obj cb SignalConnectAfter
connectCalendarMonthChanged :: (GObject a, MonadIO m) =>
a -> CalendarMonthChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarMonthChanged obj cb after = liftIO $ do
cb' <- mkCalendarMonthChangedCallback (calendarMonthChangedCallbackWrapper cb)
connectSignalFunPtr obj "month-changed" cb' after
-- signal Calendar::next-month
type CalendarNextMonthCallback =
IO ()
noCalendarNextMonthCallback :: Maybe CalendarNextMonthCallback
noCalendarNextMonthCallback = Nothing
type CalendarNextMonthCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarNextMonthCallback :: CalendarNextMonthCallbackC -> IO (FunPtr CalendarNextMonthCallbackC)
calendarNextMonthClosure :: CalendarNextMonthCallback -> IO Closure
calendarNextMonthClosure cb = newCClosure =<< mkCalendarNextMonthCallback wrapped
where wrapped = calendarNextMonthCallbackWrapper cb
calendarNextMonthCallbackWrapper ::
CalendarNextMonthCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarNextMonthCallbackWrapper _cb _ _ = do
_cb
onCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
onCalendarNextMonth obj cb = liftIO $ connectCalendarNextMonth obj cb SignalConnectBefore
afterCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
afterCalendarNextMonth obj cb = connectCalendarNextMonth obj cb SignalConnectAfter
connectCalendarNextMonth :: (GObject a, MonadIO m) =>
a -> CalendarNextMonthCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarNextMonth obj cb after = liftIO $ do
cb' <- mkCalendarNextMonthCallback (calendarNextMonthCallbackWrapper cb)
connectSignalFunPtr obj "next-month" cb' after
-- signal Calendar::next-year
type CalendarNextYearCallback =
IO ()
noCalendarNextYearCallback :: Maybe CalendarNextYearCallback
noCalendarNextYearCallback = Nothing
type CalendarNextYearCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarNextYearCallback :: CalendarNextYearCallbackC -> IO (FunPtr CalendarNextYearCallbackC)
calendarNextYearClosure :: CalendarNextYearCallback -> IO Closure
calendarNextYearClosure cb = newCClosure =<< mkCalendarNextYearCallback wrapped
where wrapped = calendarNextYearCallbackWrapper cb
calendarNextYearCallbackWrapper ::
CalendarNextYearCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarNextYearCallbackWrapper _cb _ _ = do
_cb
onCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
onCalendarNextYear obj cb = liftIO $ connectCalendarNextYear obj cb SignalConnectBefore
afterCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
afterCalendarNextYear obj cb = connectCalendarNextYear obj cb SignalConnectAfter
connectCalendarNextYear :: (GObject a, MonadIO m) =>
a -> CalendarNextYearCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarNextYear obj cb after = liftIO $ do
cb' <- mkCalendarNextYearCallback (calendarNextYearCallbackWrapper cb)
connectSignalFunPtr obj "next-year" cb' after
-- signal Calendar::prev-month
type CalendarPrevMonthCallback =
IO ()
noCalendarPrevMonthCallback :: Maybe CalendarPrevMonthCallback
noCalendarPrevMonthCallback = Nothing
type CalendarPrevMonthCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarPrevMonthCallback :: CalendarPrevMonthCallbackC -> IO (FunPtr CalendarPrevMonthCallbackC)
calendarPrevMonthClosure :: CalendarPrevMonthCallback -> IO Closure
calendarPrevMonthClosure cb = newCClosure =<< mkCalendarPrevMonthCallback wrapped
where wrapped = calendarPrevMonthCallbackWrapper cb
calendarPrevMonthCallbackWrapper ::
CalendarPrevMonthCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarPrevMonthCallbackWrapper _cb _ _ = do
_cb
onCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
onCalendarPrevMonth obj cb = liftIO $ connectCalendarPrevMonth obj cb SignalConnectBefore
afterCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
afterCalendarPrevMonth obj cb = connectCalendarPrevMonth obj cb SignalConnectAfter
connectCalendarPrevMonth :: (GObject a, MonadIO m) =>
a -> CalendarPrevMonthCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarPrevMonth obj cb after = liftIO $ do
cb' <- mkCalendarPrevMonthCallback (calendarPrevMonthCallbackWrapper cb)
connectSignalFunPtr obj "prev-month" cb' after
-- signal Calendar::prev-year
type CalendarPrevYearCallback =
IO ()
noCalendarPrevYearCallback :: Maybe CalendarPrevYearCallback
noCalendarPrevYearCallback = Nothing
type CalendarPrevYearCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCalendarPrevYearCallback :: CalendarPrevYearCallbackC -> IO (FunPtr CalendarPrevYearCallbackC)
calendarPrevYearClosure :: CalendarPrevYearCallback -> IO Closure
calendarPrevYearClosure cb = newCClosure =<< mkCalendarPrevYearCallback wrapped
where wrapped = calendarPrevYearCallbackWrapper cb
calendarPrevYearCallbackWrapper ::
CalendarPrevYearCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarPrevYearCallbackWrapper _cb _ _ = do
_cb
onCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
onCalendarPrevYear obj cb = liftIO $ connectCalendarPrevYear obj cb SignalConnectBefore
afterCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
afterCalendarPrevYear obj cb = connectCalendarPrevYear obj cb SignalConnectAfter
connectCalendarPrevYear :: (GObject a, MonadIO m) =>
a -> CalendarPrevYearCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarPrevYear obj cb after = liftIO $ do
cb' <- mkCalendarPrevYearCallback (calendarPrevYearCallbackWrapper cb)
connectSignalFunPtr obj "prev-year" cb' after
-- callback CalendarDetailFunc
calendarDetailFuncClosure :: CalendarDetailFunc -> IO Closure
calendarDetailFuncClosure cb = newCClosure =<< mkCalendarDetailFunc wrapped
where wrapped = calendarDetailFuncWrapper Nothing cb
type CalendarDetailFuncC =
Ptr Calendar ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mkCalendarDetailFunc :: CalendarDetailFuncC -> IO (FunPtr CalendarDetailFuncC)
type CalendarDetailFunc =
Calendar ->
Word32 ->
Word32 ->
Word32 ->
IO T.Text
noCalendarDetailFunc :: Maybe CalendarDetailFunc
noCalendarDetailFunc = Nothing
calendarDetailFuncWrapper ::
Maybe (Ptr (FunPtr (CalendarDetailFuncC))) ->
CalendarDetailFunc ->
Ptr Calendar ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO CString
calendarDetailFuncWrapper funptrptr _cb calendar year month day _ = do
calendar' <- (newObject Calendar) calendar
result <- _cb calendar' year month day
maybeReleaseFunPtr funptrptr
result' <- textToCString result
return result'
-- Flags CalendarDisplayOptions
data CalendarDisplayOptions =
CalendarDisplayOptionsShowHeading
| CalendarDisplayOptionsShowDayNames
| CalendarDisplayOptionsNoMonthChange
| CalendarDisplayOptionsShowWeekNumbers
| CalendarDisplayOptionsShowDetails
| AnotherCalendarDisplayOptions Int
deriving (Show, Eq)
instance Enum CalendarDisplayOptions where
fromEnum CalendarDisplayOptionsShowHeading = 1
fromEnum CalendarDisplayOptionsShowDayNames = 2
fromEnum CalendarDisplayOptionsNoMonthChange = 4
fromEnum CalendarDisplayOptionsShowWeekNumbers = 8
fromEnum CalendarDisplayOptionsShowDetails = 32
fromEnum (AnotherCalendarDisplayOptions k) = k
toEnum 1 = CalendarDisplayOptionsShowHeading
toEnum 2 = CalendarDisplayOptionsShowDayNames
toEnum 4 = CalendarDisplayOptionsNoMonthChange
toEnum 8 = CalendarDisplayOptionsShowWeekNumbers
toEnum 32 = CalendarDisplayOptionsShowDetails
toEnum k = AnotherCalendarDisplayOptions k
foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type ::
IO GType
instance BoxedEnum CalendarDisplayOptions where
boxedEnumType _ = c_gtk_calendar_display_options_get_type
instance IsGFlag CalendarDisplayOptions
-- callback Callback
callbackClosure :: Callback -> IO Closure
callbackClosure cb = newCClosure =<< mkCallback wrapped
where wrapped = callbackWrapper Nothing cb
type CallbackC =
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCallback :: CallbackC -> IO (FunPtr CallbackC)
type Callback =
Widget ->
IO ()
noCallback :: Maybe Callback
noCallback = Nothing
callbackWrapper ::
Maybe (Ptr (FunPtr (CallbackC))) ->
Callback ->
Ptr Widget ->
Ptr () ->
IO ()
callbackWrapper funptrptr _cb widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
maybeReleaseFunPtr funptrptr
-- object CellAccessible
newtype CellAccessible = CellAccessible (ForeignPtr CellAccessible)
noCellAccessible :: Maybe CellAccessible
noCellAccessible = Nothing
foreign import ccall "gtk_cell_accessible_get_type"
c_gtk_cell_accessible_get_type :: IO GType
type instance ParentTypes CellAccessible = '[Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject CellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_cell_accessible_get_type
class GObject o => CellAccessibleK o
instance (GObject o, IsDescendantOf CellAccessible o) => CellAccessibleK o
toCellAccessible :: CellAccessibleK o => o -> IO CellAccessible
toCellAccessible = unsafeCastTo CellAccessible
-- interface CellAccessibleParent
newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent)
noCellAccessibleParent :: Maybe CellAccessibleParent
noCellAccessibleParent = Nothing
class ForeignPtrNewtype a => CellAccessibleParentK a
instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o
type instance ParentTypes CellAccessibleParent = '[]
-- method CellAccessibleParent::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentActivate ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m ()
cellAccessibleParentActivate _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_activate _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellAccessibleParent::edit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentEdit ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m ()
cellAccessibleParentEdit _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_edit _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellAccessibleParent::expand_collapse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentExpandCollapse ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m ()
cellAccessibleParentExpandCollapse _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_expand_collapse _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellAccessibleParent::get_cell_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Ptr Gdk.Rectangle -> -- cell_rect : TInterface "Gdk" "Rectangle"
IO ()
cellAccessibleParentGetCellArea ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
Gdk.Rectangle -> -- cell_rect
m ()
cellAccessibleParentGetCellArea _obj cell cell_rect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let cell_rect' = unsafeManagedPtrGetPtr cell_rect
gtk_cell_accessible_parent_get_cell_area _obj' cell' cell_rect'
touchManagedPtr _obj
touchManagedPtr cell
touchManagedPtr cell_rect
return ()
-- method CellAccessibleParent::get_cell_extents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- coord_type : TInterface "Atk" "CoordType"
IO ()
cellAccessibleParentGetCellExtents ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
Atk.CoordType -> -- coord_type
m ()
cellAccessibleParentGetCellExtents _obj cell x y width height coord_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let coord_type' = (fromIntegral . fromEnum) coord_type
gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coord_type'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellAccessibleParent::get_child_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO Int32
cellAccessibleParentGetChildIndex ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m Int32
cellAccessibleParentGetChildIndex _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_child_index _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return result
-- method CellAccessibleParent::get_renderer_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellRendererState"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_renderer_state" gtk_cell_accessible_parent_get_renderer_state ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO CUInt
cellAccessibleParentGetRendererState ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m [CellRendererState]
cellAccessibleParentGetRendererState _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_renderer_state _obj' cell'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr cell
return result'
-- method CellAccessibleParent::grab_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO CInt
cellAccessibleParentGrabFocus ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- cell
m Bool
cellAccessibleParentGrabFocus _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_grab_focus _obj' cell'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr cell
return result'
-- method CellAccessibleParent::update_relationset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Ptr Atk.RelationSet -> -- relationset : TInterface "Atk" "RelationSet"
IO ()
cellAccessibleParentUpdateRelationset ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) =>
a -> -- _obj
b -> -- cell
c -> -- relationset
m ()
cellAccessibleParentUpdateRelationset _obj cell relationset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let relationset' = unsafeManagedPtrCastPtr relationset
gtk_cell_accessible_parent_update_relationset _obj' cell' relationset'
touchManagedPtr _obj
touchManagedPtr cell
touchManagedPtr relationset
return ()
-- callback CellAllocCallback
cellAllocCallbackClosure :: CellAllocCallback -> IO Closure
cellAllocCallbackClosure cb = newCClosure =<< mkCellAllocCallback wrapped
where wrapped = cellAllocCallbackWrapper Nothing cb
type CellAllocCallbackC =
Ptr CellRenderer ->
Ptr Gdk.Rectangle ->
Ptr Gdk.Rectangle ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkCellAllocCallback :: CellAllocCallbackC -> IO (FunPtr CellAllocCallbackC)
type CellAllocCallback =
CellRenderer ->
Gdk.Rectangle ->
Gdk.Rectangle ->
IO Bool
noCellAllocCallback :: Maybe CellAllocCallback
noCellAllocCallback = Nothing
cellAllocCallbackWrapper ::
Maybe (Ptr (FunPtr (CellAllocCallbackC))) ->
CellAllocCallback ->
Ptr CellRenderer ->
Ptr Gdk.Rectangle ->
Ptr Gdk.Rectangle ->
Ptr () ->
IO CInt
cellAllocCallbackWrapper funptrptr _cb renderer cell_area cell_background _ = do
renderer' <- (newObject CellRenderer) renderer
cell_area' <- (newBoxed Gdk.Rectangle) cell_area
cell_background' <- (newBoxed Gdk.Rectangle) cell_background
result <- _cb renderer' cell_area' cell_background'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object CellArea
newtype CellArea = CellArea (ForeignPtr CellArea)
noCellArea :: Maybe CellArea
noCellArea = Nothing
foreign import ccall "gtk_cell_area_get_type"
c_gtk_cell_area_get_type :: IO GType
type instance ParentTypes CellArea = '[GObject.Object, Buildable, CellLayout]
instance GObject CellArea where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_area_get_type
class GObject o => CellAreaK o
instance (GObject o, IsDescendantOf CellArea o) => CellAreaK o
toCellArea :: CellAreaK o => o -> IO CellArea
toCellArea = unsafeCastTo CellArea
-- method CellArea::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_activate" gtk_cell_area_activate ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
CInt -> -- edit_only : TBasicType TBoolean
IO CInt
cellAreaActivate ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
Bool -> -- edit_only
m Bool
cellAreaActivate _obj context widget cell_area flags edit_only = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
let edit_only' = (fromIntegral . fromEnum) edit_only
result <- gtk_cell_area_activate _obj' context' widget' cell_area' flags' edit_only'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cell_area
return result'
-- method CellArea::activate_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_activate_cell" gtk_cell_area_activate_cell ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO CInt
cellAreaActivateCell ::
(MonadIO m, CellAreaK a, WidgetK b, CellRendererK c) =>
a -> -- _obj
b -> -- widget
c -> -- renderer
Gdk.Event -> -- event
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
m Bool
cellAreaActivateCell _obj widget renderer event cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let renderer' = unsafeManagedPtrCastPtr renderer
let event' = unsafeManagedPtrGetPtr event
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_area_activate_cell _obj' widget' renderer' event' cell_area' flags'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr widget
touchManagedPtr renderer
touchManagedPtr event
touchManagedPtr cell_area
return result'
-- method CellArea::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_add" gtk_cell_area_add ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO ()
cellAreaAdd ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m ()
cellAreaAdd _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
gtk_cell_area_add _obj' renderer'
touchManagedPtr _obj
touchManagedPtr renderer
return ()
-- method CellArea::add_focus_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_add_focus_sibling" gtk_cell_area_add_focus_sibling ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer"
IO ()
cellAreaAddFocusSibling ::
(MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) =>
a -> -- _obj
b -> -- renderer
c -> -- sibling
m ()
cellAreaAddFocusSibling _obj renderer sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let sibling' = unsafeManagedPtrCastPtr sibling
gtk_cell_area_add_focus_sibling _obj' renderer' sibling'
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr sibling
return ()
-- method CellArea::apply_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_apply_attributes" gtk_cell_area_apply_attributes ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
CInt -> -- is_expander : TBasicType TBoolean
CInt -> -- is_expanded : TBasicType TBoolean
IO ()
cellAreaApplyAttributes ::
(MonadIO m, CellAreaK a, TreeModelK b) =>
a -> -- _obj
b -> -- tree_model
TreeIter -> -- iter
Bool -> -- is_expander
Bool -> -- is_expanded
m ()
cellAreaApplyAttributes _obj tree_model iter is_expander is_expanded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tree_model' = unsafeManagedPtrCastPtr tree_model
let iter' = unsafeManagedPtrGetPtr iter
let is_expander' = (fromIntegral . fromEnum) is_expander
let is_expanded' = (fromIntegral . fromEnum) is_expanded
gtk_cell_area_apply_attributes _obj' tree_model' iter' is_expander' is_expanded'
touchManagedPtr _obj
touchManagedPtr tree_model
touchManagedPtr iter
return ()
-- method CellArea::attribute_connect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_attribute_connect" gtk_cell_area_attribute_connect ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
Int32 -> -- column : TBasicType TInt32
IO ()
cellAreaAttributeConnect ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
T.Text -> -- attribute
Int32 -> -- column
m ()
cellAreaAttributeConnect _obj renderer attribute column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
gtk_cell_area_attribute_connect _obj' renderer' attribute' column
touchManagedPtr _obj
touchManagedPtr renderer
freeMem attribute'
return ()
-- method CellArea::attribute_disconnect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_attribute_disconnect" gtk_cell_area_attribute_disconnect ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
IO ()
cellAreaAttributeDisconnect ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
T.Text -> -- attribute
m ()
cellAreaAttributeDisconnect _obj renderer attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
gtk_cell_area_attribute_disconnect _obj' renderer' attribute'
touchManagedPtr _obj
touchManagedPtr renderer
freeMem attribute'
return ()
-- method CellArea::attribute_get_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_attribute_get_column" gtk_cell_area_attribute_get_column ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
IO Int32
cellAreaAttributeGetColumn ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
T.Text -> -- attribute
m Int32
cellAreaAttributeGetColumn _obj renderer attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
result <- gtk_cell_area_attribute_get_column _obj' renderer' attribute'
touchManagedPtr _obj
touchManagedPtr renderer
freeMem attribute'
return result
-- method CellArea::cell_get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_cell_get_property" gtk_cell_area_cell_get_property ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
cellAreaCellGetProperty ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
T.Text -> -- property_name
GValue -> -- value
m ()
cellAreaCellGetProperty _obj renderer property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_cell_area_cell_get_property _obj' renderer' property_name' value'
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr value
freeMem property_name'
return ()
-- method CellArea::cell_set_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_cell_set_property" gtk_cell_area_cell_set_property ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
cellAreaCellSetProperty ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
T.Text -> -- property_name
GValue -> -- value
m ()
cellAreaCellSetProperty _obj renderer property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_cell_area_cell_set_property _obj' renderer' property_name' value'
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr value
freeMem property_name'
return ()
-- method CellArea::copy_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellAreaContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_copy_context" gtk_cell_area_copy_context ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
IO (Ptr CellAreaContext)
cellAreaCopyContext ::
(MonadIO m, CellAreaK a, CellAreaContextK b) =>
a -> -- _obj
b -> -- context
m CellAreaContext
cellAreaCopyContext _obj context = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
result <- gtk_cell_area_copy_context _obj' context'
checkUnexpectedReturnNULL "gtk_cell_area_copy_context" result
result' <- (wrapObject CellAreaContext) result
touchManagedPtr _obj
touchManagedPtr context
return result'
-- method CellArea::create_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellAreaContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_create_context" gtk_cell_area_create_context ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO (Ptr CellAreaContext)
cellAreaCreateContext ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m CellAreaContext
cellAreaCreateContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_create_context _obj'
checkUnexpectedReturnNULL "gtk_cell_area_create_context" result
result' <- (wrapObject CellAreaContext) result
touchManagedPtr _obj
return result'
-- method CellArea::event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_event" gtk_cell_area_event ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO Int32
cellAreaEvent ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Gdk.Event -> -- event
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
m Int32
cellAreaEvent _obj context widget event cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let event' = unsafeManagedPtrGetPtr event
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_area_event _obj' context' widget' event' cell_area' flags'
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr event
touchManagedPtr cell_area
return result
-- method CellArea::focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_focus" gtk_cell_area_focus ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
CUInt -> -- direction : TInterface "Gtk" "DirectionType"
IO CInt
cellAreaFocus ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
DirectionType -> -- direction
m Bool
cellAreaFocus _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
result <- gtk_cell_area_focus _obj' direction'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellArea::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_foreach" gtk_cell_area_foreach ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
FunPtr CellCallbackC -> -- callback : TInterface "Gtk" "CellCallback"
Ptr () -> -- callback_data : TBasicType TVoid
IO ()
cellAreaForeach ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
CellCallback -> -- callback
m ()
cellAreaForeach _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkCellCallback (cellCallbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_cell_area_foreach _obj' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
return ()
-- method CellArea::foreach_alloc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_foreach_alloc" gtk_cell_area_foreach_alloc ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
FunPtr CellAllocCallbackC -> -- callback : TInterface "Gtk" "CellAllocCallback"
Ptr () -> -- callback_data : TBasicType TVoid
IO ()
cellAreaForeachAlloc ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Gdk.Rectangle -> -- cell_area
Gdk.Rectangle -> -- background_area
CellAllocCallback -> -- callback
m ()
cellAreaForeachAlloc _obj context widget cell_area background_area callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let cell_area' = unsafeManagedPtrGetPtr cell_area
let background_area' = unsafeManagedPtrGetPtr background_area
callback' <- mkCellAllocCallback (cellAllocCallbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_cell_area_foreach_alloc _obj' context' widget' cell_area' background_area' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cell_area
touchManagedPtr background_area
return ()
-- method CellArea::get_cell_allocation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_cell_allocation" gtk_cell_area_get_cell_allocation ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle"
IO ()
cellAreaGetCellAllocation ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) =>
a -> -- _obj
b -> -- context
c -> -- widget
d -> -- renderer
Gdk.Rectangle -> -- cell_area
m (Gdk.Rectangle)
cellAreaGetCellAllocation _obj context widget renderer cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let renderer' = unsafeManagedPtrCastPtr renderer
let cell_area' = unsafeManagedPtrGetPtr cell_area
allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_cell_area_get_cell_allocation _obj' context' widget' renderer' cell_area' allocation
allocation' <- (wrapBoxed Gdk.Rectangle) allocation
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr renderer
touchManagedPtr cell_area
return allocation'
-- method CellArea::get_cell_at_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellRenderer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_cell_at_position" gtk_cell_area_get_cell_at_position ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr Gdk.Rectangle -> -- alloc_area : TInterface "Gdk" "Rectangle"
IO (Ptr CellRenderer)
cellAreaGetCellAtPosition ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Gdk.Rectangle -> -- cell_area
Int32 -> -- x
Int32 -> -- y
m (CellRenderer,Gdk.Rectangle)
cellAreaGetCellAtPosition _obj context widget cell_area x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let cell_area' = unsafeManagedPtrGetPtr cell_area
alloc_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_cell_area_get_cell_at_position _obj' context' widget' cell_area' x y alloc_area
checkUnexpectedReturnNULL "gtk_cell_area_get_cell_at_position" result
result' <- (newObject CellRenderer) result
alloc_area' <- (wrapBoxed Gdk.Rectangle) alloc_area
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cell_area
return (result', alloc_area')
-- method CellArea::get_current_path_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_current_path_string" gtk_cell_area_get_current_path_string ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO CString
cellAreaGetCurrentPathString ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m T.Text
cellAreaGetCurrentPathString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_get_current_path_string _obj'
checkUnexpectedReturnNULL "gtk_cell_area_get_current_path_string" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method CellArea::get_edit_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellEditable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_edit_widget" gtk_cell_area_get_edit_widget ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO (Ptr CellEditable)
cellAreaGetEditWidget ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m CellEditable
cellAreaGetEditWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_get_edit_widget _obj'
checkUnexpectedReturnNULL "gtk_cell_area_get_edit_widget" result
result' <- (newObject CellEditable) result
touchManagedPtr _obj
return result'
-- method CellArea::get_edited_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellRenderer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_edited_cell" gtk_cell_area_get_edited_cell ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO (Ptr CellRenderer)
cellAreaGetEditedCell ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m CellRenderer
cellAreaGetEditedCell _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_get_edited_cell _obj'
checkUnexpectedReturnNULL "gtk_cell_area_get_edited_cell" result
result' <- (newObject CellRenderer) result
touchManagedPtr _obj
return result'
-- method CellArea::get_focus_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellRenderer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_focus_cell" gtk_cell_area_get_focus_cell ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO (Ptr CellRenderer)
cellAreaGetFocusCell ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m CellRenderer
cellAreaGetFocusCell _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_get_focus_cell _obj'
checkUnexpectedReturnNULL "gtk_cell_area_get_focus_cell" result
result' <- (newObject CellRenderer) result
touchManagedPtr _obj
return result'
-- method CellArea::get_focus_from_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellRenderer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_focus_from_sibling" gtk_cell_area_get_focus_from_sibling ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO (Ptr CellRenderer)
cellAreaGetFocusFromSibling ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m CellRenderer
cellAreaGetFocusFromSibling _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_get_focus_from_sibling _obj' renderer'
checkUnexpectedReturnNULL "gtk_cell_area_get_focus_from_sibling" result
result' <- (newObject CellRenderer) result
touchManagedPtr _obj
touchManagedPtr renderer
return result'
-- method CellArea::get_focus_siblings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "CellRenderer")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_focus_siblings" gtk_cell_area_get_focus_siblings ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO (Ptr (GList (Ptr CellRenderer)))
cellAreaGetFocusSiblings ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m [CellRenderer]
cellAreaGetFocusSiblings _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_get_focus_siblings _obj' renderer'
checkUnexpectedReturnNULL "gtk_cell_area_get_focus_siblings" result
result' <- unpackGList result
result'' <- mapM (newObject CellRenderer) result'
touchManagedPtr _obj
touchManagedPtr renderer
return result''
-- method CellArea::get_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_preferred_height" gtk_cell_area_get_preferred_height ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellAreaGetPreferredHeight ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
m (Int32,Int32)
cellAreaGetPreferredHeight _obj context widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_height _obj' context' widget' minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method CellArea::get_preferred_height_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_preferred_height_for_width" gtk_cell_area_get_preferred_height_for_width ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellAreaGetPreferredHeightForWidth ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Int32 -> -- width
m (Int32,Int32)
cellAreaGetPreferredHeightForWidth _obj context widget width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_height_for_width _obj' context' widget' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method CellArea::get_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_preferred_width" gtk_cell_area_get_preferred_width ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellAreaGetPreferredWidth ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
m (Int32,Int32)
cellAreaGetPreferredWidth _obj context widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_width _obj' context' widget' minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method CellArea::get_preferred_width_for_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_preferred_width_for_height" gtk_cell_area_get_preferred_width_for_height ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellAreaGetPreferredWidthForHeight ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Int32 -> -- height
m (Int32,Int32)
cellAreaGetPreferredWidthForHeight _obj context widget height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_width_for_height _obj' context' widget' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method CellArea::get_request_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeRequestMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_get_request_mode" gtk_cell_area_get_request_mode ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO CUInt
cellAreaGetRequestMode ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m SizeRequestMode
cellAreaGetRequestMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_get_request_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method CellArea::has_renderer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_has_renderer" gtk_cell_area_has_renderer ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO CInt
cellAreaHasRenderer ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m Bool
cellAreaHasRenderer _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_has_renderer _obj' renderer'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr renderer
return result'
-- method CellArea::inner_cell_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_inner_cell_area" gtk_cell_area_inner_cell_area ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- inner_area : TInterface "Gdk" "Rectangle"
IO ()
cellAreaInnerCellArea ::
(MonadIO m, CellAreaK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Gdk.Rectangle -> -- cell_area
m (Gdk.Rectangle)
cellAreaInnerCellArea _obj widget cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let cell_area' = unsafeManagedPtrGetPtr cell_area
inner_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_cell_area_inner_cell_area _obj' widget' cell_area' inner_area
inner_area' <- (wrapBoxed Gdk.Rectangle) inner_area
touchManagedPtr _obj
touchManagedPtr widget
touchManagedPtr cell_area
return inner_area'
-- method CellArea::is_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_is_activatable" gtk_cell_area_is_activatable ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
IO CInt
cellAreaIsActivatable ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
m Bool
cellAreaIsActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_is_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellArea::is_focus_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_is_focus_sibling" gtk_cell_area_is_focus_sibling ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer"
IO CInt
cellAreaIsFocusSibling ::
(MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) =>
a -> -- _obj
b -> -- renderer
c -> -- sibling
m Bool
cellAreaIsFocusSibling _obj renderer sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let sibling' = unsafeManagedPtrCastPtr sibling
result <- gtk_cell_area_is_focus_sibling _obj' renderer' sibling'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr sibling
return result'
-- method CellArea::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_remove" gtk_cell_area_remove ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO ()
cellAreaRemove ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m ()
cellAreaRemove _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
gtk_cell_area_remove _obj' renderer'
touchManagedPtr _obj
touchManagedPtr renderer
return ()
-- method CellArea::remove_focus_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_remove_focus_sibling" gtk_cell_area_remove_focus_sibling ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer"
IO ()
cellAreaRemoveFocusSibling ::
(MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) =>
a -> -- _obj
b -> -- renderer
c -> -- sibling
m ()
cellAreaRemoveFocusSibling _obj renderer sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let sibling' = unsafeManagedPtrCastPtr sibling
gtk_cell_area_remove_focus_sibling _obj' renderer' sibling'
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr sibling
return ()
-- method CellArea::render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_render" gtk_cell_area_render ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
CInt -> -- paint_focus : TBasicType TBoolean
IO ()
cellAreaRender ::
(MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) =>
a -> -- _obj
b -> -- context
c -> -- widget
Cairo.Context -> -- cr
Gdk.Rectangle -> -- background_area
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
Bool -> -- paint_focus
m ()
cellAreaRender _obj context widget cr background_area cell_area flags paint_focus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
let cr' = unsafeManagedPtrGetPtr cr
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
let paint_focus' = (fromIntegral . fromEnum) paint_focus
gtk_cell_area_render _obj' context' widget' cr' background_area' cell_area' flags' paint_focus'
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cr
touchManagedPtr background_area
touchManagedPtr cell_area
return ()
-- method CellArea::request_renderer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_request_renderer" gtk_cell_area_request_renderer ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- for_size : TBasicType TInt32
Ptr Int32 -> -- minimum_size : TBasicType TInt32
Ptr Int32 -> -- natural_size : TBasicType TInt32
IO ()
cellAreaRequestRenderer ::
(MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) =>
a -> -- _obj
b -> -- renderer
Orientation -> -- orientation
c -> -- widget
Int32 -> -- for_size
m (Int32,Int32)
cellAreaRequestRenderer _obj renderer orientation widget for_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let orientation' = (fromIntegral . fromEnum) orientation
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- allocMem :: IO (Ptr Int32)
natural_size <- allocMem :: IO (Ptr Int32)
gtk_cell_area_request_renderer _obj' renderer' orientation' widget' for_size minimum_size natural_size
minimum_size' <- peek minimum_size
natural_size' <- peek natural_size
touchManagedPtr _obj
touchManagedPtr renderer
touchManagedPtr widget
freeMem minimum_size
freeMem natural_size
return (minimum_size', natural_size')
-- method CellArea::set_focus_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_set_focus_cell" gtk_cell_area_set_focus_cell ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO ()
cellAreaSetFocusCell ::
(MonadIO m, CellAreaK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
m ()
cellAreaSetFocusCell _obj renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
gtk_cell_area_set_focus_cell _obj' renderer'
touchManagedPtr _obj
touchManagedPtr renderer
return ()
-- method CellArea::stop_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_stop_editing" gtk_cell_area_stop_editing ::
Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea"
CInt -> -- canceled : TBasicType TBoolean
IO ()
cellAreaStopEditing ::
(MonadIO m, CellAreaK a) =>
a -> -- _obj
Bool -> -- canceled
m ()
cellAreaStopEditing _obj canceled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let canceled' = (fromIntegral . fromEnum) canceled
gtk_cell_area_stop_editing _obj' canceled'
touchManagedPtr _obj
return ()
-- signal CellArea::add-editable
type CellAreaAddEditableCallback =
CellRenderer ->
CellEditable ->
Gdk.Rectangle ->
T.Text ->
IO ()
noCellAreaAddEditableCallback :: Maybe CellAreaAddEditableCallback
noCellAreaAddEditableCallback = Nothing
type CellAreaAddEditableCallbackC =
Ptr () -> -- object
Ptr CellRenderer ->
Ptr CellEditable ->
Ptr Gdk.Rectangle ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellAreaAddEditableCallback :: CellAreaAddEditableCallbackC -> IO (FunPtr CellAreaAddEditableCallbackC)
cellAreaAddEditableClosure :: CellAreaAddEditableCallback -> IO Closure
cellAreaAddEditableClosure cb = newCClosure =<< mkCellAreaAddEditableCallback wrapped
where wrapped = cellAreaAddEditableCallbackWrapper cb
cellAreaAddEditableCallbackWrapper ::
CellAreaAddEditableCallback ->
Ptr () ->
Ptr CellRenderer ->
Ptr CellEditable ->
Ptr Gdk.Rectangle ->
CString ->
Ptr () ->
IO ()
cellAreaAddEditableCallbackWrapper _cb _ renderer editable cell_area path _ = do
renderer' <- (newObject CellRenderer) renderer
editable' <- (newObject CellEditable) editable
cell_area' <- (newBoxed Gdk.Rectangle) cell_area
path' <- cstringToText path
_cb renderer' editable' cell_area' path'
onCellAreaAddEditable :: (GObject a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId
onCellAreaAddEditable obj cb = liftIO $ connectCellAreaAddEditable obj cb SignalConnectBefore
afterCellAreaAddEditable :: (GObject a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId
afterCellAreaAddEditable obj cb = connectCellAreaAddEditable obj cb SignalConnectAfter
connectCellAreaAddEditable :: (GObject a, MonadIO m) =>
a -> CellAreaAddEditableCallback -> SignalConnectMode -> m SignalHandlerId
connectCellAreaAddEditable obj cb after = liftIO $ do
cb' <- mkCellAreaAddEditableCallback (cellAreaAddEditableCallbackWrapper cb)
connectSignalFunPtr obj "add-editable" cb' after
-- signal CellArea::apply-attributes
type CellAreaApplyAttributesCallback =
TreeModel ->
TreeIter ->
Bool ->
Bool ->
IO ()
noCellAreaApplyAttributesCallback :: Maybe CellAreaApplyAttributesCallback
noCellAreaApplyAttributesCallback = Nothing
type CellAreaApplyAttributesCallbackC =
Ptr () -> -- object
Ptr TreeModel ->
Ptr TreeIter ->
CInt ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellAreaApplyAttributesCallback :: CellAreaApplyAttributesCallbackC -> IO (FunPtr CellAreaApplyAttributesCallbackC)
cellAreaApplyAttributesClosure :: CellAreaApplyAttributesCallback -> IO Closure
cellAreaApplyAttributesClosure cb = newCClosure =<< mkCellAreaApplyAttributesCallback wrapped
where wrapped = cellAreaApplyAttributesCallbackWrapper cb
cellAreaApplyAttributesCallbackWrapper ::
CellAreaApplyAttributesCallback ->
Ptr () ->
Ptr TreeModel ->
Ptr TreeIter ->
CInt ->
CInt ->
Ptr () ->
IO ()
cellAreaApplyAttributesCallbackWrapper _cb _ model iter is_expander is_expanded _ = do
model' <- (newObject TreeModel) model
iter' <- (newBoxed TreeIter) iter
let is_expander' = (/= 0) is_expander
let is_expanded' = (/= 0) is_expanded
_cb model' iter' is_expander' is_expanded'
onCellAreaApplyAttributes :: (GObject a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
onCellAreaApplyAttributes obj cb = liftIO $ connectCellAreaApplyAttributes obj cb SignalConnectBefore
afterCellAreaApplyAttributes :: (GObject a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
afterCellAreaApplyAttributes obj cb = connectCellAreaApplyAttributes obj cb SignalConnectAfter
connectCellAreaApplyAttributes :: (GObject a, MonadIO m) =>
a -> CellAreaApplyAttributesCallback -> SignalConnectMode -> m SignalHandlerId
connectCellAreaApplyAttributes obj cb after = liftIO $ do
cb' <- mkCellAreaApplyAttributesCallback (cellAreaApplyAttributesCallbackWrapper cb)
connectSignalFunPtr obj "apply-attributes" cb' after
-- signal CellArea::focus-changed
type CellAreaFocusChangedCallback =
CellRenderer ->
T.Text ->
IO ()
noCellAreaFocusChangedCallback :: Maybe CellAreaFocusChangedCallback
noCellAreaFocusChangedCallback = Nothing
type CellAreaFocusChangedCallbackC =
Ptr () -> -- object
Ptr CellRenderer ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellAreaFocusChangedCallback :: CellAreaFocusChangedCallbackC -> IO (FunPtr CellAreaFocusChangedCallbackC)
cellAreaFocusChangedClosure :: CellAreaFocusChangedCallback -> IO Closure
cellAreaFocusChangedClosure cb = newCClosure =<< mkCellAreaFocusChangedCallback wrapped
where wrapped = cellAreaFocusChangedCallbackWrapper cb
cellAreaFocusChangedCallbackWrapper ::
CellAreaFocusChangedCallback ->
Ptr () ->
Ptr CellRenderer ->
CString ->
Ptr () ->
IO ()
cellAreaFocusChangedCallbackWrapper _cb _ renderer path _ = do
renderer' <- (newObject CellRenderer) renderer
path' <- cstringToText path
_cb renderer' path'
onCellAreaFocusChanged :: (GObject a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId
onCellAreaFocusChanged obj cb = liftIO $ connectCellAreaFocusChanged obj cb SignalConnectBefore
afterCellAreaFocusChanged :: (GObject a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId
afterCellAreaFocusChanged obj cb = connectCellAreaFocusChanged obj cb SignalConnectAfter
connectCellAreaFocusChanged :: (GObject a, MonadIO m) =>
a -> CellAreaFocusChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellAreaFocusChanged obj cb after = liftIO $ do
cb' <- mkCellAreaFocusChangedCallback (cellAreaFocusChangedCallbackWrapper cb)
connectSignalFunPtr obj "focus-changed" cb' after
-- signal CellArea::remove-editable
type CellAreaRemoveEditableCallback =
CellRenderer ->
CellEditable ->
IO ()
noCellAreaRemoveEditableCallback :: Maybe CellAreaRemoveEditableCallback
noCellAreaRemoveEditableCallback = Nothing
type CellAreaRemoveEditableCallbackC =
Ptr () -> -- object
Ptr CellRenderer ->
Ptr CellEditable ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellAreaRemoveEditableCallback :: CellAreaRemoveEditableCallbackC -> IO (FunPtr CellAreaRemoveEditableCallbackC)
cellAreaRemoveEditableClosure :: CellAreaRemoveEditableCallback -> IO Closure
cellAreaRemoveEditableClosure cb = newCClosure =<< mkCellAreaRemoveEditableCallback wrapped
where wrapped = cellAreaRemoveEditableCallbackWrapper cb
cellAreaRemoveEditableCallbackWrapper ::
CellAreaRemoveEditableCallback ->
Ptr () ->
Ptr CellRenderer ->
Ptr CellEditable ->
Ptr () ->
IO ()
cellAreaRemoveEditableCallbackWrapper _cb _ renderer editable _ = do
renderer' <- (newObject CellRenderer) renderer
editable' <- (newObject CellEditable) editable
_cb renderer' editable'
onCellAreaRemoveEditable :: (GObject a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
onCellAreaRemoveEditable obj cb = liftIO $ connectCellAreaRemoveEditable obj cb SignalConnectBefore
afterCellAreaRemoveEditable :: (GObject a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
afterCellAreaRemoveEditable obj cb = connectCellAreaRemoveEditable obj cb SignalConnectAfter
connectCellAreaRemoveEditable :: (GObject a, MonadIO m) =>
a -> CellAreaRemoveEditableCallback -> SignalConnectMode -> m SignalHandlerId
connectCellAreaRemoveEditable obj cb after = liftIO $ do
cb' <- mkCellAreaRemoveEditableCallback (cellAreaRemoveEditableCallbackWrapper cb)
connectSignalFunPtr obj "remove-editable" cb' after
-- object CellAreaBox
newtype CellAreaBox = CellAreaBox (ForeignPtr CellAreaBox)
noCellAreaBox :: Maybe CellAreaBox
noCellAreaBox = Nothing
foreign import ccall "gtk_cell_area_box_get_type"
c_gtk_cell_area_box_get_type :: IO GType
type instance ParentTypes CellAreaBox = '[CellArea, GObject.Object, Buildable, CellLayout, Orientable]
instance GObject CellAreaBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_area_box_get_type
class GObject o => CellAreaBoxK o
instance (GObject o, IsDescendantOf CellAreaBox o) => CellAreaBoxK o
toCellAreaBox :: CellAreaBoxK o => o -> IO CellAreaBox
toCellAreaBox = unsafeCastTo CellAreaBox
-- method CellAreaBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellAreaBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_box_new" gtk_cell_area_box_new ::
IO (Ptr CellAreaBox)
cellAreaBoxNew ::
(MonadIO m) =>
m CellAreaBox
cellAreaBoxNew = liftIO $ do
result <- gtk_cell_area_box_new
checkUnexpectedReturnNULL "gtk_cell_area_box_new" result
result' <- (newObject CellAreaBox) result
return result'
-- method CellAreaBox::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_box_get_spacing" gtk_cell_area_box_get_spacing ::
Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox"
IO Int32
cellAreaBoxGetSpacing ::
(MonadIO m, CellAreaBoxK a) =>
a -> -- _obj
m Int32
cellAreaBoxGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_box_get_spacing _obj'
touchManagedPtr _obj
return result
-- method CellAreaBox::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_box_pack_end" gtk_cell_area_box_pack_end ::
Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- align : TBasicType TBoolean
CInt -> -- fixed : TBasicType TBoolean
IO ()
cellAreaBoxPackEnd ::
(MonadIO m, CellAreaBoxK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
Bool -> -- expand
Bool -> -- align
Bool -> -- fixed
m ()
cellAreaBoxPackEnd _obj renderer expand align fixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let expand' = (fromIntegral . fromEnum) expand
let align' = (fromIntegral . fromEnum) align
let fixed' = (fromIntegral . fromEnum) fixed
gtk_cell_area_box_pack_end _obj' renderer' expand' align' fixed'
touchManagedPtr _obj
touchManagedPtr renderer
return ()
-- method CellAreaBox::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_box_pack_start" gtk_cell_area_box_pack_start ::
Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox"
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- align : TBasicType TBoolean
CInt -> -- fixed : TBasicType TBoolean
IO ()
cellAreaBoxPackStart ::
(MonadIO m, CellAreaBoxK a, CellRendererK b) =>
a -> -- _obj
b -> -- renderer
Bool -> -- expand
Bool -> -- align
Bool -> -- fixed
m ()
cellAreaBoxPackStart _obj renderer expand align fixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let renderer' = unsafeManagedPtrCastPtr renderer
let expand' = (fromIntegral . fromEnum) expand
let align' = (fromIntegral . fromEnum) align
let fixed' = (fromIntegral . fromEnum) fixed
gtk_cell_area_box_pack_start _obj' renderer' expand' align' fixed'
touchManagedPtr _obj
touchManagedPtr renderer
return ()
-- method CellAreaBox::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing ::
Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox"
Int32 -> -- spacing : TBasicType TInt32
IO ()
cellAreaBoxSetSpacing ::
(MonadIO m, CellAreaBoxK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
cellAreaBoxSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_area_box_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- object CellAreaContext
newtype CellAreaContext = CellAreaContext (ForeignPtr CellAreaContext)
noCellAreaContext :: Maybe CellAreaContext
noCellAreaContext = Nothing
foreign import ccall "gtk_cell_area_context_get_type"
c_gtk_cell_area_context_get_type :: IO GType
type instance ParentTypes CellAreaContext = '[GObject.Object]
instance GObject CellAreaContext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_cell_area_context_get_type
class GObject o => CellAreaContextK o
instance (GObject o, IsDescendantOf CellAreaContext o) => CellAreaContextK o
toCellAreaContext :: CellAreaContextK o => o -> IO CellAreaContext
toCellAreaContext = unsafeCastTo CellAreaContext
-- method CellAreaContext::allocate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
cellAreaContextAllocate ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
cellAreaContextAllocate _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_area_context_allocate _obj' width height
touchManagedPtr _obj
return ()
-- method CellAreaContext::get_allocation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_allocation" gtk_cell_area_context_get_allocation ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
cellAreaContextGetAllocation ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
m (Int32,Int32)
cellAreaContextGetAllocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_allocation _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method CellAreaContext::get_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellArea"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_area" gtk_cell_area_context_get_area ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
IO (Ptr CellArea)
cellAreaContextGetArea ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
m CellArea
cellAreaContextGetArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_area_context_get_area _obj'
checkUnexpectedReturnNULL "gtk_cell_area_context_get_area" result
result' <- (newObject CellArea) result
touchManagedPtr _obj
return result'
-- method CellAreaContext::get_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_preferred_height" gtk_cell_area_context_get_preferred_height ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellAreaContextGetPreferredHeight ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
m (Int32,Int32)
cellAreaContextGetPreferredHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_height _obj' minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method CellAreaContext::get_preferred_height_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_preferred_height_for_width" gtk_cell_area_context_get_preferred_height_for_width ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellAreaContextGetPreferredHeightForWidth ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
Int32 -> -- width
m (Int32,Int32)
cellAreaContextGetPreferredHeightForWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_height_for_width _obj' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method CellAreaContext::get_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_preferred_width" gtk_cell_area_context_get_preferred_width ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellAreaContextGetPreferredWidth ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
m (Int32,Int32)
cellAreaContextGetPreferredWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_width _obj' minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method CellAreaContext::get_preferred_width_for_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_get_preferred_width_for_height" gtk_cell_area_context_get_preferred_width_for_height ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellAreaContextGetPreferredWidthForHeight ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
Int32 -> -- height
m (Int32,Int32)
cellAreaContextGetPreferredWidthForHeight _obj height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_width_for_height _obj' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method CellAreaContext::push_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Int32 -> -- minimum_height : TBasicType TInt32
Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellAreaContextPushPreferredHeight ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
Int32 -> -- minimum_height
Int32 -> -- natural_height
m ()
cellAreaContextPushPreferredHeight _obj minimum_height natural_height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_area_context_push_preferred_height _obj' minimum_height natural_height
touchManagedPtr _obj
return ()
-- method CellAreaContext::push_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
Int32 -> -- minimum_width : TBasicType TInt32
Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellAreaContextPushPreferredWidth ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
Int32 -> -- minimum_width
Int32 -> -- natural_width
m ()
cellAreaContextPushPreferredWidth _obj minimum_width natural_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_area_context_push_preferred_width _obj' minimum_width natural_width
touchManagedPtr _obj
return ()
-- method CellAreaContext::reset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_area_context_reset" gtk_cell_area_context_reset ::
Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext"
IO ()
cellAreaContextReset ::
(MonadIO m, CellAreaContextK a) =>
a -> -- _obj
m ()
cellAreaContextReset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_area_context_reset _obj'
touchManagedPtr _obj
return ()
-- callback CellCallback
cellCallbackClosure :: CellCallback -> IO Closure
cellCallbackClosure cb = newCClosure =<< mkCellCallback wrapped
where wrapped = cellCallbackWrapper Nothing cb
type CellCallbackC =
Ptr CellRenderer ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkCellCallback :: CellCallbackC -> IO (FunPtr CellCallbackC)
type CellCallback =
CellRenderer ->
IO Bool
noCellCallback :: Maybe CellCallback
noCellCallback = Nothing
cellCallbackWrapper ::
Maybe (Ptr (FunPtr (CellCallbackC))) ->
CellCallback ->
Ptr CellRenderer ->
Ptr () ->
IO CInt
cellCallbackWrapper funptrptr _cb renderer _ = do
renderer' <- (newObject CellRenderer) renderer
result <- _cb renderer'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- interface CellEditable
newtype CellEditable = CellEditable (ForeignPtr CellEditable)
noCellEditable :: Maybe CellEditable
noCellEditable = Nothing
foreign import ccall "gtk_cell_editable_get_type"
c_gtk_cell_editable_get_type :: IO GType
type instance ParentTypes CellEditable = '[Widget, GObject.Object]
instance GObject CellEditable where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_editable_get_type
class GObject o => CellEditableK o
instance (GObject o, IsDescendantOf CellEditable o) => CellEditableK o
toCellEditable :: CellEditableK o => o -> IO CellEditable
toCellEditable = unsafeCastTo CellEditable
-- method CellEditable::editing_done
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_editable_editing_done" gtk_cell_editable_editing_done ::
Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable"
IO ()
cellEditableEditingDone ::
(MonadIO m, CellEditableK a) =>
a -> -- _obj
m ()
cellEditableEditingDone _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_editable_editing_done _obj'
touchManagedPtr _obj
return ()
-- method CellEditable::remove_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_editable_remove_widget" gtk_cell_editable_remove_widget ::
Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable"
IO ()
cellEditableRemoveWidget ::
(MonadIO m, CellEditableK a) =>
a -> -- _obj
m ()
cellEditableRemoveWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_editable_remove_widget _obj'
touchManagedPtr _obj
return ()
-- method CellEditable::start_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_editable_start_editing" gtk_cell_editable_start_editing ::
Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO ()
cellEditableStartEditing ::
(MonadIO m, CellEditableK a) =>
a -> -- _obj
Maybe (Gdk.Event) -> -- event
m ()
cellEditableStartEditing _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeEvent <- case event of
Nothing -> return nullPtr
Just jEvent -> do
let jEvent' = unsafeManagedPtrGetPtr jEvent
return jEvent'
gtk_cell_editable_start_editing _obj' maybeEvent
touchManagedPtr _obj
whenJust event touchManagedPtr
return ()
-- signal CellEditable::editing-done
type CellEditableEditingDoneCallback =
IO ()
noCellEditableEditingDoneCallback :: Maybe CellEditableEditingDoneCallback
noCellEditableEditingDoneCallback = Nothing
type CellEditableEditingDoneCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellEditableEditingDoneCallback :: CellEditableEditingDoneCallbackC -> IO (FunPtr CellEditableEditingDoneCallbackC)
cellEditableEditingDoneClosure :: CellEditableEditingDoneCallback -> IO Closure
cellEditableEditingDoneClosure cb = newCClosure =<< mkCellEditableEditingDoneCallback wrapped
where wrapped = cellEditableEditingDoneCallbackWrapper cb
cellEditableEditingDoneCallbackWrapper ::
CellEditableEditingDoneCallback ->
Ptr () ->
Ptr () ->
IO ()
cellEditableEditingDoneCallbackWrapper _cb _ _ = do
_cb
onCellEditableEditingDone :: (GObject a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId
onCellEditableEditingDone obj cb = liftIO $ connectCellEditableEditingDone obj cb SignalConnectBefore
afterCellEditableEditingDone :: (GObject a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId
afterCellEditableEditingDone obj cb = connectCellEditableEditingDone obj cb SignalConnectAfter
connectCellEditableEditingDone :: (GObject a, MonadIO m) =>
a -> CellEditableEditingDoneCallback -> SignalConnectMode -> m SignalHandlerId
connectCellEditableEditingDone obj cb after = liftIO $ do
cb' <- mkCellEditableEditingDoneCallback (cellEditableEditingDoneCallbackWrapper cb)
connectSignalFunPtr obj "editing-done" cb' after
-- signal CellEditable::remove-widget
type CellEditableRemoveWidgetCallback =
IO ()
noCellEditableRemoveWidgetCallback :: Maybe CellEditableRemoveWidgetCallback
noCellEditableRemoveWidgetCallback = Nothing
type CellEditableRemoveWidgetCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellEditableRemoveWidgetCallback :: CellEditableRemoveWidgetCallbackC -> IO (FunPtr CellEditableRemoveWidgetCallbackC)
cellEditableRemoveWidgetClosure :: CellEditableRemoveWidgetCallback -> IO Closure
cellEditableRemoveWidgetClosure cb = newCClosure =<< mkCellEditableRemoveWidgetCallback wrapped
where wrapped = cellEditableRemoveWidgetCallbackWrapper cb
cellEditableRemoveWidgetCallbackWrapper ::
CellEditableRemoveWidgetCallback ->
Ptr () ->
Ptr () ->
IO ()
cellEditableRemoveWidgetCallbackWrapper _cb _ _ = do
_cb
onCellEditableRemoveWidget :: (GObject a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId
onCellEditableRemoveWidget obj cb = liftIO $ connectCellEditableRemoveWidget obj cb SignalConnectBefore
afterCellEditableRemoveWidget :: (GObject a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId
afterCellEditableRemoveWidget obj cb = connectCellEditableRemoveWidget obj cb SignalConnectAfter
connectCellEditableRemoveWidget :: (GObject a, MonadIO m) =>
a -> CellEditableRemoveWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectCellEditableRemoveWidget obj cb after = liftIO $ do
cb' <- mkCellEditableRemoveWidgetCallback (cellEditableRemoveWidgetCallbackWrapper cb)
connectSignalFunPtr obj "remove-widget" cb' after
-- interface CellLayout
newtype CellLayout = CellLayout (ForeignPtr CellLayout)
noCellLayout :: Maybe CellLayout
noCellLayout = Nothing
foreign import ccall "gtk_cell_layout_get_type"
c_gtk_cell_layout_get_type :: IO GType
type instance ParentTypes CellLayout = '[GObject.Object]
instance GObject CellLayout where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_cell_layout_get_type
class GObject o => CellLayoutK o
instance (GObject o, IsDescendantOf CellLayout o) => CellLayoutK o
toCellLayout :: CellLayoutK o => o -> IO CellLayout
toCellLayout = unsafeCastTo CellLayout
-- method CellLayout::add_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_add_attribute" gtk_cell_layout_add_attribute ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
Int32 -> -- column : TBasicType TInt32
IO ()
cellLayoutAddAttribute ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
T.Text -> -- attribute
Int32 -> -- column
m ()
cellLayoutAddAttribute _obj cell attribute column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
attribute' <- textToCString attribute
gtk_cell_layout_add_attribute _obj' cell' attribute' column
touchManagedPtr _obj
touchManagedPtr cell
freeMem attribute'
return ()
-- method CellLayout::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_clear" gtk_cell_layout_clear ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
IO ()
cellLayoutClear ::
(MonadIO m, CellLayoutK a) =>
a -> -- _obj
m ()
cellLayoutClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_layout_clear _obj'
touchManagedPtr _obj
return ()
-- method CellLayout::clear_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_clear_attributes" gtk_cell_layout_clear_attributes ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
IO ()
cellLayoutClearAttributes ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
m ()
cellLayoutClearAttributes _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_layout_clear_attributes _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellLayout::get_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellArea"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_get_area" gtk_cell_layout_get_area ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
IO (Ptr CellArea)
cellLayoutGetArea ::
(MonadIO m, CellLayoutK a) =>
a -> -- _obj
m CellArea
cellLayoutGetArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_layout_get_area _obj'
checkUnexpectedReturnNULL "gtk_cell_layout_get_area" result
result' <- (newObject CellArea) result
touchManagedPtr _obj
return result'
-- method CellLayout::get_cells
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "CellRenderer")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_get_cells" gtk_cell_layout_get_cells ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
IO (Ptr (GList (Ptr CellRenderer)))
cellLayoutGetCells ::
(MonadIO m, CellLayoutK a) =>
a -> -- _obj
m [CellRenderer]
cellLayoutGetCells _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_layout_get_cells _obj'
checkUnexpectedReturnNULL "gtk_cell_layout_get_cells" result
result' <- unpackGList result
result'' <- mapM (newObject CellRenderer) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method CellLayout::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_pack_end" gtk_cell_layout_pack_end ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
cellLayoutPackEnd ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
cellLayoutPackEnd _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_cell_layout_pack_end _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellLayout::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_pack_start" gtk_cell_layout_pack_start ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
cellLayoutPackStart ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
cellLayoutPackStart _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_cell_layout_pack_start _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellLayout::reorder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_reorder" gtk_cell_layout_reorder ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
Int32 -> -- position : TBasicType TInt32
IO ()
cellLayoutReorder ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Int32 -> -- position
m ()
cellLayoutReorder _obj cell position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_layout_reorder _obj' cell' position
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method CellLayout::set_cell_data_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_layout_set_cell_data_func" gtk_cell_layout_set_cell_data_func ::
Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
FunPtr CellLayoutDataFuncC -> -- func : TInterface "Gtk" "CellLayoutDataFunc"
Ptr () -> -- func_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
cellLayoutSetCellDataFunc ::
(MonadIO m, CellLayoutK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Maybe (CellLayoutDataFunc) -> -- func
m ()
cellLayoutSetCellDataFunc _obj cell func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkCellLayoutDataFunc (cellLayoutDataFuncWrapper Nothing jFunc)
return jFunc'
let func_data = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_cell_layout_set_cell_data_func _obj' cell' maybeFunc func_data destroy
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- callback CellLayoutDataFunc
cellLayoutDataFuncClosure :: CellLayoutDataFunc -> IO Closure
cellLayoutDataFuncClosure cb = newCClosure =<< mkCellLayoutDataFunc wrapped
where wrapped = cellLayoutDataFuncWrapper Nothing cb
type CellLayoutDataFuncC =
Ptr CellLayout ->
Ptr CellRenderer ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCellLayoutDataFunc :: CellLayoutDataFuncC -> IO (FunPtr CellLayoutDataFuncC)
type CellLayoutDataFunc =
CellLayout ->
CellRenderer ->
TreeModel ->
TreeIter ->
IO ()
noCellLayoutDataFunc :: Maybe CellLayoutDataFunc
noCellLayoutDataFunc = Nothing
cellLayoutDataFuncWrapper ::
Maybe (Ptr (FunPtr (CellLayoutDataFuncC))) ->
CellLayoutDataFunc ->
Ptr CellLayout ->
Ptr CellRenderer ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO ()
cellLayoutDataFuncWrapper funptrptr _cb cell_layout cell tree_model iter _ = do
cell_layout' <- (newObject CellLayout) cell_layout
cell' <- (newObject CellRenderer) cell
tree_model' <- (newObject TreeModel) tree_model
iter' <- (newBoxed TreeIter) iter
_cb cell_layout' cell' tree_model' iter'
maybeReleaseFunPtr funptrptr
-- object CellRenderer
newtype CellRenderer = CellRenderer (ForeignPtr CellRenderer)
noCellRenderer :: Maybe CellRenderer
noCellRenderer = Nothing
foreign import ccall "gtk_cell_renderer_get_type"
c_gtk_cell_renderer_get_type :: IO GType
type instance ParentTypes CellRenderer = '[GObject.Object]
instance GObject CellRenderer where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_get_type
class GObject o => CellRendererK o
instance (GObject o, IsDescendantOf CellRenderer o) => CellRendererK o
toCellRenderer :: CellRendererK o => o -> IO CellRenderer
toCellRenderer = unsafeCastTo CellRenderer
-- method CellRenderer::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_activate" gtk_cell_renderer_activate ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- path : TBasicType TUTF8
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO CInt
cellRendererActivate ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
Gdk.Event -> -- event
b -> -- widget
T.Text -> -- path
Gdk.Rectangle -> -- background_area
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
m Bool
cellRendererActivate _obj event widget path background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_activate _obj' event' widget' path' background_area' cell_area' flags'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
freeMem path'
return result'
-- method CellRenderer::get_aligned_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_aligned_area" gtk_cell_renderer_get_aligned_area ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- aligned_area : TInterface "Gdk" "Rectangle"
IO ()
cellRendererGetAlignedArea ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
[CellRendererState] -> -- flags
Gdk.Rectangle -> -- cell_area
m (Gdk.Rectangle)
cellRendererGetAlignedArea _obj widget flags cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let flags' = gflagsToWord flags
let cell_area' = unsafeManagedPtrGetPtr cell_area
aligned_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_cell_renderer_get_aligned_area _obj' widget' flags' cell_area' aligned_area
aligned_area' <- (wrapBoxed Gdk.Rectangle) aligned_area
touchManagedPtr _obj
touchManagedPtr widget
touchManagedPtr cell_area
return aligned_area'
-- method CellRenderer::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_alignment" gtk_cell_renderer_get_alignment ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
cellRendererGetAlignment ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m (Float,Float)
cellRendererGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_cell_renderer_get_alignment _obj' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr _obj
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
-- method CellRenderer::get_fixed_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
cellRendererGetFixedSize ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m (Int32,Int32)
cellRendererGetFixedSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_fixed_size _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method CellRenderer::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- xpad : TBasicType TInt32
Ptr Int32 -> -- ypad : TBasicType TInt32
IO ()
cellRendererGetPadding ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m (Int32,Int32)
cellRendererGetPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xpad <- allocMem :: IO (Ptr Int32)
ypad <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_padding _obj' xpad ypad
xpad' <- peek xpad
ypad' <- peek ypad
touchManagedPtr _obj
freeMem xpad
freeMem ypad
return (xpad', ypad')
-- method CellRenderer::get_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_size : TBasicType TInt32
Ptr Int32 -> -- natural_size : TBasicType TInt32
IO ()
cellRendererGetPreferredHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m (Int32,Int32)
cellRendererGetPreferredHeight _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- allocMem :: IO (Ptr Int32)
natural_size <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height _obj' widget' minimum_size natural_size
minimum_size' <- peek minimum_size
natural_size' <- peek natural_size
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_size
freeMem natural_size
return (minimum_size', natural_size')
-- method CellRenderer::get_preferred_height_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellRendererGetPreferredHeightForWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Int32 -> -- width
m (Int32,Int32)
cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method CellRenderer::get_preferred_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_size" gtk_cell_renderer_get_preferred_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition"
Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition"
IO ()
cellRendererGetPreferredSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m (Requisition,Requisition)
cellRendererGetPreferredSize _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_cell_renderer_get_preferred_size _obj' widget' minimum_size natural_size
minimum_size' <- (wrapBoxed Requisition) minimum_size
natural_size' <- (wrapBoxed Requisition) natural_size
touchManagedPtr _obj
touchManagedPtr widget
return (minimum_size', natural_size')
-- method CellRenderer::get_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_size : TBasicType TInt32
Ptr Int32 -> -- natural_size : TBasicType TInt32
IO ()
cellRendererGetPreferredWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m (Int32,Int32)
cellRendererGetPreferredWidth _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- allocMem :: IO (Ptr Int32)
natural_size <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width _obj' widget' minimum_size natural_size
minimum_size' <- peek minimum_size
natural_size' <- peek natural_size
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_size
freeMem natural_size
return (minimum_size', natural_size')
-- method CellRenderer::get_preferred_width_for_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellRendererGetPreferredWidthForHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Int32 -> -- height
m (Int32,Int32)
cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method CellRenderer::get_request_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeRequestMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_request_mode" gtk_cell_renderer_get_request_mode ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CUInt
cellRendererGetRequestMode ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m SizeRequestMode
cellRendererGetRequestMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_request_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method CellRenderer::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_sensitive" gtk_cell_renderer_get_sensitive ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererGetSensitive ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m Bool
cellRendererGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRenderer::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_size" gtk_cell_renderer_get_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- y_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-}
cellRendererGetSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Maybe (Gdk.Rectangle) -> -- cell_area
m (Int32,Int32,Int32,Int32)
cellRendererGetSize _obj widget cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
maybeCell_area <- case cell_area of
Nothing -> return nullPtr
Just jCell_area -> do
let jCell_area' = unsafeManagedPtrGetPtr jCell_area
return jCell_area'
x_offset <- allocMem :: IO (Ptr Int32)
y_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_size _obj' widget' maybeCell_area x_offset y_offset width height
x_offset' <- peek x_offset
y_offset' <- peek y_offset
width' <- peek width
height' <- peek height
touchManagedPtr _obj
touchManagedPtr widget
whenJust cell_area touchManagedPtr
freeMem x_offset
freeMem y_offset
freeMem width
freeMem height
return (x_offset', y_offset', width', height')
-- method CellRenderer::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_state" gtk_cell_renderer_get_state ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- cell_state : TInterface "Gtk" "CellRendererState"
IO CUInt
cellRendererGetState ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
[CellRendererState] -> -- cell_state
m [StateFlags]
cellRendererGetState _obj widget cell_state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let cell_state' = gflagsToWord cell_state
result <- gtk_cell_renderer_get_state _obj' widget' cell_state'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr widget
return result'
-- method CellRenderer::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_visible" gtk_cell_renderer_get_visible ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererGetVisible ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m Bool
cellRendererGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRenderer::is_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_is_activatable" gtk_cell_renderer_is_activatable ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererIsActivatable ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
m Bool
cellRendererIsActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_is_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRenderer::render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_render" gtk_cell_renderer_render ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO ()
cellRendererRender ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
Cairo.Context -> -- cr
b -> -- widget
Gdk.Rectangle -> -- background_area
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
m ()
cellRendererRender _obj cr widget background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
let widget' = unsafeManagedPtrCastPtr widget
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
gtk_cell_renderer_render _obj' cr' widget' background_area' cell_area' flags'
touchManagedPtr _obj
touchManagedPtr cr
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
return ()
-- method CellRenderer::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_alignment" gtk_cell_renderer_set_alignment ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
cellRendererSetAlignment ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
m ()
cellRendererSetAlignment _obj xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_cell_renderer_set_alignment _obj' xalign' yalign'
touchManagedPtr _obj
return ()
-- method CellRenderer::set_fixed_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
cellRendererSetFixedSize ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
cellRendererSetFixedSize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_fixed_size _obj' width height
touchManagedPtr _obj
return ()
-- method CellRenderer::set_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Int32 -> -- xpad : TBasicType TInt32
Int32 -> -- ypad : TBasicType TInt32
IO ()
cellRendererSetPadding ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Int32 -> -- xpad
Int32 -> -- ypad
m ()
cellRendererSetPadding _obj xpad ypad = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_padding _obj' xpad ypad
touchManagedPtr _obj
return ()
-- method CellRenderer::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_sensitive" gtk_cell_renderer_set_sensitive ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
cellRendererSetSensitive ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Bool -> -- sensitive
m ()
cellRendererSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_cell_renderer_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
-- method CellRenderer::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_visible" gtk_cell_renderer_set_visible ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- visible : TBasicType TBoolean
IO ()
cellRendererSetVisible ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Bool -> -- visible
m ()
cellRendererSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_cell_renderer_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method CellRenderer::start_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellEditable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_start_editing" gtk_cell_renderer_start_editing ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- path : TBasicType TUTF8
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO (Ptr CellEditable)
cellRendererStartEditing ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -> -- _obj
Gdk.Event -> -- event
b -> -- widget
T.Text -> -- path
Gdk.Rectangle -> -- background_area
Gdk.Rectangle -> -- cell_area
[CellRendererState] -> -- flags
m CellEditable
cellRendererStartEditing _obj event widget path background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_start_editing _obj' event' widget' path' background_area' cell_area' flags'
checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result
result' <- (newObject CellEditable) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
freeMem path'
return result'
-- method CellRenderer::stop_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_stop_editing" gtk_cell_renderer_stop_editing ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- canceled : TBasicType TBoolean
IO ()
cellRendererStopEditing ::
(MonadIO m, CellRendererK a) =>
a -> -- _obj
Bool -> -- canceled
m ()
cellRendererStopEditing _obj canceled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let canceled' = (fromIntegral . fromEnum) canceled
gtk_cell_renderer_stop_editing _obj' canceled'
touchManagedPtr _obj
return ()
-- signal CellRenderer::editing-canceled
type CellRendererEditingCanceledCallback =
IO ()
noCellRendererEditingCanceledCallback :: Maybe CellRendererEditingCanceledCallback
noCellRendererEditingCanceledCallback = Nothing
type CellRendererEditingCanceledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererEditingCanceledCallback :: CellRendererEditingCanceledCallbackC -> IO (FunPtr CellRendererEditingCanceledCallbackC)
cellRendererEditingCanceledClosure :: CellRendererEditingCanceledCallback -> IO Closure
cellRendererEditingCanceledClosure cb = newCClosure =<< mkCellRendererEditingCanceledCallback wrapped
where wrapped = cellRendererEditingCanceledCallbackWrapper cb
cellRendererEditingCanceledCallbackWrapper ::
CellRendererEditingCanceledCallback ->
Ptr () ->
Ptr () ->
IO ()
cellRendererEditingCanceledCallbackWrapper _cb _ _ = do
_cb
onCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
onCellRendererEditingCanceled obj cb = liftIO $ connectCellRendererEditingCanceled obj cb SignalConnectBefore
afterCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
afterCellRendererEditingCanceled obj cb = connectCellRendererEditingCanceled obj cb SignalConnectAfter
connectCellRendererEditingCanceled :: (GObject a, MonadIO m) =>
a -> CellRendererEditingCanceledCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererEditingCanceled obj cb after = liftIO $ do
cb' <- mkCellRendererEditingCanceledCallback (cellRendererEditingCanceledCallbackWrapper cb)
connectSignalFunPtr obj "editing-canceled" cb' after
-- signal CellRenderer::editing-started
type CellRendererEditingStartedCallback =
CellEditable ->
T.Text ->
IO ()
noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback
noCellRendererEditingStartedCallback = Nothing
type CellRendererEditingStartedCallbackC =
Ptr () -> -- object
Ptr CellEditable ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererEditingStartedCallback :: CellRendererEditingStartedCallbackC -> IO (FunPtr CellRendererEditingStartedCallbackC)
cellRendererEditingStartedClosure :: CellRendererEditingStartedCallback -> IO Closure
cellRendererEditingStartedClosure cb = newCClosure =<< mkCellRendererEditingStartedCallback wrapped
where wrapped = cellRendererEditingStartedCallbackWrapper cb
cellRendererEditingStartedCallbackWrapper ::
CellRendererEditingStartedCallback ->
Ptr () ->
Ptr CellEditable ->
CString ->
Ptr () ->
IO ()
cellRendererEditingStartedCallbackWrapper _cb _ editable path _ = do
editable' <- (newObject CellEditable) editable
path' <- cstringToText path
_cb editable' path'
onCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
onCellRendererEditingStarted obj cb = liftIO $ connectCellRendererEditingStarted obj cb SignalConnectBefore
afterCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
afterCellRendererEditingStarted obj cb = connectCellRendererEditingStarted obj cb SignalConnectAfter
connectCellRendererEditingStarted :: (GObject a, MonadIO m) =>
a -> CellRendererEditingStartedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererEditingStarted obj cb after = liftIO $ do
cb' <- mkCellRendererEditingStartedCallback (cellRendererEditingStartedCallbackWrapper cb)
connectSignalFunPtr obj "editing-started" cb' after
-- object CellRendererAccel
newtype CellRendererAccel = CellRendererAccel (ForeignPtr CellRendererAccel)
noCellRendererAccel :: Maybe CellRendererAccel
noCellRendererAccel = Nothing
foreign import ccall "gtk_cell_renderer_accel_get_type"
c_gtk_cell_renderer_accel_get_type :: IO GType
type instance ParentTypes CellRendererAccel = '[CellRendererText, CellRenderer, GObject.Object]
instance GObject CellRendererAccel where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_accel_get_type
class GObject o => CellRendererAccelK o
instance (GObject o, IsDescendantOf CellRendererAccel o) => CellRendererAccelK o
toCellRendererAccel :: CellRendererAccelK o => o -> IO CellRendererAccel
toCellRendererAccel = unsafeCastTo CellRendererAccel
-- method CellRendererAccel::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererAccel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_accel_new" gtk_cell_renderer_accel_new ::
IO (Ptr CellRendererAccel)
cellRendererAccelNew ::
(MonadIO m) =>
m CellRendererAccel
cellRendererAccelNew = liftIO $ do
result <- gtk_cell_renderer_accel_new
checkUnexpectedReturnNULL "gtk_cell_renderer_accel_new" result
result' <- (newObject CellRendererAccel) result
return result'
-- signal CellRendererAccel::accel-cleared
type CellRendererAccelAccelClearedCallback =
T.Text ->
IO ()
noCellRendererAccelAccelClearedCallback :: Maybe CellRendererAccelAccelClearedCallback
noCellRendererAccelAccelClearedCallback = Nothing
type CellRendererAccelAccelClearedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererAccelAccelClearedCallback :: CellRendererAccelAccelClearedCallbackC -> IO (FunPtr CellRendererAccelAccelClearedCallbackC)
cellRendererAccelAccelClearedClosure :: CellRendererAccelAccelClearedCallback -> IO Closure
cellRendererAccelAccelClearedClosure cb = newCClosure =<< mkCellRendererAccelAccelClearedCallback wrapped
where wrapped = cellRendererAccelAccelClearedCallbackWrapper cb
cellRendererAccelAccelClearedCallbackWrapper ::
CellRendererAccelAccelClearedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
cellRendererAccelAccelClearedCallbackWrapper _cb _ path_string _ = do
path_string' <- cstringToText path_string
_cb path_string'
onCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId
onCellRendererAccelAccelCleared obj cb = liftIO $ connectCellRendererAccelAccelCleared obj cb SignalConnectBefore
afterCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId
afterCellRendererAccelAccelCleared obj cb = connectCellRendererAccelAccelCleared obj cb SignalConnectAfter
connectCellRendererAccelAccelCleared :: (GObject a, MonadIO m) =>
a -> CellRendererAccelAccelClearedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererAccelAccelCleared obj cb after = liftIO $ do
cb' <- mkCellRendererAccelAccelClearedCallback (cellRendererAccelAccelClearedCallbackWrapper cb)
connectSignalFunPtr obj "accel-cleared" cb' after
-- signal CellRendererAccel::accel-edited
type CellRendererAccelAccelEditedCallback =
T.Text ->
Word32 ->
[Gdk.ModifierType] ->
Word32 ->
IO ()
noCellRendererAccelAccelEditedCallback :: Maybe CellRendererAccelAccelEditedCallback
noCellRendererAccelAccelEditedCallback = Nothing
type CellRendererAccelAccelEditedCallbackC =
Ptr () -> -- object
CString ->
Word32 ->
CUInt ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererAccelAccelEditedCallback :: CellRendererAccelAccelEditedCallbackC -> IO (FunPtr CellRendererAccelAccelEditedCallbackC)
cellRendererAccelAccelEditedClosure :: CellRendererAccelAccelEditedCallback -> IO Closure
cellRendererAccelAccelEditedClosure cb = newCClosure =<< mkCellRendererAccelAccelEditedCallback wrapped
where wrapped = cellRendererAccelAccelEditedCallbackWrapper cb
cellRendererAccelAccelEditedCallbackWrapper ::
CellRendererAccelAccelEditedCallback ->
Ptr () ->
CString ->
Word32 ->
CUInt ->
Word32 ->
Ptr () ->
IO ()
cellRendererAccelAccelEditedCallbackWrapper _cb _ path_string accel_key accel_mods hardware_keycode _ = do
path_string' <- cstringToText path_string
let accel_mods' = wordToGFlags accel_mods
_cb path_string' accel_key accel_mods' hardware_keycode
onCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId
onCellRendererAccelAccelEdited obj cb = liftIO $ connectCellRendererAccelAccelEdited obj cb SignalConnectBefore
afterCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId
afterCellRendererAccelAccelEdited obj cb = connectCellRendererAccelAccelEdited obj cb SignalConnectAfter
connectCellRendererAccelAccelEdited :: (GObject a, MonadIO m) =>
a -> CellRendererAccelAccelEditedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererAccelAccelEdited obj cb after = liftIO $ do
cb' <- mkCellRendererAccelAccelEditedCallback (cellRendererAccelAccelEditedCallbackWrapper cb)
connectSignalFunPtr obj "accel-edited" cb' after
-- Enum CellRendererAccelMode
data CellRendererAccelMode =
CellRendererAccelModeGtk
| CellRendererAccelModeOther
| AnotherCellRendererAccelMode Int
deriving (Show, Eq)
instance Enum CellRendererAccelMode where
fromEnum CellRendererAccelModeGtk = 0
fromEnum CellRendererAccelModeOther = 1
fromEnum (AnotherCellRendererAccelMode k) = k
toEnum 0 = CellRendererAccelModeGtk
toEnum 1 = CellRendererAccelModeOther
toEnum k = AnotherCellRendererAccelMode k
foreign import ccall "gtk_cell_renderer_accel_mode_get_type" c_gtk_cell_renderer_accel_mode_get_type ::
IO GType
instance BoxedEnum CellRendererAccelMode where
boxedEnumType _ = c_gtk_cell_renderer_accel_mode_get_type
-- object CellRendererCombo
newtype CellRendererCombo = CellRendererCombo (ForeignPtr CellRendererCombo)
noCellRendererCombo :: Maybe CellRendererCombo
noCellRendererCombo = Nothing
foreign import ccall "gtk_cell_renderer_combo_get_type"
c_gtk_cell_renderer_combo_get_type :: IO GType
type instance ParentTypes CellRendererCombo = '[CellRendererText, CellRenderer, GObject.Object]
instance GObject CellRendererCombo where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_combo_get_type
class GObject o => CellRendererComboK o
instance (GObject o, IsDescendantOf CellRendererCombo o) => CellRendererComboK o
toCellRendererCombo :: CellRendererComboK o => o -> IO CellRendererCombo
toCellRendererCombo = unsafeCastTo CellRendererCombo
-- method CellRendererCombo::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererCombo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_combo_new" gtk_cell_renderer_combo_new ::
IO (Ptr CellRendererCombo)
cellRendererComboNew ::
(MonadIO m) =>
m CellRendererCombo
cellRendererComboNew = liftIO $ do
result <- gtk_cell_renderer_combo_new
checkUnexpectedReturnNULL "gtk_cell_renderer_combo_new" result
result' <- (newObject CellRendererCombo) result
return result'
-- signal CellRendererCombo::changed
type CellRendererComboChangedCallback =
T.Text ->
TreeIter ->
IO ()
noCellRendererComboChangedCallback :: Maybe CellRendererComboChangedCallback
noCellRendererComboChangedCallback = Nothing
type CellRendererComboChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererComboChangedCallback :: CellRendererComboChangedCallbackC -> IO (FunPtr CellRendererComboChangedCallbackC)
cellRendererComboChangedClosure :: CellRendererComboChangedCallback -> IO Closure
cellRendererComboChangedClosure cb = newCClosure =<< mkCellRendererComboChangedCallback wrapped
where wrapped = cellRendererComboChangedCallbackWrapper cb
cellRendererComboChangedCallbackWrapper ::
CellRendererComboChangedCallback ->
Ptr () ->
CString ->
Ptr TreeIter ->
Ptr () ->
IO ()
cellRendererComboChangedCallbackWrapper _cb _ path_string new_iter _ = do
path_string' <- cstringToText path_string
new_iter' <- (newBoxed TreeIter) new_iter
_cb path_string' new_iter'
onCellRendererComboChanged :: (GObject a, MonadIO m) => a -> CellRendererComboChangedCallback -> m SignalHandlerId
onCellRendererComboChanged obj cb = liftIO $ connectCellRendererComboChanged obj cb SignalConnectBefore
afterCellRendererComboChanged :: (GObject a, MonadIO m) => a -> CellRendererComboChangedCallback -> m SignalHandlerId
afterCellRendererComboChanged obj cb = connectCellRendererComboChanged obj cb SignalConnectAfter
connectCellRendererComboChanged :: (GObject a, MonadIO m) =>
a -> CellRendererComboChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererComboChanged obj cb after = liftIO $ do
cb' <- mkCellRendererComboChangedCallback (cellRendererComboChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- Enum CellRendererMode
data CellRendererMode =
CellRendererModeInert
| CellRendererModeActivatable
| CellRendererModeEditable
| AnotherCellRendererMode Int
deriving (Show, Eq)
instance Enum CellRendererMode where
fromEnum CellRendererModeInert = 0
fromEnum CellRendererModeActivatable = 1
fromEnum CellRendererModeEditable = 2
fromEnum (AnotherCellRendererMode k) = k
toEnum 0 = CellRendererModeInert
toEnum 1 = CellRendererModeActivatable
toEnum 2 = CellRendererModeEditable
toEnum k = AnotherCellRendererMode k
foreign import ccall "gtk_cell_renderer_mode_get_type" c_gtk_cell_renderer_mode_get_type ::
IO GType
instance BoxedEnum CellRendererMode where
boxedEnumType _ = c_gtk_cell_renderer_mode_get_type
-- object CellRendererPixbuf
newtype CellRendererPixbuf = CellRendererPixbuf (ForeignPtr CellRendererPixbuf)
noCellRendererPixbuf :: Maybe CellRendererPixbuf
noCellRendererPixbuf = Nothing
foreign import ccall "gtk_cell_renderer_pixbuf_get_type"
c_gtk_cell_renderer_pixbuf_get_type :: IO GType
type instance ParentTypes CellRendererPixbuf = '[CellRenderer, GObject.Object]
instance GObject CellRendererPixbuf where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_pixbuf_get_type
class GObject o => CellRendererPixbufK o
instance (GObject o, IsDescendantOf CellRendererPixbuf o) => CellRendererPixbufK o
toCellRendererPixbuf :: CellRendererPixbufK o => o -> IO CellRendererPixbuf
toCellRendererPixbuf = unsafeCastTo CellRendererPixbuf
-- method CellRendererPixbuf::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererPixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_pixbuf_new" gtk_cell_renderer_pixbuf_new ::
IO (Ptr CellRendererPixbuf)
cellRendererPixbufNew ::
(MonadIO m) =>
m CellRendererPixbuf
cellRendererPixbufNew = liftIO $ do
result <- gtk_cell_renderer_pixbuf_new
checkUnexpectedReturnNULL "gtk_cell_renderer_pixbuf_new" result
result' <- (newObject CellRendererPixbuf) result
return result'
-- object CellRendererProgress
newtype CellRendererProgress = CellRendererProgress (ForeignPtr CellRendererProgress)
noCellRendererProgress :: Maybe CellRendererProgress
noCellRendererProgress = Nothing
foreign import ccall "gtk_cell_renderer_progress_get_type"
c_gtk_cell_renderer_progress_get_type :: IO GType
type instance ParentTypes CellRendererProgress = '[CellRenderer, GObject.Object, Orientable]
instance GObject CellRendererProgress where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_progress_get_type
class GObject o => CellRendererProgressK o
instance (GObject o, IsDescendantOf CellRendererProgress o) => CellRendererProgressK o
toCellRendererProgress :: CellRendererProgressK o => o -> IO CellRendererProgress
toCellRendererProgress = unsafeCastTo CellRendererProgress
-- method CellRendererProgress::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererProgress"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_progress_new" gtk_cell_renderer_progress_new ::
IO (Ptr CellRendererProgress)
cellRendererProgressNew ::
(MonadIO m) =>
m CellRendererProgress
cellRendererProgressNew = liftIO $ do
result <- gtk_cell_renderer_progress_new
checkUnexpectedReturnNULL "gtk_cell_renderer_progress_new" result
result' <- (newObject CellRendererProgress) result
return result'
-- object CellRendererSpin
newtype CellRendererSpin = CellRendererSpin (ForeignPtr CellRendererSpin)
noCellRendererSpin :: Maybe CellRendererSpin
noCellRendererSpin = Nothing
foreign import ccall "gtk_cell_renderer_spin_get_type"
c_gtk_cell_renderer_spin_get_type :: IO GType
type instance ParentTypes CellRendererSpin = '[CellRendererText, CellRenderer, GObject.Object]
instance GObject CellRendererSpin where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_spin_get_type
class GObject o => CellRendererSpinK o
instance (GObject o, IsDescendantOf CellRendererSpin o) => CellRendererSpinK o
toCellRendererSpin :: CellRendererSpinK o => o -> IO CellRendererSpin
toCellRendererSpin = unsafeCastTo CellRendererSpin
-- method CellRendererSpin::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererSpin"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_spin_new" gtk_cell_renderer_spin_new ::
IO (Ptr CellRendererSpin)
cellRendererSpinNew ::
(MonadIO m) =>
m CellRendererSpin
cellRendererSpinNew = liftIO $ do
result <- gtk_cell_renderer_spin_new
checkUnexpectedReturnNULL "gtk_cell_renderer_spin_new" result
result' <- (newObject CellRendererSpin) result
return result'
-- object CellRendererSpinner
newtype CellRendererSpinner = CellRendererSpinner (ForeignPtr CellRendererSpinner)
noCellRendererSpinner :: Maybe CellRendererSpinner
noCellRendererSpinner = Nothing
foreign import ccall "gtk_cell_renderer_spinner_get_type"
c_gtk_cell_renderer_spinner_get_type :: IO GType
type instance ParentTypes CellRendererSpinner = '[CellRenderer, GObject.Object]
instance GObject CellRendererSpinner where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_spinner_get_type
class GObject o => CellRendererSpinnerK o
instance (GObject o, IsDescendantOf CellRendererSpinner o) => CellRendererSpinnerK o
toCellRendererSpinner :: CellRendererSpinnerK o => o -> IO CellRendererSpinner
toCellRendererSpinner = unsafeCastTo CellRendererSpinner
-- method CellRendererSpinner::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererSpinner"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_spinner_new" gtk_cell_renderer_spinner_new ::
IO (Ptr CellRendererSpinner)
cellRendererSpinnerNew ::
(MonadIO m) =>
m CellRendererSpinner
cellRendererSpinnerNew = liftIO $ do
result <- gtk_cell_renderer_spinner_new
checkUnexpectedReturnNULL "gtk_cell_renderer_spinner_new" result
result' <- (newObject CellRendererSpinner) result
return result'
-- Flags CellRendererState
data CellRendererState =
CellRendererStateSelected
| CellRendererStatePrelit
| CellRendererStateInsensitive
| CellRendererStateSorted
| CellRendererStateFocused
| CellRendererStateExpandable
| CellRendererStateExpanded
| AnotherCellRendererState Int
deriving (Show, Eq)
instance Enum CellRendererState where
fromEnum CellRendererStateSelected = 1
fromEnum CellRendererStatePrelit = 2
fromEnum CellRendererStateInsensitive = 4
fromEnum CellRendererStateSorted = 8
fromEnum CellRendererStateFocused = 16
fromEnum CellRendererStateExpandable = 32
fromEnum CellRendererStateExpanded = 64
fromEnum (AnotherCellRendererState k) = k
toEnum 1 = CellRendererStateSelected
toEnum 2 = CellRendererStatePrelit
toEnum 4 = CellRendererStateInsensitive
toEnum 8 = CellRendererStateSorted
toEnum 16 = CellRendererStateFocused
toEnum 32 = CellRendererStateExpandable
toEnum 64 = CellRendererStateExpanded
toEnum k = AnotherCellRendererState k
foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type ::
IO GType
instance BoxedEnum CellRendererState where
boxedEnumType _ = c_gtk_cell_renderer_state_get_type
instance IsGFlag CellRendererState
-- object CellRendererText
newtype CellRendererText = CellRendererText (ForeignPtr CellRendererText)
noCellRendererText :: Maybe CellRendererText
noCellRendererText = Nothing
foreign import ccall "gtk_cell_renderer_text_get_type"
c_gtk_cell_renderer_text_get_type :: IO GType
type instance ParentTypes CellRendererText = '[CellRenderer, GObject.Object]
instance GObject CellRendererText where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_text_get_type
class GObject o => CellRendererTextK o
instance (GObject o, IsDescendantOf CellRendererText o) => CellRendererTextK o
toCellRendererText :: CellRendererTextK o => o -> IO CellRendererText
toCellRendererText = unsafeCastTo CellRendererText
-- method CellRendererText::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererText"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_text_new" gtk_cell_renderer_text_new ::
IO (Ptr CellRendererText)
cellRendererTextNew ::
(MonadIO m) =>
m CellRendererText
cellRendererTextNew = liftIO $ do
result <- gtk_cell_renderer_text_new
checkUnexpectedReturnNULL "gtk_cell_renderer_text_new" result
result' <- (newObject CellRendererText) result
return result'
-- method CellRendererText::set_fixed_height_from_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_text_set_fixed_height_from_font" gtk_cell_renderer_text_set_fixed_height_from_font ::
Ptr CellRendererText -> -- _obj : TInterface "Gtk" "CellRendererText"
Int32 -> -- number_of_rows : TBasicType TInt32
IO ()
cellRendererTextSetFixedHeightFromFont ::
(MonadIO m, CellRendererTextK a) =>
a -> -- _obj
Int32 -> -- number_of_rows
m ()
cellRendererTextSetFixedHeightFromFont _obj number_of_rows = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_text_set_fixed_height_from_font _obj' number_of_rows
touchManagedPtr _obj
return ()
-- signal CellRendererText::edited
type CellRendererTextEditedCallback =
T.Text ->
T.Text ->
IO ()
noCellRendererTextEditedCallback :: Maybe CellRendererTextEditedCallback
noCellRendererTextEditedCallback = Nothing
type CellRendererTextEditedCallbackC =
Ptr () -> -- object
CString ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererTextEditedCallback :: CellRendererTextEditedCallbackC -> IO (FunPtr CellRendererTextEditedCallbackC)
cellRendererTextEditedClosure :: CellRendererTextEditedCallback -> IO Closure
cellRendererTextEditedClosure cb = newCClosure =<< mkCellRendererTextEditedCallback wrapped
where wrapped = cellRendererTextEditedCallbackWrapper cb
cellRendererTextEditedCallbackWrapper ::
CellRendererTextEditedCallback ->
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
cellRendererTextEditedCallbackWrapper _cb _ path new_text _ = do
path' <- cstringToText path
new_text' <- cstringToText new_text
_cb path' new_text'
onCellRendererTextEdited :: (GObject a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId
onCellRendererTextEdited obj cb = liftIO $ connectCellRendererTextEdited obj cb SignalConnectBefore
afterCellRendererTextEdited :: (GObject a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId
afterCellRendererTextEdited obj cb = connectCellRendererTextEdited obj cb SignalConnectAfter
connectCellRendererTextEdited :: (GObject a, MonadIO m) =>
a -> CellRendererTextEditedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererTextEdited obj cb after = liftIO $ do
cb' <- mkCellRendererTextEditedCallback (cellRendererTextEditedCallbackWrapper cb)
connectSignalFunPtr obj "edited" cb' after
-- object CellRendererToggle
newtype CellRendererToggle = CellRendererToggle (ForeignPtr CellRendererToggle)
noCellRendererToggle :: Maybe CellRendererToggle
noCellRendererToggle = Nothing
foreign import ccall "gtk_cell_renderer_toggle_get_type"
c_gtk_cell_renderer_toggle_get_type :: IO GType
type instance ParentTypes CellRendererToggle = '[CellRenderer, GObject.Object]
instance GObject CellRendererToggle where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_toggle_get_type
class GObject o => CellRendererToggleK o
instance (GObject o, IsDescendantOf CellRendererToggle o) => CellRendererToggleK o
toCellRendererToggle :: CellRendererToggleK o => o -> IO CellRendererToggle
toCellRendererToggle = unsafeCastTo CellRendererToggle
-- method CellRendererToggle::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellRendererToggle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_new" gtk_cell_renderer_toggle_new ::
IO (Ptr CellRendererToggle)
cellRendererToggleNew ::
(MonadIO m) =>
m CellRendererToggle
cellRendererToggleNew = liftIO $ do
result <- gtk_cell_renderer_toggle_new
checkUnexpectedReturnNULL "gtk_cell_renderer_toggle_new" result
result' <- (newObject CellRendererToggle) result
return result'
-- method CellRendererToggle::get_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_get_activatable" gtk_cell_renderer_toggle_get_activatable ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
IO CInt
cellRendererToggleGetActivatable ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
m Bool
cellRendererToggleGetActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_toggle_get_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRendererToggle::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_get_active" gtk_cell_renderer_toggle_get_active ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
IO CInt
cellRendererToggleGetActive ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
m Bool
cellRendererToggleGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_toggle_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRendererToggle::get_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_get_radio" gtk_cell_renderer_toggle_get_radio ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
IO CInt
cellRendererToggleGetRadio ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
m Bool
cellRendererToggleGetRadio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_toggle_get_radio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellRendererToggle::set_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_set_activatable" gtk_cell_renderer_toggle_set_activatable ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
CInt -> -- setting : TBasicType TBoolean
IO ()
cellRendererToggleSetActivatable ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
Bool -> -- setting
m ()
cellRendererToggleSetActivatable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_cell_renderer_toggle_set_activatable _obj' setting'
touchManagedPtr _obj
return ()
-- method CellRendererToggle::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_set_active" gtk_cell_renderer_toggle_set_active ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
CInt -> -- setting : TBasicType TBoolean
IO ()
cellRendererToggleSetActive ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
Bool -> -- setting
m ()
cellRendererToggleSetActive _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_cell_renderer_toggle_set_active _obj' setting'
touchManagedPtr _obj
return ()
-- method CellRendererToggle::set_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_toggle_set_radio" gtk_cell_renderer_toggle_set_radio ::
Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle"
CInt -> -- radio : TBasicType TBoolean
IO ()
cellRendererToggleSetRadio ::
(MonadIO m, CellRendererToggleK a) =>
a -> -- _obj
Bool -> -- radio
m ()
cellRendererToggleSetRadio _obj radio = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let radio' = (fromIntegral . fromEnum) radio
gtk_cell_renderer_toggle_set_radio _obj' radio'
touchManagedPtr _obj
return ()
-- signal CellRendererToggle::toggled
type CellRendererToggleToggledCallback =
T.Text ->
IO ()
noCellRendererToggleToggledCallback :: Maybe CellRendererToggleToggledCallback
noCellRendererToggleToggledCallback = Nothing
type CellRendererToggleToggledCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCellRendererToggleToggledCallback :: CellRendererToggleToggledCallbackC -> IO (FunPtr CellRendererToggleToggledCallbackC)
cellRendererToggleToggledClosure :: CellRendererToggleToggledCallback -> IO Closure
cellRendererToggleToggledClosure cb = newCClosure =<< mkCellRendererToggleToggledCallback wrapped
where wrapped = cellRendererToggleToggledCallbackWrapper cb
cellRendererToggleToggledCallbackWrapper ::
CellRendererToggleToggledCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
cellRendererToggleToggledCallbackWrapper _cb _ path _ = do
path' <- cstringToText path
_cb path'
onCellRendererToggleToggled :: (GObject a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId
onCellRendererToggleToggled obj cb = liftIO $ connectCellRendererToggleToggled obj cb SignalConnectBefore
afterCellRendererToggleToggled :: (GObject a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId
afterCellRendererToggleToggled obj cb = connectCellRendererToggleToggled obj cb SignalConnectAfter
connectCellRendererToggleToggled :: (GObject a, MonadIO m) =>
a -> CellRendererToggleToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererToggleToggled obj cb after = liftIO $ do
cb' <- mkCellRendererToggleToggledCallback (cellRendererToggleToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- object CellView
newtype CellView = CellView (ForeignPtr CellView)
noCellView :: Maybe CellView
noCellView = Nothing
foreign import ccall "gtk_cell_view_get_type"
c_gtk_cell_view_get_type :: IO GType
type instance ParentTypes CellView = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Orientable]
instance GObject CellView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_view_get_type
class GObject o => CellViewK o
instance (GObject o, IsDescendantOf CellView o) => CellViewK o
toCellView :: CellViewK o => o -> IO CellView
toCellView = unsafeCastTo CellView
-- method CellView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CellView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_new" gtk_cell_view_new ::
IO (Ptr CellView)
cellViewNew ::
(MonadIO m) =>
m CellView
cellViewNew = liftIO $ do
result <- gtk_cell_view_new
checkUnexpectedReturnNULL "gtk_cell_view_new" result
result' <- (newObject CellView) result
return result'
-- method CellView::new_with_context
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_new_with_context" gtk_cell_view_new_with_context ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext"
IO (Ptr CellView)
cellViewNewWithContext ::
(MonadIO m, CellAreaK a, CellAreaContextK b) =>
a -> -- area
b -> -- context
m CellView
cellViewNewWithContext area context = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
let context' = unsafeManagedPtrCastPtr context
result <- gtk_cell_view_new_with_context area' context'
checkUnexpectedReturnNULL "gtk_cell_view_new_with_context" result
result' <- (newObject CellView) result
touchManagedPtr area
touchManagedPtr context
return result'
-- method CellView::new_with_markup
-- method type : Constructor
-- Args : [Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_new_with_markup" gtk_cell_view_new_with_markup ::
CString -> -- markup : TBasicType TUTF8
IO (Ptr CellView)
cellViewNewWithMarkup ::
(MonadIO m) =>
T.Text -> -- markup
m CellView
cellViewNewWithMarkup markup = liftIO $ do
markup' <- textToCString markup
result <- gtk_cell_view_new_with_markup markup'
checkUnexpectedReturnNULL "gtk_cell_view_new_with_markup" result
result' <- (newObject CellView) result
freeMem markup'
return result'
-- method CellView::new_with_pixbuf
-- method type : Constructor
-- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_new_with_pixbuf" gtk_cell_view_new_with_pixbuf ::
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr CellView)
cellViewNewWithPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
a -> -- pixbuf
m CellView
cellViewNewWithPixbuf pixbuf = liftIO $ do
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
result <- gtk_cell_view_new_with_pixbuf pixbuf'
checkUnexpectedReturnNULL "gtk_cell_view_new_with_pixbuf" result
result' <- (newObject CellView) result
touchManagedPtr pixbuf
return result'
-- method CellView::new_with_text
-- method type : Constructor
-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CellView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_new_with_text" gtk_cell_view_new_with_text ::
CString -> -- text : TBasicType TUTF8
IO (Ptr CellView)
cellViewNewWithText ::
(MonadIO m) =>
T.Text -> -- text
m CellView
cellViewNewWithText text = liftIO $ do
text' <- textToCString text
result <- gtk_cell_view_new_with_text text'
checkUnexpectedReturnNULL "gtk_cell_view_new_with_text" result
result' <- (newObject CellView) result
freeMem text'
return result'
-- method CellView::get_displayed_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_get_displayed_row" gtk_cell_view_get_displayed_row ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
IO (Ptr TreePath)
cellViewGetDisplayedRow ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
m TreePath
cellViewGetDisplayedRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_view_get_displayed_row _obj'
checkUnexpectedReturnNULL "gtk_cell_view_get_displayed_row" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
return result'
-- method CellView::get_draw_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_get_draw_sensitive" gtk_cell_view_get_draw_sensitive ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
IO CInt
cellViewGetDrawSensitive ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
m Bool
cellViewGetDrawSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_view_get_draw_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellView::get_fit_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_get_fit_model" gtk_cell_view_get_fit_model ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
IO CInt
cellViewGetFitModel ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
m Bool
cellViewGetFitModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_view_get_fit_model _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CellView::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_get_model" gtk_cell_view_get_model ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
IO (Ptr TreeModel)
cellViewGetModel ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
m TreeModel
cellViewGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_view_get_model _obj'
checkUnexpectedReturnNULL "gtk_cell_view_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method CellView::get_size_of_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_get_size_of_row" gtk_cell_view_get_size_of_row ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition"
IO CInt
{-# DEPRECATED cellViewGetSizeOfRow ["(Since version 3.0)","Combo box formerly used this to calculate the","sizes for cellviews, now you can achieve this by either using","the #GtkCellView:fit-model property or by setting the currently","displayed row of the #GtkCellView and using gtk_widget_get_preferred_size()."]#-}
cellViewGetSizeOfRow ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
TreePath -> -- path
m (Bool,Requisition)
cellViewGetSizeOfRow _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
result <- gtk_cell_view_get_size_of_row _obj' path' requisition
let result' = (/= 0) result
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
touchManagedPtr path
return (result', requisition')
-- method CellView::set_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_background_color" gtk_cell_view_set_background_color ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED cellViewSetBackgroundColor ["(Since version 3.4)","Use gtk_cell_view_set_background_rgba() instead."]#-}
cellViewSetBackgroundColor ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
Gdk.Color -> -- color
m ()
cellViewSetBackgroundColor _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gtk_cell_view_set_background_color _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method CellView::set_background_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_background_rgba" gtk_cell_view_set_background_rgba ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
cellViewSetBackgroundRgba ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
Gdk.RGBA -> -- rgba
m ()
cellViewSetBackgroundRgba _obj rgba = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rgba' = unsafeManagedPtrGetPtr rgba
gtk_cell_view_set_background_rgba _obj' rgba'
touchManagedPtr _obj
touchManagedPtr rgba
return ()
-- method CellView::set_displayed_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_displayed_row" gtk_cell_view_set_displayed_row ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
cellViewSetDisplayedRow ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
Maybe (TreePath) -> -- path
m ()
cellViewSetDisplayedRow _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
gtk_cell_view_set_displayed_row _obj' maybePath
touchManagedPtr _obj
whenJust path touchManagedPtr
return ()
-- method CellView::set_draw_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_draw_sensitive" gtk_cell_view_set_draw_sensitive ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
CInt -> -- draw_sensitive : TBasicType TBoolean
IO ()
cellViewSetDrawSensitive ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
Bool -> -- draw_sensitive
m ()
cellViewSetDrawSensitive _obj draw_sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_sensitive' = (fromIntegral . fromEnum) draw_sensitive
gtk_cell_view_set_draw_sensitive _obj' draw_sensitive'
touchManagedPtr _obj
return ()
-- method CellView::set_fit_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_fit_model" gtk_cell_view_set_fit_model ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
CInt -> -- fit_model : TBasicType TBoolean
IO ()
cellViewSetFitModel ::
(MonadIO m, CellViewK a) =>
a -> -- _obj
Bool -> -- fit_model
m ()
cellViewSetFitModel _obj fit_model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fit_model' = (fromIntegral . fromEnum) fit_model
gtk_cell_view_set_fit_model _obj' fit_model'
touchManagedPtr _obj
return ()
-- method CellView::set_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_view_set_model" gtk_cell_view_set_model ::
Ptr CellView -> -- _obj : TInterface "Gtk" "CellView"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO ()
cellViewSetModel ::
(MonadIO m, CellViewK a, TreeModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
m ()
cellViewSetModel _obj model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
gtk_cell_view_set_model _obj' maybeModel
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- object CheckButton
newtype CheckButton = CheckButton (ForeignPtr CheckButton)
noCheckButton :: Maybe CheckButton
noCheckButton = Nothing
foreign import ccall "gtk_check_button_get_type"
c_gtk_check_button_get_type :: IO GType
type instance ParentTypes CheckButton = '[ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject CheckButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_check_button_get_type
class GObject o => CheckButtonK o
instance (GObject o, IsDescendantOf CheckButton o) => CheckButtonK o
toCheckButton :: CheckButtonK o => o -> IO CheckButton
toCheckButton = unsafeCastTo CheckButton
-- method CheckButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CheckButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_button_new" gtk_check_button_new ::
IO (Ptr CheckButton)
checkButtonNew ::
(MonadIO m) =>
m CheckButton
checkButtonNew = liftIO $ do
result <- gtk_check_button_new
checkUnexpectedReturnNULL "gtk_check_button_new" result
result' <- (newObject CheckButton) result
return result'
-- method CheckButton::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CheckButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_button_new_with_label" gtk_check_button_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr CheckButton)
checkButtonNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m CheckButton
checkButtonNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_check_button_new_with_label label'
checkUnexpectedReturnNULL "gtk_check_button_new_with_label" result
result' <- (newObject CheckButton) result
freeMem label'
return result'
-- method CheckButton::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CheckButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_button_new_with_mnemonic" gtk_check_button_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr CheckButton)
checkButtonNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m CheckButton
checkButtonNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_check_button_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_check_button_new_with_mnemonic" result
result' <- (newObject CheckButton) result
freeMem label'
return result'
-- object CheckMenuItem
newtype CheckMenuItem = CheckMenuItem (ForeignPtr CheckMenuItem)
noCheckMenuItem :: Maybe CheckMenuItem
noCheckMenuItem = Nothing
foreign import ccall "gtk_check_menu_item_get_type"
c_gtk_check_menu_item_get_type :: IO GType
type instance ParentTypes CheckMenuItem = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject CheckMenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_check_menu_item_get_type
class GObject o => CheckMenuItemK o
instance (GObject o, IsDescendantOf CheckMenuItem o) => CheckMenuItemK o
toCheckMenuItem :: CheckMenuItemK o => o -> IO CheckMenuItem
toCheckMenuItem = unsafeCastTo CheckMenuItem
-- method CheckMenuItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CheckMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_new" gtk_check_menu_item_new ::
IO (Ptr CheckMenuItem)
checkMenuItemNew ::
(MonadIO m) =>
m CheckMenuItem
checkMenuItemNew = liftIO $ do
result <- gtk_check_menu_item_new
checkUnexpectedReturnNULL "gtk_check_menu_item_new" result
result' <- (newObject CheckMenuItem) result
return result'
-- method CheckMenuItem::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CheckMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_new_with_label" gtk_check_menu_item_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr CheckMenuItem)
checkMenuItemNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m CheckMenuItem
checkMenuItemNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_check_menu_item_new_with_label label'
checkUnexpectedReturnNULL "gtk_check_menu_item_new_with_label" result
result' <- (newObject CheckMenuItem) result
freeMem label'
return result'
-- method CheckMenuItem::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CheckMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_new_with_mnemonic" gtk_check_menu_item_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr CheckMenuItem)
checkMenuItemNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m CheckMenuItem
checkMenuItemNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_check_menu_item_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_check_menu_item_new_with_mnemonic" result
result' <- (newObject CheckMenuItem) result
freeMem label'
return result'
-- method CheckMenuItem::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_get_active" gtk_check_menu_item_get_active ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
IO CInt
checkMenuItemGetActive ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
m Bool
checkMenuItemGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_check_menu_item_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CheckMenuItem::get_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_get_draw_as_radio" gtk_check_menu_item_get_draw_as_radio ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
IO CInt
checkMenuItemGetDrawAsRadio ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
m Bool
checkMenuItemGetDrawAsRadio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_check_menu_item_get_draw_as_radio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CheckMenuItem::get_inconsistent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_get_inconsistent" gtk_check_menu_item_get_inconsistent ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
IO CInt
checkMenuItemGetInconsistent ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
m Bool
checkMenuItemGetInconsistent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_check_menu_item_get_inconsistent _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method CheckMenuItem::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_set_active" gtk_check_menu_item_set_active ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
CInt -> -- is_active : TBasicType TBoolean
IO ()
checkMenuItemSetActive ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
Bool -> -- is_active
m ()
checkMenuItemSetActive _obj is_active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_active' = (fromIntegral . fromEnum) is_active
gtk_check_menu_item_set_active _obj' is_active'
touchManagedPtr _obj
return ()
-- method CheckMenuItem::set_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_set_draw_as_radio" gtk_check_menu_item_set_draw_as_radio ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
CInt -> -- draw_as_radio : TBasicType TBoolean
IO ()
checkMenuItemSetDrawAsRadio ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
Bool -> -- draw_as_radio
m ()
checkMenuItemSetDrawAsRadio _obj draw_as_radio = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio
gtk_check_menu_item_set_draw_as_radio _obj' draw_as_radio'
touchManagedPtr _obj
return ()
-- method CheckMenuItem::set_inconsistent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_set_inconsistent" gtk_check_menu_item_set_inconsistent ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
CInt -> -- setting : TBasicType TBoolean
IO ()
checkMenuItemSetInconsistent ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
Bool -> -- setting
m ()
checkMenuItemSetInconsistent _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_check_menu_item_set_inconsistent _obj' setting'
touchManagedPtr _obj
return ()
-- method CheckMenuItem::toggled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_menu_item_toggled" gtk_check_menu_item_toggled ::
Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem"
IO ()
checkMenuItemToggled ::
(MonadIO m, CheckMenuItemK a) =>
a -> -- _obj
m ()
checkMenuItemToggled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_check_menu_item_toggled _obj'
touchManagedPtr _obj
return ()
-- signal CheckMenuItem::toggled
type CheckMenuItemToggledCallback =
IO ()
noCheckMenuItemToggledCallback :: Maybe CheckMenuItemToggledCallback
noCheckMenuItemToggledCallback = Nothing
type CheckMenuItemToggledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCheckMenuItemToggledCallback :: CheckMenuItemToggledCallbackC -> IO (FunPtr CheckMenuItemToggledCallbackC)
checkMenuItemToggledClosure :: CheckMenuItemToggledCallback -> IO Closure
checkMenuItemToggledClosure cb = newCClosure =<< mkCheckMenuItemToggledCallback wrapped
where wrapped = checkMenuItemToggledCallbackWrapper cb
checkMenuItemToggledCallbackWrapper ::
CheckMenuItemToggledCallback ->
Ptr () ->
Ptr () ->
IO ()
checkMenuItemToggledCallbackWrapper _cb _ _ = do
_cb
onCheckMenuItemToggled :: (GObject a, MonadIO m) => a -> CheckMenuItemToggledCallback -> m SignalHandlerId
onCheckMenuItemToggled obj cb = liftIO $ connectCheckMenuItemToggled obj cb SignalConnectBefore
afterCheckMenuItemToggled :: (GObject a, MonadIO m) => a -> CheckMenuItemToggledCallback -> m SignalHandlerId
afterCheckMenuItemToggled obj cb = connectCheckMenuItemToggled obj cb SignalConnectAfter
connectCheckMenuItemToggled :: (GObject a, MonadIO m) =>
a -> CheckMenuItemToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectCheckMenuItemToggled obj cb after = liftIO $ do
cb' <- mkCheckMenuItemToggledCallback (checkMenuItemToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- object CheckMenuItemAccessible
newtype CheckMenuItemAccessible = CheckMenuItemAccessible (ForeignPtr CheckMenuItemAccessible)
noCheckMenuItemAccessible :: Maybe CheckMenuItemAccessible
noCheckMenuItemAccessible = Nothing
foreign import ccall "gtk_check_menu_item_accessible_get_type"
c_gtk_check_menu_item_accessible_get_type :: IO GType
type instance ParentTypes CheckMenuItemAccessible = '[MenuItemAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection]
instance GObject CheckMenuItemAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_check_menu_item_accessible_get_type
class GObject o => CheckMenuItemAccessibleK o
instance (GObject o, IsDescendantOf CheckMenuItemAccessible o) => CheckMenuItemAccessibleK o
toCheckMenuItemAccessible :: CheckMenuItemAccessibleK o => o -> IO CheckMenuItemAccessible
toCheckMenuItemAccessible = unsafeCastTo CheckMenuItemAccessible
-- object Clipboard
newtype Clipboard = Clipboard (ForeignPtr Clipboard)
noClipboard :: Maybe Clipboard
noClipboard = Nothing
foreign import ccall "gtk_clipboard_get_type"
c_gtk_clipboard_get_type :: IO GType
type instance ParentTypes Clipboard = '[GObject.Object]
instance GObject Clipboard where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_clipboard_get_type
class GObject o => ClipboardK o
instance (GObject o, IsDescendantOf Clipboard o) => ClipboardK o
toClipboard :: ClipboardK o => o -> IO Clipboard
toClipboard = unsafeCastTo Clipboard
-- method Clipboard::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_clear" gtk_clipboard_clear ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO ()
clipboardClear ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m ()
clipboardClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_clipboard_clear _obj'
touchManagedPtr _obj
return ()
-- method Clipboard::get_display
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Display"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_get_display" gtk_clipboard_get_display ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO (Ptr Gdk.Display)
clipboardGetDisplay ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m Gdk.Display
clipboardGetDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_get_display _obj'
checkUnexpectedReturnNULL "gtk_clipboard_get_display" result
result' <- (newObject Gdk.Display) result
touchManagedPtr _obj
return result'
-- method Clipboard::get_owner
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_get_owner" gtk_clipboard_get_owner ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO (Ptr GObject.Object)
clipboardGetOwner ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m GObject.Object
clipboardGetOwner _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_get_owner _obj'
checkUnexpectedReturnNULL "gtk_clipboard_get_owner" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
return result'
-- method Clipboard::request_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_contents" gtk_clipboard_request_contents ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
FunPtr ClipboardReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestContents ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
Gdk.Atom -> -- target
ClipboardReceivedFunc -> -- callback
m ()
clipboardRequestContents _obj target callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target' = unsafeManagedPtrGetPtr target
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardReceivedFuncC))
callback' <- mkClipboardReceivedFunc (clipboardReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_contents _obj' target' callback' user_data
touchManagedPtr _obj
touchManagedPtr target
return ()
-- method Clipboard::request_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_image" gtk_clipboard_request_image ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
FunPtr ClipboardImageReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardImageReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestImage ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
ClipboardImageReceivedFunc -> -- callback
m ()
clipboardRequestImage _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardImageReceivedFuncC))
callback' <- mkClipboardImageReceivedFunc (clipboardImageReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_image _obj' callback' user_data
touchManagedPtr _obj
return ()
-- method Clipboard::request_rich_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_rich_text" gtk_clipboard_request_rich_text ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
FunPtr ClipboardRichTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardRichTextReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestRichText ::
(MonadIO m, ClipboardK a, TextBufferK b) =>
a -> -- _obj
b -> -- buffer
ClipboardRichTextReceivedFunc -> -- callback
m ()
clipboardRequestRichText _obj buffer callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardRichTextReceivedFuncC))
callback' <- mkClipboardRichTextReceivedFunc (clipboardRichTextReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_rich_text _obj' buffer' callback' user_data
touchManagedPtr _obj
touchManagedPtr buffer
return ()
-- method Clipboard::request_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_targets" gtk_clipboard_request_targets ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
FunPtr ClipboardTargetsReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTargetsReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestTargets ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
ClipboardTargetsReceivedFunc -> -- callback
m ()
clipboardRequestTargets _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTargetsReceivedFuncC))
callback' <- mkClipboardTargetsReceivedFunc (clipboardTargetsReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_targets _obj' callback' user_data
touchManagedPtr _obj
return ()
-- method Clipboard::request_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_text" gtk_clipboard_request_text ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
FunPtr ClipboardTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTextReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestText ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
ClipboardTextReceivedFunc -> -- callback
m ()
clipboardRequestText _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTextReceivedFuncC))
callback' <- mkClipboardTextReceivedFunc (clipboardTextReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_text _obj' callback' user_data
touchManagedPtr _obj
return ()
-- method Clipboard::request_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_request_uris" gtk_clipboard_request_uris ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
FunPtr ClipboardURIReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardURIReceivedFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
clipboardRequestUris ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
ClipboardURIReceivedFunc -> -- callback
m ()
clipboardRequestUris _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardURIReceivedFuncC))
callback' <- mkClipboardURIReceivedFunc (clipboardURIReceivedFuncWrapper (Just ptrcallback) callback)
poke ptrcallback callback'
let user_data = nullPtr
gtk_clipboard_request_uris _obj' callback' user_data
touchManagedPtr _obj
return ()
-- method Clipboard::set_can_store
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_set_can_store" gtk_clipboard_set_can_store ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
IO ()
clipboardSetCanStore ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
Maybe ([TargetEntry]) -> -- targets
m ()
clipboardSetCanStore _obj targets = liftIO $ do
let n_targets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
gtk_clipboard_set_can_store _obj' maybeTargets n_targets
touchManagedPtr _obj
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return ()
-- method Clipboard::set_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_set_image" gtk_clipboard_set_image ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
clipboardSetImage ::
(MonadIO m, ClipboardK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
b -> -- pixbuf
m ()
clipboardSetImage _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_clipboard_set_image _obj' pixbuf'
touchManagedPtr _obj
touchManagedPtr pixbuf
return ()
-- method Clipboard::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_set_text" gtk_clipboard_set_text ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
clipboardSetText ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
T.Text -> -- text
Int32 -> -- len
m ()
clipboardSetText _obj text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_clipboard_set_text _obj' text' len
touchManagedPtr _obj
freeMem text'
return ()
-- method Clipboard::store
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_store" gtk_clipboard_store ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO ()
clipboardStore ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m ()
clipboardStore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_clipboard_store _obj'
touchManagedPtr _obj
return ()
-- method Clipboard::wait_for_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionData"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_contents" gtk_clipboard_wait_for_contents ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
IO (Ptr SelectionData)
clipboardWaitForContents ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
Gdk.Atom -> -- target
m SelectionData
clipboardWaitForContents _obj target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target' = unsafeManagedPtrGetPtr target
result <- gtk_clipboard_wait_for_contents _obj' target'
checkUnexpectedReturnNULL "gtk_clipboard_wait_for_contents" result
result' <- (wrapBoxed SelectionData) result
touchManagedPtr _obj
touchManagedPtr target
return result'
-- method Clipboard::wait_for_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_image" gtk_clipboard_wait_for_image ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO (Ptr GdkPixbuf.Pixbuf)
clipboardWaitForImage ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
clipboardWaitForImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_for_image _obj'
checkUnexpectedReturnNULL "gtk_clipboard_wait_for_image" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method Clipboard::wait_for_rich_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 3 (TBasicType TUInt8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_rich_text" gtk_clipboard_wait_for_rich_text ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
Ptr (Ptr Gdk.Atom) -> -- format : TInterface "Gdk" "Atom"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr Word8)
clipboardWaitForRichText ::
(MonadIO m, ClipboardK a, TextBufferK b) =>
a -> -- _obj
b -> -- buffer
m (ByteString,Gdk.Atom)
clipboardWaitForRichText _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
format <- allocMem :: IO (Ptr (Ptr Gdk.Atom))
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_clipboard_wait_for_rich_text _obj' buffer' format length_
length_' <- peek length_
checkUnexpectedReturnNULL "gtk_clipboard_wait_for_rich_text" result
result' <- (unpackByteStringWithLength length_') result
freeMem result
format' <- peek format
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
format'' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) format'
touchManagedPtr _obj
touchManagedPtr buffer
freeMem format
freeMem length_
return (result', format'')
-- method Clipboard::wait_for_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_targets" gtk_clipboard_wait_for_targets ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom")
Ptr Int32 -> -- n_targets : TBasicType TInt32
IO CInt
clipboardWaitForTargets ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m (Bool,[Gdk.Atom])
clipboardWaitForTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom)))
n_targets <- allocMem :: IO (Ptr Int32)
result <- gtk_clipboard_wait_for_targets _obj' targets n_targets
n_targets' <- peek n_targets
let result' = (/= 0) result
targets' <- peek targets
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
targets'' <- (unpackPtrArrayWithLength n_targets') targets'
targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets''
freeMem targets'
touchManagedPtr _obj
freeMem targets
freeMem n_targets
return (result', targets''')
-- method Clipboard::wait_for_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_text" gtk_clipboard_wait_for_text ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO CString
clipboardWaitForText ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m T.Text
clipboardWaitForText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_for_text _obj'
checkUnexpectedReturnNULL "gtk_clipboard_wait_for_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Clipboard::wait_for_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_for_uris" gtk_clipboard_wait_for_uris ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO (Ptr CString)
clipboardWaitForUris ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m [T.Text]
clipboardWaitForUris _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_for_uris _obj'
checkUnexpectedReturnNULL "gtk_clipboard_wait_for_uris" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
-- method Clipboard::wait_is_image_available
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_is_image_available" gtk_clipboard_wait_is_image_available ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO CInt
clipboardWaitIsImageAvailable ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m Bool
clipboardWaitIsImageAvailable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_is_image_available _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Clipboard::wait_is_rich_text_available
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_is_rich_text_available" gtk_clipboard_wait_is_rich_text_available ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO CInt
clipboardWaitIsRichTextAvailable ::
(MonadIO m, ClipboardK a, TextBufferK b) =>
a -> -- _obj
b -> -- buffer
m Bool
clipboardWaitIsRichTextAvailable _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_clipboard_wait_is_rich_text_available _obj' buffer'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr buffer
return result'
-- method Clipboard::wait_is_target_available
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_is_target_available" gtk_clipboard_wait_is_target_available ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
IO CInt
clipboardWaitIsTargetAvailable ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
Gdk.Atom -> -- target
m Bool
clipboardWaitIsTargetAvailable _obj target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target' = unsafeManagedPtrGetPtr target
result <- gtk_clipboard_wait_is_target_available _obj' target'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr target
return result'
-- method Clipboard::wait_is_text_available
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_is_text_available" gtk_clipboard_wait_is_text_available ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO CInt
clipboardWaitIsTextAvailable ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m Bool
clipboardWaitIsTextAvailable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_is_text_available _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Clipboard::wait_is_uris_available
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_wait_is_uris_available" gtk_clipboard_wait_is_uris_available ::
Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard"
IO CInt
clipboardWaitIsUrisAvailable ::
(MonadIO m, ClipboardK a) =>
a -> -- _obj
m Bool
clipboardWaitIsUrisAvailable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_clipboard_wait_is_uris_available _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Clipboard::get
-- method type : MemberFunction
-- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Clipboard"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_get" gtk_clipboard_get ::
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
IO (Ptr Clipboard)
clipboardGet ::
(MonadIO m) =>
Gdk.Atom -> -- selection
m Clipboard
clipboardGet selection = liftIO $ do
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_clipboard_get selection'
checkUnexpectedReturnNULL "gtk_clipboard_get" result
result' <- (newObject Clipboard) result
touchManagedPtr selection
return result'
-- method Clipboard::get_default
-- method type : MemberFunction
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Clipboard"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_get_default" gtk_clipboard_get_default ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
IO (Ptr Clipboard)
clipboardGetDefault ::
(MonadIO m, Gdk.DisplayK a) =>
a -> -- display
m Clipboard
clipboardGetDefault display = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
result <- gtk_clipboard_get_default display'
checkUnexpectedReturnNULL "gtk_clipboard_get_default" result
result' <- (newObject Clipboard) result
touchManagedPtr display
return result'
-- method Clipboard::get_for_display
-- method type : MemberFunction
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Clipboard"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_clipboard_get_for_display" gtk_clipboard_get_for_display ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
IO (Ptr Clipboard)
clipboardGetForDisplay ::
(MonadIO m, Gdk.DisplayK a) =>
a -> -- display
Gdk.Atom -> -- selection
m Clipboard
clipboardGetForDisplay display selection = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_clipboard_get_for_display display' selection'
checkUnexpectedReturnNULL "gtk_clipboard_get_for_display" result
result' <- (newObject Clipboard) result
touchManagedPtr display
touchManagedPtr selection
return result'
-- signal Clipboard::owner-change
type ClipboardOwnerChangeCallback =
Gdk.EventOwnerChange ->
IO ()
noClipboardOwnerChangeCallback :: Maybe ClipboardOwnerChangeCallback
noClipboardOwnerChangeCallback = Nothing
type ClipboardOwnerChangeCallbackC =
Ptr () -> -- object
Ptr Gdk.EventOwnerChange ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkClipboardOwnerChangeCallback :: ClipboardOwnerChangeCallbackC -> IO (FunPtr ClipboardOwnerChangeCallbackC)
clipboardOwnerChangeClosure :: ClipboardOwnerChangeCallback -> IO Closure
clipboardOwnerChangeClosure cb = newCClosure =<< mkClipboardOwnerChangeCallback wrapped
where wrapped = clipboardOwnerChangeCallbackWrapper cb
clipboardOwnerChangeCallbackWrapper ::
ClipboardOwnerChangeCallback ->
Ptr () ->
Ptr Gdk.EventOwnerChange ->
Ptr () ->
IO ()
clipboardOwnerChangeCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventOwnerChange) event
_cb event'
onClipboardOwnerChange :: (GObject a, MonadIO m) => a -> ClipboardOwnerChangeCallback -> m SignalHandlerId
onClipboardOwnerChange obj cb = liftIO $ connectClipboardOwnerChange obj cb SignalConnectBefore
afterClipboardOwnerChange :: (GObject a, MonadIO m) => a -> ClipboardOwnerChangeCallback -> m SignalHandlerId
afterClipboardOwnerChange obj cb = connectClipboardOwnerChange obj cb SignalConnectAfter
connectClipboardOwnerChange :: (GObject a, MonadIO m) =>
a -> ClipboardOwnerChangeCallback -> SignalConnectMode -> m SignalHandlerId
connectClipboardOwnerChange obj cb after = liftIO $ do
cb' <- mkClipboardOwnerChangeCallback (clipboardOwnerChangeCallbackWrapper cb)
connectSignalFunPtr obj "owner-change" cb' after
-- callback ClipboardClearFunc
clipboardClearFuncClosure :: ClipboardClearFunc -> IO Closure
clipboardClearFuncClosure cb = newCClosure =<< mkClipboardClearFunc wrapped
where wrapped = clipboardClearFuncWrapper Nothing cb
type ClipboardClearFuncC =
Ptr Clipboard ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardClearFunc :: ClipboardClearFuncC -> IO (FunPtr ClipboardClearFuncC)
type ClipboardClearFunc =
Clipboard ->
Ptr () ->
IO ()
noClipboardClearFunc :: Maybe ClipboardClearFunc
noClipboardClearFunc = Nothing
clipboardClearFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardClearFuncC))) ->
ClipboardClearFunc ->
Ptr Clipboard ->
Ptr () ->
IO ()
clipboardClearFuncWrapper funptrptr _cb clipboard user_data_or_owner = do
clipboard' <- (newObject Clipboard) clipboard
_cb clipboard' user_data_or_owner
maybeReleaseFunPtr funptrptr
-- callback ClipboardGetFunc
clipboardGetFuncClosure :: ClipboardGetFunc -> IO Closure
clipboardGetFuncClosure cb = newCClosure =<< mkClipboardGetFunc wrapped
where wrapped = clipboardGetFuncWrapper Nothing cb
type ClipboardGetFuncC =
Ptr Clipboard ->
Ptr SelectionData ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardGetFunc :: ClipboardGetFuncC -> IO (FunPtr ClipboardGetFuncC)
type ClipboardGetFunc =
Clipboard ->
SelectionData ->
Word32 ->
Ptr () ->
IO ()
noClipboardGetFunc :: Maybe ClipboardGetFunc
noClipboardGetFunc = Nothing
clipboardGetFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardGetFuncC))) ->
ClipboardGetFunc ->
Ptr Clipboard ->
Ptr SelectionData ->
Word32 ->
Ptr () ->
IO ()
clipboardGetFuncWrapper funptrptr _cb clipboard selection_data info user_data_or_owner = do
clipboard' <- (newObject Clipboard) clipboard
selection_data' <- (newBoxed SelectionData) selection_data
_cb clipboard' selection_data' info user_data_or_owner
maybeReleaseFunPtr funptrptr
-- callback ClipboardImageReceivedFunc
clipboardImageReceivedFuncClosure :: ClipboardImageReceivedFunc -> IO Closure
clipboardImageReceivedFuncClosure cb = newCClosure =<< mkClipboardImageReceivedFunc wrapped
where wrapped = clipboardImageReceivedFuncWrapper Nothing cb
type ClipboardImageReceivedFuncC =
Ptr Clipboard ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardImageReceivedFunc :: ClipboardImageReceivedFuncC -> IO (FunPtr ClipboardImageReceivedFuncC)
type ClipboardImageReceivedFunc =
Clipboard ->
GdkPixbuf.Pixbuf ->
IO ()
noClipboardImageReceivedFunc :: Maybe ClipboardImageReceivedFunc
noClipboardImageReceivedFunc = Nothing
clipboardImageReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardImageReceivedFuncC))) ->
ClipboardImageReceivedFunc ->
Ptr Clipboard ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () ->
IO ()
clipboardImageReceivedFuncWrapper funptrptr _cb clipboard pixbuf _ = do
clipboard' <- (newObject Clipboard) clipboard
pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf
_cb clipboard' pixbuf'
maybeReleaseFunPtr funptrptr
-- callback ClipboardReceivedFunc
clipboardReceivedFuncClosure :: ClipboardReceivedFunc -> IO Closure
clipboardReceivedFuncClosure cb = newCClosure =<< mkClipboardReceivedFunc wrapped
where wrapped = clipboardReceivedFuncWrapper Nothing cb
type ClipboardReceivedFuncC =
Ptr Clipboard ->
Ptr SelectionData ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardReceivedFunc :: ClipboardReceivedFuncC -> IO (FunPtr ClipboardReceivedFuncC)
type ClipboardReceivedFunc =
Clipboard ->
SelectionData ->
IO ()
noClipboardReceivedFunc :: Maybe ClipboardReceivedFunc
noClipboardReceivedFunc = Nothing
clipboardReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardReceivedFuncC))) ->
ClipboardReceivedFunc ->
Ptr Clipboard ->
Ptr SelectionData ->
Ptr () ->
IO ()
clipboardReceivedFuncWrapper funptrptr _cb clipboard selection_data _ = do
clipboard' <- (newObject Clipboard) clipboard
selection_data' <- (newBoxed SelectionData) selection_data
_cb clipboard' selection_data'
maybeReleaseFunPtr funptrptr
-- callback ClipboardRichTextReceivedFunc
clipboardRichTextReceivedFuncClosure :: ClipboardRichTextReceivedFunc -> IO Closure
clipboardRichTextReceivedFuncClosure cb = newCClosure =<< mkClipboardRichTextReceivedFunc wrapped
where wrapped = clipboardRichTextReceivedFuncWrapper Nothing cb
type ClipboardRichTextReceivedFuncC =
Ptr Clipboard ->
Ptr Gdk.Atom ->
CString ->
Word64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardRichTextReceivedFunc :: ClipboardRichTextReceivedFuncC -> IO (FunPtr ClipboardRichTextReceivedFuncC)
type ClipboardRichTextReceivedFunc =
Clipboard ->
Gdk.Atom ->
Maybe T.Text ->
Word64 ->
IO ()
noClipboardRichTextReceivedFunc :: Maybe ClipboardRichTextReceivedFunc
noClipboardRichTextReceivedFunc = Nothing
clipboardRichTextReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardRichTextReceivedFuncC))) ->
ClipboardRichTextReceivedFunc ->
Ptr Clipboard ->
Ptr Gdk.Atom ->
CString ->
Word64 ->
Ptr () ->
IO ()
clipboardRichTextReceivedFuncWrapper funptrptr _cb clipboard format text length_ _ = do
clipboard' <- (newObject Clipboard) clipboard
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
format' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) format
maybeText <-
if text == nullPtr
then return Nothing
else do
text' <- cstringToText text
return $ Just text'
_cb clipboard' format' maybeText length_
maybeReleaseFunPtr funptrptr
-- callback ClipboardTargetsReceivedFunc
clipboardTargetsReceivedFuncClosure :: ClipboardTargetsReceivedFunc -> IO Closure
clipboardTargetsReceivedFuncClosure cb = newCClosure =<< mkClipboardTargetsReceivedFunc wrapped
where wrapped = clipboardTargetsReceivedFuncWrapper Nothing cb
type ClipboardTargetsReceivedFuncC =
Ptr Clipboard ->
Ptr (Ptr Gdk.Atom) ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardTargetsReceivedFunc :: ClipboardTargetsReceivedFuncC -> IO (FunPtr ClipboardTargetsReceivedFuncC)
type ClipboardTargetsReceivedFunc =
Clipboard ->
Maybe [Gdk.Atom] ->
IO ()
noClipboardTargetsReceivedFunc :: Maybe ClipboardTargetsReceivedFunc
noClipboardTargetsReceivedFunc = Nothing
clipboardTargetsReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardTargetsReceivedFuncC))) ->
ClipboardTargetsReceivedFunc ->
Ptr Clipboard ->
Ptr (Ptr Gdk.Atom) ->
Int32 ->
Ptr () ->
IO ()
clipboardTargetsReceivedFuncWrapper funptrptr _cb clipboard atoms n_atoms _ = do
clipboard' <- (newObject Clipboard) clipboard
maybeAtoms <-
if atoms == nullPtr
then return Nothing
else do
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
atoms' <- (unpackPtrArrayWithLength n_atoms) atoms
atoms'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) atoms'
return $ Just atoms''
_cb clipboard' maybeAtoms
maybeReleaseFunPtr funptrptr
-- callback ClipboardTextReceivedFunc
clipboardTextReceivedFuncClosure :: ClipboardTextReceivedFunc -> IO Closure
clipboardTextReceivedFuncClosure cb = newCClosure =<< mkClipboardTextReceivedFunc wrapped
where wrapped = clipboardTextReceivedFuncWrapper Nothing cb
type ClipboardTextReceivedFuncC =
Ptr Clipboard ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardTextReceivedFunc :: ClipboardTextReceivedFuncC -> IO (FunPtr ClipboardTextReceivedFuncC)
type ClipboardTextReceivedFunc =
Clipboard ->
Maybe T.Text ->
IO ()
noClipboardTextReceivedFunc :: Maybe ClipboardTextReceivedFunc
noClipboardTextReceivedFunc = Nothing
clipboardTextReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardTextReceivedFuncC))) ->
ClipboardTextReceivedFunc ->
Ptr Clipboard ->
CString ->
Ptr () ->
IO ()
clipboardTextReceivedFuncWrapper funptrptr _cb clipboard text _ = do
clipboard' <- (newObject Clipboard) clipboard
maybeText <-
if text == nullPtr
then return Nothing
else do
text' <- cstringToText text
return $ Just text'
_cb clipboard' maybeText
maybeReleaseFunPtr funptrptr
-- callback ClipboardURIReceivedFunc
clipboardURIReceivedFuncClosure :: ClipboardURIReceivedFunc -> IO Closure
clipboardURIReceivedFuncClosure cb = newCClosure =<< mkClipboardURIReceivedFunc wrapped
where wrapped = clipboardURIReceivedFuncWrapper Nothing cb
type ClipboardURIReceivedFuncC =
Ptr Clipboard ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkClipboardURIReceivedFunc :: ClipboardURIReceivedFuncC -> IO (FunPtr ClipboardURIReceivedFuncC)
type ClipboardURIReceivedFunc =
Clipboard ->
[T.Text] ->
IO ()
noClipboardURIReceivedFunc :: Maybe ClipboardURIReceivedFunc
noClipboardURIReceivedFunc = Nothing
clipboardURIReceivedFuncWrapper ::
Maybe (Ptr (FunPtr (ClipboardURIReceivedFuncC))) ->
ClipboardURIReceivedFunc ->
Ptr Clipboard ->
Ptr CString ->
Ptr () ->
IO ()
clipboardURIReceivedFuncWrapper funptrptr _cb clipboard uris _ = do
clipboard' <- (newObject Clipboard) clipboard
uris' <- unpackZeroTerminatedUTF8CArray uris
_cb clipboard' uris'
maybeReleaseFunPtr funptrptr
-- object ColorButton
newtype ColorButton = ColorButton (ForeignPtr ColorButton)
noColorButton :: Maybe ColorButton
noColorButton = Nothing
foreign import ccall "gtk_color_button_get_type"
c_gtk_color_button_get_type :: IO GType
type instance ParentTypes ColorButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, ColorChooser]
instance GObject ColorButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_color_button_get_type
class GObject o => ColorButtonK o
instance (GObject o, IsDescendantOf ColorButton o) => ColorButtonK o
toColorButton :: ColorButtonK o => o -> IO ColorButton
toColorButton = unsafeCastTo ColorButton
-- method ColorButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ColorButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_new" gtk_color_button_new ::
IO (Ptr ColorButton)
colorButtonNew ::
(MonadIO m) =>
m ColorButton
colorButtonNew = liftIO $ do
result <- gtk_color_button_new
checkUnexpectedReturnNULL "gtk_color_button_new" result
result' <- (newObject ColorButton) result
return result'
-- method ColorButton::new_with_color
-- method type : Constructor
-- Args : [Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ColorButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_new_with_color" gtk_color_button_new_with_color ::
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO (Ptr ColorButton)
{-# DEPRECATED colorButtonNewWithColor ["(Since version 3.4)","Use gtk_color_button_new_with_rgba() instead."]#-}
colorButtonNewWithColor ::
(MonadIO m) =>
Gdk.Color -> -- color
m ColorButton
colorButtonNewWithColor color = liftIO $ do
let color' = unsafeManagedPtrGetPtr color
result <- gtk_color_button_new_with_color color'
checkUnexpectedReturnNULL "gtk_color_button_new_with_color" result
result' <- (newObject ColorButton) result
touchManagedPtr color
return result'
-- method ColorButton::new_with_rgba
-- method type : Constructor
-- Args : [Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ColorButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_new_with_rgba" gtk_color_button_new_with_rgba ::
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO (Ptr ColorButton)
colorButtonNewWithRgba ::
(MonadIO m) =>
Gdk.RGBA -> -- rgba
m ColorButton
colorButtonNewWithRgba rgba = liftIO $ do
let rgba' = unsafeManagedPtrGetPtr rgba
result <- gtk_color_button_new_with_rgba rgba'
checkUnexpectedReturnNULL "gtk_color_button_new_with_rgba" result
result' <- (newObject ColorButton) result
touchManagedPtr rgba
return result'
-- method ColorButton::get_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_get_alpha" gtk_color_button_get_alpha ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
IO Word16
{-# DEPRECATED colorButtonGetAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-}
colorButtonGetAlpha ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
m Word16
colorButtonGetAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_button_get_alpha _obj'
touchManagedPtr _obj
return result
-- method ColorButton::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_get_color" gtk_color_button_get_color ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorButtonGetColor ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-}
colorButtonGetColor ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
m (Gdk.Color)
colorButtonGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
gtk_color_button_get_color _obj' color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr _obj
return color'
-- method ColorButton::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_get_title" gtk_color_button_get_title ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
IO CString
colorButtonGetTitle ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
m T.Text
colorButtonGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_button_get_title _obj'
checkUnexpectedReturnNULL "gtk_color_button_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ColorButton::get_use_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_get_use_alpha" gtk_color_button_get_use_alpha ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
IO CInt
{-# DEPRECATED colorButtonGetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_use_alpha() instead."]#-}
colorButtonGetUseAlpha ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
m Bool
colorButtonGetUseAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_button_get_use_alpha _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ColorButton::set_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_set_alpha" gtk_color_button_set_alpha ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
Word16 -> -- alpha : TBasicType TUInt16
IO ()
{-# DEPRECATED colorButtonSetAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_rgba() instead."]#-}
colorButtonSetAlpha ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
Word16 -> -- alpha
m ()
colorButtonSetAlpha _obj alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_color_button_set_alpha _obj' alpha
touchManagedPtr _obj
return ()
-- method ColorButton::set_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_set_color" gtk_color_button_set_color ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorButtonSetColor ["Use gtk_color_chooser_set_rgba() instead."]#-}
colorButtonSetColor ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
Gdk.Color -> -- color
m ()
colorButtonSetColor _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gtk_color_button_set_color _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method ColorButton::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_set_title" gtk_color_button_set_title ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
CString -> -- title : TBasicType TUTF8
IO ()
colorButtonSetTitle ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
T.Text -> -- title
m ()
colorButtonSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_color_button_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method ColorButton::set_use_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_button_set_use_alpha" gtk_color_button_set_use_alpha ::
Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton"
CInt -> -- use_alpha : TBasicType TBoolean
IO ()
{-# DEPRECATED colorButtonSetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_use_alpha() instead."]#-}
colorButtonSetUseAlpha ::
(MonadIO m, ColorButtonK a) =>
a -> -- _obj
Bool -> -- use_alpha
m ()
colorButtonSetUseAlpha _obj use_alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_alpha' = (fromIntegral . fromEnum) use_alpha
gtk_color_button_set_use_alpha _obj' use_alpha'
touchManagedPtr _obj
return ()
-- signal ColorButton::color-set
type ColorButtonColorSetCallback =
IO ()
noColorButtonColorSetCallback :: Maybe ColorButtonColorSetCallback
noColorButtonColorSetCallback = Nothing
type ColorButtonColorSetCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkColorButtonColorSetCallback :: ColorButtonColorSetCallbackC -> IO (FunPtr ColorButtonColorSetCallbackC)
colorButtonColorSetClosure :: ColorButtonColorSetCallback -> IO Closure
colorButtonColorSetClosure cb = newCClosure =<< mkColorButtonColorSetCallback wrapped
where wrapped = colorButtonColorSetCallbackWrapper cb
colorButtonColorSetCallbackWrapper ::
ColorButtonColorSetCallback ->
Ptr () ->
Ptr () ->
IO ()
colorButtonColorSetCallbackWrapper _cb _ _ = do
_cb
onColorButtonColorSet :: (GObject a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId
onColorButtonColorSet obj cb = liftIO $ connectColorButtonColorSet obj cb SignalConnectBefore
afterColorButtonColorSet :: (GObject a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId
afterColorButtonColorSet obj cb = connectColorButtonColorSet obj cb SignalConnectAfter
connectColorButtonColorSet :: (GObject a, MonadIO m) =>
a -> ColorButtonColorSetCallback -> SignalConnectMode -> m SignalHandlerId
connectColorButtonColorSet obj cb after = liftIO $ do
cb' <- mkColorButtonColorSetCallback (colorButtonColorSetCallbackWrapper cb)
connectSignalFunPtr obj "color-set" cb' after
-- interface ColorChooser
newtype ColorChooser = ColorChooser (ForeignPtr ColorChooser)
noColorChooser :: Maybe ColorChooser
noColorChooser = Nothing
foreign import ccall "gtk_color_chooser_get_type"
c_gtk_color_chooser_get_type :: IO GType
type instance ParentTypes ColorChooser = '[GObject.Object]
instance GObject ColorChooser where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_color_chooser_get_type
class GObject o => ColorChooserK o
instance (GObject o, IsDescendantOf ColorChooser o) => ColorChooserK o
toColorChooser :: ColorChooserK o => o -> IO ColorChooser
toColorChooser = unsafeCastTo ColorChooser
-- method ColorChooser::add_palette
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_add_palette" gtk_color_chooser_add_palette ::
Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Int32 -> -- colors_per_line : TBasicType TInt32
Int32 -> -- n_colors : TBasicType TInt32
Ptr Gdk.RGBA -> -- colors : TCArray False (-1) 3 (TInterface "Gdk" "RGBA")
IO ()
colorChooserAddPalette ::
(MonadIO m, ColorChooserK a) =>
a -> -- _obj
Orientation -> -- orientation
Int32 -> -- colors_per_line
Maybe ([Gdk.RGBA]) -> -- colors
m ()
colorChooserAddPalette _obj orientation colors_per_line colors = liftIO $ do
let n_colors = case colors of
Nothing -> 0
Just jColors -> fromIntegral $ length jColors
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
maybeColors <- case colors of
Nothing -> return nullPtr
Just jColors -> do
let jColors' = map unsafeManagedPtrGetPtr jColors
jColors'' <- packBlockArray 32 jColors'
return jColors''
gtk_color_chooser_add_palette _obj' orientation' colors_per_line n_colors maybeColors
touchManagedPtr _obj
whenJust colors (mapM_ touchManagedPtr)
freeMem maybeColors
return ()
-- method ColorChooser::get_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_get_rgba" gtk_color_chooser_get_rgba ::
Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
colorChooserGetRgba ::
(MonadIO m, ColorChooserK a) =>
a -> -- _obj
m (Gdk.RGBA)
colorChooserGetRgba _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_color_chooser_get_rgba _obj' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method ColorChooser::get_use_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_get_use_alpha" gtk_color_chooser_get_use_alpha ::
Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser"
IO CInt
colorChooserGetUseAlpha ::
(MonadIO m, ColorChooserK a) =>
a -> -- _obj
m Bool
colorChooserGetUseAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_chooser_get_use_alpha _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ColorChooser::set_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_set_rgba" gtk_color_chooser_set_rgba ::
Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
colorChooserSetRgba ::
(MonadIO m, ColorChooserK a) =>
a -> -- _obj
Gdk.RGBA -> -- color
m ()
colorChooserSetRgba _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gtk_color_chooser_set_rgba _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method ColorChooser::set_use_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_set_use_alpha" gtk_color_chooser_set_use_alpha ::
Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser"
CInt -> -- use_alpha : TBasicType TBoolean
IO ()
colorChooserSetUseAlpha ::
(MonadIO m, ColorChooserK a) =>
a -> -- _obj
Bool -> -- use_alpha
m ()
colorChooserSetUseAlpha _obj use_alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_alpha' = (fromIntegral . fromEnum) use_alpha
gtk_color_chooser_set_use_alpha _obj' use_alpha'
touchManagedPtr _obj
return ()
-- signal ColorChooser::color-activated
type ColorChooserColorActivatedCallback =
Gdk.RGBA ->
IO ()
noColorChooserColorActivatedCallback :: Maybe ColorChooserColorActivatedCallback
noColorChooserColorActivatedCallback = Nothing
type ColorChooserColorActivatedCallbackC =
Ptr () -> -- object
Ptr Gdk.RGBA ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkColorChooserColorActivatedCallback :: ColorChooserColorActivatedCallbackC -> IO (FunPtr ColorChooserColorActivatedCallbackC)
colorChooserColorActivatedClosure :: ColorChooserColorActivatedCallback -> IO Closure
colorChooserColorActivatedClosure cb = newCClosure =<< mkColorChooserColorActivatedCallback wrapped
where wrapped = colorChooserColorActivatedCallbackWrapper cb
colorChooserColorActivatedCallbackWrapper ::
ColorChooserColorActivatedCallback ->
Ptr () ->
Ptr Gdk.RGBA ->
Ptr () ->
IO ()
colorChooserColorActivatedCallbackWrapper _cb _ color _ = do
color' <- (newBoxed Gdk.RGBA) color
_cb color'
onColorChooserColorActivated :: (GObject a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId
onColorChooserColorActivated obj cb = liftIO $ connectColorChooserColorActivated obj cb SignalConnectBefore
afterColorChooserColorActivated :: (GObject a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId
afterColorChooserColorActivated obj cb = connectColorChooserColorActivated obj cb SignalConnectAfter
connectColorChooserColorActivated :: (GObject a, MonadIO m) =>
a -> ColorChooserColorActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectColorChooserColorActivated obj cb after = liftIO $ do
cb' <- mkColorChooserColorActivatedCallback (colorChooserColorActivatedCallbackWrapper cb)
connectSignalFunPtr obj "color-activated" cb' after
-- object ColorChooserDialog
newtype ColorChooserDialog = ColorChooserDialog (ForeignPtr ColorChooserDialog)
noColorChooserDialog :: Maybe ColorChooserDialog
noColorChooserDialog = Nothing
foreign import ccall "gtk_color_chooser_dialog_get_type"
c_gtk_color_chooser_dialog_get_type :: IO GType
type instance ParentTypes ColorChooserDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ColorChooser]
instance GObject ColorChooserDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_color_chooser_dialog_get_type
class GObject o => ColorChooserDialogK o
instance (GObject o, IsDescendantOf ColorChooserDialog o) => ColorChooserDialogK o
toColorChooserDialog :: ColorChooserDialogK o => o -> IO ColorChooserDialog
toColorChooserDialog = unsafeCastTo ColorChooserDialog
-- method ColorChooserDialog::new
-- method type : Constructor
-- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ColorChooserDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_dialog_new" gtk_color_chooser_dialog_new ::
CString -> -- title : TBasicType TUTF8
Ptr Window -> -- parent : TInterface "Gtk" "Window"
IO (Ptr ColorChooserDialog)
colorChooserDialogNew ::
(MonadIO m, WindowK a) =>
Maybe (T.Text) -> -- title
Maybe (a) -> -- parent
m ColorChooserDialog
colorChooserDialogNew title parent = liftIO $ do
maybeTitle <- case title of
Nothing -> return nullPtr
Just jTitle -> do
jTitle' <- textToCString jTitle
return jTitle'
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
result <- gtk_color_chooser_dialog_new maybeTitle maybeParent
checkUnexpectedReturnNULL "gtk_color_chooser_dialog_new" result
result' <- (newObject ColorChooserDialog) result
whenJust parent touchManagedPtr
freeMem maybeTitle
return result'
-- object ColorChooserWidget
newtype ColorChooserWidget = ColorChooserWidget (ForeignPtr ColorChooserWidget)
noColorChooserWidget :: Maybe ColorChooserWidget
noColorChooserWidget = Nothing
foreign import ccall "gtk_color_chooser_widget_get_type"
c_gtk_color_chooser_widget_get_type :: IO GType
type instance ParentTypes ColorChooserWidget = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ColorChooser, Orientable]
instance GObject ColorChooserWidget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_color_chooser_widget_get_type
class GObject o => ColorChooserWidgetK o
instance (GObject o, IsDescendantOf ColorChooserWidget o) => ColorChooserWidgetK o
toColorChooserWidget :: ColorChooserWidgetK o => o -> IO ColorChooserWidget
toColorChooserWidget = unsafeCastTo ColorChooserWidget
-- method ColorChooserWidget::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ColorChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_chooser_widget_new" gtk_color_chooser_widget_new ::
IO (Ptr ColorChooserWidget)
colorChooserWidgetNew ::
(MonadIO m) =>
m ColorChooserWidget
colorChooserWidgetNew = liftIO $ do
result <- gtk_color_chooser_widget_new
checkUnexpectedReturnNULL "gtk_color_chooser_widget_new" result
result' <- (newObject ColorChooserWidget) result
return result'
-- object ColorSelection
newtype ColorSelection = ColorSelection (ForeignPtr ColorSelection)
noColorSelection :: Maybe ColorSelection
noColorSelection = Nothing
foreign import ccall "gtk_color_selection_get_type"
c_gtk_color_selection_get_type :: IO GType
type instance ParentTypes ColorSelection = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject ColorSelection where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_color_selection_get_type
class GObject o => ColorSelectionK o
instance (GObject o, IsDescendantOf ColorSelection o) => ColorSelectionK o
toColorSelection :: ColorSelectionK o => o -> IO ColorSelection
toColorSelection = unsafeCastTo ColorSelection
-- method ColorSelection::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ColorSelection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_new" gtk_color_selection_new ::
IO (Ptr ColorSelection)
colorSelectionNew ::
(MonadIO m) =>
m ColorSelection
colorSelectionNew = liftIO $ do
result <- gtk_color_selection_new
checkUnexpectedReturnNULL "gtk_color_selection_new" result
result' <- (newObject ColorSelection) result
return result'
-- method ColorSelection::get_current_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_current_alpha" gtk_color_selection_get_current_alpha ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
IO Word16
colorSelectionGetCurrentAlpha ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m Word16
colorSelectionGetCurrentAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_get_current_alpha _obj'
touchManagedPtr _obj
return result
-- method ColorSelection::get_current_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_current_color" gtk_color_selection_get_current_color ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorSelectionGetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_get_current_rgba() instead."]#-}
colorSelectionGetCurrentColor ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m (Gdk.Color)
colorSelectionGetCurrentColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
gtk_color_selection_get_current_color _obj' color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr _obj
return color'
-- method ColorSelection::get_current_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_current_rgba" gtk_color_selection_get_current_rgba ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
colorSelectionGetCurrentRgba ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m (Gdk.RGBA)
colorSelectionGetCurrentRgba _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_color_selection_get_current_rgba _obj' rgba
rgba' <- (wrapBoxed Gdk.RGBA) rgba
touchManagedPtr _obj
return rgba'
-- method ColorSelection::get_has_opacity_control
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_has_opacity_control" gtk_color_selection_get_has_opacity_control ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
IO CInt
colorSelectionGetHasOpacityControl ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m Bool
colorSelectionGetHasOpacityControl _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_get_has_opacity_control _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ColorSelection::get_has_palette
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_has_palette" gtk_color_selection_get_has_palette ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
IO CInt
colorSelectionGetHasPalette ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m Bool
colorSelectionGetHasPalette _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_get_has_palette _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ColorSelection::get_previous_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_previous_alpha" gtk_color_selection_get_previous_alpha ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
IO Word16
colorSelectionGetPreviousAlpha ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m Word16
colorSelectionGetPreviousAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_get_previous_alpha _obj'
touchManagedPtr _obj
return result
-- method ColorSelection::get_previous_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_previous_color" gtk_color_selection_get_previous_color ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorSelectionGetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_get_previous_rgba() instead."]#-}
colorSelectionGetPreviousColor ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m (Gdk.Color)
colorSelectionGetPreviousColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
gtk_color_selection_get_previous_color _obj' color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr _obj
return color'
-- method ColorSelection::get_previous_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_get_previous_rgba" gtk_color_selection_get_previous_rgba ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
colorSelectionGetPreviousRgba ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m (Gdk.RGBA)
colorSelectionGetPreviousRgba _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_color_selection_get_previous_rgba _obj' rgba
rgba' <- (wrapBoxed Gdk.RGBA) rgba
touchManagedPtr _obj
return rgba'
-- method ColorSelection::is_adjusting
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_is_adjusting" gtk_color_selection_is_adjusting ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
IO CInt
colorSelectionIsAdjusting ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
m Bool
colorSelectionIsAdjusting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_is_adjusting _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ColorSelection::set_current_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_current_alpha" gtk_color_selection_set_current_alpha ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Word16 -> -- alpha : TBasicType TUInt16
IO ()
colorSelectionSetCurrentAlpha ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Word16 -> -- alpha
m ()
colorSelectionSetCurrentAlpha _obj alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_color_selection_set_current_alpha _obj' alpha
touchManagedPtr _obj
return ()
-- method ColorSelection::set_current_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_current_color" gtk_color_selection_set_current_color ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorSelectionSetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_set_current_rgba() instead."]#-}
colorSelectionSetCurrentColor ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Gdk.Color -> -- color
m ()
colorSelectionSetCurrentColor _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gtk_color_selection_set_current_color _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method ColorSelection::set_current_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_current_rgba" gtk_color_selection_set_current_rgba ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
colorSelectionSetCurrentRgba ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Gdk.RGBA -> -- rgba
m ()
colorSelectionSetCurrentRgba _obj rgba = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rgba' = unsafeManagedPtrGetPtr rgba
gtk_color_selection_set_current_rgba _obj' rgba'
touchManagedPtr _obj
touchManagedPtr rgba
return ()
-- method ColorSelection::set_has_opacity_control
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_has_opacity_control" gtk_color_selection_set_has_opacity_control ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
CInt -> -- has_opacity : TBasicType TBoolean
IO ()
colorSelectionSetHasOpacityControl ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Bool -> -- has_opacity
m ()
colorSelectionSetHasOpacityControl _obj has_opacity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_opacity' = (fromIntegral . fromEnum) has_opacity
gtk_color_selection_set_has_opacity_control _obj' has_opacity'
touchManagedPtr _obj
return ()
-- method ColorSelection::set_has_palette
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_has_palette" gtk_color_selection_set_has_palette ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
CInt -> -- has_palette : TBasicType TBoolean
IO ()
colorSelectionSetHasPalette ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Bool -> -- has_palette
m ()
colorSelectionSetHasPalette _obj has_palette = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_palette' = (fromIntegral . fromEnum) has_palette
gtk_color_selection_set_has_palette _obj' has_palette'
touchManagedPtr _obj
return ()
-- method ColorSelection::set_previous_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_previous_alpha" gtk_color_selection_set_previous_alpha ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Word16 -> -- alpha : TBasicType TUInt16
IO ()
colorSelectionSetPreviousAlpha ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Word16 -> -- alpha
m ()
colorSelectionSetPreviousAlpha _obj alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_color_selection_set_previous_alpha _obj' alpha
touchManagedPtr _obj
return ()
-- method ColorSelection::set_previous_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_previous_color" gtk_color_selection_set_previous_color ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED colorSelectionSetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_set_previous_rgba() instead."]#-}
colorSelectionSetPreviousColor ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Gdk.Color -> -- color
m ()
colorSelectionSetPreviousColor _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gtk_color_selection_set_previous_color _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method ColorSelection::set_previous_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_set_previous_rgba" gtk_color_selection_set_previous_rgba ::
Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
colorSelectionSetPreviousRgba ::
(MonadIO m, ColorSelectionK a) =>
a -> -- _obj
Gdk.RGBA -> -- rgba
m ()
colorSelectionSetPreviousRgba _obj rgba = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rgba' = unsafeManagedPtrGetPtr rgba
gtk_color_selection_set_previous_rgba _obj' rgba'
touchManagedPtr _obj
touchManagedPtr rgba
return ()
-- method ColorSelection::palette_from_string
-- method type : MemberFunction
-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_palette_from_string" gtk_color_selection_palette_from_string ::
CString -> -- str : TBasicType TUTF8
Ptr (Ptr Gdk.Color) -> -- colors : TCArray False (-1) 2 (TInterface "Gdk" "Color")
Ptr Int32 -> -- n_colors : TBasicType TInt32
IO CInt
colorSelectionPaletteFromString ::
(MonadIO m) =>
T.Text -> -- str
m (Bool,[Gdk.Color])
colorSelectionPaletteFromString str = liftIO $ do
str' <- textToCString str
colors <- allocMem :: IO (Ptr (Ptr Gdk.Color))
n_colors <- allocMem :: IO (Ptr Int32)
result <- gtk_color_selection_palette_from_string str' colors n_colors
n_colors' <- peek n_colors
let result' = (/= 0) result
colors' <- peek colors
colors'' <- (unpackBoxedArrayWithLength 12 n_colors') colors'
colors''' <- mapM (wrapBoxed Gdk.Color) colors''
freeMem colors'
freeMem str'
freeMem colors
freeMem n_colors
return (result', colors''')
-- method ColorSelection::palette_to_string
-- method type : MemberFunction
-- Args : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_palette_to_string" gtk_color_selection_palette_to_string ::
Ptr Gdk.Color -> -- colors : TCArray False (-1) 1 (TInterface "Gdk" "Color")
Int32 -> -- n_colors : TBasicType TInt32
IO CString
colorSelectionPaletteToString ::
(MonadIO m) =>
[Gdk.Color] -> -- colors
m T.Text
colorSelectionPaletteToString colors = liftIO $ do
let n_colors = fromIntegral $ length colors
let colors' = map unsafeManagedPtrGetPtr colors
colors'' <- packBlockArray 12 colors'
result <- gtk_color_selection_palette_to_string colors'' n_colors
checkUnexpectedReturnNULL "gtk_color_selection_palette_to_string" result
result' <- cstringToText result
freeMem result
mapM_ touchManagedPtr colors
freeMem colors''
return result'
-- signal ColorSelection::color-changed
type ColorSelectionColorChangedCallback =
IO ()
noColorSelectionColorChangedCallback :: Maybe ColorSelectionColorChangedCallback
noColorSelectionColorChangedCallback = Nothing
type ColorSelectionColorChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkColorSelectionColorChangedCallback :: ColorSelectionColorChangedCallbackC -> IO (FunPtr ColorSelectionColorChangedCallbackC)
colorSelectionColorChangedClosure :: ColorSelectionColorChangedCallback -> IO Closure
colorSelectionColorChangedClosure cb = newCClosure =<< mkColorSelectionColorChangedCallback wrapped
where wrapped = colorSelectionColorChangedCallbackWrapper cb
colorSelectionColorChangedCallbackWrapper ::
ColorSelectionColorChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
colorSelectionColorChangedCallbackWrapper _cb _ _ = do
_cb
onColorSelectionColorChanged :: (GObject a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId
onColorSelectionColorChanged obj cb = liftIO $ connectColorSelectionColorChanged obj cb SignalConnectBefore
afterColorSelectionColorChanged :: (GObject a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId
afterColorSelectionColorChanged obj cb = connectColorSelectionColorChanged obj cb SignalConnectAfter
connectColorSelectionColorChanged :: (GObject a, MonadIO m) =>
a -> ColorSelectionColorChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectColorSelectionColorChanged obj cb after = liftIO $ do
cb' <- mkColorSelectionColorChangedCallback (colorSelectionColorChangedCallbackWrapper cb)
connectSignalFunPtr obj "color-changed" cb' after
-- callback ColorSelectionChangePaletteFunc
colorSelectionChangePaletteFuncClosure :: ColorSelectionChangePaletteFunc -> IO Closure
colorSelectionChangePaletteFuncClosure cb = newCClosure =<< mkColorSelectionChangePaletteFunc wrapped
where wrapped = colorSelectionChangePaletteFuncWrapper Nothing cb
type ColorSelectionChangePaletteFuncC =
Ptr Gdk.Color ->
Int32 ->
IO ()
foreign import ccall "wrapper"
mkColorSelectionChangePaletteFunc :: ColorSelectionChangePaletteFuncC -> IO (FunPtr ColorSelectionChangePaletteFuncC)
type ColorSelectionChangePaletteFunc =
[Gdk.Color] ->
IO ()
noColorSelectionChangePaletteFunc :: Maybe ColorSelectionChangePaletteFunc
noColorSelectionChangePaletteFunc = Nothing
colorSelectionChangePaletteFuncWrapper ::
Maybe (Ptr (FunPtr (ColorSelectionChangePaletteFuncC))) ->
ColorSelectionChangePaletteFunc ->
Ptr Gdk.Color ->
Int32 ->
IO ()
colorSelectionChangePaletteFuncWrapper funptrptr _cb colors n_colors = do
colors' <- (unpackBoxedArrayWithLength 12 n_colors) colors
colors'' <- mapM (newBoxed Gdk.Color) colors'
_cb colors''
maybeReleaseFunPtr funptrptr
-- callback ColorSelectionChangePaletteWithScreenFunc
colorSelectionChangePaletteWithScreenFuncClosure :: ColorSelectionChangePaletteWithScreenFunc -> IO Closure
colorSelectionChangePaletteWithScreenFuncClosure cb = newCClosure =<< mkColorSelectionChangePaletteWithScreenFunc wrapped
where wrapped = colorSelectionChangePaletteWithScreenFuncWrapper Nothing cb
type ColorSelectionChangePaletteWithScreenFuncC =
Ptr Gdk.Screen ->
Ptr Gdk.Color ->
Int32 ->
IO ()
foreign import ccall "wrapper"
mkColorSelectionChangePaletteWithScreenFunc :: ColorSelectionChangePaletteWithScreenFuncC -> IO (FunPtr ColorSelectionChangePaletteWithScreenFuncC)
type ColorSelectionChangePaletteWithScreenFunc =
Gdk.Screen ->
[Gdk.Color] ->
IO ()
noColorSelectionChangePaletteWithScreenFunc :: Maybe ColorSelectionChangePaletteWithScreenFunc
noColorSelectionChangePaletteWithScreenFunc = Nothing
colorSelectionChangePaletteWithScreenFuncWrapper ::
Maybe (Ptr (FunPtr (ColorSelectionChangePaletteWithScreenFuncC))) ->
ColorSelectionChangePaletteWithScreenFunc ->
Ptr Gdk.Screen ->
Ptr Gdk.Color ->
Int32 ->
IO ()
colorSelectionChangePaletteWithScreenFuncWrapper funptrptr _cb screen colors n_colors = do
screen' <- (newObject Gdk.Screen) screen
colors' <- (unpackBoxedArrayWithLength 12 n_colors) colors
colors'' <- mapM (newBoxed Gdk.Color) colors'
_cb screen' colors''
maybeReleaseFunPtr funptrptr
-- object ColorSelectionDialog
newtype ColorSelectionDialog = ColorSelectionDialog (ForeignPtr ColorSelectionDialog)
noColorSelectionDialog :: Maybe ColorSelectionDialog
noColorSelectionDialog = Nothing
foreign import ccall "gtk_color_selection_dialog_get_type"
c_gtk_color_selection_dialog_get_type :: IO GType
type instance ParentTypes ColorSelectionDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ColorSelectionDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_color_selection_dialog_get_type
class GObject o => ColorSelectionDialogK o
instance (GObject o, IsDescendantOf ColorSelectionDialog o) => ColorSelectionDialogK o
toColorSelectionDialog :: ColorSelectionDialogK o => o -> IO ColorSelectionDialog
toColorSelectionDialog = unsafeCastTo ColorSelectionDialog
-- method ColorSelectionDialog::new
-- method type : Constructor
-- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ColorSelectionDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_dialog_new" gtk_color_selection_dialog_new ::
CString -> -- title : TBasicType TUTF8
IO (Ptr ColorSelectionDialog)
colorSelectionDialogNew ::
(MonadIO m) =>
T.Text -> -- title
m ColorSelectionDialog
colorSelectionDialogNew title = liftIO $ do
title' <- textToCString title
result <- gtk_color_selection_dialog_new title'
checkUnexpectedReturnNULL "gtk_color_selection_dialog_new" result
result' <- (newObject ColorSelectionDialog) result
freeMem title'
return result'
-- method ColorSelectionDialog::get_color_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_color_selection_dialog_get_color_selection" gtk_color_selection_dialog_get_color_selection ::
Ptr ColorSelectionDialog -> -- _obj : TInterface "Gtk" "ColorSelectionDialog"
IO (Ptr Widget)
colorSelectionDialogGetColorSelection ::
(MonadIO m, ColorSelectionDialogK a) =>
a -> -- _obj
m Widget
colorSelectionDialogGetColorSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_color_selection_dialog_get_color_selection _obj'
checkUnexpectedReturnNULL "gtk_color_selection_dialog_get_color_selection" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- object ComboBox
newtype ComboBox = ComboBox (ForeignPtr ComboBox)
noComboBox :: Maybe ComboBox
noComboBox = Nothing
foreign import ccall "gtk_combo_box_get_type"
c_gtk_combo_box_get_type :: IO GType
type instance ParentTypes ComboBox = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, CellLayout]
instance GObject ComboBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_combo_box_get_type
class GObject o => ComboBoxK o
instance (GObject o, IsDescendantOf ComboBox o) => ComboBoxK o
toComboBox :: ComboBoxK o => o -> IO ComboBox
toComboBox = unsafeCastTo ComboBox
-- method ComboBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new" gtk_combo_box_new ::
IO (Ptr ComboBox)
comboBoxNew ::
(MonadIO m) =>
m ComboBox
comboBoxNew = liftIO $ do
result <- gtk_combo_box_new
checkUnexpectedReturnNULL "gtk_combo_box_new" result
result' <- (newObject ComboBox) result
return result'
-- method ComboBox::new_with_area
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new_with_area" gtk_combo_box_new_with_area ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr ComboBox)
comboBoxNewWithArea ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m ComboBox
comboBoxNewWithArea area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_combo_box_new_with_area area'
checkUnexpectedReturnNULL "gtk_combo_box_new_with_area" result
result' <- (newObject ComboBox) result
touchManagedPtr area
return result'
-- method ComboBox::new_with_area_and_entry
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new_with_area_and_entry" gtk_combo_box_new_with_area_and_entry ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr ComboBox)
comboBoxNewWithAreaAndEntry ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m ComboBox
comboBoxNewWithAreaAndEntry area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_combo_box_new_with_area_and_entry area'
checkUnexpectedReturnNULL "gtk_combo_box_new_with_area_and_entry" result
result' <- (newObject ComboBox) result
touchManagedPtr area
return result'
-- method ComboBox::new_with_entry
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new_with_entry" gtk_combo_box_new_with_entry ::
IO (Ptr ComboBox)
comboBoxNewWithEntry ::
(MonadIO m) =>
m ComboBox
comboBoxNewWithEntry = liftIO $ do
result <- gtk_combo_box_new_with_entry
checkUnexpectedReturnNULL "gtk_combo_box_new_with_entry" result
result' <- (newObject ComboBox) result
return result'
-- method ComboBox::new_with_model
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new_with_model" gtk_combo_box_new_with_model ::
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO (Ptr ComboBox)
comboBoxNewWithModel ::
(MonadIO m, TreeModelK a) =>
a -> -- model
m ComboBox
comboBoxNewWithModel model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_combo_box_new_with_model model'
checkUnexpectedReturnNULL "gtk_combo_box_new_with_model" result
result' <- (newObject ComboBox) result
touchManagedPtr model
return result'
-- method ComboBox::new_with_model_and_entry
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ComboBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_new_with_model_and_entry" gtk_combo_box_new_with_model_and_entry ::
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO (Ptr ComboBox)
comboBoxNewWithModelAndEntry ::
(MonadIO m, TreeModelK a) =>
a -> -- model
m ComboBox
comboBoxNewWithModelAndEntry model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_combo_box_new_with_model_and_entry model'
checkUnexpectedReturnNULL "gtk_combo_box_new_with_model_and_entry" result
result' <- (newObject ComboBox) result
touchManagedPtr model
return result'
-- method ComboBox::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_active" gtk_combo_box_get_active ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetActive ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_active _obj'
touchManagedPtr _obj
return result
-- method ComboBox::get_active_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_active_id" gtk_combo_box_get_active_id ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CString
comboBoxGetActiveId ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m T.Text
comboBoxGetActiveId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_active_id _obj'
checkUnexpectedReturnNULL "gtk_combo_box_get_active_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ComboBox::get_active_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_active_iter" gtk_combo_box_get_active_iter ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
comboBoxGetActiveIter ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m (Bool,TreeIter)
comboBoxGetActiveIter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
result <- gtk_combo_box_get_active_iter _obj' iter
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
return (result', iter')
-- method ComboBox::get_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_add_tearoffs" gtk_combo_box_get_add_tearoffs ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CInt
{-# DEPRECATED comboBoxGetAddTearoffs ["(Since version 3.10)"]#-}
comboBoxGetAddTearoffs ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Bool
comboBoxGetAddTearoffs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_add_tearoffs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_button_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SensitivityType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_button_sensitivity" gtk_combo_box_get_button_sensitivity ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CUInt
comboBoxGetButtonSensitivity ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m SensitivityType
comboBoxGetButtonSensitivity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_button_sensitivity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_column_span_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_column_span_column" gtk_combo_box_get_column_span_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetColumnSpanColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetColumnSpanColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_column_span_column _obj'
touchManagedPtr _obj
return result
-- method ComboBox::get_entry_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_entry_text_column" gtk_combo_box_get_entry_text_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetEntryTextColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetEntryTextColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_entry_text_column _obj'
touchManagedPtr _obj
return result
-- method ComboBox::get_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_focus_on_click" gtk_combo_box_get_focus_on_click ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CInt
comboBoxGetFocusOnClick ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Bool
comboBoxGetFocusOnClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_focus_on_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_has_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_has_entry" gtk_combo_box_get_has_entry ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CInt
comboBoxGetHasEntry ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Bool
comboBoxGetHasEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_has_entry _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_id_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_id_column" gtk_combo_box_get_id_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetIdColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetIdColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_id_column _obj'
touchManagedPtr _obj
return result
-- method ComboBox::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_model" gtk_combo_box_get_model ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO (Ptr TreeModel)
comboBoxGetModel ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m TreeModel
comboBoxGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_model _obj'
checkUnexpectedReturnNULL "gtk_combo_box_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_popup_accessible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_popup_accessible" gtk_combo_box_get_popup_accessible ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO (Ptr Atk.Object)
comboBoxGetPopupAccessible ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Atk.Object
comboBoxGetPopupAccessible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_popup_accessible _obj'
checkUnexpectedReturnNULL "gtk_combo_box_get_popup_accessible" result
result' <- (newObject Atk.Object) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_popup_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_popup_fixed_width" gtk_combo_box_get_popup_fixed_width ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CInt
comboBoxGetPopupFixedWidth ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Bool
comboBoxGetPopupFixedWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_popup_fixed_width _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ComboBox::get_row_span_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_row_span_column" gtk_combo_box_get_row_span_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetRowSpanColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetRowSpanColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_row_span_column _obj'
touchManagedPtr _obj
return result
-- method ComboBox::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_title" gtk_combo_box_get_title ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO CString
{-# DEPRECATED comboBoxGetTitle ["(Since version 3.10)"]#-}
comboBoxGetTitle ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m T.Text
comboBoxGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_title _obj'
checkUnexpectedReturnNULL "gtk_combo_box_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ComboBox::get_wrap_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_get_wrap_width" gtk_combo_box_get_wrap_width ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO Int32
comboBoxGetWrapWidth ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m Int32
comboBoxGetWrapWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_get_wrap_width _obj'
touchManagedPtr _obj
return result
-- method ComboBox::popdown
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_popdown" gtk_combo_box_popdown ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO ()
comboBoxPopdown ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m ()
comboBoxPopdown _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_popdown _obj'
touchManagedPtr _obj
return ()
-- method ComboBox::popup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_popup" gtk_combo_box_popup ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
IO ()
comboBoxPopup ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
m ()
comboBoxPopup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_popup _obj'
touchManagedPtr _obj
return ()
-- method ComboBox::popup_for_device
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_popup_for_device" gtk_combo_box_popup_for_device ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO ()
comboBoxPopupForDevice ::
(MonadIO m, ComboBoxK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
m ()
comboBoxPopupForDevice _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
gtk_combo_box_popup_for_device _obj' device'
touchManagedPtr _obj
touchManagedPtr device
return ()
-- method ComboBox::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_active" gtk_combo_box_set_active ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- index_ : TBasicType TInt32
IO ()
comboBoxSetActive ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- index_
m ()
comboBoxSetActive _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_active _obj' index_
touchManagedPtr _obj
return ()
-- method ComboBox::set_active_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_active_id" gtk_combo_box_set_active_id ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CString -> -- active_id : TBasicType TUTF8
IO CInt
comboBoxSetActiveId ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Maybe (T.Text) -> -- active_id
m Bool
comboBoxSetActiveId _obj active_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeActive_id <- case active_id of
Nothing -> return nullPtr
Just jActive_id -> do
jActive_id' <- textToCString jActive_id
return jActive_id'
result <- gtk_combo_box_set_active_id _obj' maybeActive_id
let result' = (/= 0) result
touchManagedPtr _obj
freeMem maybeActive_id
return result'
-- method ComboBox::set_active_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_active_iter" gtk_combo_box_set_active_iter ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
comboBoxSetActiveIter ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- iter
m ()
comboBoxSetActiveIter _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIter <- case iter of
Nothing -> return nullPtr
Just jIter -> do
let jIter' = unsafeManagedPtrGetPtr jIter
return jIter'
gtk_combo_box_set_active_iter _obj' maybeIter
touchManagedPtr _obj
whenJust iter touchManagedPtr
return ()
-- method ComboBox::set_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_add_tearoffs" gtk_combo_box_set_add_tearoffs ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CInt -> -- add_tearoffs : TBasicType TBoolean
IO ()
{-# DEPRECATED comboBoxSetAddTearoffs ["(Since version 3.10)"]#-}
comboBoxSetAddTearoffs ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Bool -> -- add_tearoffs
m ()
comboBoxSetAddTearoffs _obj add_tearoffs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs
gtk_combo_box_set_add_tearoffs _obj' add_tearoffs'
touchManagedPtr _obj
return ()
-- method ComboBox::set_button_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_button_sensitivity" gtk_combo_box_set_button_sensitivity ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType"
IO ()
comboBoxSetButtonSensitivity ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
SensitivityType -> -- sensitivity
m ()
comboBoxSetButtonSensitivity _obj sensitivity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_combo_box_set_button_sensitivity _obj' sensitivity'
touchManagedPtr _obj
return ()
-- method ComboBox::set_column_span_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_column_span_column" gtk_combo_box_set_column_span_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- column_span : TBasicType TInt32
IO ()
comboBoxSetColumnSpanColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- column_span
m ()
comboBoxSetColumnSpanColumn _obj column_span = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_column_span_column _obj' column_span
touchManagedPtr _obj
return ()
-- method ComboBox::set_entry_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- text_column : TBasicType TInt32
IO ()
comboBoxSetEntryTextColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- text_column
m ()
comboBoxSetEntryTextColumn _obj text_column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_entry_text_column _obj' text_column
touchManagedPtr _obj
return ()
-- method ComboBox::set_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_focus_on_click" gtk_combo_box_set_focus_on_click ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CInt -> -- focus_on_click : TBasicType TBoolean
IO ()
comboBoxSetFocusOnClick ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Bool -> -- focus_on_click
m ()
comboBoxSetFocusOnClick _obj focus_on_click = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focus_on_click' = (fromIntegral . fromEnum) focus_on_click
gtk_combo_box_set_focus_on_click _obj' focus_on_click'
touchManagedPtr _obj
return ()
-- method ComboBox::set_id_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- id_column : TBasicType TInt32
IO ()
comboBoxSetIdColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- id_column
m ()
comboBoxSetIdColumn _obj id_column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_id_column _obj' id_column
touchManagedPtr _obj
return ()
-- method ComboBox::set_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_model" gtk_combo_box_set_model ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO ()
comboBoxSetModel ::
(MonadIO m, ComboBoxK a, TreeModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
m ()
comboBoxSetModel _obj model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
gtk_combo_box_set_model _obj' maybeModel
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- method ComboBox::set_popup_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_popup_fixed_width" gtk_combo_box_set_popup_fixed_width ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CInt -> -- fixed : TBasicType TBoolean
IO ()
comboBoxSetPopupFixedWidth ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Bool -> -- fixed
m ()
comboBoxSetPopupFixedWidth _obj fixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fixed' = (fromIntegral . fromEnum) fixed
gtk_combo_box_set_popup_fixed_width _obj' fixed'
touchManagedPtr _obj
return ()
-- method ComboBox::set_row_separator_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_row_separator_func" gtk_combo_box_set_row_separator_func ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
comboBoxSetRowSeparatorFunc ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
TreeViewRowSeparatorFunc -> -- func
m ()
comboBoxSetRowSeparatorFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_combo_box_set_row_separator_func _obj' func' data_ destroy
touchManagedPtr _obj
return ()
-- method ComboBox::set_row_span_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_row_span_column" gtk_combo_box_set_row_span_column ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- row_span : TBasicType TInt32
IO ()
comboBoxSetRowSpanColumn ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- row_span
m ()
comboBoxSetRowSpanColumn _obj row_span = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_row_span_column _obj' row_span
touchManagedPtr _obj
return ()
-- method ComboBox::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_title" gtk_combo_box_set_title ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
CString -> -- title : TBasicType TUTF8
IO ()
{-# DEPRECATED comboBoxSetTitle ["(Since version 3.10)"]#-}
comboBoxSetTitle ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
T.Text -> -- title
m ()
comboBoxSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_combo_box_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method ComboBox::set_wrap_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_set_wrap_width" gtk_combo_box_set_wrap_width ::
Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox"
Int32 -> -- width : TBasicType TInt32
IO ()
comboBoxSetWrapWidth ::
(MonadIO m, ComboBoxK a) =>
a -> -- _obj
Int32 -> -- width
m ()
comboBoxSetWrapWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_set_wrap_width _obj' width
touchManagedPtr _obj
return ()
-- signal ComboBox::changed
type ComboBoxChangedCallback =
IO ()
noComboBoxChangedCallback :: Maybe ComboBoxChangedCallback
noComboBoxChangedCallback = Nothing
type ComboBoxChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkComboBoxChangedCallback :: ComboBoxChangedCallbackC -> IO (FunPtr ComboBoxChangedCallbackC)
comboBoxChangedClosure :: ComboBoxChangedCallback -> IO Closure
comboBoxChangedClosure cb = newCClosure =<< mkComboBoxChangedCallback wrapped
where wrapped = comboBoxChangedCallbackWrapper cb
comboBoxChangedCallbackWrapper ::
ComboBoxChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
comboBoxChangedCallbackWrapper _cb _ _ = do
_cb
onComboBoxChanged :: (GObject a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId
onComboBoxChanged obj cb = liftIO $ connectComboBoxChanged obj cb SignalConnectBefore
afterComboBoxChanged :: (GObject a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId
afterComboBoxChanged obj cb = connectComboBoxChanged obj cb SignalConnectAfter
connectComboBoxChanged :: (GObject a, MonadIO m) =>
a -> ComboBoxChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectComboBoxChanged obj cb after = liftIO $ do
cb' <- mkComboBoxChangedCallback (comboBoxChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal ComboBox::format-entry-text
type ComboBoxFormatEntryTextCallback =
T.Text ->
IO T.Text
noComboBoxFormatEntryTextCallback :: Maybe ComboBoxFormatEntryTextCallback
noComboBoxFormatEntryTextCallback = Nothing
type ComboBoxFormatEntryTextCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO CString
foreign import ccall "wrapper"
mkComboBoxFormatEntryTextCallback :: ComboBoxFormatEntryTextCallbackC -> IO (FunPtr ComboBoxFormatEntryTextCallbackC)
comboBoxFormatEntryTextClosure :: ComboBoxFormatEntryTextCallback -> IO Closure
comboBoxFormatEntryTextClosure cb = newCClosure =<< mkComboBoxFormatEntryTextCallback wrapped
where wrapped = comboBoxFormatEntryTextCallbackWrapper cb
comboBoxFormatEntryTextCallbackWrapper ::
ComboBoxFormatEntryTextCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CString
comboBoxFormatEntryTextCallbackWrapper _cb _ path _ = do
path' <- cstringToText path
result <- _cb path'
result' <- textToCString result
return result'
onComboBoxFormatEntryText :: (GObject a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
onComboBoxFormatEntryText obj cb = liftIO $ connectComboBoxFormatEntryText obj cb SignalConnectBefore
afterComboBoxFormatEntryText :: (GObject a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
afterComboBoxFormatEntryText obj cb = connectComboBoxFormatEntryText obj cb SignalConnectAfter
connectComboBoxFormatEntryText :: (GObject a, MonadIO m) =>
a -> ComboBoxFormatEntryTextCallback -> SignalConnectMode -> m SignalHandlerId
connectComboBoxFormatEntryText obj cb after = liftIO $ do
cb' <- mkComboBoxFormatEntryTextCallback (comboBoxFormatEntryTextCallbackWrapper cb)
connectSignalFunPtr obj "format-entry-text" cb' after
-- signal ComboBox::move-active
type ComboBoxMoveActiveCallback =
ScrollType ->
IO ()
noComboBoxMoveActiveCallback :: Maybe ComboBoxMoveActiveCallback
noComboBoxMoveActiveCallback = Nothing
type ComboBoxMoveActiveCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkComboBoxMoveActiveCallback :: ComboBoxMoveActiveCallbackC -> IO (FunPtr ComboBoxMoveActiveCallbackC)
comboBoxMoveActiveClosure :: ComboBoxMoveActiveCallback -> IO Closure
comboBoxMoveActiveClosure cb = newCClosure =<< mkComboBoxMoveActiveCallback wrapped
where wrapped = comboBoxMoveActiveCallbackWrapper cb
comboBoxMoveActiveCallbackWrapper ::
ComboBoxMoveActiveCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
comboBoxMoveActiveCallbackWrapper _cb _ scroll_type _ = do
let scroll_type' = (toEnum . fromIntegral) scroll_type
_cb scroll_type'
onComboBoxMoveActive :: (GObject a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
onComboBoxMoveActive obj cb = liftIO $ connectComboBoxMoveActive obj cb SignalConnectBefore
afterComboBoxMoveActive :: (GObject a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
afterComboBoxMoveActive obj cb = connectComboBoxMoveActive obj cb SignalConnectAfter
connectComboBoxMoveActive :: (GObject a, MonadIO m) =>
a -> ComboBoxMoveActiveCallback -> SignalConnectMode -> m SignalHandlerId
connectComboBoxMoveActive obj cb after = liftIO $ do
cb' <- mkComboBoxMoveActiveCallback (comboBoxMoveActiveCallbackWrapper cb)
connectSignalFunPtr obj "move-active" cb' after
-- signal ComboBox::popdown
type ComboBoxPopdownCallback =
IO Bool
noComboBoxPopdownCallback :: Maybe ComboBoxPopdownCallback
noComboBoxPopdownCallback = Nothing
type ComboBoxPopdownCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkComboBoxPopdownCallback :: ComboBoxPopdownCallbackC -> IO (FunPtr ComboBoxPopdownCallbackC)
comboBoxPopdownClosure :: ComboBoxPopdownCallback -> IO Closure
comboBoxPopdownClosure cb = newCClosure =<< mkComboBoxPopdownCallback wrapped
where wrapped = comboBoxPopdownCallbackWrapper cb
comboBoxPopdownCallbackWrapper ::
ComboBoxPopdownCallback ->
Ptr () ->
Ptr () ->
IO CInt
comboBoxPopdownCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onComboBoxPopdown :: (GObject a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId
onComboBoxPopdown obj cb = liftIO $ connectComboBoxPopdown obj cb SignalConnectBefore
afterComboBoxPopdown :: (GObject a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId
afterComboBoxPopdown obj cb = connectComboBoxPopdown obj cb SignalConnectAfter
connectComboBoxPopdown :: (GObject a, MonadIO m) =>
a -> ComboBoxPopdownCallback -> SignalConnectMode -> m SignalHandlerId
connectComboBoxPopdown obj cb after = liftIO $ do
cb' <- mkComboBoxPopdownCallback (comboBoxPopdownCallbackWrapper cb)
connectSignalFunPtr obj "popdown" cb' after
-- signal ComboBox::popup
type ComboBoxPopupCallback =
IO ()
noComboBoxPopupCallback :: Maybe ComboBoxPopupCallback
noComboBoxPopupCallback = Nothing
type ComboBoxPopupCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkComboBoxPopupCallback :: ComboBoxPopupCallbackC -> IO (FunPtr ComboBoxPopupCallbackC)
comboBoxPopupClosure :: ComboBoxPopupCallback -> IO Closure
comboBoxPopupClosure cb = newCClosure =<< mkComboBoxPopupCallback wrapped
where wrapped = comboBoxPopupCallbackWrapper cb
comboBoxPopupCallbackWrapper ::
ComboBoxPopupCallback ->
Ptr () ->
Ptr () ->
IO ()
comboBoxPopupCallbackWrapper _cb _ _ = do
_cb
onComboBoxPopup :: (GObject a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId
onComboBoxPopup obj cb = liftIO $ connectComboBoxPopup obj cb SignalConnectBefore
afterComboBoxPopup :: (GObject a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId
afterComboBoxPopup obj cb = connectComboBoxPopup obj cb SignalConnectAfter
connectComboBoxPopup :: (GObject a, MonadIO m) =>
a -> ComboBoxPopupCallback -> SignalConnectMode -> m SignalHandlerId
connectComboBoxPopup obj cb after = liftIO $ do
cb' <- mkComboBoxPopupCallback (comboBoxPopupCallbackWrapper cb)
connectSignalFunPtr obj "popup" cb' after
-- object ComboBoxAccessible
newtype ComboBoxAccessible = ComboBoxAccessible (ForeignPtr ComboBoxAccessible)
noComboBoxAccessible :: Maybe ComboBoxAccessible
noComboBoxAccessible = Nothing
foreign import ccall "gtk_combo_box_accessible_get_type"
c_gtk_combo_box_accessible_get_type :: IO GType
type instance ParentTypes ComboBoxAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection]
instance GObject ComboBoxAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_combo_box_accessible_get_type
class GObject o => ComboBoxAccessibleK o
instance (GObject o, IsDescendantOf ComboBoxAccessible o) => ComboBoxAccessibleK o
toComboBoxAccessible :: ComboBoxAccessibleK o => o -> IO ComboBoxAccessible
toComboBoxAccessible = unsafeCastTo ComboBoxAccessible
-- object ComboBoxText
newtype ComboBoxText = ComboBoxText (ForeignPtr ComboBoxText)
noComboBoxText :: Maybe ComboBoxText
noComboBoxText = Nothing
foreign import ccall "gtk_combo_box_text_get_type"
c_gtk_combo_box_text_get_type :: IO GType
type instance ParentTypes ComboBoxText = '[ComboBox, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, CellLayout]
instance GObject ComboBoxText where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_combo_box_text_get_type
class GObject o => ComboBoxTextK o
instance (GObject o, IsDescendantOf ComboBoxText o) => ComboBoxTextK o
toComboBoxText :: ComboBoxTextK o => o -> IO ComboBoxText
toComboBoxText = unsafeCastTo ComboBoxText
-- method ComboBoxText::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ComboBoxText"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_new" gtk_combo_box_text_new ::
IO (Ptr ComboBoxText)
comboBoxTextNew ::
(MonadIO m) =>
m ComboBoxText
comboBoxTextNew = liftIO $ do
result <- gtk_combo_box_text_new
checkUnexpectedReturnNULL "gtk_combo_box_text_new" result
result' <- (newObject ComboBoxText) result
return result'
-- method ComboBoxText::new_with_entry
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ComboBoxText"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_new_with_entry" gtk_combo_box_text_new_with_entry ::
IO (Ptr ComboBoxText)
comboBoxTextNewWithEntry ::
(MonadIO m) =>
m ComboBoxText
comboBoxTextNewWithEntry = liftIO $ do
result <- gtk_combo_box_text_new_with_entry
checkUnexpectedReturnNULL "gtk_combo_box_text_new_with_entry" result
result' <- (newObject ComboBoxText) result
return result'
-- method ComboBoxText::append
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_append" gtk_combo_box_text_append ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
CString -> -- id : TBasicType TUTF8
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextAppend ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
Maybe (T.Text) -> -- id
T.Text -> -- text
m ()
comboBoxTextAppend _obj id text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeId <- case id of
Nothing -> return nullPtr
Just jId -> do
jId' <- textToCString jId
return jId'
text' <- textToCString text
gtk_combo_box_text_append _obj' maybeId text'
touchManagedPtr _obj
freeMem maybeId
freeMem text'
return ()
-- method ComboBoxText::append_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_append_text" gtk_combo_box_text_append_text ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextAppendText ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
T.Text -> -- text
m ()
comboBoxTextAppendText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_combo_box_text_append_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method ComboBoxText::get_active_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_get_active_text" gtk_combo_box_text_get_active_text ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
IO CString
comboBoxTextGetActiveText ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
m T.Text
comboBoxTextGetActiveText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_combo_box_text_get_active_text _obj'
checkUnexpectedReturnNULL "gtk_combo_box_text_get_active_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method ComboBoxText::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_insert" gtk_combo_box_text_insert ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
Int32 -> -- position : TBasicType TInt32
CString -> -- id : TBasicType TUTF8
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextInsert ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
Int32 -> -- position
Maybe (T.Text) -> -- id
T.Text -> -- text
m ()
comboBoxTextInsert _obj position id text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeId <- case id of
Nothing -> return nullPtr
Just jId -> do
jId' <- textToCString jId
return jId'
text' <- textToCString text
gtk_combo_box_text_insert _obj' position maybeId text'
touchManagedPtr _obj
freeMem maybeId
freeMem text'
return ()
-- method ComboBoxText::insert_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_insert_text" gtk_combo_box_text_insert_text ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
Int32 -> -- position : TBasicType TInt32
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextInsertText ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
Int32 -> -- position
T.Text -> -- text
m ()
comboBoxTextInsertText _obj position text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_combo_box_text_insert_text _obj' position text'
touchManagedPtr _obj
freeMem text'
return ()
-- method ComboBoxText::prepend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_prepend" gtk_combo_box_text_prepend ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
CString -> -- id : TBasicType TUTF8
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextPrepend ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
Maybe (T.Text) -> -- id
T.Text -> -- text
m ()
comboBoxTextPrepend _obj id text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeId <- case id of
Nothing -> return nullPtr
Just jId -> do
jId' <- textToCString jId
return jId'
text' <- textToCString text
gtk_combo_box_text_prepend _obj' maybeId text'
touchManagedPtr _obj
freeMem maybeId
freeMem text'
return ()
-- method ComboBoxText::prepend_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_prepend_text" gtk_combo_box_text_prepend_text ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
CString -> -- text : TBasicType TUTF8
IO ()
comboBoxTextPrependText ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
T.Text -> -- text
m ()
comboBoxTextPrependText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_combo_box_text_prepend_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method ComboBoxText::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_remove" gtk_combo_box_text_remove ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
Int32 -> -- position : TBasicType TInt32
IO ()
comboBoxTextRemove ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
Int32 -> -- position
m ()
comboBoxTextRemove _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_text_remove _obj' position
touchManagedPtr _obj
return ()
-- method ComboBoxText::remove_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_combo_box_text_remove_all" gtk_combo_box_text_remove_all ::
Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText"
IO ()
comboBoxTextRemoveAll ::
(MonadIO m, ComboBoxTextK a) =>
a -> -- _obj
m ()
comboBoxTextRemoveAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_combo_box_text_remove_all _obj'
touchManagedPtr _obj
return ()
-- object Container
newtype Container = Container (ForeignPtr Container)
noContainer :: Maybe Container
noContainer = Nothing
foreign import ccall "gtk_container_get_type"
c_gtk_container_get_type :: IO GType
type instance ParentTypes Container = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Container where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_container_get_type
class GObject o => ContainerK o
instance (GObject o, IsDescendantOf Container o) => ContainerK o
toContainer :: ContainerK o => o -> IO Container
toContainer = unsafeCastTo Container
-- method Container::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_add" gtk_container_add ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
containerAdd ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m ()
containerAdd _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_container_add _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Container::check_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_check_resize" gtk_container_check_resize ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO ()
containerCheckResize ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m ()
containerCheckResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_check_resize _obj'
touchManagedPtr _obj
return ()
-- method Container::child_get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_child_get_property" gtk_container_child_get_property ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
containerChildGetProperty ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- property_name
GValue -> -- value
m ()
containerChildGetProperty _obj child property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_container_child_get_property _obj' child' property_name' value'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr value
freeMem property_name'
return ()
-- method Container::child_notify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_child_notify" gtk_container_child_notify ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- child_property : TBasicType TUTF8
IO ()
containerChildNotify ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- child_property
m ()
containerChildNotify _obj child child_property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
child_property' <- textToCString child_property
gtk_container_child_notify _obj' child' child_property'
touchManagedPtr _obj
touchManagedPtr child
freeMem child_property'
return ()
-- method Container::child_notify_by_pspec
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_child_notify_by_pspec" gtk_container_child_notify_by_pspec ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr GParamSpec -> -- pspec : TParamSpec
IO ()
containerChildNotifyByPspec ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
GParamSpec -> -- pspec
m ()
containerChildNotifyByPspec _obj child pspec = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let pspec' = unsafeManagedPtrGetPtr pspec
gtk_container_child_notify_by_pspec _obj' child' pspec'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Container::child_set_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_child_set_property" gtk_container_child_set_property ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
containerChildSetProperty ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- property_name
GValue -> -- value
m ()
containerChildSetProperty _obj child property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_container_child_set_property _obj' child' property_name' value'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr value
freeMem property_name'
return ()
-- method Container::child_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_child_type" gtk_container_child_type ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO CGType
containerChildType ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m GType
containerChildType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_child_type _obj'
let result' = GType result
touchManagedPtr _obj
return result'
-- method Container::forall
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_forall" gtk_container_forall ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback"
Ptr () -> -- callback_data : TBasicType TVoid
IO ()
containerForall ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
Callback -> -- callback
m ()
containerForall _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkCallback (callbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_container_forall _obj' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
return ()
-- method Container::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_foreach" gtk_container_foreach ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback"
Ptr () -> -- callback_data : TBasicType TVoid
IO ()
containerForeach ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
Callback -> -- callback
m ()
containerForeach _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkCallback (callbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_container_foreach _obj' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
return ()
-- method Container::get_border_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_border_width" gtk_container_get_border_width ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO Word32
containerGetBorderWidth ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m Word32
containerGetBorderWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_border_width _obj'
touchManagedPtr _obj
return result
-- method Container::get_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_children" gtk_container_get_children ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO (Ptr (GList (Ptr Widget)))
containerGetChildren ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m [Widget]
containerGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_children _obj'
checkUnexpectedReturnNULL "gtk_container_get_children" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Container::get_focus_chain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_focus_chain" gtk_container_get_focus_chain ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr (Ptr (GList (Ptr Widget))) -> -- focusable_widgets : TGList (TInterface "Gtk" "Widget")
IO CInt
containerGetFocusChain ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m (Bool,[Widget])
containerGetFocusChain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
focusable_widgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget))))
result <- gtk_container_get_focus_chain _obj' focusable_widgets
let result' = (/= 0) result
focusable_widgets' <- peek focusable_widgets
focusable_widgets'' <- unpackGList focusable_widgets'
focusable_widgets''' <- mapM (newObject Widget) focusable_widgets''
g_list_free focusable_widgets'
touchManagedPtr _obj
freeMem focusable_widgets
return (result', focusable_widgets''')
-- method Container::get_focus_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_focus_child" gtk_container_get_focus_child ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO (Ptr Widget)
containerGetFocusChild ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m Widget
containerGetFocusChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_child _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_child" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Container::get_focus_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_focus_hadjustment" gtk_container_get_focus_hadjustment ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO (Ptr Adjustment)
containerGetFocusHadjustment ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m Adjustment
containerGetFocusHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Container::get_focus_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_focus_vadjustment" gtk_container_get_focus_vadjustment ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO (Ptr Adjustment)
containerGetFocusVadjustment ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m Adjustment
containerGetFocusVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Container::get_path_for_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_path_for_child" gtk_container_get_path_for_child ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO (Ptr WidgetPath)
containerGetPathForChild ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m WidgetPath
containerGetPathForChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_container_get_path_for_child _obj' child'
checkUnexpectedReturnNULL "gtk_container_get_path_for_child" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Container::get_resize_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ResizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_get_resize_mode" gtk_container_get_resize_mode ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO CUInt
{-# DEPRECATED containerGetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-}
containerGetResizeMode ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m ResizeMode
containerGetResizeMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_resize_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Container::propagate_draw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_propagate_draw" gtk_container_propagate_draw ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
IO ()
containerPropagateDraw ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Cairo.Context -> -- cr
m ()
containerPropagateDraw _obj child cr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let cr' = unsafeManagedPtrGetPtr cr
gtk_container_propagate_draw _obj' child' cr'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr cr
return ()
-- method Container::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_remove" gtk_container_remove ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
containerRemove ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m ()
containerRemove _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_container_remove _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Container::resize_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_resize_children" gtk_container_resize_children ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO ()
{-# DEPRECATED containerResizeChildren ["(Since version 3.10)"]#-}
containerResizeChildren ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m ()
containerResizeChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_resize_children _obj'
touchManagedPtr _obj
return ()
-- method Container::set_border_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_border_width" gtk_container_set_border_width ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Word32 -> -- border_width : TBasicType TUInt32
IO ()
containerSetBorderWidth ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
Word32 -> -- border_width
m ()
containerSetBorderWidth _obj border_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_set_border_width _obj' border_width
touchManagedPtr _obj
return ()
-- method Container::set_focus_chain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_focus_chain" gtk_container_set_focus_chain ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr (GList (Ptr Widget)) -> -- focusable_widgets : TGList (TInterface "Gtk" "Widget")
IO ()
containerSetFocusChain ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
[b] -> -- focusable_widgets
m ()
containerSetFocusChain _obj focusable_widgets = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focusable_widgets' = map unsafeManagedPtrCastPtr focusable_widgets
focusable_widgets'' <- packGList focusable_widgets'
gtk_container_set_focus_chain _obj' focusable_widgets''
touchManagedPtr _obj
mapM_ touchManagedPtr focusable_widgets
g_list_free focusable_widgets''
return ()
-- method Container::set_focus_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_focus_child" gtk_container_set_focus_child ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
containerSetFocusChild ::
(MonadIO m, ContainerK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- child
m ()
containerSetFocusChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeChild <- case child of
Nothing -> return nullPtr
Just jChild -> do
let jChild' = unsafeManagedPtrCastPtr jChild
return jChild'
gtk_container_set_focus_child _obj' maybeChild
touchManagedPtr _obj
whenJust child touchManagedPtr
return ()
-- method Container::set_focus_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_focus_hadjustment" gtk_container_set_focus_hadjustment ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
containerSetFocusHadjustment ::
(MonadIO m, ContainerK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
containerSetFocusHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_container_set_focus_hadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method Container::set_focus_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_focus_vadjustment" gtk_container_set_focus_vadjustment ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
containerSetFocusVadjustment ::
(MonadIO m, ContainerK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
containerSetFocusVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_container_set_focus_vadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method Container::set_reallocate_redraws
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_reallocate_redraws" gtk_container_set_reallocate_redraws ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
CInt -> -- needs_redraws : TBasicType TBoolean
IO ()
{-# DEPRECATED containerSetReallocateRedraws ["(Since version 3.14)","Call gtk_widget_queue_draw() in your size_allocate handler."]#-}
containerSetReallocateRedraws ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
Bool -> -- needs_redraws
m ()
containerSetReallocateRedraws _obj needs_redraws = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let needs_redraws' = (fromIntegral . fromEnum) needs_redraws
gtk_container_set_reallocate_redraws _obj' needs_redraws'
touchManagedPtr _obj
return ()
-- method Container::set_resize_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_set_resize_mode" gtk_container_set_resize_mode ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
CUInt -> -- resize_mode : TInterface "Gtk" "ResizeMode"
IO ()
{-# DEPRECATED containerSetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-}
containerSetResizeMode ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
ResizeMode -> -- resize_mode
m ()
containerSetResizeMode _obj resize_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resize_mode' = (fromIntegral . fromEnum) resize_mode
gtk_container_set_resize_mode _obj' resize_mode'
touchManagedPtr _obj
return ()
-- method Container::unset_focus_chain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_unset_focus_chain" gtk_container_unset_focus_chain ::
Ptr Container -> -- _obj : TInterface "Gtk" "Container"
IO ()
containerUnsetFocusChain ::
(MonadIO m, ContainerK a) =>
a -> -- _obj
m ()
containerUnsetFocusChain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_unset_focus_chain _obj'
touchManagedPtr _obj
return ()
-- signal Container::add
type ContainerAddCallback =
Widget ->
IO ()
noContainerAddCallback :: Maybe ContainerAddCallback
noContainerAddCallback = Nothing
type ContainerAddCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkContainerAddCallback :: ContainerAddCallbackC -> IO (FunPtr ContainerAddCallbackC)
containerAddClosure :: ContainerAddCallback -> IO Closure
containerAddClosure cb = newCClosure =<< mkContainerAddCallback wrapped
where wrapped = containerAddCallbackWrapper cb
containerAddCallbackWrapper ::
ContainerAddCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerAddCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
onContainerAdd obj cb = liftIO $ connectContainerAdd obj cb SignalConnectBefore
afterContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
afterContainerAdd obj cb = connectContainerAdd obj cb SignalConnectAfter
connectContainerAdd :: (GObject a, MonadIO m) =>
a -> ContainerAddCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerAdd obj cb after = liftIO $ do
cb' <- mkContainerAddCallback (containerAddCallbackWrapper cb)
connectSignalFunPtr obj "add" cb' after
-- signal Container::check-resize
type ContainerCheckResizeCallback =
IO ()
noContainerCheckResizeCallback :: Maybe ContainerCheckResizeCallback
noContainerCheckResizeCallback = Nothing
type ContainerCheckResizeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkContainerCheckResizeCallback :: ContainerCheckResizeCallbackC -> IO (FunPtr ContainerCheckResizeCallbackC)
containerCheckResizeClosure :: ContainerCheckResizeCallback -> IO Closure
containerCheckResizeClosure cb = newCClosure =<< mkContainerCheckResizeCallback wrapped
where wrapped = containerCheckResizeCallbackWrapper cb
containerCheckResizeCallbackWrapper ::
ContainerCheckResizeCallback ->
Ptr () ->
Ptr () ->
IO ()
containerCheckResizeCallbackWrapper _cb _ _ = do
_cb
onContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
onContainerCheckResize obj cb = liftIO $ connectContainerCheckResize obj cb SignalConnectBefore
afterContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
afterContainerCheckResize obj cb = connectContainerCheckResize obj cb SignalConnectAfter
connectContainerCheckResize :: (GObject a, MonadIO m) =>
a -> ContainerCheckResizeCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerCheckResize obj cb after = liftIO $ do
cb' <- mkContainerCheckResizeCallback (containerCheckResizeCallbackWrapper cb)
connectSignalFunPtr obj "check-resize" cb' after
-- signal Container::remove
type ContainerRemoveCallback =
Widget ->
IO ()
noContainerRemoveCallback :: Maybe ContainerRemoveCallback
noContainerRemoveCallback = Nothing
type ContainerRemoveCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkContainerRemoveCallback :: ContainerRemoveCallbackC -> IO (FunPtr ContainerRemoveCallbackC)
containerRemoveClosure :: ContainerRemoveCallback -> IO Closure
containerRemoveClosure cb = newCClosure =<< mkContainerRemoveCallback wrapped
where wrapped = containerRemoveCallbackWrapper cb
containerRemoveCallbackWrapper ::
ContainerRemoveCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerRemoveCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
onContainerRemove obj cb = liftIO $ connectContainerRemove obj cb SignalConnectBefore
afterContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
afterContainerRemove obj cb = connectContainerRemove obj cb SignalConnectAfter
connectContainerRemove :: (GObject a, MonadIO m) =>
a -> ContainerRemoveCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerRemove obj cb after = liftIO $ do
cb' <- mkContainerRemoveCallback (containerRemoveCallbackWrapper cb)
connectSignalFunPtr obj "remove" cb' after
-- signal Container::set-focus-child
type ContainerSetFocusChildCallback =
Widget ->
IO ()
noContainerSetFocusChildCallback :: Maybe ContainerSetFocusChildCallback
noContainerSetFocusChildCallback = Nothing
type ContainerSetFocusChildCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkContainerSetFocusChildCallback :: ContainerSetFocusChildCallbackC -> IO (FunPtr ContainerSetFocusChildCallbackC)
containerSetFocusChildClosure :: ContainerSetFocusChildCallback -> IO Closure
containerSetFocusChildClosure cb = newCClosure =<< mkContainerSetFocusChildCallback wrapped
where wrapped = containerSetFocusChildCallbackWrapper cb
containerSetFocusChildCallbackWrapper ::
ContainerSetFocusChildCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerSetFocusChildCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
onContainerSetFocusChild obj cb = liftIO $ connectContainerSetFocusChild obj cb SignalConnectBefore
afterContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
afterContainerSetFocusChild obj cb = connectContainerSetFocusChild obj cb SignalConnectAfter
connectContainerSetFocusChild :: (GObject a, MonadIO m) =>
a -> ContainerSetFocusChildCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerSetFocusChild obj cb after = liftIO $ do
cb' <- mkContainerSetFocusChildCallback (containerSetFocusChildCallbackWrapper cb)
connectSignalFunPtr obj "set-focus-child" cb' after
-- object ContainerAccessible
newtype ContainerAccessible = ContainerAccessible (ForeignPtr ContainerAccessible)
noContainerAccessible :: Maybe ContainerAccessible
noContainerAccessible = Nothing
foreign import ccall "gtk_container_accessible_get_type"
c_gtk_container_accessible_get_type :: IO GType
type instance ParentTypes ContainerAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject ContainerAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_container_accessible_get_type
class GObject o => ContainerAccessibleK o
instance (GObject o, IsDescendantOf ContainerAccessible o) => ContainerAccessibleK o
toContainerAccessible :: ContainerAccessibleK o => o -> IO ContainerAccessible
toContainerAccessible = unsafeCastTo ContainerAccessible
-- object ContainerCellAccessible
newtype ContainerCellAccessible = ContainerCellAccessible (ForeignPtr ContainerCellAccessible)
noContainerCellAccessible :: Maybe ContainerCellAccessible
noContainerCellAccessible = Nothing
foreign import ccall "gtk_container_cell_accessible_get_type"
c_gtk_container_cell_accessible_get_type :: IO GType
type instance ParentTypes ContainerCellAccessible = '[CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject ContainerCellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_container_cell_accessible_get_type
class GObject o => ContainerCellAccessibleK o
instance (GObject o, IsDescendantOf ContainerCellAccessible o) => ContainerCellAccessibleK o
toContainerCellAccessible :: ContainerCellAccessibleK o => o -> IO ContainerCellAccessible
toContainerCellAccessible = unsafeCastTo ContainerCellAccessible
-- method ContainerCellAccessible::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ContainerCellAccessible"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_cell_accessible_new" gtk_container_cell_accessible_new ::
IO (Ptr ContainerCellAccessible)
containerCellAccessibleNew ::
(MonadIO m) =>
m ContainerCellAccessible
containerCellAccessibleNew = liftIO $ do
result <- gtk_container_cell_accessible_new
checkUnexpectedReturnNULL "gtk_container_cell_accessible_new" result
result' <- (wrapObject ContainerCellAccessible) result
return result'
-- method ContainerCellAccessible::add_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_cell_accessible_add_child" gtk_container_cell_accessible_add_child ::
Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible"
Ptr CellAccessible -> -- child : TInterface "Gtk" "CellAccessible"
IO ()
containerCellAccessibleAddChild ::
(MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- child
m ()
containerCellAccessibleAddChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_container_cell_accessible_add_child _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ContainerCellAccessible::get_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "CellAccessible")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_cell_accessible_get_children" gtk_container_cell_accessible_get_children ::
Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible"
IO (Ptr (GList (Ptr CellAccessible)))
containerCellAccessibleGetChildren ::
(MonadIO m, ContainerCellAccessibleK a) =>
a -> -- _obj
m [CellAccessible]
containerCellAccessibleGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_cell_accessible_get_children _obj'
checkUnexpectedReturnNULL "gtk_container_cell_accessible_get_children" result
result' <- unpackGList result
result'' <- mapM (newObject CellAccessible) result'
touchManagedPtr _obj
return result''
-- method ContainerCellAccessible::remove_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_container_cell_accessible_remove_child" gtk_container_cell_accessible_remove_child ::
Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible"
Ptr CellAccessible -> -- child : TInterface "Gtk" "CellAccessible"
IO ()
containerCellAccessibleRemoveChild ::
(MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) =>
a -> -- _obj
b -> -- child
m ()
containerCellAccessibleRemoveChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_container_cell_accessible_remove_child _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- Enum CornerType
data CornerType =
CornerTypeTopLeft
| CornerTypeBottomLeft
| CornerTypeTopRight
| CornerTypeBottomRight
| AnotherCornerType Int
deriving (Show, Eq)
instance Enum CornerType where
fromEnum CornerTypeTopLeft = 0
fromEnum CornerTypeBottomLeft = 1
fromEnum CornerTypeTopRight = 2
fromEnum CornerTypeBottomRight = 3
fromEnum (AnotherCornerType k) = k
toEnum 0 = CornerTypeTopLeft
toEnum 1 = CornerTypeBottomLeft
toEnum 2 = CornerTypeTopRight
toEnum 3 = CornerTypeBottomRight
toEnum k = AnotherCornerType k
foreign import ccall "gtk_corner_type_get_type" c_gtk_corner_type_get_type ::
IO GType
instance BoxedEnum CornerType where
boxedEnumType _ = c_gtk_corner_type_get_type
-- object CssProvider
newtype CssProvider = CssProvider (ForeignPtr CssProvider)
noCssProvider :: Maybe CssProvider
noCssProvider = Nothing
foreign import ccall "gtk_css_provider_get_type"
c_gtk_css_provider_get_type :: IO GType
type instance ParentTypes CssProvider = '[GObject.Object, StyleProvider]
instance GObject CssProvider where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_css_provider_get_type
class GObject o => CssProviderK o
instance (GObject o, IsDescendantOf CssProvider o) => CssProviderK o
toCssProvider :: CssProviderK o => o -> IO CssProvider
toCssProvider = unsafeCastTo CssProvider
-- method CssProvider::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CssProvider"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_new" gtk_css_provider_new ::
IO (Ptr CssProvider)
cssProviderNew ::
(MonadIO m) =>
m CssProvider
cssProviderNew = liftIO $ do
result <- gtk_css_provider_new
checkUnexpectedReturnNULL "gtk_css_provider_new" result
result' <- (wrapObject CssProvider) result
return result'
-- method CssProvider::load_from_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_css_provider_load_from_data" gtk_css_provider_load_from_data ::
Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider"
Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8)
Int64 -> -- length : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO CInt
cssProviderLoadFromData ::
(MonadIO m, CssProviderK a) =>
a -> -- _obj
ByteString -> -- data
m ()
cssProviderLoadFromData _obj data_ = liftIO $ do
let length_ = fromIntegral $ B.length data_
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- packByteString data_
onException (do
_ <- propagateGError $ gtk_css_provider_load_from_data _obj' data_' length_
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method CssProvider::load_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_css_provider_load_from_file" gtk_css_provider_load_from_file ::
Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
Ptr (Ptr GError) -> -- error
IO CInt
cssProviderLoadFromFile ::
(MonadIO m, CssProviderK a, Gio.FileK b) =>
a -> -- _obj
b -> -- file
m ()
cssProviderLoadFromFile _obj file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_css_provider_load_from_file _obj' file'
touchManagedPtr _obj
touchManagedPtr file
return ()
) (do
return ()
)
-- method CssProvider::load_from_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_css_provider_load_from_path" gtk_css_provider_load_from_path ::
Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider"
CString -> -- path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
cssProviderLoadFromPath ::
(MonadIO m, CssProviderK a) =>
a -> -- _obj
T.Text -> -- path
m ()
cssProviderLoadFromPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
onException (do
_ <- propagateGError $ gtk_css_provider_load_from_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
) (do
freeMem path'
)
-- method CssProvider::load_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_load_from_resource" gtk_css_provider_load_from_resource ::
Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider"
CString -> -- resource_path : TBasicType TUTF8
IO ()
cssProviderLoadFromResource ::
(MonadIO m, CssProviderK a) =>
a -> -- _obj
T.Text -> -- resource_path
m ()
cssProviderLoadFromResource _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource_path' <- textToCString resource_path
gtk_css_provider_load_from_resource _obj' resource_path'
touchManagedPtr _obj
freeMem resource_path'
return ()
-- method CssProvider::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_to_string" gtk_css_provider_to_string ::
Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider"
IO CString
cssProviderToString ::
(MonadIO m, CssProviderK a) =>
a -> -- _obj
m T.Text
cssProviderToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_css_provider_to_string _obj'
checkUnexpectedReturnNULL "gtk_css_provider_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method CssProvider::get_default
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "CssProvider"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_get_default" gtk_css_provider_get_default ::
IO (Ptr CssProvider)
cssProviderGetDefault ::
(MonadIO m) =>
m CssProvider
cssProviderGetDefault = liftIO $ do
result <- gtk_css_provider_get_default
checkUnexpectedReturnNULL "gtk_css_provider_get_default" result
result' <- (newObject CssProvider) result
return result'
-- method CssProvider::get_named
-- method type : MemberFunction
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CssProvider"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_get_named" gtk_css_provider_get_named ::
CString -> -- name : TBasicType TUTF8
CString -> -- variant : TBasicType TUTF8
IO (Ptr CssProvider)
cssProviderGetNamed ::
(MonadIO m) =>
T.Text -> -- name
Maybe (T.Text) -> -- variant
m CssProvider
cssProviderGetNamed name variant = liftIO $ do
name' <- textToCString name
maybeVariant <- case variant of
Nothing -> return nullPtr
Just jVariant -> do
jVariant' <- textToCString jVariant
return jVariant'
result <- gtk_css_provider_get_named name' maybeVariant
checkUnexpectedReturnNULL "gtk_css_provider_get_named" result
result' <- (newObject CssProvider) result
freeMem name'
freeMem maybeVariant
return result'
-- signal CssProvider::parsing-error
type CssProviderParsingErrorCallback =
CssSection ->
GError ->
IO ()
noCssProviderParsingErrorCallback :: Maybe CssProviderParsingErrorCallback
noCssProviderParsingErrorCallback = Nothing
type CssProviderParsingErrorCallbackC =
Ptr () -> -- object
Ptr CssSection ->
Ptr GError ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkCssProviderParsingErrorCallback :: CssProviderParsingErrorCallbackC -> IO (FunPtr CssProviderParsingErrorCallbackC)
cssProviderParsingErrorClosure :: CssProviderParsingErrorCallback -> IO Closure
cssProviderParsingErrorClosure cb = newCClosure =<< mkCssProviderParsingErrorCallback wrapped
where wrapped = cssProviderParsingErrorCallbackWrapper cb
cssProviderParsingErrorCallbackWrapper ::
CssProviderParsingErrorCallback ->
Ptr () ->
Ptr CssSection ->
Ptr GError ->
Ptr () ->
IO ()
cssProviderParsingErrorCallbackWrapper _cb _ section error_ _ = do
section' <- (newBoxed CssSection) section
error_' <- (newBoxed GError) error_
_cb section' error_'
onCssProviderParsingError :: (GObject a, MonadIO m) => a -> CssProviderParsingErrorCallback -> m SignalHandlerId
onCssProviderParsingError obj cb = liftIO $ connectCssProviderParsingError obj cb SignalConnectBefore
afterCssProviderParsingError :: (GObject a, MonadIO m) => a -> CssProviderParsingErrorCallback -> m SignalHandlerId
afterCssProviderParsingError obj cb = connectCssProviderParsingError obj cb SignalConnectAfter
connectCssProviderParsingError :: (GObject a, MonadIO m) =>
a -> CssProviderParsingErrorCallback -> SignalConnectMode -> m SignalHandlerId
connectCssProviderParsingError obj cb after = liftIO $ do
cb' <- mkCssProviderParsingErrorCallback (cssProviderParsingErrorCallbackWrapper cb)
connectSignalFunPtr obj "parsing-error" cb' after
-- Enum CssProviderError
data CssProviderError =
CssProviderErrorFailed
| CssProviderErrorSyntax
| CssProviderErrorImport
| CssProviderErrorName
| CssProviderErrorDeprecated
| CssProviderErrorUnknownValue
| AnotherCssProviderError Int
deriving (Show, Eq)
instance Enum CssProviderError where
fromEnum CssProviderErrorFailed = 0
fromEnum CssProviderErrorSyntax = 1
fromEnum CssProviderErrorImport = 2
fromEnum CssProviderErrorName = 3
fromEnum CssProviderErrorDeprecated = 4
fromEnum CssProviderErrorUnknownValue = 5
fromEnum (AnotherCssProviderError k) = k
toEnum 0 = CssProviderErrorFailed
toEnum 1 = CssProviderErrorSyntax
toEnum 2 = CssProviderErrorImport
toEnum 3 = CssProviderErrorName
toEnum 4 = CssProviderErrorDeprecated
toEnum 5 = CssProviderErrorUnknownValue
toEnum k = AnotherCssProviderError k
instance GErrorClass CssProviderError where
gerrorClassDomain _ = "gtk-css-provider-error-quark"
catchCssProviderError ::
IO a ->
(CssProviderError -> GErrorMessage -> IO a) ->
IO a
catchCssProviderError = catchGErrorJustDomain
handleCssProviderError ::
(CssProviderError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleCssProviderError = handleGErrorJustDomain
foreign import ccall "gtk_css_provider_error_get_type" c_gtk_css_provider_error_get_type ::
IO GType
instance BoxedEnum CssProviderError where
boxedEnumType _ = c_gtk_css_provider_error_get_type
-- struct CssSection
newtype CssSection = CssSection (ForeignPtr CssSection)
noCssSection :: Maybe CssSection
noCssSection = Nothing
foreign import ccall "gtk_css_section_get_type" c_gtk_css_section_get_type ::
IO GType
instance BoxedObject CssSection where
boxedType _ = c_gtk_css_section_get_type
-- method CssSection::get_end_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_end_line" gtk_css_section_get_end_line ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO Word32
cssSectionGetEndLine ::
(MonadIO m) =>
CssSection -> -- _obj
m Word32
cssSectionGetEndLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_end_line _obj'
touchManagedPtr _obj
return result
-- method CssSection::get_end_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_end_position" gtk_css_section_get_end_position ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO Word32
cssSectionGetEndPosition ::
(MonadIO m) =>
CssSection -> -- _obj
m Word32
cssSectionGetEndPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_end_position _obj'
touchManagedPtr _obj
return result
-- method CssSection::get_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_file" gtk_css_section_get_file ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO (Ptr Gio.File)
cssSectionGetFile ::
(MonadIO m) =>
CssSection -> -- _obj
m Gio.File
cssSectionGetFile _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_file _obj'
checkUnexpectedReturnNULL "gtk_css_section_get_file" result
result' <- (newObject Gio.File) result
touchManagedPtr _obj
return result'
-- method CssSection::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CssSection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_parent" gtk_css_section_get_parent ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO (Ptr CssSection)
cssSectionGetParent ::
(MonadIO m) =>
CssSection -> -- _obj
m CssSection
cssSectionGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_parent _obj'
checkUnexpectedReturnNULL "gtk_css_section_get_parent" result
result' <- (newBoxed CssSection) result
touchManagedPtr _obj
return result'
-- method CssSection::get_section_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CssSectionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_section_type" gtk_css_section_get_section_type ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO CUInt
cssSectionGetSectionType ::
(MonadIO m) =>
CssSection -> -- _obj
m CssSectionType
cssSectionGetSectionType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_section_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method CssSection::get_start_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_start_line" gtk_css_section_get_start_line ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO Word32
cssSectionGetStartLine ::
(MonadIO m) =>
CssSection -> -- _obj
m Word32
cssSectionGetStartLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_start_line _obj'
touchManagedPtr _obj
return result
-- method CssSection::get_start_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_get_start_position" gtk_css_section_get_start_position ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO Word32
cssSectionGetStartPosition ::
(MonadIO m) =>
CssSection -> -- _obj
m Word32
cssSectionGetStartPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_get_start_position _obj'
touchManagedPtr _obj
return result
-- method CssSection::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CssSection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_ref" gtk_css_section_ref ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO (Ptr CssSection)
cssSectionRef ::
(MonadIO m) =>
CssSection -> -- _obj
m CssSection
cssSectionRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_css_section_ref _obj'
checkUnexpectedReturnNULL "gtk_css_section_ref" result
result' <- (wrapBoxed CssSection) result
touchManagedPtr _obj
return result'
-- method CssSection::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_section_unref" gtk_css_section_unref ::
Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection"
IO ()
cssSectionUnref ::
(MonadIO m) =>
CssSection -> -- _obj
m ()
cssSectionUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_css_section_unref _obj'
touchManagedPtr _obj
return ()
-- Enum CssSectionType
data CssSectionType =
CssSectionTypeDocument
| CssSectionTypeImport
| CssSectionTypeColorDefinition
| CssSectionTypeBindingSet
| CssSectionTypeRuleset
| CssSectionTypeSelector
| CssSectionTypeDeclaration
| CssSectionTypeValue
| CssSectionTypeKeyframes
| AnotherCssSectionType Int
deriving (Show, Eq)
instance Enum CssSectionType where
fromEnum CssSectionTypeDocument = 0
fromEnum CssSectionTypeImport = 1
fromEnum CssSectionTypeColorDefinition = 2
fromEnum CssSectionTypeBindingSet = 3
fromEnum CssSectionTypeRuleset = 4
fromEnum CssSectionTypeSelector = 5
fromEnum CssSectionTypeDeclaration = 6
fromEnum CssSectionTypeValue = 7
fromEnum CssSectionTypeKeyframes = 8
fromEnum (AnotherCssSectionType k) = k
toEnum 0 = CssSectionTypeDocument
toEnum 1 = CssSectionTypeImport
toEnum 2 = CssSectionTypeColorDefinition
toEnum 3 = CssSectionTypeBindingSet
toEnum 4 = CssSectionTypeRuleset
toEnum 5 = CssSectionTypeSelector
toEnum 6 = CssSectionTypeDeclaration
toEnum 7 = CssSectionTypeValue
toEnum 8 = CssSectionTypeKeyframes
toEnum k = AnotherCssSectionType k
foreign import ccall "gtk_css_section_type_get_type" c_gtk_css_section_type_get_type ::
IO GType
instance BoxedEnum CssSectionType where
boxedEnumType _ = c_gtk_css_section_type_get_type
-- Flags DebugFlag
data DebugFlag =
DebugFlagMisc
| DebugFlagPlugsocket
| DebugFlagText
| DebugFlagTree
| DebugFlagUpdates
| DebugFlagKeybindings
| DebugFlagMultihead
| DebugFlagModules
| DebugFlagGeometry
| DebugFlagIcontheme
| DebugFlagPrinting
| DebugFlagBuilder
| DebugFlagSizeRequest
| DebugFlagNoCssCache
| DebugFlagBaselines
| DebugFlagPixelCache
| DebugFlagNoPixelCache
| DebugFlagInteractive
| DebugFlagTouchscreen
| DebugFlagActions
| AnotherDebugFlag Int
deriving (Show, Eq)
instance Enum DebugFlag where
fromEnum DebugFlagMisc = 1
fromEnum DebugFlagPlugsocket = 2
fromEnum DebugFlagText = 4
fromEnum DebugFlagTree = 8
fromEnum DebugFlagUpdates = 16
fromEnum DebugFlagKeybindings = 32
fromEnum DebugFlagMultihead = 64
fromEnum DebugFlagModules = 128
fromEnum DebugFlagGeometry = 256
fromEnum DebugFlagIcontheme = 512
fromEnum DebugFlagPrinting = 1024
fromEnum DebugFlagBuilder = 2048
fromEnum DebugFlagSizeRequest = 4096
fromEnum DebugFlagNoCssCache = 8192
fromEnum DebugFlagBaselines = 16384
fromEnum DebugFlagPixelCache = 32768
fromEnum DebugFlagNoPixelCache = 65536
fromEnum DebugFlagInteractive = 131072
fromEnum DebugFlagTouchscreen = 262144
fromEnum DebugFlagActions = 524288
fromEnum (AnotherDebugFlag k) = k
toEnum 1 = DebugFlagMisc
toEnum 2 = DebugFlagPlugsocket
toEnum 4 = DebugFlagText
toEnum 8 = DebugFlagTree
toEnum 16 = DebugFlagUpdates
toEnum 32 = DebugFlagKeybindings
toEnum 64 = DebugFlagMultihead
toEnum 128 = DebugFlagModules
toEnum 256 = DebugFlagGeometry
toEnum 512 = DebugFlagIcontheme
toEnum 1024 = DebugFlagPrinting
toEnum 2048 = DebugFlagBuilder
toEnum 4096 = DebugFlagSizeRequest
toEnum 8192 = DebugFlagNoCssCache
toEnum 16384 = DebugFlagBaselines
toEnum 32768 = DebugFlagPixelCache
toEnum 65536 = DebugFlagNoPixelCache
toEnum 131072 = DebugFlagInteractive
toEnum 262144 = DebugFlagTouchscreen
toEnum 524288 = DebugFlagActions
toEnum k = AnotherDebugFlag k
foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type ::
IO GType
instance BoxedEnum DebugFlag where
boxedEnumType _ = c_gtk_debug_flag_get_type
instance IsGFlag DebugFlag
-- Enum DeleteType
data DeleteType =
DeleteTypeChars
| DeleteTypeWordEnds
| DeleteTypeWords
| DeleteTypeDisplayLines
| DeleteTypeDisplayLineEnds
| DeleteTypeParagraphEnds
| DeleteTypeParagraphs
| DeleteTypeWhitespace
| AnotherDeleteType Int
deriving (Show, Eq)
instance Enum DeleteType where
fromEnum DeleteTypeChars = 0
fromEnum DeleteTypeWordEnds = 1
fromEnum DeleteTypeWords = 2
fromEnum DeleteTypeDisplayLines = 3
fromEnum DeleteTypeDisplayLineEnds = 4
fromEnum DeleteTypeParagraphEnds = 5
fromEnum DeleteTypeParagraphs = 6
fromEnum DeleteTypeWhitespace = 7
fromEnum (AnotherDeleteType k) = k
toEnum 0 = DeleteTypeChars
toEnum 1 = DeleteTypeWordEnds
toEnum 2 = DeleteTypeWords
toEnum 3 = DeleteTypeDisplayLines
toEnum 4 = DeleteTypeDisplayLineEnds
toEnum 5 = DeleteTypeParagraphEnds
toEnum 6 = DeleteTypeParagraphs
toEnum 7 = DeleteTypeWhitespace
toEnum k = AnotherDeleteType k
foreign import ccall "gtk_delete_type_get_type" c_gtk_delete_type_get_type ::
IO GType
instance BoxedEnum DeleteType where
boxedEnumType _ = c_gtk_delete_type_get_type
-- Flags DestDefaults
data DestDefaults =
DestDefaultsMotion
| DestDefaultsHighlight
| DestDefaultsDrop
| DestDefaultsAll
| AnotherDestDefaults Int
deriving (Show, Eq)
instance Enum DestDefaults where
fromEnum DestDefaultsMotion = 1
fromEnum DestDefaultsHighlight = 2
fromEnum DestDefaultsDrop = 4
fromEnum DestDefaultsAll = 7
fromEnum (AnotherDestDefaults k) = k
toEnum 1 = DestDefaultsMotion
toEnum 2 = DestDefaultsHighlight
toEnum 4 = DestDefaultsDrop
toEnum 7 = DestDefaultsAll
toEnum k = AnotherDestDefaults k
foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type ::
IO GType
instance BoxedEnum DestDefaults where
boxedEnumType _ = c_gtk_dest_defaults_get_type
instance IsGFlag DestDefaults
-- object Dialog
newtype Dialog = Dialog (ForeignPtr Dialog)
noDialog :: Maybe Dialog
noDialog = Nothing
foreign import ccall "gtk_dialog_get_type"
c_gtk_dialog_get_type :: IO GType
type instance ParentTypes Dialog = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Dialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_dialog_get_type
class GObject o => DialogK o
instance (GObject o, IsDescendantOf Dialog o) => DialogK o
toDialog :: DialogK o => o -> IO Dialog
toDialog = unsafeCastTo Dialog
-- method Dialog::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Dialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_new" gtk_dialog_new ::
IO (Ptr Dialog)
dialogNew ::
(MonadIO m) =>
m Dialog
dialogNew = liftIO $ do
result <- gtk_dialog_new
checkUnexpectedReturnNULL "gtk_dialog_new" result
result' <- (newObject Dialog) result
return result'
-- method Dialog::add_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_add_action_widget" gtk_dialog_add_action_widget ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- response_id : TBasicType TInt32
IO ()
dialogAddActionWidget ::
(MonadIO m, DialogK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- response_id
m ()
dialogAddActionWidget _obj child response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_dialog_add_action_widget _obj' child' response_id
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Dialog::add_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_add_button" gtk_dialog_add_button ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
CString -> -- button_text : TBasicType TUTF8
Int32 -> -- response_id : TBasicType TInt32
IO (Ptr Widget)
dialogAddButton ::
(MonadIO m, DialogK a) =>
a -> -- _obj
T.Text -> -- button_text
Int32 -> -- response_id
m Widget
dialogAddButton _obj button_text response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
button_text' <- textToCString button_text
result <- gtk_dialog_add_button _obj' button_text' response_id
checkUnexpectedReturnNULL "gtk_dialog_add_button" result
result' <- (newObject Widget) result
touchManagedPtr _obj
freeMem button_text'
return result'
-- method Dialog::get_action_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_get_action_area" gtk_dialog_get_action_area ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
IO (Ptr Widget)
{-# DEPRECATED dialogGetActionArea ["(Since version 3.12)","Direct access to the action area"," is discouraged; use gtk_dialog_add_button(), etc."]#-}
dialogGetActionArea ::
(MonadIO m, DialogK a) =>
a -> -- _obj
m Widget
dialogGetActionArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_dialog_get_action_area _obj'
checkUnexpectedReturnNULL "gtk_dialog_get_action_area" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Dialog::get_content_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Box"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_get_content_area" gtk_dialog_get_content_area ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
IO (Ptr Box)
dialogGetContentArea ::
(MonadIO m, DialogK a) =>
a -> -- _obj
m Box
dialogGetContentArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_dialog_get_content_area _obj'
checkUnexpectedReturnNULL "gtk_dialog_get_content_area" result
result' <- (newObject Box) result
touchManagedPtr _obj
return result'
-- method Dialog::get_header_bar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_get_header_bar" gtk_dialog_get_header_bar ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
IO (Ptr Widget)
dialogGetHeaderBar ::
(MonadIO m, DialogK a) =>
a -> -- _obj
m Widget
dialogGetHeaderBar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_dialog_get_header_bar _obj'
checkUnexpectedReturnNULL "gtk_dialog_get_header_bar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Dialog::get_response_for_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_get_response_for_widget" gtk_dialog_get_response_for_widget ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO Int32
dialogGetResponseForWidget ::
(MonadIO m, DialogK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m Int32
dialogGetResponseForWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_dialog_get_response_for_widget _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return result
-- method Dialog::get_widget_for_response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_get_widget_for_response" gtk_dialog_get_widget_for_response ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Int32 -> -- response_id : TBasicType TInt32
IO (Ptr Widget)
dialogGetWidgetForResponse ::
(MonadIO m, DialogK a) =>
a -> -- _obj
Int32 -> -- response_id
m Widget
dialogGetWidgetForResponse _obj response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_dialog_get_widget_for_response _obj' response_id
checkUnexpectedReturnNULL "gtk_dialog_get_widget_for_response" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Dialog::response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_response" gtk_dialog_response ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Int32 -> -- response_id : TBasicType TInt32
IO ()
dialogResponse ::
(MonadIO m, DialogK a) =>
a -> -- _obj
Int32 -> -- response_id
m ()
dialogResponse _obj response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_dialog_response _obj' response_id
touchManagedPtr _obj
return ()
-- method Dialog::run
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_run" gtk_dialog_run ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
IO Int32
dialogRun ::
(MonadIO m, DialogK a) =>
a -> -- _obj
m Int32
dialogRun _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_dialog_run _obj'
touchManagedPtr _obj
return result
-- method Dialog::set_alternative_button_order_from_array
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_set_alternative_button_order_from_array" gtk_dialog_set_alternative_button_order_from_array ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Int32 -> -- n_params : TBasicType TInt32
Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt32)
IO ()
{-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-}
dialogSetAlternativeButtonOrderFromArray ::
(MonadIO m, DialogK a) =>
a -> -- _obj
[Int32] -> -- new_order
m ()
dialogSetAlternativeButtonOrderFromArray _obj new_order = liftIO $ do
let n_params = fromIntegral $ length new_order
let _obj' = unsafeManagedPtrCastPtr _obj
new_order' <- packStorableArray new_order
gtk_dialog_set_alternative_button_order_from_array _obj' n_params new_order'
touchManagedPtr _obj
freeMem new_order'
return ()
-- method Dialog::set_default_response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_set_default_response" gtk_dialog_set_default_response ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Int32 -> -- response_id : TBasicType TInt32
IO ()
dialogSetDefaultResponse ::
(MonadIO m, DialogK a) =>
a -> -- _obj
Int32 -> -- response_id
m ()
dialogSetDefaultResponse _obj response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_dialog_set_default_response _obj' response_id
touchManagedPtr _obj
return ()
-- method Dialog::set_response_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_dialog_set_response_sensitive" gtk_dialog_set_response_sensitive ::
Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog"
Int32 -> -- response_id : TBasicType TInt32
CInt -> -- setting : TBasicType TBoolean
IO ()
dialogSetResponseSensitive ::
(MonadIO m, DialogK a) =>
a -> -- _obj
Int32 -> -- response_id
Bool -> -- setting
m ()
dialogSetResponseSensitive _obj response_id setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_dialog_set_response_sensitive _obj' response_id setting'
touchManagedPtr _obj
return ()
-- signal Dialog::close
type DialogCloseCallback =
IO ()
noDialogCloseCallback :: Maybe DialogCloseCallback
noDialogCloseCallback = Nothing
type DialogCloseCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkDialogCloseCallback :: DialogCloseCallbackC -> IO (FunPtr DialogCloseCallbackC)
dialogCloseClosure :: DialogCloseCallback -> IO Closure
dialogCloseClosure cb = newCClosure =<< mkDialogCloseCallback wrapped
where wrapped = dialogCloseCallbackWrapper cb
dialogCloseCallbackWrapper ::
DialogCloseCallback ->
Ptr () ->
Ptr () ->
IO ()
dialogCloseCallbackWrapper _cb _ _ = do
_cb
onDialogClose :: (GObject a, MonadIO m) => a -> DialogCloseCallback -> m SignalHandlerId
onDialogClose obj cb = liftIO $ connectDialogClose obj cb SignalConnectBefore
afterDialogClose :: (GObject a, MonadIO m) => a -> DialogCloseCallback -> m SignalHandlerId
afterDialogClose obj cb = connectDialogClose obj cb SignalConnectAfter
connectDialogClose :: (GObject a, MonadIO m) =>
a -> DialogCloseCallback -> SignalConnectMode -> m SignalHandlerId
connectDialogClose obj cb after = liftIO $ do
cb' <- mkDialogCloseCallback (dialogCloseCallbackWrapper cb)
connectSignalFunPtr obj "close" cb' after
-- signal Dialog::response
type DialogResponseCallback =
Int32 ->
IO ()
noDialogResponseCallback :: Maybe DialogResponseCallback
noDialogResponseCallback = Nothing
type DialogResponseCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkDialogResponseCallback :: DialogResponseCallbackC -> IO (FunPtr DialogResponseCallbackC)
dialogResponseClosure :: DialogResponseCallback -> IO Closure
dialogResponseClosure cb = newCClosure =<< mkDialogResponseCallback wrapped
where wrapped = dialogResponseCallbackWrapper cb
dialogResponseCallbackWrapper ::
DialogResponseCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
dialogResponseCallbackWrapper _cb _ response_id _ = do
_cb response_id
onDialogResponse :: (GObject a, MonadIO m) => a -> DialogResponseCallback -> m SignalHandlerId
onDialogResponse obj cb = liftIO $ connectDialogResponse obj cb SignalConnectBefore
afterDialogResponse :: (GObject a, MonadIO m) => a -> DialogResponseCallback -> m SignalHandlerId
afterDialogResponse obj cb = connectDialogResponse obj cb SignalConnectAfter
connectDialogResponse :: (GObject a, MonadIO m) =>
a -> DialogResponseCallback -> SignalConnectMode -> m SignalHandlerId
connectDialogResponse obj cb after = liftIO $ do
cb' <- mkDialogResponseCallback (dialogResponseCallbackWrapper cb)
connectSignalFunPtr obj "response" cb' after
-- Flags DialogFlags
data DialogFlags =
DialogFlagsModal
| DialogFlagsDestroyWithParent
| DialogFlagsUseHeaderBar
| AnotherDialogFlags Int
deriving (Show, Eq)
instance Enum DialogFlags where
fromEnum DialogFlagsModal = 1
fromEnum DialogFlagsDestroyWithParent = 2
fromEnum DialogFlagsUseHeaderBar = 4
fromEnum (AnotherDialogFlags k) = k
toEnum 1 = DialogFlagsModal
toEnum 2 = DialogFlagsDestroyWithParent
toEnum 4 = DialogFlagsUseHeaderBar
toEnum k = AnotherDialogFlags k
foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type ::
IO GType
instance BoxedEnum DialogFlags where
boxedEnumType _ = c_gtk_dialog_flags_get_type
instance IsGFlag DialogFlags
-- Enum DirectionType
data DirectionType =
DirectionTypeTabForward
| DirectionTypeTabBackward
| DirectionTypeUp
| DirectionTypeDown
| DirectionTypeLeft
| DirectionTypeRight
| AnotherDirectionType Int
deriving (Show, Eq)
instance Enum DirectionType where
fromEnum DirectionTypeTabForward = 0
fromEnum DirectionTypeTabBackward = 1
fromEnum DirectionTypeUp = 2
fromEnum DirectionTypeDown = 3
fromEnum DirectionTypeLeft = 4
fromEnum DirectionTypeRight = 5
fromEnum (AnotherDirectionType k) = k
toEnum 0 = DirectionTypeTabForward
toEnum 1 = DirectionTypeTabBackward
toEnum 2 = DirectionTypeUp
toEnum 3 = DirectionTypeDown
toEnum 4 = DirectionTypeLeft
toEnum 5 = DirectionTypeRight
toEnum k = AnotherDirectionType k
foreign import ccall "gtk_direction_type_get_type" c_gtk_direction_type_get_type ::
IO GType
instance BoxedEnum DirectionType where
boxedEnumType _ = c_gtk_direction_type_get_type
-- Enum DragResult
data DragResult =
DragResultSuccess
| DragResultNoTarget
| DragResultUserCancelled
| DragResultTimeoutExpired
| DragResultGrabBroken
| DragResultError
| AnotherDragResult Int
deriving (Show, Eq)
instance Enum DragResult where
fromEnum DragResultSuccess = 0
fromEnum DragResultNoTarget = 1
fromEnum DragResultUserCancelled = 2
fromEnum DragResultTimeoutExpired = 3
fromEnum DragResultGrabBroken = 4
fromEnum DragResultError = 5
fromEnum (AnotherDragResult k) = k
toEnum 0 = DragResultSuccess
toEnum 1 = DragResultNoTarget
toEnum 2 = DragResultUserCancelled
toEnum 3 = DragResultTimeoutExpired
toEnum 4 = DragResultGrabBroken
toEnum 5 = DragResultError
toEnum k = AnotherDragResult k
foreign import ccall "gtk_drag_result_get_type" c_gtk_drag_result_get_type ::
IO GType
instance BoxedEnum DragResult where
boxedEnumType _ = c_gtk_drag_result_get_type
-- object DrawingArea
newtype DrawingArea = DrawingArea (ForeignPtr DrawingArea)
noDrawingArea :: Maybe DrawingArea
noDrawingArea = Nothing
foreign import ccall "gtk_drawing_area_get_type"
c_gtk_drawing_area_get_type :: IO GType
type instance ParentTypes DrawingArea = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject DrawingArea where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_drawing_area_get_type
class GObject o => DrawingAreaK o
instance (GObject o, IsDescendantOf DrawingArea o) => DrawingAreaK o
toDrawingArea :: DrawingAreaK o => o -> IO DrawingArea
toDrawingArea = unsafeCastTo DrawingArea
-- method DrawingArea::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "DrawingArea"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drawing_area_new" gtk_drawing_area_new ::
IO (Ptr DrawingArea)
drawingAreaNew ::
(MonadIO m) =>
m DrawingArea
drawingAreaNew = liftIO $ do
result <- gtk_drawing_area_new
checkUnexpectedReturnNULL "gtk_drawing_area_new" result
result' <- (newObject DrawingArea) result
return result'
-- interface Editable
newtype Editable = Editable (ForeignPtr Editable)
noEditable :: Maybe Editable
noEditable = Nothing
class ForeignPtrNewtype a => EditableK a
instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o
type instance ParentTypes Editable = '[]
-- method Editable::copy_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_copy_clipboard" gtk_editable_copy_clipboard ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO ()
editableCopyClipboard ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m ()
editableCopyClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_copy_clipboard _obj'
touchManagedPtr _obj
return ()
-- method Editable::cut_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_cut_clipboard" gtk_editable_cut_clipboard ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO ()
editableCutClipboard ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m ()
editableCutClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_cut_clipboard _obj'
touchManagedPtr _obj
return ()
-- method Editable::delete_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_delete_selection" gtk_editable_delete_selection ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO ()
editableDeleteSelection ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m ()
editableDeleteSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_delete_selection _obj'
touchManagedPtr _obj
return ()
-- method Editable::delete_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
Int32 -> -- start_pos : TBasicType TInt32
Int32 -> -- end_pos : TBasicType TInt32
IO ()
editableDeleteText ::
(MonadIO m, EditableK a) =>
a -> -- _obj
Int32 -> -- start_pos
Int32 -> -- end_pos
m ()
editableDeleteText _obj start_pos end_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_delete_text _obj' start_pos end_pos
touchManagedPtr _obj
return ()
-- method Editable::get_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
Int32 -> -- start_pos : TBasicType TInt32
Int32 -> -- end_pos : TBasicType TInt32
IO CString
editableGetChars ::
(MonadIO m, EditableK a) =>
a -> -- _obj
Int32 -> -- start_pos
Int32 -> -- end_pos
m T.Text
editableGetChars _obj start_pos end_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_editable_get_chars _obj' start_pos end_pos
checkUnexpectedReturnNULL "gtk_editable_get_chars" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Editable::get_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_get_editable" gtk_editable_get_editable ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO CInt
editableGetEditable ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m Bool
editableGetEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_editable_get_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Editable::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_get_position" gtk_editable_get_position ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO Int32
editableGetPosition ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m Int32
editableGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_editable_get_position _obj'
touchManagedPtr _obj
return result
-- method Editable::get_selection_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
Ptr Int32 -> -- start_pos : TBasicType TInt32
Ptr Int32 -> -- end_pos : TBasicType TInt32
IO CInt
editableGetSelectionBounds ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m (Bool,Int32,Int32)
editableGetSelectionBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start_pos <- allocMem :: IO (Ptr Int32)
end_pos <- allocMem :: IO (Ptr Int32)
result <- gtk_editable_get_selection_bounds _obj' start_pos end_pos
let result' = (/= 0) result
start_pos' <- peek start_pos
end_pos' <- peek end_pos
touchManagedPtr _obj
freeMem start_pos
freeMem end_pos
return (result', start_pos', end_pos')
-- method Editable::insert_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
CString -> -- new_text : TBasicType TUTF8
Int32 -> -- new_text_length : TBasicType TInt32
Ptr Int32 -> -- position : TBasicType TInt32
IO ()
editableInsertText ::
(MonadIO m, EditableK a) =>
a -> -- _obj
T.Text -> -- new_text
Int32 -> -- new_text_length
Int32 -> -- position
m (Int32)
editableInsertText _obj new_text new_text_length position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
new_text' <- textToCString new_text
position' <- allocMem :: IO (Ptr Int32)
poke position' position
gtk_editable_insert_text _obj' new_text' new_text_length position'
position'' <- peek position'
touchManagedPtr _obj
freeMem new_text'
freeMem position'
return position''
-- method Editable::paste_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_paste_clipboard" gtk_editable_paste_clipboard ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
IO ()
editablePasteClipboard ::
(MonadIO m, EditableK a) =>
a -> -- _obj
m ()
editablePasteClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_paste_clipboard _obj'
touchManagedPtr _obj
return ()
-- method Editable::select_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_select_region" gtk_editable_select_region ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
Int32 -> -- start_pos : TBasicType TInt32
Int32 -> -- end_pos : TBasicType TInt32
IO ()
editableSelectRegion ::
(MonadIO m, EditableK a) =>
a -> -- _obj
Int32 -> -- start_pos
Int32 -> -- end_pos
m ()
editableSelectRegion _obj start_pos end_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_select_region _obj' start_pos end_pos
touchManagedPtr _obj
return ()
-- method Editable::set_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_set_editable" gtk_editable_set_editable ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
CInt -> -- is_editable : TBasicType TBoolean
IO ()
editableSetEditable ::
(MonadIO m, EditableK a) =>
a -> -- _obj
Bool -> -- is_editable
m ()
editableSetEditable _obj is_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_editable' = (fromIntegral . fromEnum) is_editable
gtk_editable_set_editable _obj' is_editable'
touchManagedPtr _obj
return ()
-- method Editable::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_editable_set_position" gtk_editable_set_position ::
Ptr Editable -> -- _obj : TInterface "Gtk" "Editable"
Int32 -> -- position : TBasicType TInt32
IO ()
editableSetPosition ::
(MonadIO m, EditableK a) =>
a -> -- _obj
Int32 -> -- position
m ()
editableSetPosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_editable_set_position _obj' position
touchManagedPtr _obj
return ()
-- signal Editable::changed
type EditableChangedCallback =
IO ()
noEditableChangedCallback :: Maybe EditableChangedCallback
noEditableChangedCallback = Nothing
type EditableChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEditableChangedCallback :: EditableChangedCallbackC -> IO (FunPtr EditableChangedCallbackC)
editableChangedClosure :: EditableChangedCallback -> IO Closure
editableChangedClosure cb = newCClosure =<< mkEditableChangedCallback wrapped
where wrapped = editableChangedCallbackWrapper cb
editableChangedCallbackWrapper ::
EditableChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
editableChangedCallbackWrapper _cb _ _ = do
_cb
onEditableChanged :: (GObject a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId
onEditableChanged obj cb = liftIO $ connectEditableChanged obj cb SignalConnectBefore
afterEditableChanged :: (GObject a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId
afterEditableChanged obj cb = connectEditableChanged obj cb SignalConnectAfter
connectEditableChanged :: (GObject a, MonadIO m) =>
a -> EditableChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectEditableChanged obj cb after = liftIO $ do
cb' <- mkEditableChangedCallback (editableChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal Editable::delete-text
type EditableDeleteTextCallback =
Int32 ->
Int32 ->
IO ()
noEditableDeleteTextCallback :: Maybe EditableDeleteTextCallback
noEditableDeleteTextCallback = Nothing
type EditableDeleteTextCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEditableDeleteTextCallback :: EditableDeleteTextCallbackC -> IO (FunPtr EditableDeleteTextCallbackC)
editableDeleteTextClosure :: EditableDeleteTextCallback -> IO Closure
editableDeleteTextClosure cb = newCClosure =<< mkEditableDeleteTextCallback wrapped
where wrapped = editableDeleteTextCallbackWrapper cb
editableDeleteTextCallbackWrapper ::
EditableDeleteTextCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
editableDeleteTextCallbackWrapper _cb _ start_pos end_pos _ = do
_cb start_pos end_pos
onEditableDeleteText :: (GObject a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId
onEditableDeleteText obj cb = liftIO $ connectEditableDeleteText obj cb SignalConnectBefore
afterEditableDeleteText :: (GObject a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId
afterEditableDeleteText obj cb = connectEditableDeleteText obj cb SignalConnectAfter
connectEditableDeleteText :: (GObject a, MonadIO m) =>
a -> EditableDeleteTextCallback -> SignalConnectMode -> m SignalHandlerId
connectEditableDeleteText obj cb after = liftIO $ do
cb' <- mkEditableDeleteTextCallback (editableDeleteTextCallbackWrapper cb)
connectSignalFunPtr obj "delete-text" cb' after
-- signal Editable::insert-text
type EditableInsertTextCallback =
T.Text ->
Int32 ->
Int32 ->
IO (Int32)
noEditableInsertTextCallback :: Maybe EditableInsertTextCallback
noEditableInsertTextCallback = Nothing
type EditableInsertTextCallbackC =
Ptr () -> -- object
CString ->
Int32 ->
Ptr Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEditableInsertTextCallback :: EditableInsertTextCallbackC -> IO (FunPtr EditableInsertTextCallbackC)
editableInsertTextClosure :: EditableInsertTextCallback -> IO Closure
editableInsertTextClosure cb = newCClosure =<< mkEditableInsertTextCallback wrapped
where wrapped = editableInsertTextCallbackWrapper cb
editableInsertTextCallbackWrapper ::
EditableInsertTextCallback ->
Ptr () ->
CString ->
Int32 ->
Ptr Int32 ->
Ptr () ->
IO ()
editableInsertTextCallbackWrapper _cb _ new_text new_text_length position _ = do
new_text' <- cstringToText new_text
position' <- peek position
outposition <- _cb new_text' new_text_length position'
poke position outposition
onEditableInsertText :: (GObject a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId
onEditableInsertText obj cb = liftIO $ connectEditableInsertText obj cb SignalConnectBefore
afterEditableInsertText :: (GObject a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId
afterEditableInsertText obj cb = connectEditableInsertText obj cb SignalConnectAfter
connectEditableInsertText :: (GObject a, MonadIO m) =>
a -> EditableInsertTextCallback -> SignalConnectMode -> m SignalHandlerId
connectEditableInsertText obj cb after = liftIO $ do
cb' <- mkEditableInsertTextCallback (editableInsertTextCallbackWrapper cb)
connectSignalFunPtr obj "insert-text" cb' after
-- object Entry
newtype Entry = Entry (ForeignPtr Entry)
noEntry :: Maybe Entry
noEntry = Nothing
foreign import ccall "gtk_entry_get_type"
c_gtk_entry_get_type :: IO GType
type instance ParentTypes Entry = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable]
instance GObject Entry where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_entry_get_type
class GObject o => EntryK o
instance (GObject o, IsDescendantOf Entry o) => EntryK o
toEntry :: EntryK o => o -> IO Entry
toEntry = unsafeCastTo Entry
-- method Entry::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Entry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_new" gtk_entry_new ::
IO (Ptr Entry)
entryNew ::
(MonadIO m) =>
m Entry
entryNew = liftIO $ do
result <- gtk_entry_new
checkUnexpectedReturnNULL "gtk_entry_new" result
result' <- (newObject Entry) result
return result'
-- method Entry::new_with_buffer
-- method type : Constructor
-- Args : [Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Entry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_new_with_buffer" gtk_entry_new_with_buffer ::
Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer"
IO (Ptr Entry)
entryNewWithBuffer ::
(MonadIO m, EntryBufferK a) =>
a -> -- buffer
m Entry
entryNewWithBuffer buffer = liftIO $ do
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_entry_new_with_buffer buffer'
checkUnexpectedReturnNULL "gtk_entry_new_with_buffer" result
result' <- (newObject Entry) result
touchManagedPtr buffer
return result'
-- method Entry::get_activates_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_activates_default" gtk_entry_get_activates_default ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CInt
entryGetActivatesDefault ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Bool
entryGetActivatesDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_activates_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_alignment" gtk_entry_get_alignment ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CFloat
entryGetAlignment ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Float
entryGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Entry::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "AttrList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_attributes" gtk_entry_get_attributes ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr Pango.AttrList)
entryGetAttributes ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Pango.AttrList
entryGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_attributes _obj'
checkUnexpectedReturnNULL "gtk_entry_get_attributes" result
result' <- (newBoxed Pango.AttrList) result
touchManagedPtr _obj
return result'
-- method Entry::get_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "EntryBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_buffer" gtk_entry_get_buffer ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr EntryBuffer)
entryGetBuffer ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m EntryBuffer
entryGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_entry_get_buffer" result
result' <- (newObject EntryBuffer) result
touchManagedPtr _obj
return result'
-- method Entry::get_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "EntryCompletion"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_completion" gtk_entry_get_completion ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr EntryCompletion)
entryGetCompletion ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m EntryCompletion
entryGetCompletion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_completion _obj'
checkUnexpectedReturnNULL "gtk_entry_get_completion" result
result' <- (newObject EntryCompletion) result
touchManagedPtr _obj
return result'
-- method Entry::get_current_icon_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_current_icon_drag_source" gtk_entry_get_current_icon_drag_source ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO Int32
entryGetCurrentIconDragSource ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Int32
entryGetCurrentIconDragSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_current_icon_drag_source _obj'
touchManagedPtr _obj
return result
-- method Entry::get_cursor_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_cursor_hadjustment" gtk_entry_get_cursor_hadjustment ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr Adjustment)
entryGetCursorHadjustment ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Adjustment
entryGetCursorHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_cursor_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Entry::get_has_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_has_frame" gtk_entry_get_has_frame ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CInt
entryGetHasFrame ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Bool
entryGetHasFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_has_frame _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_activatable" gtk_entry_get_icon_activatable ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CInt
entryGetIconActivatable ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m Bool
entryGetIconActivatable _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_activatable _obj' icon_pos'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_area" gtk_entry_get_icon_area ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
Ptr Gdk.Rectangle -> -- icon_area : TInterface "Gdk" "Rectangle"
IO ()
entryGetIconArea ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m (Gdk.Rectangle)
entryGetIconArea _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
icon_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_entry_get_icon_area _obj' icon_pos' icon_area
icon_area' <- (wrapBoxed Gdk.Rectangle) icon_area
touchManagedPtr _obj
return icon_area'
-- method Entry::get_icon_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO Int32
entryGetIconAtPos ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m Int32
entryGetIconAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_icon_at_pos _obj' x y
touchManagedPtr _obj
return result
-- method Entry::get_icon_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_gicon" gtk_entry_get_icon_gicon ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO (Ptr Gio.Icon)
entryGetIconGicon ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m Gio.Icon
entryGetIconGicon _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_gicon _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_name" gtk_entry_get_icon_name ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CString
entryGetIconName ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m T.Text
entryGetIconName _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_name _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_pixbuf" gtk_entry_get_icon_pixbuf ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO (Ptr GdkPixbuf.Pixbuf)
entryGetIconPixbuf ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m GdkPixbuf.Pixbuf
entryGetIconPixbuf _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_pixbuf _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_sensitive" gtk_entry_get_icon_sensitive ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CInt
entryGetIconSensitive ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m Bool
entryGetIconSensitive _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_sensitive _obj' icon_pos'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_stock" gtk_entry_get_icon_stock ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CString
{-# DEPRECATED entryGetIconStock ["(Since version 3.10)","Use gtk_entry_get_icon_name() instead."]#-}
entryGetIconStock ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m T.Text
entryGetIconStock _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_stock _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_storage_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_storage_type" gtk_entry_get_icon_storage_type ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CUInt
entryGetIconStorageType ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m ImageType
entryGetIconStorageType _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_storage_type _obj' icon_pos'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_tooltip_markup" gtk_entry_get_icon_tooltip_markup ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CString
entryGetIconTooltipMarkup ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m T.Text
entryGetIconTooltipMarkup _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_tooltip_markup _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Entry::get_icon_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_icon_tooltip_text" gtk_entry_get_icon_tooltip_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
IO CString
entryGetIconTooltipText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
m T.Text
entryGetIconTooltipText _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_tooltip_text _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Entry::get_inner_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Border"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_inner_border" gtk_entry_get_inner_border ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr Border)
{-# DEPRECATED entryGetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value returned by"," this function is ignored by #GtkEntry."]#-}
entryGetInnerBorder ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Border
entryGetInnerBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_inner_border _obj'
checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result
result' <- (newBoxed Border) result
touchManagedPtr _obj
return result'
-- method Entry::get_input_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "InputHints"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_input_hints" gtk_entry_get_input_hints ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CUInt
entryGetInputHints ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m [InputHints]
entryGetInputHints _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_input_hints _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method Entry::get_input_purpose
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "InputPurpose"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_input_purpose" gtk_entry_get_input_purpose ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CUInt
entryGetInputPurpose ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m InputPurpose
entryGetInputPurpose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_input_purpose _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Entry::get_invisible_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUniChar
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_invisible_char" gtk_entry_get_invisible_char ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CInt
entryGetInvisibleChar ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Char
entryGetInvisibleChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_invisible_char _obj'
let result' = (chr . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Entry::get_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_layout" gtk_entry_get_layout ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr Pango.Layout)
entryGetLayout ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Pango.Layout
entryGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_layout _obj'
checkUnexpectedReturnNULL "gtk_entry_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
-- method Entry::get_layout_offsets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
entryGetLayoutOffsets ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m (Int32,Int32)
entryGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_entry_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
-- method Entry::get_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_max_length" gtk_entry_get_max_length ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO Int32
entryGetMaxLength ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Int32
entryGetMaxLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_max_length _obj'
touchManagedPtr _obj
return result
-- method Entry::get_max_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_max_width_chars" gtk_entry_get_max_width_chars ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO Int32
entryGetMaxWidthChars ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Int32
entryGetMaxWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_max_width_chars _obj'
touchManagedPtr _obj
return result
-- method Entry::get_overwrite_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_overwrite_mode" gtk_entry_get_overwrite_mode ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CInt
entryGetOverwriteMode ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Bool
entryGetOverwriteMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_overwrite_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_placeholder_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_placeholder_text" gtk_entry_get_placeholder_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CString
entryGetPlaceholderText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m T.Text
entryGetPlaceholderText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_placeholder_text _obj'
checkUnexpectedReturnNULL "gtk_entry_get_placeholder_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Entry::get_progress_fraction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_progress_fraction" gtk_entry_get_progress_fraction ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CDouble
entryGetProgressFraction ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Double
entryGetProgressFraction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_progress_fraction _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Entry::get_progress_pulse_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_progress_pulse_step" gtk_entry_get_progress_pulse_step ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CDouble
entryGetProgressPulseStep ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Double
entryGetProgressPulseStep _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_progress_pulse_step _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Entry::get_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "TabArray"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_tabs" gtk_entry_get_tabs ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO (Ptr Pango.TabArray)
entryGetTabs ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Pango.TabArray
entryGetTabs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_tabs _obj'
checkUnexpectedReturnNULL "gtk_entry_get_tabs" result
result' <- (newBoxed Pango.TabArray) result
touchManagedPtr _obj
return result'
-- method Entry::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_text" gtk_entry_get_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CString
entryGetText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m T.Text
entryGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_text _obj'
checkUnexpectedReturnNULL "gtk_entry_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Entry::get_text_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_text_area" gtk_entry_get_text_area ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Gdk.Rectangle -> -- text_area : TInterface "Gdk" "Rectangle"
IO ()
entryGetTextArea ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m (Gdk.Rectangle)
entryGetTextArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_entry_get_text_area _obj' text_area
text_area' <- (wrapBoxed Gdk.Rectangle) text_area
touchManagedPtr _obj
return text_area'
-- method Entry::get_text_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_text_length" gtk_entry_get_text_length ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO Word16
entryGetTextLength ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Word16
entryGetTextLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_text_length _obj'
touchManagedPtr _obj
return result
-- method Entry::get_visibility
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_visibility" gtk_entry_get_visibility ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO CInt
entryGetVisibility ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Bool
entryGetVisibility _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_visibility _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Entry::get_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_get_width_chars" gtk_entry_get_width_chars ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO Int32
entryGetWidthChars ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m Int32
entryGetWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_width_chars _obj'
touchManagedPtr _obj
return result
-- method Entry::grab_focus_without_selecting
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_grab_focus_without_selecting" gtk_entry_grab_focus_without_selecting ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO ()
entryGrabFocusWithoutSelecting ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m ()
entryGrabFocusWithoutSelecting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_grab_focus_without_selecting _obj'
touchManagedPtr _obj
return ()
-- method Entry::im_context_filter_keypress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_im_context_filter_keypress" gtk_entry_im_context_filter_keypress ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
entryImContextFilterKeypress ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Gdk.EventKey -> -- event
m Bool
entryImContextFilterKeypress _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_entry_im_context_filter_keypress _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method Entry::layout_index_to_text_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- layout_index : TBasicType TInt32
IO Int32
entryLayoutIndexToTextIndex ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- layout_index
m Int32
entryLayoutIndexToTextIndex _obj layout_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_layout_index_to_text_index _obj' layout_index
touchManagedPtr _obj
return result
-- method Entry::progress_pulse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_progress_pulse" gtk_entry_progress_pulse ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO ()
entryProgressPulse ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m ()
entryProgressPulse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_progress_pulse _obj'
touchManagedPtr _obj
return ()
-- method Entry::reset_im_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_reset_im_context" gtk_entry_reset_im_context ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO ()
entryResetImContext ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m ()
entryResetImContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_reset_im_context _obj'
touchManagedPtr _obj
return ()
-- method Entry::set_activates_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_activates_default" gtk_entry_set_activates_default ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CInt -> -- setting : TBasicType TBoolean
IO ()
entrySetActivatesDefault ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Bool -> -- setting
m ()
entrySetActivatesDefault _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_entry_set_activates_default _obj' setting'
touchManagedPtr _obj
return ()
-- method Entry::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_alignment" gtk_entry_set_alignment ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CFloat -> -- xalign : TBasicType TFloat
IO ()
entrySetAlignment ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Float -> -- xalign
m ()
entrySetAlignment _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_entry_set_alignment _obj' xalign'
touchManagedPtr _obj
return ()
-- method Entry::set_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_attributes" gtk_entry_set_attributes ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList"
IO ()
entrySetAttributes ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Pango.AttrList -> -- attrs
m ()
entrySetAttributes _obj attrs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let attrs' = unsafeManagedPtrGetPtr attrs
gtk_entry_set_attributes _obj' attrs'
touchManagedPtr _obj
touchManagedPtr attrs
return ()
-- method Entry::set_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_buffer" gtk_entry_set_buffer ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer"
IO ()
entrySetBuffer ::
(MonadIO m, EntryK a, EntryBufferK b) =>
a -> -- _obj
b -> -- buffer
m ()
entrySetBuffer _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
gtk_entry_set_buffer _obj' buffer'
touchManagedPtr _obj
touchManagedPtr buffer
return ()
-- method Entry::set_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_completion" gtk_entry_set_completion ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr EntryCompletion -> -- completion : TInterface "Gtk" "EntryCompletion"
IO ()
entrySetCompletion ::
(MonadIO m, EntryK a, EntryCompletionK b) =>
a -> -- _obj
Maybe (b) -> -- completion
m ()
entrySetCompletion _obj completion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCompletion <- case completion of
Nothing -> return nullPtr
Just jCompletion -> do
let jCompletion' = unsafeManagedPtrCastPtr jCompletion
return jCompletion'
gtk_entry_set_completion _obj' maybeCompletion
touchManagedPtr _obj
whenJust completion touchManagedPtr
return ()
-- method Entry::set_cursor_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_cursor_hadjustment" gtk_entry_set_cursor_hadjustment ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
entrySetCursorHadjustment ::
(MonadIO m, EntryK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
entrySetCursorHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_entry_set_cursor_hadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method Entry::set_has_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_has_frame" gtk_entry_set_has_frame ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CInt -> -- setting : TBasicType TBoolean
IO ()
entrySetHasFrame ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Bool -> -- setting
m ()
entrySetHasFrame _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_entry_set_has_frame _obj' setting'
touchManagedPtr _obj
return ()
-- method Entry::set_icon_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_activatable" gtk_entry_set_icon_activatable ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CInt -> -- activatable : TBasicType TBoolean
IO ()
entrySetIconActivatable ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Bool -> -- activatable
m ()
entrySetIconActivatable _obj icon_pos activatable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let activatable' = (fromIntegral . fromEnum) activatable
gtk_entry_set_icon_activatable _obj' icon_pos' activatable'
touchManagedPtr _obj
return ()
-- method Entry::set_icon_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_drag_source" gtk_entry_set_icon_drag_source ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList"
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
entrySetIconDragSource ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
TargetList -> -- target_list
[Gdk.DragAction] -> -- actions
m ()
entrySetIconDragSource _obj icon_pos target_list actions = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let target_list' = unsafeManagedPtrGetPtr target_list
let actions' = gflagsToWord actions
gtk_entry_set_icon_drag_source _obj' icon_pos' target_list' actions'
touchManagedPtr _obj
touchManagedPtr target_list
return ()
-- method Entry::set_icon_from_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_from_gicon" gtk_entry_set_icon_from_gicon ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
entrySetIconFromGicon ::
(MonadIO m, EntryK a, Gio.IconK b) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (b) -> -- icon
m ()
entrySetIconFromGicon _obj icon_pos icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
let jIcon' = unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_entry_set_icon_from_gicon _obj' icon_pos' maybeIcon
touchManagedPtr _obj
whenJust icon touchManagedPtr
return ()
-- method Entry::set_icon_from_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_from_icon_name" gtk_entry_set_icon_from_icon_name ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CString -> -- icon_name : TBasicType TUTF8
IO ()
entrySetIconFromIconName ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (T.Text) -> -- icon_name
m ()
entrySetIconFromIconName _obj icon_pos icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_entry_set_icon_from_icon_name _obj' icon_pos' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method Entry::set_icon_from_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_from_pixbuf" gtk_entry_set_icon_from_pixbuf ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
entrySetIconFromPixbuf ::
(MonadIO m, EntryK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (b) -> -- pixbuf
m ()
entrySetIconFromPixbuf _obj icon_pos pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_entry_set_icon_from_pixbuf _obj' icon_pos' maybePixbuf
touchManagedPtr _obj
whenJust pixbuf touchManagedPtr
return ()
-- method Entry::set_icon_from_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_from_stock" gtk_entry_set_icon_from_stock ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED entrySetIconFromStock ["(Since version 3.10)","Use gtk_entry_set_icon_from_icon_name() instead."]#-}
entrySetIconFromStock ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (T.Text) -> -- stock_id
m ()
entrySetIconFromStock _obj icon_pos stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
gtk_entry_set_icon_from_stock _obj' icon_pos' maybeStock_id
touchManagedPtr _obj
freeMem maybeStock_id
return ()
-- method Entry::set_icon_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_sensitive" gtk_entry_set_icon_sensitive ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
entrySetIconSensitive ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Bool -> -- sensitive
m ()
entrySetIconSensitive _obj icon_pos sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_entry_set_icon_sensitive _obj' icon_pos' sensitive'
touchManagedPtr _obj
return ()
-- method Entry::set_icon_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_tooltip_markup" gtk_entry_set_icon_tooltip_markup ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CString -> -- tooltip : TBasicType TUTF8
IO ()
entrySetIconTooltipMarkup ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (T.Text) -> -- tooltip
m ()
entrySetIconTooltipMarkup _obj icon_pos tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
gtk_entry_set_icon_tooltip_markup _obj' icon_pos' maybeTooltip
touchManagedPtr _obj
freeMem maybeTooltip
return ()
-- method Entry::set_icon_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_icon_tooltip_text" gtk_entry_set_icon_tooltip_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition"
CString -> -- tooltip : TBasicType TUTF8
IO ()
entrySetIconTooltipText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
EntryIconPosition -> -- icon_pos
Maybe (T.Text) -> -- tooltip
m ()
entrySetIconTooltipText _obj icon_pos tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
gtk_entry_set_icon_tooltip_text _obj' icon_pos' maybeTooltip
touchManagedPtr _obj
freeMem maybeTooltip
return ()
-- method Entry::set_inner_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_inner_border" gtk_entry_set_inner_border ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Border -> -- border : TInterface "Gtk" "Border"
IO ()
{-# DEPRECATED entrySetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value set with"," this function is ignored by #GtkEntry."]#-}
entrySetInnerBorder ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Maybe (Border) -> -- border
m ()
entrySetInnerBorder _obj border = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeBorder <- case border of
Nothing -> return nullPtr
Just jBorder -> do
let jBorder' = unsafeManagedPtrGetPtr jBorder
return jBorder'
gtk_entry_set_inner_border _obj' maybeBorder
touchManagedPtr _obj
whenJust border touchManagedPtr
return ()
-- method Entry::set_input_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_input_hints" gtk_entry_set_input_hints ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- hints : TInterface "Gtk" "InputHints"
IO ()
entrySetInputHints ::
(MonadIO m, EntryK a) =>
a -> -- _obj
[InputHints] -> -- hints
m ()
entrySetInputHints _obj hints = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hints' = gflagsToWord hints
gtk_entry_set_input_hints _obj' hints'
touchManagedPtr _obj
return ()
-- method Entry::set_input_purpose
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_input_purpose" gtk_entry_set_input_purpose ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CUInt -> -- purpose : TInterface "Gtk" "InputPurpose"
IO ()
entrySetInputPurpose ::
(MonadIO m, EntryK a) =>
a -> -- _obj
InputPurpose -> -- purpose
m ()
entrySetInputPurpose _obj purpose = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let purpose' = (fromIntegral . fromEnum) purpose
gtk_entry_set_input_purpose _obj' purpose'
touchManagedPtr _obj
return ()
-- method Entry::set_invisible_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_invisible_char" gtk_entry_set_invisible_char ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CInt -> -- ch : TBasicType TUniChar
IO ()
entrySetInvisibleChar ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Char -> -- ch
m ()
entrySetInvisibleChar _obj ch = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ch' = (fromIntegral . ord) ch
gtk_entry_set_invisible_char _obj' ch'
touchManagedPtr _obj
return ()
-- method Entry::set_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- max : TBasicType TInt32
IO ()
entrySetMaxLength ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- max
m ()
entrySetMaxLength _obj max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_max_length _obj' max
touchManagedPtr _obj
return ()
-- method Entry::set_max_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- n_chars : TBasicType TInt32
IO ()
entrySetMaxWidthChars ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- n_chars
m ()
entrySetMaxWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_max_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
-- method Entry::set_overwrite_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_overwrite_mode" gtk_entry_set_overwrite_mode ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CInt -> -- overwrite : TBasicType TBoolean
IO ()
entrySetOverwriteMode ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Bool -> -- overwrite
m ()
entrySetOverwriteMode _obj overwrite = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overwrite' = (fromIntegral . fromEnum) overwrite
gtk_entry_set_overwrite_mode _obj' overwrite'
touchManagedPtr _obj
return ()
-- method Entry::set_placeholder_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_placeholder_text" gtk_entry_set_placeholder_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CString -> -- text : TBasicType TUTF8
IO ()
entrySetPlaceholderText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
T.Text -> -- text
m ()
entrySetPlaceholderText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_entry_set_placeholder_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method Entry::set_progress_fraction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_progress_fraction" gtk_entry_set_progress_fraction ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CDouble -> -- fraction : TBasicType TDouble
IO ()
entrySetProgressFraction ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Double -> -- fraction
m ()
entrySetProgressFraction _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_entry_set_progress_fraction _obj' fraction'
touchManagedPtr _obj
return ()
-- method Entry::set_progress_pulse_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_progress_pulse_step" gtk_entry_set_progress_pulse_step ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CDouble -> -- fraction : TBasicType TDouble
IO ()
entrySetProgressPulseStep ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Double -> -- fraction
m ()
entrySetProgressPulseStep _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_entry_set_progress_pulse_step _obj' fraction'
touchManagedPtr _obj
return ()
-- method Entry::set_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_tabs" gtk_entry_set_tabs ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray"
IO ()
entrySetTabs ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Pango.TabArray -> -- tabs
m ()
entrySetTabs _obj tabs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tabs' = unsafeManagedPtrGetPtr tabs
gtk_entry_set_tabs _obj' tabs'
touchManagedPtr _obj
touchManagedPtr tabs
return ()
-- method Entry::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_text" gtk_entry_set_text ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CString -> -- text : TBasicType TUTF8
IO ()
entrySetText ::
(MonadIO m, EntryK a) =>
a -> -- _obj
T.Text -> -- text
m ()
entrySetText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_entry_set_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method Entry::set_visibility
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_visibility" gtk_entry_set_visibility ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
CInt -> -- visible : TBasicType TBoolean
IO ()
entrySetVisibility ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Bool -> -- visible
m ()
entrySetVisibility _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_entry_set_visibility _obj' visible'
touchManagedPtr _obj
return ()
-- method Entry::set_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- n_chars : TBasicType TInt32
IO ()
entrySetWidthChars ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- n_chars
m ()
entrySetWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
-- method Entry::text_index_to_layout_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
Int32 -> -- text_index : TBasicType TInt32
IO Int32
entryTextIndexToLayoutIndex ::
(MonadIO m, EntryK a) =>
a -> -- _obj
Int32 -> -- text_index
m Int32
entryTextIndexToLayoutIndex _obj text_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_text_index_to_layout_index _obj' text_index
touchManagedPtr _obj
return result
-- method Entry::unset_invisible_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_unset_invisible_char" gtk_entry_unset_invisible_char ::
Ptr Entry -> -- _obj : TInterface "Gtk" "Entry"
IO ()
entryUnsetInvisibleChar ::
(MonadIO m, EntryK a) =>
a -> -- _obj
m ()
entryUnsetInvisibleChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_unset_invisible_char _obj'
touchManagedPtr _obj
return ()
-- signal Entry::activate
type EntryActivateCallback =
IO ()
noEntryActivateCallback :: Maybe EntryActivateCallback
noEntryActivateCallback = Nothing
type EntryActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryActivateCallback :: EntryActivateCallbackC -> IO (FunPtr EntryActivateCallbackC)
entryActivateClosure :: EntryActivateCallback -> IO Closure
entryActivateClosure cb = newCClosure =<< mkEntryActivateCallback wrapped
where wrapped = entryActivateCallbackWrapper cb
entryActivateCallbackWrapper ::
EntryActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
entryActivateCallbackWrapper _cb _ _ = do
_cb
onEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
onEntryActivate obj cb = liftIO $ connectEntryActivate obj cb SignalConnectBefore
afterEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
afterEntryActivate obj cb = connectEntryActivate obj cb SignalConnectAfter
connectEntryActivate :: (GObject a, MonadIO m) =>
a -> EntryActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryActivate obj cb after = liftIO $ do
cb' <- mkEntryActivateCallback (entryActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal Entry::backspace
type EntryBackspaceCallback =
IO ()
noEntryBackspaceCallback :: Maybe EntryBackspaceCallback
noEntryBackspaceCallback = Nothing
type EntryBackspaceCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryBackspaceCallback :: EntryBackspaceCallbackC -> IO (FunPtr EntryBackspaceCallbackC)
entryBackspaceClosure :: EntryBackspaceCallback -> IO Closure
entryBackspaceClosure cb = newCClosure =<< mkEntryBackspaceCallback wrapped
where wrapped = entryBackspaceCallbackWrapper cb
entryBackspaceCallbackWrapper ::
EntryBackspaceCallback ->
Ptr () ->
Ptr () ->
IO ()
entryBackspaceCallbackWrapper _cb _ _ = do
_cb
onEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
onEntryBackspace obj cb = liftIO $ connectEntryBackspace obj cb SignalConnectBefore
afterEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
afterEntryBackspace obj cb = connectEntryBackspace obj cb SignalConnectAfter
connectEntryBackspace :: (GObject a, MonadIO m) =>
a -> EntryBackspaceCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryBackspace obj cb after = liftIO $ do
cb' <- mkEntryBackspaceCallback (entryBackspaceCallbackWrapper cb)
connectSignalFunPtr obj "backspace" cb' after
-- signal Entry::copy-clipboard
type EntryCopyClipboardCallback =
IO ()
noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback
noEntryCopyClipboardCallback = Nothing
type EntryCopyClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryCopyClipboardCallback :: EntryCopyClipboardCallbackC -> IO (FunPtr EntryCopyClipboardCallbackC)
entryCopyClipboardClosure :: EntryCopyClipboardCallback -> IO Closure
entryCopyClipboardClosure cb = newCClosure =<< mkEntryCopyClipboardCallback wrapped
where wrapped = entryCopyClipboardCallbackWrapper cb
entryCopyClipboardCallbackWrapper ::
EntryCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
onEntryCopyClipboard obj cb = liftIO $ connectEntryCopyClipboard obj cb SignalConnectBefore
afterEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
afterEntryCopyClipboard obj cb = connectEntryCopyClipboard obj cb SignalConnectAfter
connectEntryCopyClipboard :: (GObject a, MonadIO m) =>
a -> EntryCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCopyClipboard obj cb after = liftIO $ do
cb' <- mkEntryCopyClipboardCallback (entryCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
-- signal Entry::cut-clipboard
type EntryCutClipboardCallback =
IO ()
noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback
noEntryCutClipboardCallback = Nothing
type EntryCutClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryCutClipboardCallback :: EntryCutClipboardCallbackC -> IO (FunPtr EntryCutClipboardCallbackC)
entryCutClipboardClosure :: EntryCutClipboardCallback -> IO Closure
entryCutClipboardClosure cb = newCClosure =<< mkEntryCutClipboardCallback wrapped
where wrapped = entryCutClipboardCallbackWrapper cb
entryCutClipboardCallbackWrapper ::
EntryCutClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryCutClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
onEntryCutClipboard obj cb = liftIO $ connectEntryCutClipboard obj cb SignalConnectBefore
afterEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
afterEntryCutClipboard obj cb = connectEntryCutClipboard obj cb SignalConnectAfter
connectEntryCutClipboard :: (GObject a, MonadIO m) =>
a -> EntryCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCutClipboard obj cb after = liftIO $ do
cb' <- mkEntryCutClipboardCallback (entryCutClipboardCallbackWrapper cb)
connectSignalFunPtr obj "cut-clipboard" cb' after
-- signal Entry::delete-from-cursor
type EntryDeleteFromCursorCallback =
DeleteType ->
Int32 ->
IO ()
noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback
noEntryDeleteFromCursorCallback = Nothing
type EntryDeleteFromCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallbackC -> IO (FunPtr EntryDeleteFromCursorCallbackC)
entryDeleteFromCursorClosure :: EntryDeleteFromCursorCallback -> IO Closure
entryDeleteFromCursorClosure cb = newCClosure =<< mkEntryDeleteFromCursorCallback wrapped
where wrapped = entryDeleteFromCursorCallbackWrapper cb
entryDeleteFromCursorCallbackWrapper ::
EntryDeleteFromCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
entryDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do
let type_' = (toEnum . fromIntegral) type_
_cb type_' count
onEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
onEntryDeleteFromCursor obj cb = liftIO $ connectEntryDeleteFromCursor obj cb SignalConnectBefore
afterEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
afterEntryDeleteFromCursor obj cb = connectEntryDeleteFromCursor obj cb SignalConnectAfter
connectEntryDeleteFromCursor :: (GObject a, MonadIO m) =>
a -> EntryDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryDeleteFromCursor obj cb after = liftIO $ do
cb' <- mkEntryDeleteFromCursorCallback (entryDeleteFromCursorCallbackWrapper cb)
connectSignalFunPtr obj "delete-from-cursor" cb' after
-- signal Entry::icon-press
type EntryIconPressCallback =
EntryIconPosition ->
Gdk.EventButton ->
IO ()
noEntryIconPressCallback :: Maybe EntryIconPressCallback
noEntryIconPressCallback = Nothing
type EntryIconPressCallbackC =
Ptr () -> -- object
CUInt ->
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryIconPressCallback :: EntryIconPressCallbackC -> IO (FunPtr EntryIconPressCallbackC)
entryIconPressClosure :: EntryIconPressCallback -> IO Closure
entryIconPressClosure cb = newCClosure =<< mkEntryIconPressCallback wrapped
where wrapped = entryIconPressCallbackWrapper cb
entryIconPressCallbackWrapper ::
EntryIconPressCallback ->
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
entryIconPressCallbackWrapper _cb _ icon_pos event _ = do
let icon_pos' = (toEnum . fromIntegral) icon_pos
event' <- (newPtr 80 Gdk.EventButton) event
_cb icon_pos' event'
onEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
onEntryIconPress obj cb = liftIO $ connectEntryIconPress obj cb SignalConnectBefore
afterEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
afterEntryIconPress obj cb = connectEntryIconPress obj cb SignalConnectAfter
connectEntryIconPress :: (GObject a, MonadIO m) =>
a -> EntryIconPressCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryIconPress obj cb after = liftIO $ do
cb' <- mkEntryIconPressCallback (entryIconPressCallbackWrapper cb)
connectSignalFunPtr obj "icon-press" cb' after
-- signal Entry::icon-release
type EntryIconReleaseCallback =
EntryIconPosition ->
Gdk.EventButton ->
IO ()
noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback
noEntryIconReleaseCallback = Nothing
type EntryIconReleaseCallbackC =
Ptr () -> -- object
CUInt ->
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryIconReleaseCallback :: EntryIconReleaseCallbackC -> IO (FunPtr EntryIconReleaseCallbackC)
entryIconReleaseClosure :: EntryIconReleaseCallback -> IO Closure
entryIconReleaseClosure cb = newCClosure =<< mkEntryIconReleaseCallback wrapped
where wrapped = entryIconReleaseCallbackWrapper cb
entryIconReleaseCallbackWrapper ::
EntryIconReleaseCallback ->
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
entryIconReleaseCallbackWrapper _cb _ icon_pos event _ = do
let icon_pos' = (toEnum . fromIntegral) icon_pos
event' <- (newPtr 80 Gdk.EventButton) event
_cb icon_pos' event'
onEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
onEntryIconRelease obj cb = liftIO $ connectEntryIconRelease obj cb SignalConnectBefore
afterEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
afterEntryIconRelease obj cb = connectEntryIconRelease obj cb SignalConnectAfter
connectEntryIconRelease :: (GObject a, MonadIO m) =>
a -> EntryIconReleaseCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryIconRelease obj cb after = liftIO $ do
cb' <- mkEntryIconReleaseCallback (entryIconReleaseCallbackWrapper cb)
connectSignalFunPtr obj "icon-release" cb' after
-- signal Entry::insert-at-cursor
type EntryInsertAtCursorCallback =
T.Text ->
IO ()
noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback
noEntryInsertAtCursorCallback = Nothing
type EntryInsertAtCursorCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryInsertAtCursorCallback :: EntryInsertAtCursorCallbackC -> IO (FunPtr EntryInsertAtCursorCallbackC)
entryInsertAtCursorClosure :: EntryInsertAtCursorCallback -> IO Closure
entryInsertAtCursorClosure cb = newCClosure =<< mkEntryInsertAtCursorCallback wrapped
where wrapped = entryInsertAtCursorCallbackWrapper cb
entryInsertAtCursorCallbackWrapper ::
EntryInsertAtCursorCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
entryInsertAtCursorCallbackWrapper _cb _ string _ = do
string' <- cstringToText string
_cb string'
onEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
onEntryInsertAtCursor obj cb = liftIO $ connectEntryInsertAtCursor obj cb SignalConnectBefore
afterEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
afterEntryInsertAtCursor obj cb = connectEntryInsertAtCursor obj cb SignalConnectAfter
connectEntryInsertAtCursor :: (GObject a, MonadIO m) =>
a -> EntryInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryInsertAtCursor obj cb after = liftIO $ do
cb' <- mkEntryInsertAtCursorCallback (entryInsertAtCursorCallbackWrapper cb)
connectSignalFunPtr obj "insert-at-cursor" cb' after
-- signal Entry::move-cursor
type EntryMoveCursorCallback =
MovementStep ->
Int32 ->
Bool ->
IO ()
noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback
noEntryMoveCursorCallback = Nothing
type EntryMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryMoveCursorCallback :: EntryMoveCursorCallbackC -> IO (FunPtr EntryMoveCursorCallbackC)
entryMoveCursorClosure :: EntryMoveCursorCallback -> IO Closure
entryMoveCursorClosure cb = newCClosure =<< mkEntryMoveCursorCallback wrapped
where wrapped = entryMoveCursorCallbackWrapper cb
entryMoveCursorCallbackWrapper ::
EntryMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
entryMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do
let step' = (toEnum . fromIntegral) step
let extend_selection' = (/= 0) extend_selection
_cb step' count extend_selection'
onEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
onEntryMoveCursor obj cb = liftIO $ connectEntryMoveCursor obj cb SignalConnectBefore
afterEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
afterEntryMoveCursor obj cb = connectEntryMoveCursor obj cb SignalConnectAfter
connectEntryMoveCursor :: (GObject a, MonadIO m) =>
a -> EntryMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryMoveCursor obj cb after = liftIO $ do
cb' <- mkEntryMoveCursorCallback (entryMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal Entry::paste-clipboard
type EntryPasteClipboardCallback =
IO ()
noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback
noEntryPasteClipboardCallback = Nothing
type EntryPasteClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryPasteClipboardCallback :: EntryPasteClipboardCallbackC -> IO (FunPtr EntryPasteClipboardCallbackC)
entryPasteClipboardClosure :: EntryPasteClipboardCallback -> IO Closure
entryPasteClipboardClosure cb = newCClosure =<< mkEntryPasteClipboardCallback wrapped
where wrapped = entryPasteClipboardCallbackWrapper cb
entryPasteClipboardCallbackWrapper ::
EntryPasteClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryPasteClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
onEntryPasteClipboard obj cb = liftIO $ connectEntryPasteClipboard obj cb SignalConnectBefore
afterEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
afterEntryPasteClipboard obj cb = connectEntryPasteClipboard obj cb SignalConnectAfter
connectEntryPasteClipboard :: (GObject a, MonadIO m) =>
a -> EntryPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPasteClipboard obj cb after = liftIO $ do
cb' <- mkEntryPasteClipboardCallback (entryPasteClipboardCallbackWrapper cb)
connectSignalFunPtr obj "paste-clipboard" cb' after
-- signal Entry::populate-popup
type EntryPopulatePopupCallback =
Widget ->
IO ()
noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback
noEntryPopulatePopupCallback = Nothing
type EntryPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryPopulatePopupCallback :: EntryPopulatePopupCallbackC -> IO (FunPtr EntryPopulatePopupCallbackC)
entryPopulatePopupClosure :: EntryPopulatePopupCallback -> IO Closure
entryPopulatePopupClosure cb = newCClosure =<< mkEntryPopulatePopupCallback wrapped
where wrapped = entryPopulatePopupCallbackWrapper cb
entryPopulatePopupCallbackWrapper ::
EntryPopulatePopupCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
entryPopulatePopupCallbackWrapper _cb _ popup _ = do
popup' <- (newObject Widget) popup
_cb popup'
onEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
onEntryPopulatePopup obj cb = liftIO $ connectEntryPopulatePopup obj cb SignalConnectBefore
afterEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
afterEntryPopulatePopup obj cb = connectEntryPopulatePopup obj cb SignalConnectAfter
connectEntryPopulatePopup :: (GObject a, MonadIO m) =>
a -> EntryPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPopulatePopup obj cb after = liftIO $ do
cb' <- mkEntryPopulatePopupCallback (entryPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- signal Entry::preedit-changed
type EntryPreeditChangedCallback =
T.Text ->
IO ()
noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback
noEntryPreeditChangedCallback = Nothing
type EntryPreeditChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryPreeditChangedCallback :: EntryPreeditChangedCallbackC -> IO (FunPtr EntryPreeditChangedCallbackC)
entryPreeditChangedClosure :: EntryPreeditChangedCallback -> IO Closure
entryPreeditChangedClosure cb = newCClosure =<< mkEntryPreeditChangedCallback wrapped
where wrapped = entryPreeditChangedCallbackWrapper cb
entryPreeditChangedCallbackWrapper ::
EntryPreeditChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
entryPreeditChangedCallbackWrapper _cb _ preedit _ = do
preedit' <- cstringToText preedit
_cb preedit'
onEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
onEntryPreeditChanged obj cb = liftIO $ connectEntryPreeditChanged obj cb SignalConnectBefore
afterEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
afterEntryPreeditChanged obj cb = connectEntryPreeditChanged obj cb SignalConnectAfter
connectEntryPreeditChanged :: (GObject a, MonadIO m) =>
a -> EntryPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPreeditChanged obj cb after = liftIO $ do
cb' <- mkEntryPreeditChangedCallback (entryPreeditChangedCallbackWrapper cb)
connectSignalFunPtr obj "preedit-changed" cb' after
-- signal Entry::toggle-overwrite
type EntryToggleOverwriteCallback =
IO ()
noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback
noEntryToggleOverwriteCallback = Nothing
type EntryToggleOverwriteCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryToggleOverwriteCallback :: EntryToggleOverwriteCallbackC -> IO (FunPtr EntryToggleOverwriteCallbackC)
entryToggleOverwriteClosure :: EntryToggleOverwriteCallback -> IO Closure
entryToggleOverwriteClosure cb = newCClosure =<< mkEntryToggleOverwriteCallback wrapped
where wrapped = entryToggleOverwriteCallbackWrapper cb
entryToggleOverwriteCallbackWrapper ::
EntryToggleOverwriteCallback ->
Ptr () ->
Ptr () ->
IO ()
entryToggleOverwriteCallbackWrapper _cb _ _ = do
_cb
onEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
onEntryToggleOverwrite obj cb = liftIO $ connectEntryToggleOverwrite obj cb SignalConnectBefore
afterEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
afterEntryToggleOverwrite obj cb = connectEntryToggleOverwrite obj cb SignalConnectAfter
connectEntryToggleOverwrite :: (GObject a, MonadIO m) =>
a -> EntryToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryToggleOverwrite obj cb after = liftIO $ do
cb' <- mkEntryToggleOverwriteCallback (entryToggleOverwriteCallbackWrapper cb)
connectSignalFunPtr obj "toggle-overwrite" cb' after
-- object EntryAccessible
newtype EntryAccessible = EntryAccessible (ForeignPtr EntryAccessible)
noEntryAccessible :: Maybe EntryAccessible
noEntryAccessible = Nothing
foreign import ccall "gtk_entry_accessible_get_type"
c_gtk_entry_accessible_get_type :: IO GType
type instance ParentTypes EntryAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.EditableText, Atk.Text]
instance GObject EntryAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_entry_accessible_get_type
class GObject o => EntryAccessibleK o
instance (GObject o, IsDescendantOf EntryAccessible o) => EntryAccessibleK o
toEntryAccessible :: EntryAccessibleK o => o -> IO EntryAccessible
toEntryAccessible = unsafeCastTo EntryAccessible
-- object EntryBuffer
newtype EntryBuffer = EntryBuffer (ForeignPtr EntryBuffer)
noEntryBuffer :: Maybe EntryBuffer
noEntryBuffer = Nothing
foreign import ccall "gtk_entry_buffer_get_type"
c_gtk_entry_buffer_get_type :: IO GType
type instance ParentTypes EntryBuffer = '[GObject.Object]
instance GObject EntryBuffer where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_entry_buffer_get_type
class GObject o => EntryBufferK o
instance (GObject o, IsDescendantOf EntryBuffer o) => EntryBufferK o
toEntryBuffer :: EntryBufferK o => o -> IO EntryBuffer
toEntryBuffer = unsafeCastTo EntryBuffer
-- method EntryBuffer::new
-- method type : Constructor
-- Args : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "EntryBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_new" gtk_entry_buffer_new ::
CString -> -- initial_chars : TBasicType TUTF8
Int32 -> -- n_initial_chars : TBasicType TInt32
IO (Ptr EntryBuffer)
entryBufferNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- initial_chars
Int32 -> -- n_initial_chars
m EntryBuffer
entryBufferNew initial_chars n_initial_chars = liftIO $ do
maybeInitial_chars <- case initial_chars of
Nothing -> return nullPtr
Just jInitial_chars -> do
jInitial_chars' <- textToCString jInitial_chars
return jInitial_chars'
result <- gtk_entry_buffer_new maybeInitial_chars n_initial_chars
checkUnexpectedReturnNULL "gtk_entry_buffer_new" result
result' <- (wrapObject EntryBuffer) result
freeMem maybeInitial_chars
return result'
-- method EntryBuffer::delete_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_delete_text" gtk_entry_buffer_delete_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
Word32 -> -- position : TBasicType TUInt32
Int32 -> -- n_chars : TBasicType TInt32
IO Word32
entryBufferDeleteText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
Word32 -> -- position
Int32 -> -- n_chars
m Word32
entryBufferDeleteText _obj position n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_buffer_delete_text _obj' position n_chars
touchManagedPtr _obj
return result
-- method EntryBuffer::emit_deleted_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_emit_deleted_text" gtk_entry_buffer_emit_deleted_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
Word32 -> -- position : TBasicType TUInt32
Word32 -> -- n_chars : TBasicType TUInt32
IO ()
entryBufferEmitDeletedText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
Word32 -> -- position
Word32 -> -- n_chars
m ()
entryBufferEmitDeletedText _obj position n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_buffer_emit_deleted_text _obj' position n_chars
touchManagedPtr _obj
return ()
-- method EntryBuffer::emit_inserted_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_emit_inserted_text" gtk_entry_buffer_emit_inserted_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
Word32 -> -- position : TBasicType TUInt32
CString -> -- chars : TBasicType TUTF8
Word32 -> -- n_chars : TBasicType TUInt32
IO ()
entryBufferEmitInsertedText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
Word32 -> -- position
T.Text -> -- chars
Word32 -> -- n_chars
m ()
entryBufferEmitInsertedText _obj position chars n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
chars' <- textToCString chars
gtk_entry_buffer_emit_inserted_text _obj' position chars' n_chars
touchManagedPtr _obj
freeMem chars'
return ()
-- method EntryBuffer::get_bytes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_get_bytes" gtk_entry_buffer_get_bytes ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
IO Word64
entryBufferGetBytes ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
m Word64
entryBufferGetBytes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_buffer_get_bytes _obj'
touchManagedPtr _obj
return result
-- method EntryBuffer::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_get_length" gtk_entry_buffer_get_length ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
IO Word32
entryBufferGetLength ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
m Word32
entryBufferGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_buffer_get_length _obj'
touchManagedPtr _obj
return result
-- method EntryBuffer::get_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_get_max_length" gtk_entry_buffer_get_max_length ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
IO Int32
entryBufferGetMaxLength ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
m Int32
entryBufferGetMaxLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_buffer_get_max_length _obj'
touchManagedPtr _obj
return result
-- method EntryBuffer::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_get_text" gtk_entry_buffer_get_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
IO CString
entryBufferGetText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
m T.Text
entryBufferGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_buffer_get_text _obj'
checkUnexpectedReturnNULL "gtk_entry_buffer_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method EntryBuffer::insert_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_insert_text" gtk_entry_buffer_insert_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
Word32 -> -- position : TBasicType TUInt32
CString -> -- chars : TBasicType TUTF8
Int32 -> -- n_chars : TBasicType TInt32
IO Word32
entryBufferInsertText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
Word32 -> -- position
T.Text -> -- chars
Int32 -> -- n_chars
m Word32
entryBufferInsertText _obj position chars n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
chars' <- textToCString chars
result <- gtk_entry_buffer_insert_text _obj' position chars' n_chars
touchManagedPtr _obj
freeMem chars'
return result
-- method EntryBuffer::set_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_set_max_length" gtk_entry_buffer_set_max_length ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
Int32 -> -- max_length : TBasicType TInt32
IO ()
entryBufferSetMaxLength ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
Int32 -> -- max_length
m ()
entryBufferSetMaxLength _obj max_length = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_buffer_set_max_length _obj' max_length
touchManagedPtr _obj
return ()
-- method EntryBuffer::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_buffer_set_text" gtk_entry_buffer_set_text ::
Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer"
CString -> -- chars : TBasicType TUTF8
Int32 -> -- n_chars : TBasicType TInt32
IO ()
entryBufferSetText ::
(MonadIO m, EntryBufferK a) =>
a -> -- _obj
T.Text -> -- chars
Int32 -> -- n_chars
m ()
entryBufferSetText _obj chars n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
chars' <- textToCString chars
gtk_entry_buffer_set_text _obj' chars' n_chars
touchManagedPtr _obj
freeMem chars'
return ()
-- signal EntryBuffer::deleted-text
type EntryBufferDeletedTextCallback =
Word32 ->
Word32 ->
IO ()
noEntryBufferDeletedTextCallback :: Maybe EntryBufferDeletedTextCallback
noEntryBufferDeletedTextCallback = Nothing
type EntryBufferDeletedTextCallbackC =
Ptr () -> -- object
Word32 ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryBufferDeletedTextCallback :: EntryBufferDeletedTextCallbackC -> IO (FunPtr EntryBufferDeletedTextCallbackC)
entryBufferDeletedTextClosure :: EntryBufferDeletedTextCallback -> IO Closure
entryBufferDeletedTextClosure cb = newCClosure =<< mkEntryBufferDeletedTextCallback wrapped
where wrapped = entryBufferDeletedTextCallbackWrapper cb
entryBufferDeletedTextCallbackWrapper ::
EntryBufferDeletedTextCallback ->
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
entryBufferDeletedTextCallbackWrapper _cb _ position n_chars _ = do
_cb position n_chars
onEntryBufferDeletedText :: (GObject a, MonadIO m) => a -> EntryBufferDeletedTextCallback -> m SignalHandlerId
onEntryBufferDeletedText obj cb = liftIO $ connectEntryBufferDeletedText obj cb SignalConnectBefore
afterEntryBufferDeletedText :: (GObject a, MonadIO m) => a -> EntryBufferDeletedTextCallback -> m SignalHandlerId
afterEntryBufferDeletedText obj cb = connectEntryBufferDeletedText obj cb SignalConnectAfter
connectEntryBufferDeletedText :: (GObject a, MonadIO m) =>
a -> EntryBufferDeletedTextCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryBufferDeletedText obj cb after = liftIO $ do
cb' <- mkEntryBufferDeletedTextCallback (entryBufferDeletedTextCallbackWrapper cb)
connectSignalFunPtr obj "deleted-text" cb' after
-- signal EntryBuffer::inserted-text
type EntryBufferInsertedTextCallback =
Word32 ->
T.Text ->
Word32 ->
IO ()
noEntryBufferInsertedTextCallback :: Maybe EntryBufferInsertedTextCallback
noEntryBufferInsertedTextCallback = Nothing
type EntryBufferInsertedTextCallbackC =
Ptr () -> -- object
Word32 ->
CString ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryBufferInsertedTextCallback :: EntryBufferInsertedTextCallbackC -> IO (FunPtr EntryBufferInsertedTextCallbackC)
entryBufferInsertedTextClosure :: EntryBufferInsertedTextCallback -> IO Closure
entryBufferInsertedTextClosure cb = newCClosure =<< mkEntryBufferInsertedTextCallback wrapped
where wrapped = entryBufferInsertedTextCallbackWrapper cb
entryBufferInsertedTextCallbackWrapper ::
EntryBufferInsertedTextCallback ->
Ptr () ->
Word32 ->
CString ->
Word32 ->
Ptr () ->
IO ()
entryBufferInsertedTextCallbackWrapper _cb _ position chars n_chars _ = do
chars' <- cstringToText chars
_cb position chars' n_chars
onEntryBufferInsertedText :: (GObject a, MonadIO m) => a -> EntryBufferInsertedTextCallback -> m SignalHandlerId
onEntryBufferInsertedText obj cb = liftIO $ connectEntryBufferInsertedText obj cb SignalConnectBefore
afterEntryBufferInsertedText :: (GObject a, MonadIO m) => a -> EntryBufferInsertedTextCallback -> m SignalHandlerId
afterEntryBufferInsertedText obj cb = connectEntryBufferInsertedText obj cb SignalConnectAfter
connectEntryBufferInsertedText :: (GObject a, MonadIO m) =>
a -> EntryBufferInsertedTextCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryBufferInsertedText obj cb after = liftIO $ do
cb' <- mkEntryBufferInsertedTextCallback (entryBufferInsertedTextCallbackWrapper cb)
connectSignalFunPtr obj "inserted-text" cb' after
-- object EntryCompletion
newtype EntryCompletion = EntryCompletion (ForeignPtr EntryCompletion)
noEntryCompletion :: Maybe EntryCompletion
noEntryCompletion = Nothing
foreign import ccall "gtk_entry_completion_get_type"
c_gtk_entry_completion_get_type :: IO GType
type instance ParentTypes EntryCompletion = '[GObject.Object, Buildable, CellLayout]
instance GObject EntryCompletion where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_entry_completion_get_type
class GObject o => EntryCompletionK o
instance (GObject o, IsDescendantOf EntryCompletion o) => EntryCompletionK o
toEntryCompletion :: EntryCompletionK o => o -> IO EntryCompletion
toEntryCompletion = unsafeCastTo EntryCompletion
-- method EntryCompletion::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "EntryCompletion"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_new" gtk_entry_completion_new ::
IO (Ptr EntryCompletion)
entryCompletionNew ::
(MonadIO m) =>
m EntryCompletion
entryCompletionNew = liftIO $ do
result <- gtk_entry_completion_new
checkUnexpectedReturnNULL "gtk_entry_completion_new" result
result' <- (wrapObject EntryCompletion) result
return result'
-- method EntryCompletion::new_with_area
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "EntryCompletion"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_new_with_area" gtk_entry_completion_new_with_area ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr EntryCompletion)
entryCompletionNewWithArea ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m EntryCompletion
entryCompletionNewWithArea area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_entry_completion_new_with_area area'
checkUnexpectedReturnNULL "gtk_entry_completion_new_with_area" result
result' <- (wrapObject EntryCompletion) result
touchManagedPtr area
return result'
-- method EntryCompletion::complete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_complete" gtk_entry_completion_complete ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO ()
entryCompletionComplete ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m ()
entryCompletionComplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_completion_complete _obj'
touchManagedPtr _obj
return ()
-- method EntryCompletion::compute_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_compute_prefix" gtk_entry_completion_compute_prefix ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CString -> -- key : TBasicType TUTF8
IO CString
entryCompletionComputePrefix ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
T.Text -> -- key
m T.Text
entryCompletionComputePrefix _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_entry_completion_compute_prefix _obj' key'
checkUnexpectedReturnNULL "gtk_entry_completion_compute_prefix" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem key'
return result'
-- method EntryCompletion::delete_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_delete_action" gtk_entry_completion_delete_action ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Int32 -> -- index_ : TBasicType TInt32
IO ()
entryCompletionDeleteAction ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Int32 -> -- index_
m ()
entryCompletionDeleteAction _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_completion_delete_action _obj' index_
touchManagedPtr _obj
return ()
-- method EntryCompletion::get_completion_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_completion_prefix" gtk_entry_completion_get_completion_prefix ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CString
entryCompletionGetCompletionPrefix ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m T.Text
entryCompletionGetCompletionPrefix _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_completion_prefix _obj'
checkUnexpectedReturnNULL "gtk_entry_completion_get_completion_prefix" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_entry" gtk_entry_completion_get_entry ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO (Ptr Widget)
entryCompletionGetEntry ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Widget
entryCompletionGetEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_entry _obj'
checkUnexpectedReturnNULL "gtk_entry_completion_get_entry" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_inline_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_inline_completion" gtk_entry_completion_get_inline_completion ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CInt
entryCompletionGetInlineCompletion ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Bool
entryCompletionGetInlineCompletion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_inline_completion _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_inline_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_inline_selection" gtk_entry_completion_get_inline_selection ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CInt
entryCompletionGetInlineSelection ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Bool
entryCompletionGetInlineSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_inline_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_minimum_key_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_minimum_key_length" gtk_entry_completion_get_minimum_key_length ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO Int32
entryCompletionGetMinimumKeyLength ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Int32
entryCompletionGetMinimumKeyLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_minimum_key_length _obj'
touchManagedPtr _obj
return result
-- method EntryCompletion::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_model" gtk_entry_completion_get_model ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO (Ptr TreeModel)
entryCompletionGetModel ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m TreeModel
entryCompletionGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_model _obj'
checkUnexpectedReturnNULL "gtk_entry_completion_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_popup_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_popup_completion" gtk_entry_completion_get_popup_completion ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CInt
entryCompletionGetPopupCompletion ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Bool
entryCompletionGetPopupCompletion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_popup_completion _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_popup_set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_popup_set_width" gtk_entry_completion_get_popup_set_width ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CInt
entryCompletionGetPopupSetWidth ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Bool
entryCompletionGetPopupSetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_popup_set_width _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_popup_single_match
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_popup_single_match" gtk_entry_completion_get_popup_single_match ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO CInt
entryCompletionGetPopupSingleMatch ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Bool
entryCompletionGetPopupSingleMatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_popup_single_match _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EntryCompletion::get_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_get_text_column" gtk_entry_completion_get_text_column ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO Int32
entryCompletionGetTextColumn ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m Int32
entryCompletionGetTextColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_completion_get_text_column _obj'
touchManagedPtr _obj
return result
-- method EntryCompletion::insert_action_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Int32 -> -- index_ : TBasicType TInt32
CString -> -- markup : TBasicType TUTF8
IO ()
entryCompletionInsertActionMarkup ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Int32 -> -- index_
T.Text -> -- markup
m ()
entryCompletionInsertActionMarkup _obj index_ markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
markup' <- textToCString markup
gtk_entry_completion_insert_action_markup _obj' index_ markup'
touchManagedPtr _obj
freeMem markup'
return ()
-- method EntryCompletion::insert_action_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Int32 -> -- index_ : TBasicType TInt32
CString -> -- text : TBasicType TUTF8
IO ()
entryCompletionInsertActionText ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Int32 -> -- index_
T.Text -> -- text
m ()
entryCompletionInsertActionText _obj index_ text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_entry_completion_insert_action_text _obj' index_ text'
touchManagedPtr _obj
freeMem text'
return ()
-- method EntryCompletion::insert_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_insert_prefix" gtk_entry_completion_insert_prefix ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
IO ()
entryCompletionInsertPrefix ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
m ()
entryCompletionInsertPrefix _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_completion_insert_prefix _obj'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_inline_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_inline_completion" gtk_entry_completion_set_inline_completion ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CInt -> -- inline_completion : TBasicType TBoolean
IO ()
entryCompletionSetInlineCompletion ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Bool -> -- inline_completion
m ()
entryCompletionSetInlineCompletion _obj inline_completion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let inline_completion' = (fromIntegral . fromEnum) inline_completion
gtk_entry_completion_set_inline_completion _obj' inline_completion'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_inline_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_inline_selection" gtk_entry_completion_set_inline_selection ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CInt -> -- inline_selection : TBasicType TBoolean
IO ()
entryCompletionSetInlineSelection ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Bool -> -- inline_selection
m ()
entryCompletionSetInlineSelection _obj inline_selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let inline_selection' = (fromIntegral . fromEnum) inline_selection
gtk_entry_completion_set_inline_selection _obj' inline_selection'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_match_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_match_func" gtk_entry_completion_set_match_func ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
FunPtr EntryCompletionMatchFuncC -> -- func : TInterface "Gtk" "EntryCompletionMatchFunc"
Ptr () -> -- func_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- func_notify : TInterface "GLib" "DestroyNotify"
IO ()
entryCompletionSetMatchFunc ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
EntryCompletionMatchFunc -> -- func
m ()
entryCompletionSetMatchFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkEntryCompletionMatchFunc (entryCompletionMatchFuncWrapper Nothing func)
let func_data = castFunPtrToPtr func'
let func_notify = safeFreeFunPtrPtr
gtk_entry_completion_set_match_func _obj' func' func_data func_notify
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_minimum_key_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_minimum_key_length" gtk_entry_completion_set_minimum_key_length ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Int32 -> -- length : TBasicType TInt32
IO ()
entryCompletionSetMinimumKeyLength ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Int32 -> -- length
m ()
entryCompletionSetMinimumKeyLength _obj length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_completion_set_minimum_key_length _obj' length_
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_model" gtk_entry_completion_set_model ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO ()
entryCompletionSetModel ::
(MonadIO m, EntryCompletionK a, TreeModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
m ()
entryCompletionSetModel _obj model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
gtk_entry_completion_set_model _obj' maybeModel
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- method EntryCompletion::set_popup_completion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_popup_completion" gtk_entry_completion_set_popup_completion ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CInt -> -- popup_completion : TBasicType TBoolean
IO ()
entryCompletionSetPopupCompletion ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Bool -> -- popup_completion
m ()
entryCompletionSetPopupCompletion _obj popup_completion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let popup_completion' = (fromIntegral . fromEnum) popup_completion
gtk_entry_completion_set_popup_completion _obj' popup_completion'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_popup_set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_popup_set_width" gtk_entry_completion_set_popup_set_width ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CInt -> -- popup_set_width : TBasicType TBoolean
IO ()
entryCompletionSetPopupSetWidth ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Bool -> -- popup_set_width
m ()
entryCompletionSetPopupSetWidth _obj popup_set_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let popup_set_width' = (fromIntegral . fromEnum) popup_set_width
gtk_entry_completion_set_popup_set_width _obj' popup_set_width'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_popup_single_match
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_popup_single_match" gtk_entry_completion_set_popup_single_match ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
CInt -> -- popup_single_match : TBasicType TBoolean
IO ()
entryCompletionSetPopupSingleMatch ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Bool -> -- popup_single_match
m ()
entryCompletionSetPopupSingleMatch _obj popup_single_match = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let popup_single_match' = (fromIntegral . fromEnum) popup_single_match
gtk_entry_completion_set_popup_single_match _obj' popup_single_match'
touchManagedPtr _obj
return ()
-- method EntryCompletion::set_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_entry_completion_set_text_column" gtk_entry_completion_set_text_column ::
Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion"
Int32 -> -- column : TBasicType TInt32
IO ()
entryCompletionSetTextColumn ::
(MonadIO m, EntryCompletionK a) =>
a -> -- _obj
Int32 -> -- column
m ()
entryCompletionSetTextColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_completion_set_text_column _obj' column
touchManagedPtr _obj
return ()
-- signal EntryCompletion::action-activated
type EntryCompletionActionActivatedCallback =
Int32 ->
IO ()
noEntryCompletionActionActivatedCallback :: Maybe EntryCompletionActionActivatedCallback
noEntryCompletionActionActivatedCallback = Nothing
type EntryCompletionActionActivatedCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryCompletionActionActivatedCallback :: EntryCompletionActionActivatedCallbackC -> IO (FunPtr EntryCompletionActionActivatedCallbackC)
entryCompletionActionActivatedClosure :: EntryCompletionActionActivatedCallback -> IO Closure
entryCompletionActionActivatedClosure cb = newCClosure =<< mkEntryCompletionActionActivatedCallback wrapped
where wrapped = entryCompletionActionActivatedCallbackWrapper cb
entryCompletionActionActivatedCallbackWrapper ::
EntryCompletionActionActivatedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
entryCompletionActionActivatedCallbackWrapper _cb _ index _ = do
_cb index
onEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
onEntryCompletionActionActivated obj cb = liftIO $ connectEntryCompletionActionActivated obj cb SignalConnectBefore
afterEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
afterEntryCompletionActionActivated obj cb = connectEntryCompletionActionActivated obj cb SignalConnectAfter
connectEntryCompletionActionActivated :: (GObject a, MonadIO m) =>
a -> EntryCompletionActionActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionActionActivated obj cb after = liftIO $ do
cb' <- mkEntryCompletionActionActivatedCallback (entryCompletionActionActivatedCallbackWrapper cb)
connectSignalFunPtr obj "action-activated" cb' after
-- signal EntryCompletion::cursor-on-match
type EntryCompletionCursorOnMatchCallback =
TreeModel ->
TreeIter ->
IO Bool
noEntryCompletionCursorOnMatchCallback :: Maybe EntryCompletionCursorOnMatchCallback
noEntryCompletionCursorOnMatchCallback = Nothing
type EntryCompletionCursorOnMatchCallbackC =
Ptr () -> -- object
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkEntryCompletionCursorOnMatchCallback :: EntryCompletionCursorOnMatchCallbackC -> IO (FunPtr EntryCompletionCursorOnMatchCallbackC)
entryCompletionCursorOnMatchClosure :: EntryCompletionCursorOnMatchCallback -> IO Closure
entryCompletionCursorOnMatchClosure cb = newCClosure =<< mkEntryCompletionCursorOnMatchCallback wrapped
where wrapped = entryCompletionCursorOnMatchCallbackWrapper cb
entryCompletionCursorOnMatchCallbackWrapper ::
EntryCompletionCursorOnMatchCallback ->
Ptr () ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
entryCompletionCursorOnMatchCallbackWrapper _cb _ model iter _ = do
model' <- (newObject TreeModel) model
iter' <- (newBoxed TreeIter) iter
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
onEntryCompletionCursorOnMatch obj cb = liftIO $ connectEntryCompletionCursorOnMatch obj cb SignalConnectBefore
afterEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
afterEntryCompletionCursorOnMatch obj cb = connectEntryCompletionCursorOnMatch obj cb SignalConnectAfter
connectEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) =>
a -> EntryCompletionCursorOnMatchCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionCursorOnMatch obj cb after = liftIO $ do
cb' <- mkEntryCompletionCursorOnMatchCallback (entryCompletionCursorOnMatchCallbackWrapper cb)
connectSignalFunPtr obj "cursor-on-match" cb' after
-- signal EntryCompletion::insert-prefix
type EntryCompletionInsertPrefixCallback =
T.Text ->
IO Bool
noEntryCompletionInsertPrefixCallback :: Maybe EntryCompletionInsertPrefixCallback
noEntryCompletionInsertPrefixCallback = Nothing
type EntryCompletionInsertPrefixCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkEntryCompletionInsertPrefixCallback :: EntryCompletionInsertPrefixCallbackC -> IO (FunPtr EntryCompletionInsertPrefixCallbackC)
entryCompletionInsertPrefixClosure :: EntryCompletionInsertPrefixCallback -> IO Closure
entryCompletionInsertPrefixClosure cb = newCClosure =<< mkEntryCompletionInsertPrefixCallback wrapped
where wrapped = entryCompletionInsertPrefixCallbackWrapper cb
entryCompletionInsertPrefixCallbackWrapper ::
EntryCompletionInsertPrefixCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CInt
entryCompletionInsertPrefixCallbackWrapper _cb _ prefix _ = do
prefix' <- cstringToText prefix
result <- _cb prefix'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
onEntryCompletionInsertPrefix obj cb = liftIO $ connectEntryCompletionInsertPrefix obj cb SignalConnectBefore
afterEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
afterEntryCompletionInsertPrefix obj cb = connectEntryCompletionInsertPrefix obj cb SignalConnectAfter
connectEntryCompletionInsertPrefix :: (GObject a, MonadIO m) =>
a -> EntryCompletionInsertPrefixCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionInsertPrefix obj cb after = liftIO $ do
cb' <- mkEntryCompletionInsertPrefixCallback (entryCompletionInsertPrefixCallbackWrapper cb)
connectSignalFunPtr obj "insert-prefix" cb' after
-- signal EntryCompletion::match-selected
type EntryCompletionMatchSelectedCallback =
TreeModel ->
TreeIter ->
IO Bool
noEntryCompletionMatchSelectedCallback :: Maybe EntryCompletionMatchSelectedCallback
noEntryCompletionMatchSelectedCallback = Nothing
type EntryCompletionMatchSelectedCallbackC =
Ptr () -> -- object
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkEntryCompletionMatchSelectedCallback :: EntryCompletionMatchSelectedCallbackC -> IO (FunPtr EntryCompletionMatchSelectedCallbackC)
entryCompletionMatchSelectedClosure :: EntryCompletionMatchSelectedCallback -> IO Closure
entryCompletionMatchSelectedClosure cb = newCClosure =<< mkEntryCompletionMatchSelectedCallback wrapped
where wrapped = entryCompletionMatchSelectedCallbackWrapper cb
entryCompletionMatchSelectedCallbackWrapper ::
EntryCompletionMatchSelectedCallback ->
Ptr () ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
entryCompletionMatchSelectedCallbackWrapper _cb _ model iter _ = do
model' <- (newObject TreeModel) model
iter' <- (newBoxed TreeIter) iter
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
onEntryCompletionMatchSelected obj cb = liftIO $ connectEntryCompletionMatchSelected obj cb SignalConnectBefore
afterEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
afterEntryCompletionMatchSelected obj cb = connectEntryCompletionMatchSelected obj cb SignalConnectAfter
connectEntryCompletionMatchSelected :: (GObject a, MonadIO m) =>
a -> EntryCompletionMatchSelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionMatchSelected obj cb after = liftIO $ do
cb' <- mkEntryCompletionMatchSelectedCallback (entryCompletionMatchSelectedCallbackWrapper cb)
connectSignalFunPtr obj "match-selected" cb' after
-- signal EntryCompletion::no-matches
type EntryCompletionNoMatchesCallback =
IO ()
noEntryCompletionNoMatchesCallback :: Maybe EntryCompletionNoMatchesCallback
noEntryCompletionNoMatchesCallback = Nothing
type EntryCompletionNoMatchesCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkEntryCompletionNoMatchesCallback :: EntryCompletionNoMatchesCallbackC -> IO (FunPtr EntryCompletionNoMatchesCallbackC)
entryCompletionNoMatchesClosure :: EntryCompletionNoMatchesCallback -> IO Closure
entryCompletionNoMatchesClosure cb = newCClosure =<< mkEntryCompletionNoMatchesCallback wrapped
where wrapped = entryCompletionNoMatchesCallbackWrapper cb
entryCompletionNoMatchesCallbackWrapper ::
EntryCompletionNoMatchesCallback ->
Ptr () ->
Ptr () ->
IO ()
entryCompletionNoMatchesCallbackWrapper _cb _ _ = do
_cb
onEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
onEntryCompletionNoMatches obj cb = liftIO $ connectEntryCompletionNoMatches obj cb SignalConnectBefore
afterEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
afterEntryCompletionNoMatches obj cb = connectEntryCompletionNoMatches obj cb SignalConnectAfter
connectEntryCompletionNoMatches :: (GObject a, MonadIO m) =>
a -> EntryCompletionNoMatchesCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionNoMatches obj cb after = liftIO $ do
cb' <- mkEntryCompletionNoMatchesCallback (entryCompletionNoMatchesCallbackWrapper cb)
connectSignalFunPtr obj "no-matches" cb' after
-- callback EntryCompletionMatchFunc
entryCompletionMatchFuncClosure :: EntryCompletionMatchFunc -> IO Closure
entryCompletionMatchFuncClosure cb = newCClosure =<< mkEntryCompletionMatchFunc wrapped
where wrapped = entryCompletionMatchFuncWrapper Nothing cb
type EntryCompletionMatchFuncC =
Ptr EntryCompletion ->
CString ->
Ptr TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkEntryCompletionMatchFunc :: EntryCompletionMatchFuncC -> IO (FunPtr EntryCompletionMatchFuncC)
type EntryCompletionMatchFunc =
EntryCompletion ->
T.Text ->
TreeIter ->
IO Bool
noEntryCompletionMatchFunc :: Maybe EntryCompletionMatchFunc
noEntryCompletionMatchFunc = Nothing
entryCompletionMatchFuncWrapper ::
Maybe (Ptr (FunPtr (EntryCompletionMatchFuncC))) ->
EntryCompletionMatchFunc ->
Ptr EntryCompletion ->
CString ->
Ptr TreeIter ->
Ptr () ->
IO CInt
entryCompletionMatchFuncWrapper funptrptr _cb completion key iter _ = do
completion' <- (newObject EntryCompletion) completion
key' <- cstringToText key
iter' <- (newBoxed TreeIter) iter
result <- _cb completion' key' iter'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object EntryIconAccessible
newtype EntryIconAccessible = EntryIconAccessible (ForeignPtr EntryIconAccessible)
noEntryIconAccessible :: Maybe EntryIconAccessible
noEntryIconAccessible = Nothing
foreign import ccall "gtk_entry_icon_accessible_get_type"
c_gtk_entry_icon_accessible_get_type :: IO GType
type instance ParentTypes EntryIconAccessible = '[Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject EntryIconAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_entry_icon_accessible_get_type
class GObject o => EntryIconAccessibleK o
instance (GObject o, IsDescendantOf EntryIconAccessible o) => EntryIconAccessibleK o
toEntryIconAccessible :: EntryIconAccessibleK o => o -> IO EntryIconAccessible
toEntryIconAccessible = unsafeCastTo EntryIconAccessible
-- Enum EntryIconPosition
data EntryIconPosition =
EntryIconPositionPrimary
| EntryIconPositionSecondary
| AnotherEntryIconPosition Int
deriving (Show, Eq)
instance Enum EntryIconPosition where
fromEnum EntryIconPositionPrimary = 0
fromEnum EntryIconPositionSecondary = 1
fromEnum (AnotherEntryIconPosition k) = k
toEnum 0 = EntryIconPositionPrimary
toEnum 1 = EntryIconPositionSecondary
toEnum k = AnotherEntryIconPosition k
foreign import ccall "gtk_entry_icon_position_get_type" c_gtk_entry_icon_position_get_type ::
IO GType
instance BoxedEnum EntryIconPosition where
boxedEnumType _ = c_gtk_entry_icon_position_get_type
-- object EventBox
newtype EventBox = EventBox (ForeignPtr EventBox)
noEventBox :: Maybe EventBox
noEventBox = Nothing
foreign import ccall "gtk_event_box_get_type"
c_gtk_event_box_get_type :: IO GType
type instance ParentTypes EventBox = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject EventBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_event_box_get_type
class GObject o => EventBoxK o
instance (GObject o, IsDescendantOf EventBox o) => EventBoxK o
toEventBox :: EventBoxK o => o -> IO EventBox
toEventBox = unsafeCastTo EventBox
-- method EventBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "EventBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_box_new" gtk_event_box_new ::
IO (Ptr EventBox)
eventBoxNew ::
(MonadIO m) =>
m EventBox
eventBoxNew = liftIO $ do
result <- gtk_event_box_new
checkUnexpectedReturnNULL "gtk_event_box_new" result
result' <- (newObject EventBox) result
return result'
-- method EventBox::get_above_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_box_get_above_child" gtk_event_box_get_above_child ::
Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox"
IO CInt
eventBoxGetAboveChild ::
(MonadIO m, EventBoxK a) =>
a -> -- _obj
m Bool
eventBoxGetAboveChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_event_box_get_above_child _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EventBox::get_visible_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_box_get_visible_window" gtk_event_box_get_visible_window ::
Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox"
IO CInt
eventBoxGetVisibleWindow ::
(MonadIO m, EventBoxK a) =>
a -> -- _obj
m Bool
eventBoxGetVisibleWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_event_box_get_visible_window _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method EventBox::set_above_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_box_set_above_child" gtk_event_box_set_above_child ::
Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox"
CInt -> -- above_child : TBasicType TBoolean
IO ()
eventBoxSetAboveChild ::
(MonadIO m, EventBoxK a) =>
a -> -- _obj
Bool -> -- above_child
m ()
eventBoxSetAboveChild _obj above_child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let above_child' = (fromIntegral . fromEnum) above_child
gtk_event_box_set_above_child _obj' above_child'
touchManagedPtr _obj
return ()
-- method EventBox::set_visible_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_box_set_visible_window" gtk_event_box_set_visible_window ::
Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox"
CInt -> -- visible_window : TBasicType TBoolean
IO ()
eventBoxSetVisibleWindow ::
(MonadIO m, EventBoxK a) =>
a -> -- _obj
Bool -> -- visible_window
m ()
eventBoxSetVisibleWindow _obj visible_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible_window' = (fromIntegral . fromEnum) visible_window
gtk_event_box_set_visible_window _obj' visible_window'
touchManagedPtr _obj
return ()
-- object EventController
newtype EventController = EventController (ForeignPtr EventController)
noEventController :: Maybe EventController
noEventController = Nothing
foreign import ccall "gtk_event_controller_get_type"
c_gtk_event_controller_get_type :: IO GType
type instance ParentTypes EventController = '[GObject.Object]
instance GObject EventController where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_event_controller_get_type
class GObject o => EventControllerK o
instance (GObject o, IsDescendantOf EventController o) => EventControllerK o
toEventController :: EventControllerK o => o -> IO EventController
toEventController = unsafeCastTo EventController
-- method EventController::get_propagation_phase
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PropagationPhase"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_controller_get_propagation_phase" gtk_event_controller_get_propagation_phase ::
Ptr EventController -> -- _obj : TInterface "Gtk" "EventController"
IO CUInt
eventControllerGetPropagationPhase ::
(MonadIO m, EventControllerK a) =>
a -> -- _obj
m PropagationPhase
eventControllerGetPropagationPhase _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_event_controller_get_propagation_phase _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method EventController::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_controller_get_widget" gtk_event_controller_get_widget ::
Ptr EventController -> -- _obj : TInterface "Gtk" "EventController"
IO (Ptr Widget)
eventControllerGetWidget ::
(MonadIO m, EventControllerK a) =>
a -> -- _obj
m Widget
eventControllerGetWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_event_controller_get_widget _obj'
checkUnexpectedReturnNULL "gtk_event_controller_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method EventController::handle_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_controller_handle_event" gtk_event_controller_handle_event ::
Ptr EventController -> -- _obj : TInterface "Gtk" "EventController"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO CInt
eventControllerHandleEvent ::
(MonadIO m, EventControllerK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Bool
eventControllerHandleEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_event_controller_handle_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method EventController::reset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_controller_reset" gtk_event_controller_reset ::
Ptr EventController -> -- _obj : TInterface "Gtk" "EventController"
IO ()
eventControllerReset ::
(MonadIO m, EventControllerK a) =>
a -> -- _obj
m ()
eventControllerReset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_event_controller_reset _obj'
touchManagedPtr _obj
return ()
-- method EventController::set_propagation_phase
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_event_controller_set_propagation_phase" gtk_event_controller_set_propagation_phase ::
Ptr EventController -> -- _obj : TInterface "Gtk" "EventController"
CUInt -> -- phase : TInterface "Gtk" "PropagationPhase"
IO ()
eventControllerSetPropagationPhase ::
(MonadIO m, EventControllerK a) =>
a -> -- _obj
PropagationPhase -> -- phase
m ()
eventControllerSetPropagationPhase _obj phase = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let phase' = (fromIntegral . fromEnum) phase
gtk_event_controller_set_propagation_phase _obj' phase'
touchManagedPtr _obj
return ()
-- Enum EventSequenceState
data EventSequenceState =
EventSequenceStateNone
| EventSequenceStateClaimed
| EventSequenceStateDenied
| AnotherEventSequenceState Int
deriving (Show, Eq)
instance Enum EventSequenceState where
fromEnum EventSequenceStateNone = 0
fromEnum EventSequenceStateClaimed = 1
fromEnum EventSequenceStateDenied = 2
fromEnum (AnotherEventSequenceState k) = k
toEnum 0 = EventSequenceStateNone
toEnum 1 = EventSequenceStateClaimed
toEnum 2 = EventSequenceStateDenied
toEnum k = AnotherEventSequenceState k
foreign import ccall "gtk_event_sequence_state_get_type" c_gtk_event_sequence_state_get_type ::
IO GType
instance BoxedEnum EventSequenceState where
boxedEnumType _ = c_gtk_event_sequence_state_get_type
-- object Expander
newtype Expander = Expander (ForeignPtr Expander)
noExpander :: Maybe Expander
noExpander = Nothing
foreign import ccall "gtk_expander_get_type"
c_gtk_expander_get_type :: IO GType
type instance ParentTypes Expander = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Expander where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_expander_get_type
class GObject o => ExpanderK o
instance (GObject o, IsDescendantOf Expander o) => ExpanderK o
toExpander :: ExpanderK o => o -> IO Expander
toExpander = unsafeCastTo Expander
-- method Expander::new
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Expander"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_new" gtk_expander_new ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Expander)
expanderNew ::
(MonadIO m) =>
T.Text -> -- label
m Expander
expanderNew label = liftIO $ do
label' <- textToCString label
result <- gtk_expander_new label'
checkUnexpectedReturnNULL "gtk_expander_new" result
result' <- (newObject Expander) result
freeMem label'
return result'
-- method Expander::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Expander"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_new_with_mnemonic" gtk_expander_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Expander)
expanderNewWithMnemonic ::
(MonadIO m) =>
Maybe (T.Text) -> -- label
m Expander
expanderNewWithMnemonic label = liftIO $ do
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_expander_new_with_mnemonic maybeLabel
checkUnexpectedReturnNULL "gtk_expander_new_with_mnemonic" result
result' <- (newObject Expander) result
freeMem maybeLabel
return result'
-- method Expander::get_expanded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_expanded" gtk_expander_get_expanded ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CInt
expanderGetExpanded ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Bool
expanderGetExpanded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_expanded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Expander::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_label" gtk_expander_get_label ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CString
expanderGetLabel ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m T.Text
expanderGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label _obj'
checkUnexpectedReturnNULL "gtk_expander_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Expander::get_label_fill
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_label_fill" gtk_expander_get_label_fill ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CInt
expanderGetLabelFill ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Bool
expanderGetLabelFill _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label_fill _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Expander::get_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_label_widget" gtk_expander_get_label_widget ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO (Ptr Widget)
expanderGetLabelWidget ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Widget
expanderGetLabelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label_widget _obj'
checkUnexpectedReturnNULL "gtk_expander_get_label_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Expander::get_resize_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_resize_toplevel" gtk_expander_get_resize_toplevel ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CInt
expanderGetResizeToplevel ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Bool
expanderGetResizeToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_resize_toplevel _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Expander::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_spacing" gtk_expander_get_spacing ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO Int32
expanderGetSpacing ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Int32
expanderGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_spacing _obj'
touchManagedPtr _obj
return result
-- method Expander::get_use_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_use_markup" gtk_expander_get_use_markup ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CInt
expanderGetUseMarkup ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Bool
expanderGetUseMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_use_markup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Expander::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_get_use_underline" gtk_expander_get_use_underline ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
IO CInt
expanderGetUseUnderline ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
m Bool
expanderGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Expander::set_expanded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_expanded" gtk_expander_set_expanded ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CInt -> -- expanded : TBasicType TBoolean
IO ()
expanderSetExpanded ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Bool -> -- expanded
m ()
expanderSetExpanded _obj expanded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expanded' = (fromIntegral . fromEnum) expanded
gtk_expander_set_expanded _obj' expanded'
touchManagedPtr _obj
return ()
-- method Expander::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_label" gtk_expander_set_label ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CString -> -- label : TBasicType TUTF8
IO ()
expanderSetLabel ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Maybe (T.Text) -> -- label
m ()
expanderSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_expander_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
-- method Expander::set_label_fill
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_label_fill" gtk_expander_set_label_fill ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CInt -> -- label_fill : TBasicType TBoolean
IO ()
expanderSetLabelFill ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Bool -> -- label_fill
m ()
expanderSetLabelFill _obj label_fill = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label_fill' = (fromIntegral . fromEnum) label_fill
gtk_expander_set_label_fill _obj' label_fill'
touchManagedPtr _obj
return ()
-- method Expander::set_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_label_widget" gtk_expander_set_label_widget ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget"
IO ()
expanderSetLabelWidget ::
(MonadIO m, ExpanderK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- label_widget
m ()
expanderSetLabelWidget _obj label_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel_widget <- case label_widget of
Nothing -> return nullPtr
Just jLabel_widget -> do
let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget
return jLabel_widget'
gtk_expander_set_label_widget _obj' maybeLabel_widget
touchManagedPtr _obj
whenJust label_widget touchManagedPtr
return ()
-- method Expander::set_resize_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_resize_toplevel" gtk_expander_set_resize_toplevel ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CInt -> -- resize_toplevel : TBasicType TBoolean
IO ()
expanderSetResizeToplevel ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Bool -> -- resize_toplevel
m ()
expanderSetResizeToplevel _obj resize_toplevel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resize_toplevel' = (fromIntegral . fromEnum) resize_toplevel
gtk_expander_set_resize_toplevel _obj' resize_toplevel'
touchManagedPtr _obj
return ()
-- method Expander::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
Int32 -> -- spacing : TBasicType TInt32
IO ()
expanderSetSpacing ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
expanderSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_expander_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method Expander::set_use_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_use_markup" gtk_expander_set_use_markup ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CInt -> -- use_markup : TBasicType TBoolean
IO ()
expanderSetUseMarkup ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Bool -> -- use_markup
m ()
expanderSetUseMarkup _obj use_markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_markup' = (fromIntegral . fromEnum) use_markup
gtk_expander_set_use_markup _obj' use_markup'
touchManagedPtr _obj
return ()
-- method Expander::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_expander_set_use_underline" gtk_expander_set_use_underline ::
Ptr Expander -> -- _obj : TInterface "Gtk" "Expander"
CInt -> -- use_underline : TBasicType TBoolean
IO ()
expanderSetUseUnderline ::
(MonadIO m, ExpanderK a) =>
a -> -- _obj
Bool -> -- use_underline
m ()
expanderSetUseUnderline _obj use_underline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_underline' = (fromIntegral . fromEnum) use_underline
gtk_expander_set_use_underline _obj' use_underline'
touchManagedPtr _obj
return ()
-- signal Expander::activate
type ExpanderActivateCallback =
IO ()
noExpanderActivateCallback :: Maybe ExpanderActivateCallback
noExpanderActivateCallback = Nothing
type ExpanderActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkExpanderActivateCallback :: ExpanderActivateCallbackC -> IO (FunPtr ExpanderActivateCallbackC)
expanderActivateClosure :: ExpanderActivateCallback -> IO Closure
expanderActivateClosure cb = newCClosure =<< mkExpanderActivateCallback wrapped
where wrapped = expanderActivateCallbackWrapper cb
expanderActivateCallbackWrapper ::
ExpanderActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
expanderActivateCallbackWrapper _cb _ _ = do
_cb
onExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
onExpanderActivate obj cb = liftIO $ connectExpanderActivate obj cb SignalConnectBefore
afterExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
afterExpanderActivate obj cb = connectExpanderActivate obj cb SignalConnectAfter
connectExpanderActivate :: (GObject a, MonadIO m) =>
a -> ExpanderActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectExpanderActivate obj cb after = liftIO $ do
cb' <- mkExpanderActivateCallback (expanderActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- object ExpanderAccessible
newtype ExpanderAccessible = ExpanderAccessible (ForeignPtr ExpanderAccessible)
noExpanderAccessible :: Maybe ExpanderAccessible
noExpanderAccessible = Nothing
foreign import ccall "gtk_expander_accessible_get_type"
c_gtk_expander_accessible_get_type :: IO GType
type instance ParentTypes ExpanderAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject ExpanderAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_expander_accessible_get_type
class GObject o => ExpanderAccessibleK o
instance (GObject o, IsDescendantOf ExpanderAccessible o) => ExpanderAccessibleK o
toExpanderAccessible :: ExpanderAccessibleK o => o -> IO ExpanderAccessible
toExpanderAccessible = unsafeCastTo ExpanderAccessible
-- Enum ExpanderStyle
data ExpanderStyle =
ExpanderStyleCollapsed
| ExpanderStyleSemiCollapsed
| ExpanderStyleSemiExpanded
| ExpanderStyleExpanded
| AnotherExpanderStyle Int
deriving (Show, Eq)
instance Enum ExpanderStyle where
fromEnum ExpanderStyleCollapsed = 0
fromEnum ExpanderStyleSemiCollapsed = 1
fromEnum ExpanderStyleSemiExpanded = 2
fromEnum ExpanderStyleExpanded = 3
fromEnum (AnotherExpanderStyle k) = k
toEnum 0 = ExpanderStyleCollapsed
toEnum 1 = ExpanderStyleSemiCollapsed
toEnum 2 = ExpanderStyleSemiExpanded
toEnum 3 = ExpanderStyleExpanded
toEnum k = AnotherExpanderStyle k
foreign import ccall "gtk_expander_style_get_type" c_gtk_expander_style_get_type ::
IO GType
instance BoxedEnum ExpanderStyle where
boxedEnumType _ = c_gtk_expander_style_get_type
-- interface FileChooser
newtype FileChooser = FileChooser (ForeignPtr FileChooser)
noFileChooser :: Maybe FileChooser
noFileChooser = Nothing
foreign import ccall "gtk_file_chooser_get_type"
c_gtk_file_chooser_get_type :: IO GType
type instance ParentTypes FileChooser = '[Widget, GObject.Object]
instance GObject FileChooser where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_file_chooser_get_type
class GObject o => FileChooserK o
instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o
toFileChooser :: FileChooserK o => o -> IO FileChooser
toFileChooser = unsafeCastTo FileChooser
-- method FileChooser::add_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter"
IO ()
fileChooserAddFilter ::
(MonadIO m, FileChooserK a, FileFilterK b) =>
a -> -- _obj
b -> -- filter
m ()
fileChooserAddFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filter' <- refObject filter
gtk_file_chooser_add_filter _obj' filter'
touchManagedPtr _obj
touchManagedPtr filter
return ()
-- method FileChooser::add_shortcut_folder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- folder : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserAddShortcutFolder ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- folder
m ()
fileChooserAddShortcutFolder _obj folder = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
folder' <- stringToCString folder
onException (do
_ <- propagateGError $ gtk_file_chooser_add_shortcut_folder _obj' folder'
touchManagedPtr _obj
freeMem folder'
return ()
) (do
freeMem folder'
)
-- method FileChooser::add_shortcut_folder_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserAddShortcutFolderUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
fileChooserAddShortcutFolderUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
-- method FileChooser::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileChooserAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CUInt
fileChooserGetAction ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m FileChooserAction
fileChooserGetAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_action _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_create_folders
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetCreateFolders ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetCreateFolders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_create_folders _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_current_folder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetCurrentFolder ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [Char]
fileChooserGetCurrentFolder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_current_folder _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder" result
result' <- cstringToString result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_current_folder_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_current_folder_file" gtk_file_chooser_get_current_folder_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr Gio.File)
fileChooserGetCurrentFolderFile ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Gio.File
fileChooserGetCurrentFolderFile _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_current_folder_file _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_file" result
result' <- (wrapObject Gio.File) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_current_folder_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetCurrentFolderUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m T.Text
fileChooserGetCurrentFolderUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_current_folder_uri _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_uri" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_current_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetCurrentName ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m T.Text
fileChooserGetCurrentName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_current_name _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_current_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_do_overwrite_confirmation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetDoOverwriteConfirmation ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetDoOverwriteConfirmation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_do_overwrite_confirmation _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_extra_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr Widget)
fileChooserGetExtraWidget ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Widget
fileChooserGetExtraWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_extra_widget _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_extra_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr Gio.File)
fileChooserGetFile ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Gio.File
fileChooserGetFile _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_file _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_file" result
result' <- (wrapObject Gio.File) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetFilename ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [Char]
fileChooserGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_filename _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_filename" result
result' <- cstringToString result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_filenames
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TFileName)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList CString))
fileChooserGetFilenames ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [[Char]]
fileChooserGetFilenames _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_filenames _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result
result' <- unpackGSList result
result'' <- mapM cstringToString result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::get_files
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gio" "File")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList (Ptr Gio.File)))
fileChooserGetFiles ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [Gio.File]
fileChooserGetFiles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_files _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result
result' <- unpackGSList result
result'' <- mapM (wrapObject Gio.File) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::get_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileFilter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr FileFilter)
fileChooserGetFilter ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m FileFilter
fileChooserGetFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_filter _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_filter" result
result' <- (newObject FileFilter) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetLocalOnly ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetLocalOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_local_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_preview_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr Gio.File)
fileChooserGetPreviewFile ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Gio.File
fileChooserGetPreviewFile _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_preview_file _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_file" result
result' <- (wrapObject Gio.File) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_preview_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetPreviewFilename ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [Char]
fileChooserGetPreviewFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_preview_filename _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_filename" result
result' <- cstringToString result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_preview_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetPreviewUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m T.Text
fileChooserGetPreviewUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_preview_uri _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_uri" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_preview_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr Widget)
fileChooserGetPreviewWidget ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Widget
fileChooserGetPreviewWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_preview_widget _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_preview_widget_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetPreviewWidgetActive ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetPreviewWidgetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_preview_widget_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_select_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetSelectMultiple ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetSelectMultiple _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_select_multiple _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_show_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetShowHidden ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetShowHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_show_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CString
fileChooserGetUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m T.Text
fileChooserGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_uri _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_uri" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FileChooser::get_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList CString))
fileChooserGetUris ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [T.Text]
fileChooserGetUris _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_uris _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::get_use_preview_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO CInt
fileChooserGetUsePreviewLabel ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m Bool
fileChooserGetUsePreviewLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_get_use_preview_label _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooser::list_filters
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "FileFilter")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList (Ptr FileFilter)))
fileChooserListFilters ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [FileFilter]
fileChooserListFilters _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_list_filters _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result
result' <- unpackGSList result
result'' <- mapM (newObject FileFilter) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::list_shortcut_folder_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList CString))
fileChooserListShortcutFolderUris ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [T.Text]
fileChooserListShortcutFolderUris _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_list_shortcut_folder_uris _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::list_shortcut_folders
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TFileName)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO (Ptr (GSList CString))
fileChooserListShortcutFolders ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m [[Char]]
fileChooserListShortcutFolders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_list_shortcut_folders _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result
result' <- unpackGSList result
result'' <- mapM cstringToString result'
mapGSList freeMem result
g_slist_free result
touchManagedPtr _obj
return result''
-- method FileChooser::remove_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter"
IO ()
fileChooserRemoveFilter ::
(MonadIO m, FileChooserK a, FileFilterK b) =>
a -> -- _obj
b -> -- filter
m ()
fileChooserRemoveFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter' = unsafeManagedPtrCastPtr filter
gtk_file_chooser_remove_filter _obj' filter'
touchManagedPtr _obj
touchManagedPtr filter
return ()
-- method FileChooser::remove_shortcut_folder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- folder : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserRemoveShortcutFolder ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- folder
m ()
fileChooserRemoveShortcutFolder _obj folder = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
folder' <- stringToCString folder
onException (do
_ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder _obj' folder'
touchManagedPtr _obj
freeMem folder'
return ()
) (do
freeMem folder'
)
-- method FileChooser::remove_shortcut_folder_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserRemoveShortcutFolderUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
fileChooserRemoveShortcutFolderUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
-- method FileChooser::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_select_all" gtk_file_chooser_select_all ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO ()
fileChooserSelectAll ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m ()
fileChooserSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_file_chooser_select_all _obj'
touchManagedPtr _obj
return ()
-- method FileChooser::select_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserSelectFile ::
(MonadIO m, FileChooserK a, Gio.FileK b) =>
a -> -- _obj
b -> -- file
m ()
fileChooserSelectFile _obj file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_select_file _obj' file'
touchManagedPtr _obj
touchManagedPtr file
return ()
) (do
return ()
)
-- method FileChooser::select_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- filename : TBasicType TFileName
IO CInt
fileChooserSelectFilename ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- filename
m Bool
fileChooserSelectFilename _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
result <- gtk_file_chooser_select_filename _obj' filename'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem filename'
return result'
-- method FileChooser::select_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
IO CInt
fileChooserSelectUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m Bool
fileChooserSelectUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_file_chooser_select_uri _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method FileChooser::set_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_action" gtk_file_chooser_set_action ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CUInt -> -- action : TInterface "Gtk" "FileChooserAction"
IO ()
fileChooserSetAction ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
FileChooserAction -> -- action
m ()
fileChooserSetAction _obj action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = (fromIntegral . fromEnum) action
gtk_file_chooser_set_action _obj' action'
touchManagedPtr _obj
return ()
-- method FileChooser::set_create_folders
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- create_folders : TBasicType TBoolean
IO ()
fileChooserSetCreateFolders ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- create_folders
m ()
fileChooserSetCreateFolders _obj create_folders = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let create_folders' = (fromIntegral . fromEnum) create_folders
gtk_file_chooser_set_create_folders _obj' create_folders'
touchManagedPtr _obj
return ()
-- method FileChooser::set_current_folder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- filename : TBasicType TFileName
IO CInt
fileChooserSetCurrentFolder ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- filename
m Bool
fileChooserSetCurrentFolder _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
result <- gtk_file_chooser_set_current_folder _obj' filename'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem filename'
return result'
-- method FileChooser::set_current_folder_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserSetCurrentFolderFile ::
(MonadIO m, FileChooserK a, Gio.FileK b) =>
a -> -- _obj
b -> -- file
m ()
fileChooserSetCurrentFolderFile _obj file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_set_current_folder_file _obj' file'
touchManagedPtr _obj
touchManagedPtr file
return ()
) (do
return ()
)
-- method FileChooser::set_current_folder_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
IO CInt
fileChooserSetCurrentFolderUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m Bool
fileChooserSetCurrentFolderUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_file_chooser_set_current_folder_uri _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method FileChooser::set_current_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- name : TBasicType TFileName
IO ()
fileChooserSetCurrentName ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- name
m ()
fileChooserSetCurrentName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- stringToCString name
gtk_file_chooser_set_current_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method FileChooser::set_do_overwrite_confirmation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- do_overwrite_confirmation : TBasicType TBoolean
IO ()
fileChooserSetDoOverwriteConfirmation ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- do_overwrite_confirmation
m ()
fileChooserSetDoOverwriteConfirmation _obj do_overwrite_confirmation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let do_overwrite_confirmation' = (fromIntegral . fromEnum) do_overwrite_confirmation
gtk_file_chooser_set_do_overwrite_confirmation _obj' do_overwrite_confirmation'
touchManagedPtr _obj
return ()
-- method FileChooser::set_extra_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Widget -> -- extra_widget : TInterface "Gtk" "Widget"
IO ()
fileChooserSetExtraWidget ::
(MonadIO m, FileChooserK a, WidgetK b) =>
a -> -- _obj
b -> -- extra_widget
m ()
fileChooserSetExtraWidget _obj extra_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let extra_widget' = unsafeManagedPtrCastPtr extra_widget
gtk_file_chooser_set_extra_widget _obj' extra_widget'
touchManagedPtr _obj
touchManagedPtr extra_widget
return ()
-- method FileChooser::set_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
Ptr (Ptr GError) -> -- error
IO CInt
fileChooserSetFile ::
(MonadIO m, FileChooserK a, Gio.FileK b) =>
a -> -- _obj
b -> -- file
m ()
fileChooserSetFile _obj file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
onException (do
_ <- propagateGError $ gtk_file_chooser_set_file _obj' file'
touchManagedPtr _obj
touchManagedPtr file
return ()
) (do
return ()
)
-- method FileChooser::set_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- filename : TBasicType TFileName
IO CInt
fileChooserSetFilename ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- filename
m Bool
fileChooserSetFilename _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
result <- gtk_file_chooser_set_filename _obj' filename'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem filename'
return result'
-- method FileChooser::set_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter"
IO ()
fileChooserSetFilter ::
(MonadIO m, FileChooserK a, FileFilterK b) =>
a -> -- _obj
b -> -- filter
m ()
fileChooserSetFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter' = unsafeManagedPtrCastPtr filter
gtk_file_chooser_set_filter _obj' filter'
touchManagedPtr _obj
touchManagedPtr filter
return ()
-- method FileChooser::set_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- local_only : TBasicType TBoolean
IO ()
fileChooserSetLocalOnly ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- local_only
m ()
fileChooserSetLocalOnly _obj local_only = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let local_only' = (fromIntegral . fromEnum) local_only
gtk_file_chooser_set_local_only _obj' local_only'
touchManagedPtr _obj
return ()
-- method FileChooser::set_preview_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Widget -> -- preview_widget : TInterface "Gtk" "Widget"
IO ()
fileChooserSetPreviewWidget ::
(MonadIO m, FileChooserK a, WidgetK b) =>
a -> -- _obj
b -> -- preview_widget
m ()
fileChooserSetPreviewWidget _obj preview_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let preview_widget' = unsafeManagedPtrCastPtr preview_widget
gtk_file_chooser_set_preview_widget _obj' preview_widget'
touchManagedPtr _obj
touchManagedPtr preview_widget
return ()
-- method FileChooser::set_preview_widget_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- active : TBasicType TBoolean
IO ()
fileChooserSetPreviewWidgetActive ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- active
m ()
fileChooserSetPreviewWidgetActive _obj active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let active' = (fromIntegral . fromEnum) active
gtk_file_chooser_set_preview_widget_active _obj' active'
touchManagedPtr _obj
return ()
-- method FileChooser::set_select_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- select_multiple : TBasicType TBoolean
IO ()
fileChooserSetSelectMultiple ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- select_multiple
m ()
fileChooserSetSelectMultiple _obj select_multiple = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let select_multiple' = (fromIntegral . fromEnum) select_multiple
gtk_file_chooser_set_select_multiple _obj' select_multiple'
touchManagedPtr _obj
return ()
-- method FileChooser::set_show_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- show_hidden : TBasicType TBoolean
IO ()
fileChooserSetShowHidden ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- show_hidden
m ()
fileChooserSetShowHidden _obj show_hidden = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_hidden' = (fromIntegral . fromEnum) show_hidden
gtk_file_chooser_set_show_hidden _obj' show_hidden'
touchManagedPtr _obj
return ()
-- method FileChooser::set_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
IO CInt
fileChooserSetUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m Bool
fileChooserSetUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_file_chooser_set_uri _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method FileChooser::set_use_preview_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CInt -> -- use_label : TBasicType TBoolean
IO ()
fileChooserSetUsePreviewLabel ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
Bool -> -- use_label
m ()
fileChooserSetUsePreviewLabel _obj use_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_label' = (fromIntegral . fromEnum) use_label
gtk_file_chooser_set_use_preview_label _obj' use_label'
touchManagedPtr _obj
return ()
-- method FileChooser::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
IO ()
fileChooserUnselectAll ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
m ()
fileChooserUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_file_chooser_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method FileChooser::unselect_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
IO ()
fileChooserUnselectFile ::
(MonadIO m, FileChooserK a, Gio.FileK b) =>
a -> -- _obj
b -> -- file
m ()
fileChooserUnselectFile _obj file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
gtk_file_chooser_unselect_file _obj' file'
touchManagedPtr _obj
touchManagedPtr file
return ()
-- method FileChooser::unselect_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- filename : TBasicType TFileName
IO ()
fileChooserUnselectFilename ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
[Char] -> -- filename
m ()
fileChooserUnselectFilename _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
gtk_file_chooser_unselect_filename _obj' filename'
touchManagedPtr _obj
freeMem filename'
return ()
-- method FileChooser::unselect_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri ::
Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser"
CString -> -- uri : TBasicType TUTF8
IO ()
fileChooserUnselectUri ::
(MonadIO m, FileChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
fileChooserUnselectUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
gtk_file_chooser_unselect_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- signal FileChooser::confirm-overwrite
type FileChooserConfirmOverwriteCallback =
IO FileChooserConfirmation
noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback
noFileChooserConfirmOverwriteCallback = Nothing
type FileChooserConfirmOverwriteCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CUInt
foreign import ccall "wrapper"
mkFileChooserConfirmOverwriteCallback :: FileChooserConfirmOverwriteCallbackC -> IO (FunPtr FileChooserConfirmOverwriteCallbackC)
fileChooserConfirmOverwriteClosure :: FileChooserConfirmOverwriteCallback -> IO Closure
fileChooserConfirmOverwriteClosure cb = newCClosure =<< mkFileChooserConfirmOverwriteCallback wrapped
where wrapped = fileChooserConfirmOverwriteCallbackWrapper cb
fileChooserConfirmOverwriteCallbackWrapper ::
FileChooserConfirmOverwriteCallback ->
Ptr () ->
Ptr () ->
IO CUInt
fileChooserConfirmOverwriteCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId
onFileChooserConfirmOverwrite obj cb = liftIO $ connectFileChooserConfirmOverwrite obj cb SignalConnectBefore
afterFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId
afterFileChooserConfirmOverwrite obj cb = connectFileChooserConfirmOverwrite obj cb SignalConnectAfter
connectFileChooserConfirmOverwrite :: (GObject a, MonadIO m) =>
a -> FileChooserConfirmOverwriteCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserConfirmOverwrite obj cb after = liftIO $ do
cb' <- mkFileChooserConfirmOverwriteCallback (fileChooserConfirmOverwriteCallbackWrapper cb)
connectSignalFunPtr obj "confirm-overwrite" cb' after
-- signal FileChooser::current-folder-changed
type FileChooserCurrentFolderChangedCallback =
IO ()
noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback
noFileChooserCurrentFolderChangedCallback = Nothing
type FileChooserCurrentFolderChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserCurrentFolderChangedCallback :: FileChooserCurrentFolderChangedCallbackC -> IO (FunPtr FileChooserCurrentFolderChangedCallbackC)
fileChooserCurrentFolderChangedClosure :: FileChooserCurrentFolderChangedCallback -> IO Closure
fileChooserCurrentFolderChangedClosure cb = newCClosure =<< mkFileChooserCurrentFolderChangedCallback wrapped
where wrapped = fileChooserCurrentFolderChangedCallbackWrapper cb
fileChooserCurrentFolderChangedCallbackWrapper ::
FileChooserCurrentFolderChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserCurrentFolderChangedCallbackWrapper _cb _ _ = do
_cb
onFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId
onFileChooserCurrentFolderChanged obj cb = liftIO $ connectFileChooserCurrentFolderChanged obj cb SignalConnectBefore
afterFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId
afterFileChooserCurrentFolderChanged obj cb = connectFileChooserCurrentFolderChanged obj cb SignalConnectAfter
connectFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) =>
a -> FileChooserCurrentFolderChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserCurrentFolderChanged obj cb after = liftIO $ do
cb' <- mkFileChooserCurrentFolderChangedCallback (fileChooserCurrentFolderChangedCallbackWrapper cb)
connectSignalFunPtr obj "current-folder-changed" cb' after
-- signal FileChooser::file-activated
type FileChooserFileActivatedCallback =
IO ()
noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback
noFileChooserFileActivatedCallback = Nothing
type FileChooserFileActivatedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserFileActivatedCallback :: FileChooserFileActivatedCallbackC -> IO (FunPtr FileChooserFileActivatedCallbackC)
fileChooserFileActivatedClosure :: FileChooserFileActivatedCallback -> IO Closure
fileChooserFileActivatedClosure cb = newCClosure =<< mkFileChooserFileActivatedCallback wrapped
where wrapped = fileChooserFileActivatedCallbackWrapper cb
fileChooserFileActivatedCallbackWrapper ::
FileChooserFileActivatedCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserFileActivatedCallbackWrapper _cb _ _ = do
_cb
onFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId
onFileChooserFileActivated obj cb = liftIO $ connectFileChooserFileActivated obj cb SignalConnectBefore
afterFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId
afterFileChooserFileActivated obj cb = connectFileChooserFileActivated obj cb SignalConnectAfter
connectFileChooserFileActivated :: (GObject a, MonadIO m) =>
a -> FileChooserFileActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserFileActivated obj cb after = liftIO $ do
cb' <- mkFileChooserFileActivatedCallback (fileChooserFileActivatedCallbackWrapper cb)
connectSignalFunPtr obj "file-activated" cb' after
-- signal FileChooser::selection-changed
type FileChooserSelectionChangedCallback =
IO ()
noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback
noFileChooserSelectionChangedCallback = Nothing
type FileChooserSelectionChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserSelectionChangedCallback :: FileChooserSelectionChangedCallbackC -> IO (FunPtr FileChooserSelectionChangedCallbackC)
fileChooserSelectionChangedClosure :: FileChooserSelectionChangedCallback -> IO Closure
fileChooserSelectionChangedClosure cb = newCClosure =<< mkFileChooserSelectionChangedCallback wrapped
where wrapped = fileChooserSelectionChangedCallbackWrapper cb
fileChooserSelectionChangedCallbackWrapper ::
FileChooserSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserSelectionChangedCallbackWrapper _cb _ _ = do
_cb
onFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId
onFileChooserSelectionChanged obj cb = liftIO $ connectFileChooserSelectionChanged obj cb SignalConnectBefore
afterFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId
afterFileChooserSelectionChanged obj cb = connectFileChooserSelectionChanged obj cb SignalConnectAfter
connectFileChooserSelectionChanged :: (GObject a, MonadIO m) =>
a -> FileChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserSelectionChanged obj cb after = liftIO $ do
cb' <- mkFileChooserSelectionChangedCallback (fileChooserSelectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "selection-changed" cb' after
-- signal FileChooser::update-preview
type FileChooserUpdatePreviewCallback =
IO ()
noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback
noFileChooserUpdatePreviewCallback = Nothing
type FileChooserUpdatePreviewCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserUpdatePreviewCallback :: FileChooserUpdatePreviewCallbackC -> IO (FunPtr FileChooserUpdatePreviewCallbackC)
fileChooserUpdatePreviewClosure :: FileChooserUpdatePreviewCallback -> IO Closure
fileChooserUpdatePreviewClosure cb = newCClosure =<< mkFileChooserUpdatePreviewCallback wrapped
where wrapped = fileChooserUpdatePreviewCallbackWrapper cb
fileChooserUpdatePreviewCallbackWrapper ::
FileChooserUpdatePreviewCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserUpdatePreviewCallbackWrapper _cb _ _ = do
_cb
onFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId
onFileChooserUpdatePreview obj cb = liftIO $ connectFileChooserUpdatePreview obj cb SignalConnectBefore
afterFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId
afterFileChooserUpdatePreview obj cb = connectFileChooserUpdatePreview obj cb SignalConnectAfter
connectFileChooserUpdatePreview :: (GObject a, MonadIO m) =>
a -> FileChooserUpdatePreviewCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserUpdatePreview obj cb after = liftIO $ do
cb' <- mkFileChooserUpdatePreviewCallback (fileChooserUpdatePreviewCallbackWrapper cb)
connectSignalFunPtr obj "update-preview" cb' after
-- Enum FileChooserAction
data FileChooserAction =
FileChooserActionOpen
| FileChooserActionSave
| FileChooserActionSelectFolder
| FileChooserActionCreateFolder
| AnotherFileChooserAction Int
deriving (Show, Eq)
instance Enum FileChooserAction where
fromEnum FileChooserActionOpen = 0
fromEnum FileChooserActionSave = 1
fromEnum FileChooserActionSelectFolder = 2
fromEnum FileChooserActionCreateFolder = 3
fromEnum (AnotherFileChooserAction k) = k
toEnum 0 = FileChooserActionOpen
toEnum 1 = FileChooserActionSave
toEnum 2 = FileChooserActionSelectFolder
toEnum 3 = FileChooserActionCreateFolder
toEnum k = AnotherFileChooserAction k
foreign import ccall "gtk_file_chooser_action_get_type" c_gtk_file_chooser_action_get_type ::
IO GType
instance BoxedEnum FileChooserAction where
boxedEnumType _ = c_gtk_file_chooser_action_get_type
-- object FileChooserButton
newtype FileChooserButton = FileChooserButton (ForeignPtr FileChooserButton)
noFileChooserButton :: Maybe FileChooserButton
noFileChooserButton = Nothing
foreign import ccall "gtk_file_chooser_button_get_type"
c_gtk_file_chooser_button_get_type :: IO GType
type instance ParentTypes FileChooserButton = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser, Orientable]
instance GObject FileChooserButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_file_chooser_button_get_type
class GObject o => FileChooserButtonK o
instance (GObject o, IsDescendantOf FileChooserButton o) => FileChooserButtonK o
toFileChooserButton :: FileChooserButtonK o => o -> IO FileChooserButton
toFileChooserButton = unsafeCastTo FileChooserButton
-- method FileChooserButton::new
-- method type : Constructor
-- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileChooserButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_new" gtk_file_chooser_button_new ::
CString -> -- title : TBasicType TUTF8
CUInt -> -- action : TInterface "Gtk" "FileChooserAction"
IO (Ptr FileChooserButton)
fileChooserButtonNew ::
(MonadIO m) =>
T.Text -> -- title
FileChooserAction -> -- action
m FileChooserButton
fileChooserButtonNew title action = liftIO $ do
title' <- textToCString title
let action' = (fromIntegral . fromEnum) action
result <- gtk_file_chooser_button_new title' action'
checkUnexpectedReturnNULL "gtk_file_chooser_button_new" result
result' <- (newObject FileChooserButton) result
freeMem title'
return result'
-- method FileChooserButton::new_with_dialog
-- method type : Constructor
-- Args : [Arg {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileChooserButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_new_with_dialog" gtk_file_chooser_button_new_with_dialog ::
Ptr Dialog -> -- dialog : TInterface "Gtk" "Dialog"
IO (Ptr FileChooserButton)
fileChooserButtonNewWithDialog ::
(MonadIO m, DialogK a) =>
a -> -- dialog
m FileChooserButton
fileChooserButtonNewWithDialog dialog = liftIO $ do
let dialog' = unsafeManagedPtrCastPtr dialog
result <- gtk_file_chooser_button_new_with_dialog dialog'
checkUnexpectedReturnNULL "gtk_file_chooser_button_new_with_dialog" result
result' <- (newObject FileChooserButton) result
touchManagedPtr dialog
return result'
-- method FileChooserButton::get_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_get_focus_on_click" gtk_file_chooser_button_get_focus_on_click ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
IO CInt
fileChooserButtonGetFocusOnClick ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
m Bool
fileChooserButtonGetFocusOnClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_button_get_focus_on_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooserButton::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_get_title" gtk_file_chooser_button_get_title ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
IO CString
fileChooserButtonGetTitle ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
m T.Text
fileChooserButtonGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_button_get_title _obj'
checkUnexpectedReturnNULL "gtk_file_chooser_button_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileChooserButton::get_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_get_width_chars" gtk_file_chooser_button_get_width_chars ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
IO Int32
fileChooserButtonGetWidthChars ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
m Int32
fileChooserButtonGetWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_chooser_button_get_width_chars _obj'
touchManagedPtr _obj
return result
-- method FileChooserButton::set_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_set_focus_on_click" gtk_file_chooser_button_set_focus_on_click ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
CInt -> -- focus_on_click : TBasicType TBoolean
IO ()
fileChooserButtonSetFocusOnClick ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
Bool -> -- focus_on_click
m ()
fileChooserButtonSetFocusOnClick _obj focus_on_click = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focus_on_click' = (fromIntegral . fromEnum) focus_on_click
gtk_file_chooser_button_set_focus_on_click _obj' focus_on_click'
touchManagedPtr _obj
return ()
-- method FileChooserButton::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_set_title" gtk_file_chooser_button_set_title ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
CString -> -- title : TBasicType TUTF8
IO ()
fileChooserButtonSetTitle ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
T.Text -> -- title
m ()
fileChooserButtonSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_file_chooser_button_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method FileChooserButton::set_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_button_set_width_chars" gtk_file_chooser_button_set_width_chars ::
Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton"
Int32 -> -- n_chars : TBasicType TInt32
IO ()
fileChooserButtonSetWidthChars ::
(MonadIO m, FileChooserButtonK a) =>
a -> -- _obj
Int32 -> -- n_chars
m ()
fileChooserButtonSetWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_file_chooser_button_set_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
-- signal FileChooserButton::file-set
type FileChooserButtonFileSetCallback =
IO ()
noFileChooserButtonFileSetCallback :: Maybe FileChooserButtonFileSetCallback
noFileChooserButtonFileSetCallback = Nothing
type FileChooserButtonFileSetCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserButtonFileSetCallback :: FileChooserButtonFileSetCallbackC -> IO (FunPtr FileChooserButtonFileSetCallbackC)
fileChooserButtonFileSetClosure :: FileChooserButtonFileSetCallback -> IO Closure
fileChooserButtonFileSetClosure cb = newCClosure =<< mkFileChooserButtonFileSetCallback wrapped
where wrapped = fileChooserButtonFileSetCallbackWrapper cb
fileChooserButtonFileSetCallbackWrapper ::
FileChooserButtonFileSetCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserButtonFileSetCallbackWrapper _cb _ _ = do
_cb
onFileChooserButtonFileSet :: (GObject a, MonadIO m) => a -> FileChooserButtonFileSetCallback -> m SignalHandlerId
onFileChooserButtonFileSet obj cb = liftIO $ connectFileChooserButtonFileSet obj cb SignalConnectBefore
afterFileChooserButtonFileSet :: (GObject a, MonadIO m) => a -> FileChooserButtonFileSetCallback -> m SignalHandlerId
afterFileChooserButtonFileSet obj cb = connectFileChooserButtonFileSet obj cb SignalConnectAfter
connectFileChooserButtonFileSet :: (GObject a, MonadIO m) =>
a -> FileChooserButtonFileSetCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserButtonFileSet obj cb after = liftIO $ do
cb' <- mkFileChooserButtonFileSetCallback (fileChooserButtonFileSetCallbackWrapper cb)
connectSignalFunPtr obj "file-set" cb' after
-- Enum FileChooserConfirmation
data FileChooserConfirmation =
FileChooserConfirmationConfirm
| FileChooserConfirmationAcceptFilename
| FileChooserConfirmationSelectAgain
| AnotherFileChooserConfirmation Int
deriving (Show, Eq)
instance Enum FileChooserConfirmation where
fromEnum FileChooserConfirmationConfirm = 0
fromEnum FileChooserConfirmationAcceptFilename = 1
fromEnum FileChooserConfirmationSelectAgain = 2
fromEnum (AnotherFileChooserConfirmation k) = k
toEnum 0 = FileChooserConfirmationConfirm
toEnum 1 = FileChooserConfirmationAcceptFilename
toEnum 2 = FileChooserConfirmationSelectAgain
toEnum k = AnotherFileChooserConfirmation k
foreign import ccall "gtk_file_chooser_confirmation_get_type" c_gtk_file_chooser_confirmation_get_type ::
IO GType
instance BoxedEnum FileChooserConfirmation where
boxedEnumType _ = c_gtk_file_chooser_confirmation_get_type
-- object FileChooserDialog
newtype FileChooserDialog = FileChooserDialog (ForeignPtr FileChooserDialog)
noFileChooserDialog :: Maybe FileChooserDialog
noFileChooserDialog = Nothing
foreign import ccall "gtk_file_chooser_dialog_get_type"
c_gtk_file_chooser_dialog_get_type :: IO GType
type instance ParentTypes FileChooserDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser]
instance GObject FileChooserDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_file_chooser_dialog_get_type
class GObject o => FileChooserDialogK o
instance (GObject o, IsDescendantOf FileChooserDialog o) => FileChooserDialogK o
toFileChooserDialog :: FileChooserDialogK o => o -> IO FileChooserDialog
toFileChooserDialog = unsafeCastTo FileChooserDialog
-- Enum FileChooserError
data FileChooserError =
FileChooserErrorNonexistent
| FileChooserErrorBadFilename
| FileChooserErrorAlreadyExists
| FileChooserErrorIncompleteHostname
| AnotherFileChooserError Int
deriving (Show, Eq)
instance Enum FileChooserError where
fromEnum FileChooserErrorNonexistent = 0
fromEnum FileChooserErrorBadFilename = 1
fromEnum FileChooserErrorAlreadyExists = 2
fromEnum FileChooserErrorIncompleteHostname = 3
fromEnum (AnotherFileChooserError k) = k
toEnum 0 = FileChooserErrorNonexistent
toEnum 1 = FileChooserErrorBadFilename
toEnum 2 = FileChooserErrorAlreadyExists
toEnum 3 = FileChooserErrorIncompleteHostname
toEnum k = AnotherFileChooserError k
instance GErrorClass FileChooserError where
gerrorClassDomain _ = "gtk-file-chooser-error-quark"
catchFileChooserError ::
IO a ->
(FileChooserError -> GErrorMessage -> IO a) ->
IO a
catchFileChooserError = catchGErrorJustDomain
handleFileChooserError ::
(FileChooserError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleFileChooserError = handleGErrorJustDomain
foreign import ccall "gtk_file_chooser_error_get_type" c_gtk_file_chooser_error_get_type ::
IO GType
instance BoxedEnum FileChooserError where
boxedEnumType _ = c_gtk_file_chooser_error_get_type
-- object FileChooserWidget
newtype FileChooserWidget = FileChooserWidget (ForeignPtr FileChooserWidget)
noFileChooserWidget :: Maybe FileChooserWidget
noFileChooserWidget = Nothing
foreign import ccall "gtk_file_chooser_widget_get_type"
c_gtk_file_chooser_widget_get_type :: IO GType
type instance ParentTypes FileChooserWidget = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser, Orientable]
instance GObject FileChooserWidget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_file_chooser_widget_get_type
class GObject o => FileChooserWidgetK o
instance (GObject o, IsDescendantOf FileChooserWidget o) => FileChooserWidgetK o
toFileChooserWidget :: FileChooserWidgetK o => o -> IO FileChooserWidget
toFileChooserWidget = unsafeCastTo FileChooserWidget
-- method FileChooserWidget::new
-- method type : Constructor
-- Args : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_widget_new" gtk_file_chooser_widget_new ::
CUInt -> -- action : TInterface "Gtk" "FileChooserAction"
IO (Ptr FileChooserWidget)
fileChooserWidgetNew ::
(MonadIO m) =>
FileChooserAction -> -- action
m FileChooserWidget
fileChooserWidgetNew action = liftIO $ do
let action' = (fromIntegral . fromEnum) action
result <- gtk_file_chooser_widget_new action'
checkUnexpectedReturnNULL "gtk_file_chooser_widget_new" result
result' <- (newObject FileChooserWidget) result
return result'
-- signal FileChooserWidget::desktop-folder
type FileChooserWidgetDesktopFolderCallback =
IO ()
noFileChooserWidgetDesktopFolderCallback :: Maybe FileChooserWidgetDesktopFolderCallback
noFileChooserWidgetDesktopFolderCallback = Nothing
type FileChooserWidgetDesktopFolderCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetDesktopFolderCallback :: FileChooserWidgetDesktopFolderCallbackC -> IO (FunPtr FileChooserWidgetDesktopFolderCallbackC)
fileChooserWidgetDesktopFolderClosure :: FileChooserWidgetDesktopFolderCallback -> IO Closure
fileChooserWidgetDesktopFolderClosure cb = newCClosure =<< mkFileChooserWidgetDesktopFolderCallback wrapped
where wrapped = fileChooserWidgetDesktopFolderCallbackWrapper cb
fileChooserWidgetDesktopFolderCallbackWrapper ::
FileChooserWidgetDesktopFolderCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetDesktopFolderCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId
onFileChooserWidgetDesktopFolder obj cb = liftIO $ connectFileChooserWidgetDesktopFolder obj cb SignalConnectBefore
afterFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId
afterFileChooserWidgetDesktopFolder obj cb = connectFileChooserWidgetDesktopFolder obj cb SignalConnectAfter
connectFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetDesktopFolderCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetDesktopFolder obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetDesktopFolderCallback (fileChooserWidgetDesktopFolderCallbackWrapper cb)
connectSignalFunPtr obj "desktop-folder" cb' after
-- signal FileChooserWidget::down-folder
type FileChooserWidgetDownFolderCallback =
IO ()
noFileChooserWidgetDownFolderCallback :: Maybe FileChooserWidgetDownFolderCallback
noFileChooserWidgetDownFolderCallback = Nothing
type FileChooserWidgetDownFolderCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetDownFolderCallback :: FileChooserWidgetDownFolderCallbackC -> IO (FunPtr FileChooserWidgetDownFolderCallbackC)
fileChooserWidgetDownFolderClosure :: FileChooserWidgetDownFolderCallback -> IO Closure
fileChooserWidgetDownFolderClosure cb = newCClosure =<< mkFileChooserWidgetDownFolderCallback wrapped
where wrapped = fileChooserWidgetDownFolderCallbackWrapper cb
fileChooserWidgetDownFolderCallbackWrapper ::
FileChooserWidgetDownFolderCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetDownFolderCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetDownFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId
onFileChooserWidgetDownFolder obj cb = liftIO $ connectFileChooserWidgetDownFolder obj cb SignalConnectBefore
afterFileChooserWidgetDownFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId
afterFileChooserWidgetDownFolder obj cb = connectFileChooserWidgetDownFolder obj cb SignalConnectAfter
connectFileChooserWidgetDownFolder :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetDownFolderCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetDownFolder obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetDownFolderCallback (fileChooserWidgetDownFolderCallbackWrapper cb)
connectSignalFunPtr obj "down-folder" cb' after
-- signal FileChooserWidget::home-folder
type FileChooserWidgetHomeFolderCallback =
IO ()
noFileChooserWidgetHomeFolderCallback :: Maybe FileChooserWidgetHomeFolderCallback
noFileChooserWidgetHomeFolderCallback = Nothing
type FileChooserWidgetHomeFolderCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetHomeFolderCallback :: FileChooserWidgetHomeFolderCallbackC -> IO (FunPtr FileChooserWidgetHomeFolderCallbackC)
fileChooserWidgetHomeFolderClosure :: FileChooserWidgetHomeFolderCallback -> IO Closure
fileChooserWidgetHomeFolderClosure cb = newCClosure =<< mkFileChooserWidgetHomeFolderCallback wrapped
where wrapped = fileChooserWidgetHomeFolderCallbackWrapper cb
fileChooserWidgetHomeFolderCallbackWrapper ::
FileChooserWidgetHomeFolderCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetHomeFolderCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId
onFileChooserWidgetHomeFolder obj cb = liftIO $ connectFileChooserWidgetHomeFolder obj cb SignalConnectBefore
afterFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId
afterFileChooserWidgetHomeFolder obj cb = connectFileChooserWidgetHomeFolder obj cb SignalConnectAfter
connectFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetHomeFolderCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetHomeFolder obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetHomeFolderCallback (fileChooserWidgetHomeFolderCallbackWrapper cb)
connectSignalFunPtr obj "home-folder" cb' after
-- signal FileChooserWidget::location-popup
type FileChooserWidgetLocationPopupCallback =
T.Text ->
IO ()
noFileChooserWidgetLocationPopupCallback :: Maybe FileChooserWidgetLocationPopupCallback
noFileChooserWidgetLocationPopupCallback = Nothing
type FileChooserWidgetLocationPopupCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetLocationPopupCallback :: FileChooserWidgetLocationPopupCallbackC -> IO (FunPtr FileChooserWidgetLocationPopupCallbackC)
fileChooserWidgetLocationPopupClosure :: FileChooserWidgetLocationPopupCallback -> IO Closure
fileChooserWidgetLocationPopupClosure cb = newCClosure =<< mkFileChooserWidgetLocationPopupCallback wrapped
where wrapped = fileChooserWidgetLocationPopupCallbackWrapper cb
fileChooserWidgetLocationPopupCallbackWrapper ::
FileChooserWidgetLocationPopupCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
fileChooserWidgetLocationPopupCallbackWrapper _cb _ path _ = do
path' <- cstringToText path
_cb path'
onFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId
onFileChooserWidgetLocationPopup obj cb = liftIO $ connectFileChooserWidgetLocationPopup obj cb SignalConnectBefore
afterFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId
afterFileChooserWidgetLocationPopup obj cb = connectFileChooserWidgetLocationPopup obj cb SignalConnectAfter
connectFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetLocationPopupCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetLocationPopup obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetLocationPopupCallback (fileChooserWidgetLocationPopupCallbackWrapper cb)
connectSignalFunPtr obj "location-popup" cb' after
-- signal FileChooserWidget::location-popup-on-paste
type FileChooserWidgetLocationPopupOnPasteCallback =
IO ()
noFileChooserWidgetLocationPopupOnPasteCallback :: Maybe FileChooserWidgetLocationPopupOnPasteCallback
noFileChooserWidgetLocationPopupOnPasteCallback = Nothing
type FileChooserWidgetLocationPopupOnPasteCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetLocationPopupOnPasteCallback :: FileChooserWidgetLocationPopupOnPasteCallbackC -> IO (FunPtr FileChooserWidgetLocationPopupOnPasteCallbackC)
fileChooserWidgetLocationPopupOnPasteClosure :: FileChooserWidgetLocationPopupOnPasteCallback -> IO Closure
fileChooserWidgetLocationPopupOnPasteClosure cb = newCClosure =<< mkFileChooserWidgetLocationPopupOnPasteCallback wrapped
where wrapped = fileChooserWidgetLocationPopupOnPasteCallbackWrapper cb
fileChooserWidgetLocationPopupOnPasteCallbackWrapper ::
FileChooserWidgetLocationPopupOnPasteCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetLocationPopupOnPasteCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId
onFileChooserWidgetLocationPopupOnPaste obj cb = liftIO $ connectFileChooserWidgetLocationPopupOnPaste obj cb SignalConnectBefore
afterFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId
afterFileChooserWidgetLocationPopupOnPaste obj cb = connectFileChooserWidgetLocationPopupOnPaste obj cb SignalConnectAfter
connectFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetLocationPopupOnPasteCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetLocationPopupOnPaste obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetLocationPopupOnPasteCallback (fileChooserWidgetLocationPopupOnPasteCallbackWrapper cb)
connectSignalFunPtr obj "location-popup-on-paste" cb' after
-- signal FileChooserWidget::location-toggle-popup
type FileChooserWidgetLocationTogglePopupCallback =
IO ()
noFileChooserWidgetLocationTogglePopupCallback :: Maybe FileChooserWidgetLocationTogglePopupCallback
noFileChooserWidgetLocationTogglePopupCallback = Nothing
type FileChooserWidgetLocationTogglePopupCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetLocationTogglePopupCallback :: FileChooserWidgetLocationTogglePopupCallbackC -> IO (FunPtr FileChooserWidgetLocationTogglePopupCallbackC)
fileChooserWidgetLocationTogglePopupClosure :: FileChooserWidgetLocationTogglePopupCallback -> IO Closure
fileChooserWidgetLocationTogglePopupClosure cb = newCClosure =<< mkFileChooserWidgetLocationTogglePopupCallback wrapped
where wrapped = fileChooserWidgetLocationTogglePopupCallbackWrapper cb
fileChooserWidgetLocationTogglePopupCallbackWrapper ::
FileChooserWidgetLocationTogglePopupCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetLocationTogglePopupCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId
onFileChooserWidgetLocationTogglePopup obj cb = liftIO $ connectFileChooserWidgetLocationTogglePopup obj cb SignalConnectBefore
afterFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId
afterFileChooserWidgetLocationTogglePopup obj cb = connectFileChooserWidgetLocationTogglePopup obj cb SignalConnectAfter
connectFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetLocationTogglePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetLocationTogglePopup obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetLocationTogglePopupCallback (fileChooserWidgetLocationTogglePopupCallbackWrapper cb)
connectSignalFunPtr obj "location-toggle-popup" cb' after
-- signal FileChooserWidget::places-shortcut
type FileChooserWidgetPlacesShortcutCallback =
IO ()
noFileChooserWidgetPlacesShortcutCallback :: Maybe FileChooserWidgetPlacesShortcutCallback
noFileChooserWidgetPlacesShortcutCallback = Nothing
type FileChooserWidgetPlacesShortcutCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetPlacesShortcutCallback :: FileChooserWidgetPlacesShortcutCallbackC -> IO (FunPtr FileChooserWidgetPlacesShortcutCallbackC)
fileChooserWidgetPlacesShortcutClosure :: FileChooserWidgetPlacesShortcutCallback -> IO Closure
fileChooserWidgetPlacesShortcutClosure cb = newCClosure =<< mkFileChooserWidgetPlacesShortcutCallback wrapped
where wrapped = fileChooserWidgetPlacesShortcutCallbackWrapper cb
fileChooserWidgetPlacesShortcutCallbackWrapper ::
FileChooserWidgetPlacesShortcutCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetPlacesShortcutCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId
onFileChooserWidgetPlacesShortcut obj cb = liftIO $ connectFileChooserWidgetPlacesShortcut obj cb SignalConnectBefore
afterFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetPlacesShortcut obj cb = connectFileChooserWidgetPlacesShortcut obj cb SignalConnectAfter
connectFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetPlacesShortcutCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetPlacesShortcut obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetPlacesShortcutCallback (fileChooserWidgetPlacesShortcutCallbackWrapper cb)
connectSignalFunPtr obj "places-shortcut" cb' after
-- signal FileChooserWidget::quick-bookmark
type FileChooserWidgetQuickBookmarkCallback =
Int32 ->
IO ()
noFileChooserWidgetQuickBookmarkCallback :: Maybe FileChooserWidgetQuickBookmarkCallback
noFileChooserWidgetQuickBookmarkCallback = Nothing
type FileChooserWidgetQuickBookmarkCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetQuickBookmarkCallback :: FileChooserWidgetQuickBookmarkCallbackC -> IO (FunPtr FileChooserWidgetQuickBookmarkCallbackC)
fileChooserWidgetQuickBookmarkClosure :: FileChooserWidgetQuickBookmarkCallback -> IO Closure
fileChooserWidgetQuickBookmarkClosure cb = newCClosure =<< mkFileChooserWidgetQuickBookmarkCallback wrapped
where wrapped = fileChooserWidgetQuickBookmarkCallbackWrapper cb
fileChooserWidgetQuickBookmarkCallbackWrapper ::
FileChooserWidgetQuickBookmarkCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
fileChooserWidgetQuickBookmarkCallbackWrapper _cb _ bookmark_index _ = do
_cb bookmark_index
onFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
onFileChooserWidgetQuickBookmark obj cb = liftIO $ connectFileChooserWidgetQuickBookmark obj cb SignalConnectBefore
afterFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId
afterFileChooserWidgetQuickBookmark obj cb = connectFileChooserWidgetQuickBookmark obj cb SignalConnectAfter
connectFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetQuickBookmarkCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetQuickBookmark obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetQuickBookmarkCallback (fileChooserWidgetQuickBookmarkCallbackWrapper cb)
connectSignalFunPtr obj "quick-bookmark" cb' after
-- signal FileChooserWidget::recent-shortcut
type FileChooserWidgetRecentShortcutCallback =
IO ()
noFileChooserWidgetRecentShortcutCallback :: Maybe FileChooserWidgetRecentShortcutCallback
noFileChooserWidgetRecentShortcutCallback = Nothing
type FileChooserWidgetRecentShortcutCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetRecentShortcutCallback :: FileChooserWidgetRecentShortcutCallbackC -> IO (FunPtr FileChooserWidgetRecentShortcutCallbackC)
fileChooserWidgetRecentShortcutClosure :: FileChooserWidgetRecentShortcutCallback -> IO Closure
fileChooserWidgetRecentShortcutClosure cb = newCClosure =<< mkFileChooserWidgetRecentShortcutCallback wrapped
where wrapped = fileChooserWidgetRecentShortcutCallbackWrapper cb
fileChooserWidgetRecentShortcutCallbackWrapper ::
FileChooserWidgetRecentShortcutCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetRecentShortcutCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId
onFileChooserWidgetRecentShortcut obj cb = liftIO $ connectFileChooserWidgetRecentShortcut obj cb SignalConnectBefore
afterFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetRecentShortcut obj cb = connectFileChooserWidgetRecentShortcut obj cb SignalConnectAfter
connectFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetRecentShortcutCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetRecentShortcut obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetRecentShortcutCallback (fileChooserWidgetRecentShortcutCallbackWrapper cb)
connectSignalFunPtr obj "recent-shortcut" cb' after
-- signal FileChooserWidget::search-shortcut
type FileChooserWidgetSearchShortcutCallback =
IO ()
noFileChooserWidgetSearchShortcutCallback :: Maybe FileChooserWidgetSearchShortcutCallback
noFileChooserWidgetSearchShortcutCallback = Nothing
type FileChooserWidgetSearchShortcutCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetSearchShortcutCallback :: FileChooserWidgetSearchShortcutCallbackC -> IO (FunPtr FileChooserWidgetSearchShortcutCallbackC)
fileChooserWidgetSearchShortcutClosure :: FileChooserWidgetSearchShortcutCallback -> IO Closure
fileChooserWidgetSearchShortcutClosure cb = newCClosure =<< mkFileChooserWidgetSearchShortcutCallback wrapped
where wrapped = fileChooserWidgetSearchShortcutCallbackWrapper cb
fileChooserWidgetSearchShortcutCallbackWrapper ::
FileChooserWidgetSearchShortcutCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetSearchShortcutCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId
onFileChooserWidgetSearchShortcut obj cb = liftIO $ connectFileChooserWidgetSearchShortcut obj cb SignalConnectBefore
afterFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId
afterFileChooserWidgetSearchShortcut obj cb = connectFileChooserWidgetSearchShortcut obj cb SignalConnectAfter
connectFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetSearchShortcutCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetSearchShortcut obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetSearchShortcutCallback (fileChooserWidgetSearchShortcutCallbackWrapper cb)
connectSignalFunPtr obj "search-shortcut" cb' after
-- signal FileChooserWidget::show-hidden
type FileChooserWidgetShowHiddenCallback =
IO ()
noFileChooserWidgetShowHiddenCallback :: Maybe FileChooserWidgetShowHiddenCallback
noFileChooserWidgetShowHiddenCallback = Nothing
type FileChooserWidgetShowHiddenCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetShowHiddenCallback :: FileChooserWidgetShowHiddenCallbackC -> IO (FunPtr FileChooserWidgetShowHiddenCallbackC)
fileChooserWidgetShowHiddenClosure :: FileChooserWidgetShowHiddenCallback -> IO Closure
fileChooserWidgetShowHiddenClosure cb = newCClosure =<< mkFileChooserWidgetShowHiddenCallback wrapped
where wrapped = fileChooserWidgetShowHiddenCallbackWrapper cb
fileChooserWidgetShowHiddenCallbackWrapper ::
FileChooserWidgetShowHiddenCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetShowHiddenCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetShowHidden :: (GObject a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId
onFileChooserWidgetShowHidden obj cb = liftIO $ connectFileChooserWidgetShowHidden obj cb SignalConnectBefore
afterFileChooserWidgetShowHidden :: (GObject a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId
afterFileChooserWidgetShowHidden obj cb = connectFileChooserWidgetShowHidden obj cb SignalConnectAfter
connectFileChooserWidgetShowHidden :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetShowHiddenCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetShowHidden obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetShowHiddenCallback (fileChooserWidgetShowHiddenCallbackWrapper cb)
connectSignalFunPtr obj "show-hidden" cb' after
-- signal FileChooserWidget::up-folder
type FileChooserWidgetUpFolderCallback =
IO ()
noFileChooserWidgetUpFolderCallback :: Maybe FileChooserWidgetUpFolderCallback
noFileChooserWidgetUpFolderCallback = Nothing
type FileChooserWidgetUpFolderCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFileChooserWidgetUpFolderCallback :: FileChooserWidgetUpFolderCallbackC -> IO (FunPtr FileChooserWidgetUpFolderCallbackC)
fileChooserWidgetUpFolderClosure :: FileChooserWidgetUpFolderCallback -> IO Closure
fileChooserWidgetUpFolderClosure cb = newCClosure =<< mkFileChooserWidgetUpFolderCallback wrapped
where wrapped = fileChooserWidgetUpFolderCallbackWrapper cb
fileChooserWidgetUpFolderCallbackWrapper ::
FileChooserWidgetUpFolderCallback ->
Ptr () ->
Ptr () ->
IO ()
fileChooserWidgetUpFolderCallbackWrapper _cb _ _ = do
_cb
onFileChooserWidgetUpFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId
onFileChooserWidgetUpFolder obj cb = liftIO $ connectFileChooserWidgetUpFolder obj cb SignalConnectBefore
afterFileChooserWidgetUpFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId
afterFileChooserWidgetUpFolder obj cb = connectFileChooserWidgetUpFolder obj cb SignalConnectAfter
connectFileChooserWidgetUpFolder :: (GObject a, MonadIO m) =>
a -> FileChooserWidgetUpFolderCallback -> SignalConnectMode -> m SignalHandlerId
connectFileChooserWidgetUpFolder obj cb after = liftIO $ do
cb' <- mkFileChooserWidgetUpFolderCallback (fileChooserWidgetUpFolderCallbackWrapper cb)
connectSignalFunPtr obj "up-folder" cb' after
-- object FileFilter
newtype FileFilter = FileFilter (ForeignPtr FileFilter)
noFileFilter :: Maybe FileFilter
noFileFilter = Nothing
foreign import ccall "gtk_file_filter_get_type"
c_gtk_file_filter_get_type :: IO GType
type instance ParentTypes FileFilter = '[GObject.Object, Buildable]
instance GObject FileFilter where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_file_filter_get_type
class GObject o => FileFilterK o
instance (GObject o, IsDescendantOf FileFilter o) => FileFilterK o
toFileFilter :: FileFilterK o => o -> IO FileFilter
toFileFilter = unsafeCastTo FileFilter
-- method FileFilter::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FileFilter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_new" gtk_file_filter_new ::
IO (Ptr FileFilter)
fileFilterNew ::
(MonadIO m) =>
m FileFilter
fileFilterNew = liftIO $ do
result <- gtk_file_filter_new
checkUnexpectedReturnNULL "gtk_file_filter_new" result
result' <- (newObject FileFilter) result
return result'
-- method FileFilter::add_custom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_add_custom" gtk_file_filter_add_custom ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
CUInt -> -- needed : TInterface "Gtk" "FileFilterFlags"
FunPtr FileFilterFuncC -> -- func : TInterface "Gtk" "FileFilterFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO ()
fileFilterAddCustom ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
[FileFilterFlags] -> -- needed
FileFilterFunc -> -- func
m ()
fileFilterAddCustom _obj needed func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let needed' = gflagsToWord needed
func' <- mkFileFilterFunc (fileFilterFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let notify = safeFreeFunPtrPtr
gtk_file_filter_add_custom _obj' needed' func' data_ notify
touchManagedPtr _obj
return ()
-- method FileFilter::add_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_add_mime_type" gtk_file_filter_add_mime_type ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
CString -> -- mime_type : TBasicType TUTF8
IO ()
fileFilterAddMimeType ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
T.Text -> -- mime_type
m ()
fileFilterAddMimeType _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
gtk_file_filter_add_mime_type _obj' mime_type'
touchManagedPtr _obj
freeMem mime_type'
return ()
-- method FileFilter::add_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_add_pattern" gtk_file_filter_add_pattern ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
CString -> -- pattern : TBasicType TUTF8
IO ()
fileFilterAddPattern ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
T.Text -> -- pattern
m ()
fileFilterAddPattern _obj pattern = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pattern' <- textToCString pattern
gtk_file_filter_add_pattern _obj' pattern'
touchManagedPtr _obj
freeMem pattern'
return ()
-- method FileFilter::add_pixbuf_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_add_pixbuf_formats" gtk_file_filter_add_pixbuf_formats ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
IO ()
fileFilterAddPixbufFormats ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
m ()
fileFilterAddPixbufFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_file_filter_add_pixbuf_formats _obj'
touchManagedPtr _obj
return ()
-- method FileFilter::filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_filter" gtk_file_filter_filter ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
Ptr FileFilterInfo -> -- filter_info : TInterface "Gtk" "FileFilterInfo"
IO CInt
fileFilterFilter ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
FileFilterInfo -> -- filter_info
m Bool
fileFilterFilter _obj filter_info = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter_info' = unsafeManagedPtrGetPtr filter_info
result <- gtk_file_filter_filter _obj' filter_info'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr filter_info
return result'
-- method FileFilter::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_get_name" gtk_file_filter_get_name ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
IO CString
fileFilterGetName ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
m T.Text
fileFilterGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_filter_get_name _obj'
checkUnexpectedReturnNULL "gtk_file_filter_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileFilter::get_needed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileFilterFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_get_needed" gtk_file_filter_get_needed ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
IO CUInt
fileFilterGetNeeded ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
m [FileFilterFlags]
fileFilterGetNeeded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_file_filter_get_needed _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method FileFilter::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_filter_set_name" gtk_file_filter_set_name ::
Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter"
CString -> -- name : TBasicType TUTF8
IO ()
fileFilterSetName ::
(MonadIO m, FileFilterK a) =>
a -> -- _obj
Maybe (T.Text) -> -- name
m ()
fileFilterSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
gtk_file_filter_set_name _obj' maybeName
touchManagedPtr _obj
freeMem maybeName
return ()
-- Flags FileFilterFlags
data FileFilterFlags =
FileFilterFlagsFilename
| FileFilterFlagsUri
| FileFilterFlagsDisplayName
| FileFilterFlagsMimeType
| AnotherFileFilterFlags Int
deriving (Show, Eq)
instance Enum FileFilterFlags where
fromEnum FileFilterFlagsFilename = 1
fromEnum FileFilterFlagsUri = 2
fromEnum FileFilterFlagsDisplayName = 4
fromEnum FileFilterFlagsMimeType = 8
fromEnum (AnotherFileFilterFlags k) = k
toEnum 1 = FileFilterFlagsFilename
toEnum 2 = FileFilterFlagsUri
toEnum 4 = FileFilterFlagsDisplayName
toEnum 8 = FileFilterFlagsMimeType
toEnum k = AnotherFileFilterFlags k
foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type ::
IO GType
instance BoxedEnum FileFilterFlags where
boxedEnumType _ = c_gtk_file_filter_flags_get_type
instance IsGFlag FileFilterFlags
-- callback FileFilterFunc
fileFilterFuncClosure :: FileFilterFunc -> IO Closure
fileFilterFuncClosure cb = newCClosure =<< mkFileFilterFunc wrapped
where wrapped = fileFilterFuncWrapper Nothing cb
type FileFilterFuncC =
Ptr FileFilterInfo ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkFileFilterFunc :: FileFilterFuncC -> IO (FunPtr FileFilterFuncC)
type FileFilterFunc =
FileFilterInfo ->
IO Bool
noFileFilterFunc :: Maybe FileFilterFunc
noFileFilterFunc = Nothing
fileFilterFuncWrapper ::
Maybe (Ptr (FunPtr (FileFilterFuncC))) ->
FileFilterFunc ->
Ptr FileFilterInfo ->
Ptr () ->
IO CInt
fileFilterFuncWrapper funptrptr _cb filter_info _ = do
filter_info' <- (newPtr 40 FileFilterInfo) filter_info
result <- _cb filter_info'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- struct FileFilterInfo
newtype FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo)
noFileFilterInfo :: Maybe FileFilterInfo
noFileFilterInfo = Nothing
fileFilterInfoReadContains :: FileFilterInfo -> IO [FileFilterFlags]
fileFilterInfoReadContains s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = wordToGFlags val
return val'
fileFilterInfoReadFilename :: FileFilterInfo -> IO T.Text
fileFilterInfoReadFilename s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
fileFilterInfoReadUri :: FileFilterInfo -> IO T.Text
fileFilterInfoReadUri s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
fileFilterInfoReadDisplayName :: FileFilterInfo -> IO T.Text
fileFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
fileFilterInfoReadMimeType :: FileFilterInfo -> IO T.Text
fileFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
-- object Fixed
newtype Fixed = Fixed (ForeignPtr Fixed)
noFixed :: Maybe Fixed
noFixed = Nothing
foreign import ccall "gtk_fixed_get_type"
c_gtk_fixed_get_type :: IO GType
type instance ParentTypes Fixed = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Fixed where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_fixed_get_type
class GObject o => FixedK o
instance (GObject o, IsDescendantOf Fixed o) => FixedK o
toFixed :: FixedK o => o -> IO Fixed
toFixed = unsafeCastTo Fixed
-- method Fixed::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Fixed"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_fixed_new" gtk_fixed_new ::
IO (Ptr Fixed)
fixedNew ::
(MonadIO m) =>
m Fixed
fixedNew = liftIO $ do
result <- gtk_fixed_new
checkUnexpectedReturnNULL "gtk_fixed_new" result
result' <- (newObject Fixed) result
return result'
-- method Fixed::move
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_fixed_move" gtk_fixed_move ::
Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
fixedMove ::
(MonadIO m, FixedK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Int32 -> -- x
Int32 -> -- y
m ()
fixedMove _obj widget x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_fixed_move _obj' widget' x y
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Fixed::put
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_fixed_put" gtk_fixed_put ::
Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
fixedPut ::
(MonadIO m, FixedK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Int32 -> -- x
Int32 -> -- y
m ()
fixedPut _obj widget x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_fixed_put _obj' widget' x y
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- struct FixedChild
newtype FixedChild = FixedChild (ForeignPtr FixedChild)
noFixedChild :: Maybe FixedChild
noFixedChild = Nothing
fixedChildReadWidget :: FixedChild -> IO Widget
fixedChildReadWidget s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget)
val' <- (newObject Widget) val
return val'
fixedChildReadX :: FixedChild -> IO Int32
fixedChildReadX s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
fixedChildReadY :: FixedChild -> IO Int32
fixedChildReadY s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
-- object FlowBox
newtype FlowBox = FlowBox (ForeignPtr FlowBox)
noFlowBox :: Maybe FlowBox
noFlowBox = Nothing
foreign import ccall "gtk_flow_box_get_type"
c_gtk_flow_box_get_type :: IO GType
type instance ParentTypes FlowBox = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject FlowBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_flow_box_get_type
class GObject o => FlowBoxK o
instance (GObject o, IsDescendantOf FlowBox o) => FlowBoxK o
toFlowBox :: FlowBoxK o => o -> IO FlowBox
toFlowBox = unsafeCastTo FlowBox
-- method FlowBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FlowBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_new" gtk_flow_box_new ::
IO (Ptr FlowBox)
flowBoxNew ::
(MonadIO m) =>
m FlowBox
flowBoxNew = liftIO $ do
result <- gtk_flow_box_new
checkUnexpectedReturnNULL "gtk_flow_box_new" result
result' <- (newObject FlowBox) result
return result'
-- method FlowBox::get_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_activate_on_single_click" gtk_flow_box_get_activate_on_single_click ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO CInt
flowBoxGetActivateOnSingleClick ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Bool
flowBoxGetActivateOnSingleClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_activate_on_single_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FlowBox::get_child_at_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FlowBoxChild"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_child_at_index" gtk_flow_box_get_child_at_index ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Int32 -> -- idx : TBasicType TInt32
IO (Ptr FlowBoxChild)
flowBoxGetChildAtIndex ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Int32 -> -- idx
m FlowBoxChild
flowBoxGetChildAtIndex _obj idx = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_child_at_index _obj' idx
checkUnexpectedReturnNULL "gtk_flow_box_get_child_at_index" result
result' <- (newObject FlowBoxChild) result
touchManagedPtr _obj
return result'
-- method FlowBox::get_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_column_spacing" gtk_flow_box_get_column_spacing ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO Word32
flowBoxGetColumnSpacing ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Word32
flowBoxGetColumnSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_column_spacing _obj'
touchManagedPtr _obj
return result
-- method FlowBox::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_homogeneous" gtk_flow_box_get_homogeneous ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO CInt
flowBoxGetHomogeneous ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Bool
flowBoxGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FlowBox::get_max_children_per_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_max_children_per_line" gtk_flow_box_get_max_children_per_line ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO Word32
flowBoxGetMaxChildrenPerLine ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Word32
flowBoxGetMaxChildrenPerLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_max_children_per_line _obj'
touchManagedPtr _obj
return result
-- method FlowBox::get_min_children_per_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_min_children_per_line" gtk_flow_box_get_min_children_per_line ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO Word32
flowBoxGetMinChildrenPerLine ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Word32
flowBoxGetMinChildrenPerLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_min_children_per_line _obj'
touchManagedPtr _obj
return result
-- method FlowBox::get_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_row_spacing" gtk_flow_box_get_row_spacing ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO Word32
flowBoxGetRowSpacing ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m Word32
flowBoxGetRowSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_row_spacing _obj'
touchManagedPtr _obj
return result
-- method FlowBox::get_selected_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "FlowBoxChild")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_selected_children" gtk_flow_box_get_selected_children ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO (Ptr (GList (Ptr FlowBoxChild)))
flowBoxGetSelectedChildren ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m [FlowBoxChild]
flowBoxGetSelectedChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_selected_children _obj'
checkUnexpectedReturnNULL "gtk_flow_box_get_selected_children" result
result' <- unpackGList result
result'' <- mapM (newObject FlowBoxChild) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method FlowBox::get_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_get_selection_mode" gtk_flow_box_get_selection_mode ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO CUInt
flowBoxGetSelectionMode ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m SelectionMode
flowBoxGetSelectionMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_get_selection_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method FlowBox::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_insert" gtk_flow_box_insert ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
flowBoxInsert ::
(MonadIO m, FlowBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Int32 -> -- position
m ()
flowBoxInsert _obj widget position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_flow_box_insert _obj' widget' position
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method FlowBox::invalidate_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_invalidate_filter" gtk_flow_box_invalidate_filter ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO ()
flowBoxInvalidateFilter ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m ()
flowBoxInvalidateFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_invalidate_filter _obj'
touchManagedPtr _obj
return ()
-- method FlowBox::invalidate_sort
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_invalidate_sort" gtk_flow_box_invalidate_sort ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO ()
flowBoxInvalidateSort ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m ()
flowBoxInvalidateSort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_invalidate_sort _obj'
touchManagedPtr _obj
return ()
-- method FlowBox::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_select_all" gtk_flow_box_select_all ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO ()
flowBoxSelectAll ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m ()
flowBoxSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_select_all _obj'
touchManagedPtr _obj
return ()
-- method FlowBox::select_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_select_child" gtk_flow_box_select_child ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Ptr FlowBoxChild -> -- child : TInterface "Gtk" "FlowBoxChild"
IO ()
flowBoxSelectChild ::
(MonadIO m, FlowBoxK a, FlowBoxChildK b) =>
a -> -- _obj
b -> -- child
m ()
flowBoxSelectChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_flow_box_select_child _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method FlowBox::selected_foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_selected_foreach" gtk_flow_box_selected_foreach ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
FunPtr FlowBoxForeachFuncC -> -- func : TInterface "Gtk" "FlowBoxForeachFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
flowBoxSelectedForeach ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
FlowBoxForeachFunc -> -- func
m ()
flowBoxSelectedForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkFlowBoxForeachFunc (flowBoxForeachFuncWrapper Nothing func)
let data_ = nullPtr
gtk_flow_box_selected_foreach _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method FlowBox::set_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_activate_on_single_click" gtk_flow_box_set_activate_on_single_click ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
CInt -> -- single : TBasicType TBoolean
IO ()
flowBoxSetActivateOnSingleClick ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Bool -> -- single
m ()
flowBoxSetActivateOnSingleClick _obj single = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single' = (fromIntegral . fromEnum) single
gtk_flow_box_set_activate_on_single_click _obj' single'
touchManagedPtr _obj
return ()
-- method FlowBox::set_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_column_spacing" gtk_flow_box_set_column_spacing ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
flowBoxSetColumnSpacing ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
flowBoxSetColumnSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_set_column_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method FlowBox::set_filter_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_filter_func" gtk_flow_box_set_filter_func ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
FunPtr FlowBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "FlowBoxFilterFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
flowBoxSetFilterFunc ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Maybe (FlowBoxFilterFunc) -> -- filter_func
m ()
flowBoxSetFilterFunc _obj filter_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilter_func <- case filter_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFilter_func -> do
jFilter_func' <- mkFlowBoxFilterFunc (flowBoxFilterFuncWrapper Nothing jFilter_func)
return jFilter_func'
let user_data = castFunPtrToPtr maybeFilter_func
let destroy = safeFreeFunPtrPtr
gtk_flow_box_set_filter_func _obj' maybeFilter_func user_data destroy
touchManagedPtr _obj
return ()
-- method FlowBox::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_hadjustment" gtk_flow_box_set_hadjustment ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
flowBoxSetHadjustment ::
(MonadIO m, FlowBoxK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
flowBoxSetHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_flow_box_set_hadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method FlowBox::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_homogeneous" gtk_flow_box_set_homogeneous ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
flowBoxSetHomogeneous ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
flowBoxSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_flow_box_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method FlowBox::set_max_children_per_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_max_children_per_line" gtk_flow_box_set_max_children_per_line ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Word32 -> -- n_children : TBasicType TUInt32
IO ()
flowBoxSetMaxChildrenPerLine ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Word32 -> -- n_children
m ()
flowBoxSetMaxChildrenPerLine _obj n_children = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_set_max_children_per_line _obj' n_children
touchManagedPtr _obj
return ()
-- method FlowBox::set_min_children_per_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_min_children_per_line" gtk_flow_box_set_min_children_per_line ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Word32 -> -- n_children : TBasicType TUInt32
IO ()
flowBoxSetMinChildrenPerLine ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Word32 -> -- n_children
m ()
flowBoxSetMinChildrenPerLine _obj n_children = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_set_min_children_per_line _obj' n_children
touchManagedPtr _obj
return ()
-- method FlowBox::set_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_row_spacing" gtk_flow_box_set_row_spacing ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
flowBoxSetRowSpacing ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
flowBoxSetRowSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_set_row_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method FlowBox::set_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_selection_mode" gtk_flow_box_set_selection_mode ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
CUInt -> -- mode : TInterface "Gtk" "SelectionMode"
IO ()
flowBoxSetSelectionMode ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
SelectionMode -> -- mode
m ()
flowBoxSetSelectionMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_flow_box_set_selection_mode _obj' mode'
touchManagedPtr _obj
return ()
-- method FlowBox::set_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_sort_func" gtk_flow_box_set_sort_func ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
FunPtr FlowBoxSortFuncC -> -- sort_func : TInterface "Gtk" "FlowBoxSortFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
flowBoxSetSortFunc ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
Maybe (FlowBoxSortFunc) -> -- sort_func
m ()
flowBoxSetSortFunc _obj sort_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSort_func <- case sort_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jSort_func -> do
jSort_func' <- mkFlowBoxSortFunc (flowBoxSortFuncWrapper Nothing jSort_func)
return jSort_func'
let user_data = castFunPtrToPtr maybeSort_func
let destroy = safeFreeFunPtrPtr
gtk_flow_box_set_sort_func _obj' maybeSort_func user_data destroy
touchManagedPtr _obj
return ()
-- method FlowBox::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_set_vadjustment" gtk_flow_box_set_vadjustment ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
flowBoxSetVadjustment ::
(MonadIO m, FlowBoxK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
flowBoxSetVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_flow_box_set_vadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method FlowBox::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_unselect_all" gtk_flow_box_unselect_all ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
IO ()
flowBoxUnselectAll ::
(MonadIO m, FlowBoxK a) =>
a -> -- _obj
m ()
flowBoxUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method FlowBox::unselect_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_unselect_child" gtk_flow_box_unselect_child ::
Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox"
Ptr FlowBoxChild -> -- child : TInterface "Gtk" "FlowBoxChild"
IO ()
flowBoxUnselectChild ::
(MonadIO m, FlowBoxK a, FlowBoxChildK b) =>
a -> -- _obj
b -> -- child
m ()
flowBoxUnselectChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_flow_box_unselect_child _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- signal FlowBox::activate-cursor-child
type FlowBoxActivateCursorChildCallback =
IO ()
noFlowBoxActivateCursorChildCallback :: Maybe FlowBoxActivateCursorChildCallback
noFlowBoxActivateCursorChildCallback = Nothing
type FlowBoxActivateCursorChildCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxActivateCursorChildCallback :: FlowBoxActivateCursorChildCallbackC -> IO (FunPtr FlowBoxActivateCursorChildCallbackC)
flowBoxActivateCursorChildClosure :: FlowBoxActivateCursorChildCallback -> IO Closure
flowBoxActivateCursorChildClosure cb = newCClosure =<< mkFlowBoxActivateCursorChildCallback wrapped
where wrapped = flowBoxActivateCursorChildCallbackWrapper cb
flowBoxActivateCursorChildCallbackWrapper ::
FlowBoxActivateCursorChildCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxActivateCursorChildCallbackWrapper _cb _ _ = do
_cb
onFlowBoxActivateCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId
onFlowBoxActivateCursorChild obj cb = liftIO $ connectFlowBoxActivateCursorChild obj cb SignalConnectBefore
afterFlowBoxActivateCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId
afterFlowBoxActivateCursorChild obj cb = connectFlowBoxActivateCursorChild obj cb SignalConnectAfter
connectFlowBoxActivateCursorChild :: (GObject a, MonadIO m) =>
a -> FlowBoxActivateCursorChildCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxActivateCursorChild obj cb after = liftIO $ do
cb' <- mkFlowBoxActivateCursorChildCallback (flowBoxActivateCursorChildCallbackWrapper cb)
connectSignalFunPtr obj "activate-cursor-child" cb' after
-- signal FlowBox::child-activated
type FlowBoxChildActivatedCallback =
FlowBoxChild ->
IO ()
noFlowBoxChildActivatedCallback :: Maybe FlowBoxChildActivatedCallback
noFlowBoxChildActivatedCallback = Nothing
type FlowBoxChildActivatedCallbackC =
Ptr () -> -- object
Ptr FlowBoxChild ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxChildActivatedCallback :: FlowBoxChildActivatedCallbackC -> IO (FunPtr FlowBoxChildActivatedCallbackC)
flowBoxChildActivatedClosure :: FlowBoxChildActivatedCallback -> IO Closure
flowBoxChildActivatedClosure cb = newCClosure =<< mkFlowBoxChildActivatedCallback wrapped
where wrapped = flowBoxChildActivatedCallbackWrapper cb
flowBoxChildActivatedCallbackWrapper ::
FlowBoxChildActivatedCallback ->
Ptr () ->
Ptr FlowBoxChild ->
Ptr () ->
IO ()
flowBoxChildActivatedCallbackWrapper _cb _ child _ = do
child' <- (newObject FlowBoxChild) child
_cb child'
onFlowBoxChildActivated :: (GObject a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
onFlowBoxChildActivated obj cb = liftIO $ connectFlowBoxChildActivated obj cb SignalConnectBefore
afterFlowBoxChildActivated :: (GObject a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
afterFlowBoxChildActivated obj cb = connectFlowBoxChildActivated obj cb SignalConnectAfter
connectFlowBoxChildActivated :: (GObject a, MonadIO m) =>
a -> FlowBoxChildActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxChildActivated obj cb after = liftIO $ do
cb' <- mkFlowBoxChildActivatedCallback (flowBoxChildActivatedCallbackWrapper cb)
connectSignalFunPtr obj "child-activated" cb' after
-- signal FlowBox::move-cursor
type FlowBoxMoveCursorCallback =
MovementStep ->
Int32 ->
IO Bool
noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback
noFlowBoxMoveCursorCallback = Nothing
type FlowBoxMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkFlowBoxMoveCursorCallback :: FlowBoxMoveCursorCallbackC -> IO (FunPtr FlowBoxMoveCursorCallbackC)
flowBoxMoveCursorClosure :: FlowBoxMoveCursorCallback -> IO Closure
flowBoxMoveCursorClosure cb = newCClosure =<< mkFlowBoxMoveCursorCallback wrapped
where wrapped = flowBoxMoveCursorCallbackWrapper cb
flowBoxMoveCursorCallbackWrapper ::
FlowBoxMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
flowBoxMoveCursorCallbackWrapper _cb _ step count _ = do
let step' = (toEnum . fromIntegral) step
result <- _cb step' count
let result' = (fromIntegral . fromEnum) result
return result'
onFlowBoxMoveCursor :: (GObject a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
onFlowBoxMoveCursor obj cb = liftIO $ connectFlowBoxMoveCursor obj cb SignalConnectBefore
afterFlowBoxMoveCursor :: (GObject a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
afterFlowBoxMoveCursor obj cb = connectFlowBoxMoveCursor obj cb SignalConnectAfter
connectFlowBoxMoveCursor :: (GObject a, MonadIO m) =>
a -> FlowBoxMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxMoveCursor obj cb after = liftIO $ do
cb' <- mkFlowBoxMoveCursorCallback (flowBoxMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal FlowBox::select-all
type FlowBoxSelectAllCallback =
IO ()
noFlowBoxSelectAllCallback :: Maybe FlowBoxSelectAllCallback
noFlowBoxSelectAllCallback = Nothing
type FlowBoxSelectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxSelectAllCallback :: FlowBoxSelectAllCallbackC -> IO (FunPtr FlowBoxSelectAllCallbackC)
flowBoxSelectAllClosure :: FlowBoxSelectAllCallback -> IO Closure
flowBoxSelectAllClosure cb = newCClosure =<< mkFlowBoxSelectAllCallback wrapped
where wrapped = flowBoxSelectAllCallbackWrapper cb
flowBoxSelectAllCallbackWrapper ::
FlowBoxSelectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxSelectAllCallbackWrapper _cb _ _ = do
_cb
onFlowBoxSelectAll :: (GObject a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId
onFlowBoxSelectAll obj cb = liftIO $ connectFlowBoxSelectAll obj cb SignalConnectBefore
afterFlowBoxSelectAll :: (GObject a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId
afterFlowBoxSelectAll obj cb = connectFlowBoxSelectAll obj cb SignalConnectAfter
connectFlowBoxSelectAll :: (GObject a, MonadIO m) =>
a -> FlowBoxSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxSelectAll obj cb after = liftIO $ do
cb' <- mkFlowBoxSelectAllCallback (flowBoxSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal FlowBox::selected-children-changed
type FlowBoxSelectedChildrenChangedCallback =
IO ()
noFlowBoxSelectedChildrenChangedCallback :: Maybe FlowBoxSelectedChildrenChangedCallback
noFlowBoxSelectedChildrenChangedCallback = Nothing
type FlowBoxSelectedChildrenChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxSelectedChildrenChangedCallback :: FlowBoxSelectedChildrenChangedCallbackC -> IO (FunPtr FlowBoxSelectedChildrenChangedCallbackC)
flowBoxSelectedChildrenChangedClosure :: FlowBoxSelectedChildrenChangedCallback -> IO Closure
flowBoxSelectedChildrenChangedClosure cb = newCClosure =<< mkFlowBoxSelectedChildrenChangedCallback wrapped
where wrapped = flowBoxSelectedChildrenChangedCallbackWrapper cb
flowBoxSelectedChildrenChangedCallbackWrapper ::
FlowBoxSelectedChildrenChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxSelectedChildrenChangedCallbackWrapper _cb _ _ = do
_cb
onFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId
onFlowBoxSelectedChildrenChanged obj cb = liftIO $ connectFlowBoxSelectedChildrenChanged obj cb SignalConnectBefore
afterFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId
afterFlowBoxSelectedChildrenChanged obj cb = connectFlowBoxSelectedChildrenChanged obj cb SignalConnectAfter
connectFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) =>
a -> FlowBoxSelectedChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxSelectedChildrenChanged obj cb after = liftIO $ do
cb' <- mkFlowBoxSelectedChildrenChangedCallback (flowBoxSelectedChildrenChangedCallbackWrapper cb)
connectSignalFunPtr obj "selected-children-changed" cb' after
-- signal FlowBox::toggle-cursor-child
type FlowBoxToggleCursorChildCallback =
IO ()
noFlowBoxToggleCursorChildCallback :: Maybe FlowBoxToggleCursorChildCallback
noFlowBoxToggleCursorChildCallback = Nothing
type FlowBoxToggleCursorChildCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxToggleCursorChildCallback :: FlowBoxToggleCursorChildCallbackC -> IO (FunPtr FlowBoxToggleCursorChildCallbackC)
flowBoxToggleCursorChildClosure :: FlowBoxToggleCursorChildCallback -> IO Closure
flowBoxToggleCursorChildClosure cb = newCClosure =<< mkFlowBoxToggleCursorChildCallback wrapped
where wrapped = flowBoxToggleCursorChildCallbackWrapper cb
flowBoxToggleCursorChildCallbackWrapper ::
FlowBoxToggleCursorChildCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxToggleCursorChildCallbackWrapper _cb _ _ = do
_cb
onFlowBoxToggleCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId
onFlowBoxToggleCursorChild obj cb = liftIO $ connectFlowBoxToggleCursorChild obj cb SignalConnectBefore
afterFlowBoxToggleCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId
afterFlowBoxToggleCursorChild obj cb = connectFlowBoxToggleCursorChild obj cb SignalConnectAfter
connectFlowBoxToggleCursorChild :: (GObject a, MonadIO m) =>
a -> FlowBoxToggleCursorChildCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxToggleCursorChild obj cb after = liftIO $ do
cb' <- mkFlowBoxToggleCursorChildCallback (flowBoxToggleCursorChildCallbackWrapper cb)
connectSignalFunPtr obj "toggle-cursor-child" cb' after
-- signal FlowBox::unselect-all
type FlowBoxUnselectAllCallback =
IO ()
noFlowBoxUnselectAllCallback :: Maybe FlowBoxUnselectAllCallback
noFlowBoxUnselectAllCallback = Nothing
type FlowBoxUnselectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxUnselectAllCallback :: FlowBoxUnselectAllCallbackC -> IO (FunPtr FlowBoxUnselectAllCallbackC)
flowBoxUnselectAllClosure :: FlowBoxUnselectAllCallback -> IO Closure
flowBoxUnselectAllClosure cb = newCClosure =<< mkFlowBoxUnselectAllCallback wrapped
where wrapped = flowBoxUnselectAllCallbackWrapper cb
flowBoxUnselectAllCallbackWrapper ::
FlowBoxUnselectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxUnselectAllCallbackWrapper _cb _ _ = do
_cb
onFlowBoxUnselectAll :: (GObject a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId
onFlowBoxUnselectAll obj cb = liftIO $ connectFlowBoxUnselectAll obj cb SignalConnectBefore
afterFlowBoxUnselectAll :: (GObject a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId
afterFlowBoxUnselectAll obj cb = connectFlowBoxUnselectAll obj cb SignalConnectAfter
connectFlowBoxUnselectAll :: (GObject a, MonadIO m) =>
a -> FlowBoxUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxUnselectAll obj cb after = liftIO $ do
cb' <- mkFlowBoxUnselectAllCallback (flowBoxUnselectAllCallbackWrapper cb)
connectSignalFunPtr obj "unselect-all" cb' after
-- object FlowBoxAccessible
newtype FlowBoxAccessible = FlowBoxAccessible (ForeignPtr FlowBoxAccessible)
noFlowBoxAccessible :: Maybe FlowBoxAccessible
noFlowBoxAccessible = Nothing
foreign import ccall "gtk_flow_box_accessible_get_type"
c_gtk_flow_box_accessible_get_type :: IO GType
type instance ParentTypes FlowBoxAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject FlowBoxAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_flow_box_accessible_get_type
class GObject o => FlowBoxAccessibleK o
instance (GObject o, IsDescendantOf FlowBoxAccessible o) => FlowBoxAccessibleK o
toFlowBoxAccessible :: FlowBoxAccessibleK o => o -> IO FlowBoxAccessible
toFlowBoxAccessible = unsafeCastTo FlowBoxAccessible
-- object FlowBoxChild
newtype FlowBoxChild = FlowBoxChild (ForeignPtr FlowBoxChild)
noFlowBoxChild :: Maybe FlowBoxChild
noFlowBoxChild = Nothing
foreign import ccall "gtk_flow_box_child_get_type"
c_gtk_flow_box_child_get_type :: IO GType
type instance ParentTypes FlowBoxChild = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject FlowBoxChild where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_flow_box_child_get_type
class GObject o => FlowBoxChildK o
instance (GObject o, IsDescendantOf FlowBoxChild o) => FlowBoxChildK o
toFlowBoxChild :: FlowBoxChildK o => o -> IO FlowBoxChild
toFlowBoxChild = unsafeCastTo FlowBoxChild
-- method FlowBoxChild::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FlowBoxChild"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_child_new" gtk_flow_box_child_new ::
IO (Ptr FlowBoxChild)
flowBoxChildNew ::
(MonadIO m) =>
m FlowBoxChild
flowBoxChildNew = liftIO $ do
result <- gtk_flow_box_child_new
checkUnexpectedReturnNULL "gtk_flow_box_child_new" result
result' <- (newObject FlowBoxChild) result
return result'
-- method FlowBoxChild::changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_child_changed" gtk_flow_box_child_changed ::
Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild"
IO ()
flowBoxChildChanged ::
(MonadIO m, FlowBoxChildK a) =>
a -> -- _obj
m ()
flowBoxChildChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_flow_box_child_changed _obj'
touchManagedPtr _obj
return ()
-- method FlowBoxChild::get_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_child_get_index" gtk_flow_box_child_get_index ::
Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild"
IO Int32
flowBoxChildGetIndex ::
(MonadIO m, FlowBoxChildK a) =>
a -> -- _obj
m Int32
flowBoxChildGetIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_child_get_index _obj'
touchManagedPtr _obj
return result
-- method FlowBoxChild::is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_flow_box_child_is_selected" gtk_flow_box_child_is_selected ::
Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild"
IO CInt
flowBoxChildIsSelected ::
(MonadIO m, FlowBoxChildK a) =>
a -> -- _obj
m Bool
flowBoxChildIsSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_flow_box_child_is_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- signal FlowBoxChild::activate
type FlowBoxChildActivateCallback =
IO ()
noFlowBoxChildActivateCallback :: Maybe FlowBoxChildActivateCallback
noFlowBoxChildActivateCallback = Nothing
type FlowBoxChildActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFlowBoxChildActivateCallback :: FlowBoxChildActivateCallbackC -> IO (FunPtr FlowBoxChildActivateCallbackC)
flowBoxChildActivateClosure :: FlowBoxChildActivateCallback -> IO Closure
flowBoxChildActivateClosure cb = newCClosure =<< mkFlowBoxChildActivateCallback wrapped
where wrapped = flowBoxChildActivateCallbackWrapper cb
flowBoxChildActivateCallbackWrapper ::
FlowBoxChildActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
flowBoxChildActivateCallbackWrapper _cb _ _ = do
_cb
onFlowBoxChildActivate :: (GObject a, MonadIO m) => a -> FlowBoxChildActivateCallback -> m SignalHandlerId
onFlowBoxChildActivate obj cb = liftIO $ connectFlowBoxChildActivate obj cb SignalConnectBefore
afterFlowBoxChildActivate :: (GObject a, MonadIO m) => a -> FlowBoxChildActivateCallback -> m SignalHandlerId
afterFlowBoxChildActivate obj cb = connectFlowBoxChildActivate obj cb SignalConnectAfter
connectFlowBoxChildActivate :: (GObject a, MonadIO m) =>
a -> FlowBoxChildActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectFlowBoxChildActivate obj cb after = liftIO $ do
cb' <- mkFlowBoxChildActivateCallback (flowBoxChildActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- object FlowBoxChildAccessible
newtype FlowBoxChildAccessible = FlowBoxChildAccessible (ForeignPtr FlowBoxChildAccessible)
noFlowBoxChildAccessible :: Maybe FlowBoxChildAccessible
noFlowBoxChildAccessible = Nothing
foreign import ccall "gtk_flow_box_child_accessible_get_type"
c_gtk_flow_box_child_accessible_get_type :: IO GType
type instance ParentTypes FlowBoxChildAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject FlowBoxChildAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_flow_box_child_accessible_get_type
class GObject o => FlowBoxChildAccessibleK o
instance (GObject o, IsDescendantOf FlowBoxChildAccessible o) => FlowBoxChildAccessibleK o
toFlowBoxChildAccessible :: FlowBoxChildAccessibleK o => o -> IO FlowBoxChildAccessible
toFlowBoxChildAccessible = unsafeCastTo FlowBoxChildAccessible
-- callback FlowBoxFilterFunc
flowBoxFilterFuncClosure :: FlowBoxFilterFunc -> IO Closure
flowBoxFilterFuncClosure cb = newCClosure =<< mkFlowBoxFilterFunc wrapped
where wrapped = flowBoxFilterFuncWrapper Nothing cb
type FlowBoxFilterFuncC =
Ptr FlowBoxChild ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkFlowBoxFilterFunc :: FlowBoxFilterFuncC -> IO (FunPtr FlowBoxFilterFuncC)
type FlowBoxFilterFunc =
FlowBoxChild ->
IO Bool
noFlowBoxFilterFunc :: Maybe FlowBoxFilterFunc
noFlowBoxFilterFunc = Nothing
flowBoxFilterFuncWrapper ::
Maybe (Ptr (FunPtr (FlowBoxFilterFuncC))) ->
FlowBoxFilterFunc ->
Ptr FlowBoxChild ->
Ptr () ->
IO CInt
flowBoxFilterFuncWrapper funptrptr _cb child _ = do
child' <- (newObject FlowBoxChild) child
result <- _cb child'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- callback FlowBoxForeachFunc
flowBoxForeachFuncClosure :: FlowBoxForeachFunc -> IO Closure
flowBoxForeachFuncClosure cb = newCClosure =<< mkFlowBoxForeachFunc wrapped
where wrapped = flowBoxForeachFuncWrapper Nothing cb
type FlowBoxForeachFuncC =
Ptr FlowBox ->
Ptr FlowBoxChild ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkFlowBoxForeachFunc :: FlowBoxForeachFuncC -> IO (FunPtr FlowBoxForeachFuncC)
type FlowBoxForeachFunc =
FlowBox ->
FlowBoxChild ->
IO ()
noFlowBoxForeachFunc :: Maybe FlowBoxForeachFunc
noFlowBoxForeachFunc = Nothing
flowBoxForeachFuncWrapper ::
Maybe (Ptr (FunPtr (FlowBoxForeachFuncC))) ->
FlowBoxForeachFunc ->
Ptr FlowBox ->
Ptr FlowBoxChild ->
Ptr () ->
IO ()
flowBoxForeachFuncWrapper funptrptr _cb box child _ = do
box' <- (newObject FlowBox) box
child' <- (newObject FlowBoxChild) child
_cb box' child'
maybeReleaseFunPtr funptrptr
-- callback FlowBoxSortFunc
flowBoxSortFuncClosure :: FlowBoxSortFunc -> IO Closure
flowBoxSortFuncClosure cb = newCClosure =<< mkFlowBoxSortFunc wrapped
where wrapped = flowBoxSortFuncWrapper Nothing cb
type FlowBoxSortFuncC =
Ptr FlowBoxChild ->
Ptr FlowBoxChild ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkFlowBoxSortFunc :: FlowBoxSortFuncC -> IO (FunPtr FlowBoxSortFuncC)
type FlowBoxSortFunc =
FlowBoxChild ->
FlowBoxChild ->
IO Int32
noFlowBoxSortFunc :: Maybe FlowBoxSortFunc
noFlowBoxSortFunc = Nothing
flowBoxSortFuncWrapper ::
Maybe (Ptr (FunPtr (FlowBoxSortFuncC))) ->
FlowBoxSortFunc ->
Ptr FlowBoxChild ->
Ptr FlowBoxChild ->
Ptr () ->
IO Int32
flowBoxSortFuncWrapper funptrptr _cb child1 child2 _ = do
child1' <- (newObject FlowBoxChild) child1
child2' <- (newObject FlowBoxChild) child2
result <- _cb child1' child2'
maybeReleaseFunPtr funptrptr
return result
-- object FontButton
newtype FontButton = FontButton (ForeignPtr FontButton)
noFontButton :: Maybe FontButton
noFontButton = Nothing
foreign import ccall "gtk_font_button_get_type"
c_gtk_font_button_get_type :: IO GType
type instance ParentTypes FontButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, FontChooser]
instance GObject FontButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_font_button_get_type
class GObject o => FontButtonK o
instance (GObject o, IsDescendantOf FontButton o) => FontButtonK o
toFontButton :: FontButtonK o => o -> IO FontButton
toFontButton = unsafeCastTo FontButton
-- method FontButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FontButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_new" gtk_font_button_new ::
IO (Ptr FontButton)
fontButtonNew ::
(MonadIO m) =>
m FontButton
fontButtonNew = liftIO $ do
result <- gtk_font_button_new
checkUnexpectedReturnNULL "gtk_font_button_new" result
result' <- (newObject FontButton) result
return result'
-- method FontButton::new_with_font
-- method type : Constructor
-- Args : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FontButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_new_with_font" gtk_font_button_new_with_font ::
CString -> -- fontname : TBasicType TUTF8
IO (Ptr FontButton)
fontButtonNewWithFont ::
(MonadIO m) =>
T.Text -> -- fontname
m FontButton
fontButtonNewWithFont fontname = liftIO $ do
fontname' <- textToCString fontname
result <- gtk_font_button_new_with_font fontname'
checkUnexpectedReturnNULL "gtk_font_button_new_with_font" result
result' <- (newObject FontButton) result
freeMem fontname'
return result'
-- method FontButton::get_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_font_name" gtk_font_button_get_font_name ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CString
fontButtonGetFontName ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m T.Text
fontButtonGetFontName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_font_name _obj'
checkUnexpectedReturnNULL "gtk_font_button_get_font_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FontButton::get_show_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_show_size" gtk_font_button_get_show_size ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CInt
fontButtonGetShowSize ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m Bool
fontButtonGetShowSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_show_size _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FontButton::get_show_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_show_style" gtk_font_button_get_show_style ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CInt
fontButtonGetShowStyle ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m Bool
fontButtonGetShowStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_show_style _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FontButton::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_title" gtk_font_button_get_title ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CString
fontButtonGetTitle ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m T.Text
fontButtonGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_title _obj'
checkUnexpectedReturnNULL "gtk_font_button_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FontButton::get_use_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_use_font" gtk_font_button_get_use_font ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CInt
fontButtonGetUseFont ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m Bool
fontButtonGetUseFont _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_use_font _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FontButton::get_use_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_get_use_size" gtk_font_button_get_use_size ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
IO CInt
fontButtonGetUseSize ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
m Bool
fontButtonGetUseSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_button_get_use_size _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FontButton::set_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_font_name" gtk_font_button_set_font_name ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CString -> -- fontname : TBasicType TUTF8
IO CInt
fontButtonSetFontName ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
T.Text -> -- fontname
m Bool
fontButtonSetFontName _obj fontname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fontname' <- textToCString fontname
result <- gtk_font_button_set_font_name _obj' fontname'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem fontname'
return result'
-- method FontButton::set_show_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_show_size" gtk_font_button_set_show_size ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CInt -> -- show_size : TBasicType TBoolean
IO ()
fontButtonSetShowSize ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
Bool -> -- show_size
m ()
fontButtonSetShowSize _obj show_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_size' = (fromIntegral . fromEnum) show_size
gtk_font_button_set_show_size _obj' show_size'
touchManagedPtr _obj
return ()
-- method FontButton::set_show_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_show_style" gtk_font_button_set_show_style ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CInt -> -- show_style : TBasicType TBoolean
IO ()
fontButtonSetShowStyle ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
Bool -> -- show_style
m ()
fontButtonSetShowStyle _obj show_style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_style' = (fromIntegral . fromEnum) show_style
gtk_font_button_set_show_style _obj' show_style'
touchManagedPtr _obj
return ()
-- method FontButton::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_title" gtk_font_button_set_title ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CString -> -- title : TBasicType TUTF8
IO ()
fontButtonSetTitle ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
T.Text -> -- title
m ()
fontButtonSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_font_button_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method FontButton::set_use_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_use_font" gtk_font_button_set_use_font ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CInt -> -- use_font : TBasicType TBoolean
IO ()
fontButtonSetUseFont ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
Bool -> -- use_font
m ()
fontButtonSetUseFont _obj use_font = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_font' = (fromIntegral . fromEnum) use_font
gtk_font_button_set_use_font _obj' use_font'
touchManagedPtr _obj
return ()
-- method FontButton::set_use_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_button_set_use_size" gtk_font_button_set_use_size ::
Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton"
CInt -> -- use_size : TBasicType TBoolean
IO ()
fontButtonSetUseSize ::
(MonadIO m, FontButtonK a) =>
a -> -- _obj
Bool -> -- use_size
m ()
fontButtonSetUseSize _obj use_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_size' = (fromIntegral . fromEnum) use_size
gtk_font_button_set_use_size _obj' use_size'
touchManagedPtr _obj
return ()
-- signal FontButton::font-set
type FontButtonFontSetCallback =
IO ()
noFontButtonFontSetCallback :: Maybe FontButtonFontSetCallback
noFontButtonFontSetCallback = Nothing
type FontButtonFontSetCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFontButtonFontSetCallback :: FontButtonFontSetCallbackC -> IO (FunPtr FontButtonFontSetCallbackC)
fontButtonFontSetClosure :: FontButtonFontSetCallback -> IO Closure
fontButtonFontSetClosure cb = newCClosure =<< mkFontButtonFontSetCallback wrapped
where wrapped = fontButtonFontSetCallbackWrapper cb
fontButtonFontSetCallbackWrapper ::
FontButtonFontSetCallback ->
Ptr () ->
Ptr () ->
IO ()
fontButtonFontSetCallbackWrapper _cb _ _ = do
_cb
onFontButtonFontSet :: (GObject a, MonadIO m) => a -> FontButtonFontSetCallback -> m SignalHandlerId
onFontButtonFontSet obj cb = liftIO $ connectFontButtonFontSet obj cb SignalConnectBefore
afterFontButtonFontSet :: (GObject a, MonadIO m) => a -> FontButtonFontSetCallback -> m SignalHandlerId
afterFontButtonFontSet obj cb = connectFontButtonFontSet obj cb SignalConnectAfter
connectFontButtonFontSet :: (GObject a, MonadIO m) =>
a -> FontButtonFontSetCallback -> SignalConnectMode -> m SignalHandlerId
connectFontButtonFontSet obj cb after = liftIO $ do
cb' <- mkFontButtonFontSetCallback (fontButtonFontSetCallbackWrapper cb)
connectSignalFunPtr obj "font-set" cb' after
-- interface FontChooser
newtype FontChooser = FontChooser (ForeignPtr FontChooser)
noFontChooser :: Maybe FontChooser
noFontChooser = Nothing
foreign import ccall "gtk_font_chooser_get_type"
c_gtk_font_chooser_get_type :: IO GType
type instance ParentTypes FontChooser = '[GObject.Object]
instance GObject FontChooser where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_font_chooser_get_type
class GObject o => FontChooserK o
instance (GObject o, IsDescendantOf FontChooser o) => FontChooserK o
toFontChooser :: FontChooserK o => o -> IO FontChooser
toFontChooser = unsafeCastTo FontChooser
-- method FontChooser::get_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font" gtk_font_chooser_get_font ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CString
fontChooserGetFont ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m T.Text
fontChooserGetFont _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FontChooser::get_font_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontDescription"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_desc" gtk_font_chooser_get_font_desc ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontDescription)
fontChooserGetFontDesc ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Pango.FontDescription
fontChooserGetFontDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_desc _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_desc" result
result' <- (wrapBoxed Pango.FontDescription) result
touchManagedPtr _obj
return result'
-- method FontChooser::get_font_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontFace"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_face" gtk_font_chooser_get_font_face ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontFace)
fontChooserGetFontFace ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Pango.FontFace
fontChooserGetFontFace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_face _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_face" result
result' <- (newObject Pango.FontFace) result
touchManagedPtr _obj
return result'
-- method FontChooser::get_font_family
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontFamily"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_family" gtk_font_chooser_get_font_family ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontFamily)
fontChooserGetFontFamily ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Pango.FontFamily
fontChooserGetFontFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_family _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_family" result
result' <- (newObject Pango.FontFamily) result
touchManagedPtr _obj
return result'
-- method FontChooser::get_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontMap"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_map" gtk_font_chooser_get_font_map ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO (Ptr Pango.FontMap)
fontChooserGetFontMap ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Pango.FontMap
fontChooserGetFontMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_map _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_font_map" result
result' <- (wrapObject Pango.FontMap) result
touchManagedPtr _obj
return result'
-- method FontChooser::get_font_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_font_size" gtk_font_chooser_get_font_size ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO Int32
fontChooserGetFontSize ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Int32
fontChooserGetFontSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_font_size _obj'
touchManagedPtr _obj
return result
-- method FontChooser::get_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_preview_text" gtk_font_chooser_get_preview_text ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CString
fontChooserGetPreviewText ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m T.Text
fontChooserGetPreviewText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_preview_text _obj'
checkUnexpectedReturnNULL "gtk_font_chooser_get_preview_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FontChooser::get_show_preview_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_get_show_preview_entry" gtk_font_chooser_get_show_preview_entry ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
IO CInt
fontChooserGetShowPreviewEntry ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
m Bool
fontChooserGetShowPreviewEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_chooser_get_show_preview_entry _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FontChooser::set_filter_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
FunPtr FontFilterFuncC -> -- filter : TInterface "Gtk" "FontFilterFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
fontChooserSetFilterFunc ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
Maybe (FontFilterFunc) -> -- filter
m ()
fontChooserSetFilterFunc _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilter <- case filter of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFilter -> do
jFilter' <- mkFontFilterFunc (fontFilterFuncWrapper Nothing jFilter)
return jFilter'
let user_data = castFunPtrToPtr maybeFilter
let destroy = safeFreeFunPtrPtr
gtk_font_chooser_set_filter_func _obj' maybeFilter user_data destroy
touchManagedPtr _obj
return ()
-- method FontChooser::set_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font" gtk_font_chooser_set_font ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CString -> -- fontname : TBasicType TUTF8
IO ()
fontChooserSetFont ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
T.Text -> -- fontname
m ()
fontChooserSetFont _obj fontname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fontname' <- textToCString fontname
gtk_font_chooser_set_font _obj' fontname'
touchManagedPtr _obj
freeMem fontname'
return ()
-- method FontChooser::set_font_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font_desc" gtk_font_chooser_set_font_desc ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription"
IO ()
fontChooserSetFontDesc ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
Pango.FontDescription -> -- font_desc
m ()
fontChooserSetFontDesc _obj font_desc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let font_desc' = unsafeManagedPtrGetPtr font_desc
gtk_font_chooser_set_font_desc _obj' font_desc'
touchManagedPtr _obj
touchManagedPtr font_desc
return ()
-- method FontChooser::set_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_font_map" gtk_font_chooser_set_font_map ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
Ptr Pango.FontMap -> -- fontmap : TInterface "Pango" "FontMap"
IO ()
fontChooserSetFontMap ::
(MonadIO m, FontChooserK a, Pango.FontMapK b) =>
a -> -- _obj
Maybe (b) -> -- fontmap
m ()
fontChooserSetFontMap _obj fontmap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFontmap <- case fontmap of
Nothing -> return nullPtr
Just jFontmap -> do
let jFontmap' = unsafeManagedPtrCastPtr jFontmap
return jFontmap'
gtk_font_chooser_set_font_map _obj' maybeFontmap
touchManagedPtr _obj
whenJust fontmap touchManagedPtr
return ()
-- method FontChooser::set_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_preview_text" gtk_font_chooser_set_preview_text ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CString -> -- text : TBasicType TUTF8
IO ()
fontChooserSetPreviewText ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
T.Text -> -- text
m ()
fontChooserSetPreviewText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_font_chooser_set_preview_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method FontChooser::set_show_preview_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_set_show_preview_entry" gtk_font_chooser_set_show_preview_entry ::
Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser"
CInt -> -- show_preview_entry : TBasicType TBoolean
IO ()
fontChooserSetShowPreviewEntry ::
(MonadIO m, FontChooserK a) =>
a -> -- _obj
Bool -> -- show_preview_entry
m ()
fontChooserSetShowPreviewEntry _obj show_preview_entry = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_preview_entry' = (fromIntegral . fromEnum) show_preview_entry
gtk_font_chooser_set_show_preview_entry _obj' show_preview_entry'
touchManagedPtr _obj
return ()
-- signal FontChooser::font-activated
type FontChooserFontActivatedCallback =
T.Text ->
IO ()
noFontChooserFontActivatedCallback :: Maybe FontChooserFontActivatedCallback
noFontChooserFontActivatedCallback = Nothing
type FontChooserFontActivatedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFontChooserFontActivatedCallback :: FontChooserFontActivatedCallbackC -> IO (FunPtr FontChooserFontActivatedCallbackC)
fontChooserFontActivatedClosure :: FontChooserFontActivatedCallback -> IO Closure
fontChooserFontActivatedClosure cb = newCClosure =<< mkFontChooserFontActivatedCallback wrapped
where wrapped = fontChooserFontActivatedCallbackWrapper cb
fontChooserFontActivatedCallbackWrapper ::
FontChooserFontActivatedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
fontChooserFontActivatedCallbackWrapper _cb _ fontname _ = do
fontname' <- cstringToText fontname
_cb fontname'
onFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId
onFontChooserFontActivated obj cb = liftIO $ connectFontChooserFontActivated obj cb SignalConnectBefore
afterFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId
afterFontChooserFontActivated obj cb = connectFontChooserFontActivated obj cb SignalConnectAfter
connectFontChooserFontActivated :: (GObject a, MonadIO m) =>
a -> FontChooserFontActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectFontChooserFontActivated obj cb after = liftIO $ do
cb' <- mkFontChooserFontActivatedCallback (fontChooserFontActivatedCallbackWrapper cb)
connectSignalFunPtr obj "font-activated" cb' after
-- object FontChooserDialog
newtype FontChooserDialog = FontChooserDialog (ForeignPtr FontChooserDialog)
noFontChooserDialog :: Maybe FontChooserDialog
noFontChooserDialog = Nothing
foreign import ccall "gtk_font_chooser_dialog_get_type"
c_gtk_font_chooser_dialog_get_type :: IO GType
type instance ParentTypes FontChooserDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FontChooser]
instance GObject FontChooserDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_font_chooser_dialog_get_type
class GObject o => FontChooserDialogK o
instance (GObject o, IsDescendantOf FontChooserDialog o) => FontChooserDialogK o
toFontChooserDialog :: FontChooserDialogK o => o -> IO FontChooserDialog
toFontChooserDialog = unsafeCastTo FontChooserDialog
-- method FontChooserDialog::new
-- method type : Constructor
-- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FontChooserDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_dialog_new" gtk_font_chooser_dialog_new ::
CString -> -- title : TBasicType TUTF8
Ptr Window -> -- parent : TInterface "Gtk" "Window"
IO (Ptr FontChooserDialog)
fontChooserDialogNew ::
(MonadIO m, WindowK a) =>
Maybe (T.Text) -> -- title
Maybe (a) -> -- parent
m FontChooserDialog
fontChooserDialogNew title parent = liftIO $ do
maybeTitle <- case title of
Nothing -> return nullPtr
Just jTitle -> do
jTitle' <- textToCString jTitle
return jTitle'
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
result <- gtk_font_chooser_dialog_new maybeTitle maybeParent
checkUnexpectedReturnNULL "gtk_font_chooser_dialog_new" result
result' <- (newObject FontChooserDialog) result
whenJust parent touchManagedPtr
freeMem maybeTitle
return result'
-- object FontChooserWidget
newtype FontChooserWidget = FontChooserWidget (ForeignPtr FontChooserWidget)
noFontChooserWidget :: Maybe FontChooserWidget
noFontChooserWidget = Nothing
foreign import ccall "gtk_font_chooser_widget_get_type"
c_gtk_font_chooser_widget_get_type :: IO GType
type instance ParentTypes FontChooserWidget = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FontChooser, Orientable]
instance GObject FontChooserWidget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_font_chooser_widget_get_type
class GObject o => FontChooserWidgetK o
instance (GObject o, IsDescendantOf FontChooserWidget o) => FontChooserWidgetK o
toFontChooserWidget :: FontChooserWidgetK o => o -> IO FontChooserWidget
toFontChooserWidget = unsafeCastTo FontChooserWidget
-- method FontChooserWidget::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FontChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_chooser_widget_new" gtk_font_chooser_widget_new ::
IO (Ptr FontChooserWidget)
fontChooserWidgetNew ::
(MonadIO m) =>
m FontChooserWidget
fontChooserWidgetNew = liftIO $ do
result <- gtk_font_chooser_widget_new
checkUnexpectedReturnNULL "gtk_font_chooser_widget_new" result
result' <- (newObject FontChooserWidget) result
return result'
-- callback FontFilterFunc
fontFilterFuncClosure :: FontFilterFunc -> IO Closure
fontFilterFuncClosure cb = newCClosure =<< mkFontFilterFunc wrapped
where wrapped = fontFilterFuncWrapper Nothing cb
type FontFilterFuncC =
Ptr Pango.FontFamily ->
Ptr Pango.FontFace ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkFontFilterFunc :: FontFilterFuncC -> IO (FunPtr FontFilterFuncC)
type FontFilterFunc =
Pango.FontFamily ->
Pango.FontFace ->
IO Bool
noFontFilterFunc :: Maybe FontFilterFunc
noFontFilterFunc = Nothing
fontFilterFuncWrapper ::
Maybe (Ptr (FunPtr (FontFilterFuncC))) ->
FontFilterFunc ->
Ptr Pango.FontFamily ->
Ptr Pango.FontFace ->
Ptr () ->
IO CInt
fontFilterFuncWrapper funptrptr _cb family face _ = do
family' <- (newObject Pango.FontFamily) family
face' <- (newObject Pango.FontFace) face
result <- _cb family' face'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object FontSelection
newtype FontSelection = FontSelection (ForeignPtr FontSelection)
noFontSelection :: Maybe FontSelection
noFontSelection = Nothing
foreign import ccall "gtk_font_selection_get_type"
c_gtk_font_selection_get_type :: IO GType
type instance ParentTypes FontSelection = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject FontSelection where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_font_selection_get_type
class GObject o => FontSelectionK o
instance (GObject o, IsDescendantOf FontSelection o) => FontSelectionK o
toFontSelection :: FontSelectionK o => o -> IO FontSelection
toFontSelection = unsafeCastTo FontSelection
-- method FontSelection::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "FontSelection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_new" gtk_font_selection_new ::
IO (Ptr FontSelection)
{-# DEPRECATED fontSelectionNew ["(Since version 3.2)","Use #GtkFontChooserWidget instead"]#-}
fontSelectionNew ::
(MonadIO m) =>
m FontSelection
fontSelectionNew = liftIO $ do
result <- gtk_font_selection_new
checkUnexpectedReturnNULL "gtk_font_selection_new" result
result' <- (newObject FontSelection) result
return result'
-- method FontSelection::get_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontFace"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_face" gtk_font_selection_get_face ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Pango.FontFace)
{-# DEPRECATED fontSelectionGetFace ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetFace ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Pango.FontFace
fontSelectionGetFace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_face _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_face" result
result' <- (newObject Pango.FontFace) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_face_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_face_list" gtk_font_selection_get_face_list ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionGetFaceList ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetFaceList ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Widget
fontSelectionGetFaceList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_face_list _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_face_list" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_family
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontFamily"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_family" gtk_font_selection_get_family ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Pango.FontFamily)
{-# DEPRECATED fontSelectionGetFamily ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetFamily ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Pango.FontFamily
fontSelectionGetFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_family _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_family" result
result' <- (newObject Pango.FontFamily) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_family_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_family_list" gtk_font_selection_get_family_list ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionGetFamilyList ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetFamilyList ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Widget
fontSelectionGetFamilyList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_family_list _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_family_list" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_font_name" gtk_font_selection_get_font_name ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO CString
{-# DEPRECATED fontSelectionGetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetFontName ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m T.Text
fontSelectionGetFontName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_font_name _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_font_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FontSelection::get_preview_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_preview_entry" gtk_font_selection_get_preview_entry ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionGetPreviewEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetPreviewEntry ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Widget
fontSelectionGetPreviewEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_preview_entry _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_preview_entry" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_preview_text" gtk_font_selection_get_preview_text ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO CString
{-# DEPRECATED fontSelectionGetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetPreviewText ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m T.Text
fontSelectionGetPreviewText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_preview_text _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_preview_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FontSelection::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_size" gtk_font_selection_get_size ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO Int32
{-# DEPRECATED fontSelectionGetSize ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetSize ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Int32
fontSelectionGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_size _obj'
touchManagedPtr _obj
return result
-- method FontSelection::get_size_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_size_entry" gtk_font_selection_get_size_entry ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionGetSizeEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetSizeEntry ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Widget
fontSelectionGetSizeEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_size_entry _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_size_entry" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelection::get_size_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_get_size_list" gtk_font_selection_get_size_list ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionGetSizeList ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionGetSizeList ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
m Widget
fontSelectionGetSizeList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_get_size_list _obj'
checkUnexpectedReturnNULL "gtk_font_selection_get_size_list" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelection::set_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_set_font_name" gtk_font_selection_set_font_name ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
CString -> -- fontname : TBasicType TUTF8
IO CInt
{-# DEPRECATED fontSelectionSetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionSetFontName ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
T.Text -> -- fontname
m Bool
fontSelectionSetFontName _obj fontname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fontname' <- textToCString fontname
result <- gtk_font_selection_set_font_name _obj' fontname'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem fontname'
return result'
-- method FontSelection::set_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_set_preview_text" gtk_font_selection_set_preview_text ::
Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection"
CString -> -- text : TBasicType TUTF8
IO ()
{-# DEPRECATED fontSelectionSetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-}
fontSelectionSetPreviewText ::
(MonadIO m, FontSelectionK a) =>
a -> -- _obj
T.Text -> -- text
m ()
fontSelectionSetPreviewText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_font_selection_set_preview_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- object FontSelectionDialog
newtype FontSelectionDialog = FontSelectionDialog (ForeignPtr FontSelectionDialog)
noFontSelectionDialog :: Maybe FontSelectionDialog
noFontSelectionDialog = Nothing
foreign import ccall "gtk_font_selection_dialog_get_type"
c_gtk_font_selection_dialog_get_type :: IO GType
type instance ParentTypes FontSelectionDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject FontSelectionDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_font_selection_dialog_get_type
class GObject o => FontSelectionDialogK o
instance (GObject o, IsDescendantOf FontSelectionDialog o) => FontSelectionDialogK o
toFontSelectionDialog :: FontSelectionDialogK o => o -> IO FontSelectionDialog
toFontSelectionDialog = unsafeCastTo FontSelectionDialog
-- method FontSelectionDialog::new
-- method type : Constructor
-- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FontSelectionDialog"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_new" gtk_font_selection_dialog_new ::
CString -> -- title : TBasicType TUTF8
IO (Ptr FontSelectionDialog)
{-# DEPRECATED fontSelectionDialogNew ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogNew ::
(MonadIO m) =>
T.Text -> -- title
m FontSelectionDialog
fontSelectionDialogNew title = liftIO $ do
title' <- textToCString title
result <- gtk_font_selection_dialog_new title'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_new" result
result' <- (newObject FontSelectionDialog) result
freeMem title'
return result'
-- method FontSelectionDialog::get_cancel_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_get_cancel_button" gtk_font_selection_dialog_get_cancel_button ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionDialogGetCancelButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogGetCancelButton ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
m Widget
fontSelectionDialogGetCancelButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_dialog_get_cancel_button _obj'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_cancel_button" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelectionDialog::get_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_get_font_name" gtk_font_selection_dialog_get_font_name ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
IO CString
{-# DEPRECATED fontSelectionDialogGetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogGetFontName ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
m T.Text
fontSelectionDialogGetFontName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_dialog_get_font_name _obj'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_font_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method FontSelectionDialog::get_font_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_get_font_selection" gtk_font_selection_dialog_get_font_selection ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionDialogGetFontSelection ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogGetFontSelection ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
m Widget
fontSelectionDialogGetFontSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_dialog_get_font_selection _obj'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_font_selection" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelectionDialog::get_ok_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_get_ok_button" gtk_font_selection_dialog_get_ok_button ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
IO (Ptr Widget)
{-# DEPRECATED fontSelectionDialogGetOkButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogGetOkButton ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
m Widget
fontSelectionDialogGetOkButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_dialog_get_ok_button _obj'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_ok_button" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method FontSelectionDialog::get_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_get_preview_text" gtk_font_selection_dialog_get_preview_text ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
IO CString
{-# DEPRECATED fontSelectionDialogGetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogGetPreviewText ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
m T.Text
fontSelectionDialogGetPreviewText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_font_selection_dialog_get_preview_text _obj'
checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_preview_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FontSelectionDialog::set_font_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_set_font_name" gtk_font_selection_dialog_set_font_name ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
CString -> -- fontname : TBasicType TUTF8
IO CInt
{-# DEPRECATED fontSelectionDialogSetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogSetFontName ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
T.Text -> -- fontname
m Bool
fontSelectionDialogSetFontName _obj fontname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fontname' <- textToCString fontname
result <- gtk_font_selection_dialog_set_font_name _obj' fontname'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem fontname'
return result'
-- method FontSelectionDialog::set_preview_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_font_selection_dialog_set_preview_text" gtk_font_selection_dialog_set_preview_text ::
Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog"
CString -> -- text : TBasicType TUTF8
IO ()
{-# DEPRECATED fontSelectionDialogSetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-}
fontSelectionDialogSetPreviewText ::
(MonadIO m, FontSelectionDialogK a) =>
a -> -- _obj
T.Text -> -- text
m ()
fontSelectionDialogSetPreviewText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_font_selection_dialog_set_preview_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- object Frame
newtype Frame = Frame (ForeignPtr Frame)
noFrame :: Maybe Frame
noFrame = Nothing
foreign import ccall "gtk_frame_get_type"
c_gtk_frame_get_type :: IO GType
type instance ParentTypes Frame = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Frame where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_frame_get_type
class GObject o => FrameK o
instance (GObject o, IsDescendantOf Frame o) => FrameK o
toFrame :: FrameK o => o -> IO Frame
toFrame = unsafeCastTo Frame
-- method Frame::new
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Frame"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_new" gtk_frame_new ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Frame)
frameNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- label
m Frame
frameNew label = liftIO $ do
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_frame_new maybeLabel
checkUnexpectedReturnNULL "gtk_frame_new" result
result' <- (newObject Frame) result
freeMem maybeLabel
return result'
-- method Frame::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_get_label" gtk_frame_get_label ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
IO CString
frameGetLabel ::
(MonadIO m, FrameK a) =>
a -> -- _obj
m T.Text
frameGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_frame_get_label _obj'
checkUnexpectedReturnNULL "gtk_frame_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Frame::get_label_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_get_label_align" gtk_frame_get_label_align ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
frameGetLabelAlign ::
(MonadIO m, FrameK a) =>
a -> -- _obj
m (Float,Float)
frameGetLabelAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_frame_get_label_align _obj' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr _obj
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
-- method Frame::get_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_get_label_widget" gtk_frame_get_label_widget ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
IO (Ptr Widget)
frameGetLabelWidget ::
(MonadIO m, FrameK a) =>
a -> -- _obj
m Widget
frameGetLabelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_frame_get_label_widget _obj'
checkUnexpectedReturnNULL "gtk_frame_get_label_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Frame::get_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ShadowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_get_shadow_type" gtk_frame_get_shadow_type ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
IO CUInt
frameGetShadowType ::
(MonadIO m, FrameK a) =>
a -> -- _obj
m ShadowType
frameGetShadowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_frame_get_shadow_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Frame::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_set_label" gtk_frame_set_label ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
CString -> -- label : TBasicType TUTF8
IO ()
frameSetLabel ::
(MonadIO m, FrameK a) =>
a -> -- _obj
Maybe (T.Text) -> -- label
m ()
frameSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_frame_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
-- method Frame::set_label_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_set_label_align" gtk_frame_set_label_align ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
frameSetLabelAlign ::
(MonadIO m, FrameK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
m ()
frameSetLabelAlign _obj xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_frame_set_label_align _obj' xalign' yalign'
touchManagedPtr _obj
return ()
-- method Frame::set_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_set_label_widget" gtk_frame_set_label_widget ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget"
IO ()
frameSetLabelWidget ::
(MonadIO m, FrameK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- label_widget
m ()
frameSetLabelWidget _obj label_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel_widget <- case label_widget of
Nothing -> return nullPtr
Just jLabel_widget -> do
let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget
return jLabel_widget'
gtk_frame_set_label_widget _obj' maybeLabel_widget
touchManagedPtr _obj
whenJust label_widget touchManagedPtr
return ()
-- method Frame::set_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_frame_set_shadow_type" gtk_frame_set_shadow_type ::
Ptr Frame -> -- _obj : TInterface "Gtk" "Frame"
CUInt -> -- type : TInterface "Gtk" "ShadowType"
IO ()
frameSetShadowType ::
(MonadIO m, FrameK a) =>
a -> -- _obj
ShadowType -> -- type
m ()
frameSetShadowType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_frame_set_shadow_type _obj' type_'
touchManagedPtr _obj
return ()
-- object FrameAccessible
newtype FrameAccessible = FrameAccessible (ForeignPtr FrameAccessible)
noFrameAccessible :: Maybe FrameAccessible
noFrameAccessible = Nothing
foreign import ccall "gtk_frame_accessible_get_type"
c_gtk_frame_accessible_get_type :: IO GType
type instance ParentTypes FrameAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject FrameAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_frame_accessible_get_type
class GObject o => FrameAccessibleK o
instance (GObject o, IsDescendantOf FrameAccessible o) => FrameAccessibleK o
toFrameAccessible :: FrameAccessibleK o => o -> IO FrameAccessible
toFrameAccessible = unsafeCastTo FrameAccessible
-- object GLArea
newtype GLArea = GLArea (ForeignPtr GLArea)
noGLArea :: Maybe GLArea
noGLArea = Nothing
foreign import ccall "gtk_gl_area_get_type"
c_gtk_gl_area_get_type :: IO GType
type instance ParentTypes GLArea = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject GLArea where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_gl_area_get_type
class GObject o => GLAreaK o
instance (GObject o, IsDescendantOf GLArea o) => GLAreaK o
toGLArea :: GLAreaK o => o -> IO GLArea
toGLArea = unsafeCastTo GLArea
-- method GLArea::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "GLArea"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_new" gtk_gl_area_new ::
IO (Ptr GLArea)
gLAreaNew ::
(MonadIO m) =>
m GLArea
gLAreaNew = liftIO $ do
result <- gtk_gl_area_new
checkUnexpectedReturnNULL "gtk_gl_area_new" result
result' <- (wrapObject GLArea) result
return result'
-- method GLArea::attach_buffers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_attach_buffers" gtk_gl_area_attach_buffers ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO ()
gLAreaAttachBuffers ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m ()
gLAreaAttachBuffers _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_attach_buffers _obj'
touchManagedPtr _obj
return ()
-- method GLArea::get_auto_render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_auto_render" gtk_gl_area_get_auto_render ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO CInt
gLAreaGetAutoRender ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m Bool
gLAreaGetAutoRender _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_auto_render _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GLArea::get_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "GLContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_context" gtk_gl_area_get_context ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO (Ptr Gdk.GLContext)
gLAreaGetContext ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m Gdk.GLContext
gLAreaGetContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_context _obj'
checkUnexpectedReturnNULL "gtk_gl_area_get_context" result
result' <- (newObject Gdk.GLContext) result
touchManagedPtr _obj
return result'
-- method GLArea::get_error
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TError
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_error" gtk_gl_area_get_error ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO (Ptr GError)
gLAreaGetError ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m GError
gLAreaGetError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_error _obj'
checkUnexpectedReturnNULL "gtk_gl_area_get_error" result
result' <- (newBoxed GError) result
touchManagedPtr _obj
return result'
-- method GLArea::get_has_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_has_alpha" gtk_gl_area_get_has_alpha ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO CInt
gLAreaGetHasAlpha ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m Bool
gLAreaGetHasAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_alpha _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GLArea::get_has_depth_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_has_depth_buffer" gtk_gl_area_get_has_depth_buffer ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO CInt
gLAreaGetHasDepthBuffer ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m Bool
gLAreaGetHasDepthBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_depth_buffer _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GLArea::get_has_stencil_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_has_stencil_buffer" gtk_gl_area_get_has_stencil_buffer ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO CInt
gLAreaGetHasStencilBuffer ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m Bool
gLAreaGetHasStencilBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_stencil_buffer _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GLArea::get_required_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
Ptr Int32 -> -- major : TBasicType TInt32
Ptr Int32 -> -- minor : TBasicType TInt32
IO ()
gLAreaGetRequiredVersion ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m (Int32,Int32)
gLAreaGetRequiredVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
major <- allocMem :: IO (Ptr Int32)
minor <- allocMem :: IO (Ptr Int32)
gtk_gl_area_get_required_version _obj' major minor
major' <- peek major
minor' <- peek minor
touchManagedPtr _obj
freeMem major
freeMem minor
return (major', minor')
-- method GLArea::make_current
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_make_current" gtk_gl_area_make_current ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO ()
gLAreaMakeCurrent ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m ()
gLAreaMakeCurrent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_make_current _obj'
touchManagedPtr _obj
return ()
-- method GLArea::queue_render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_queue_render" gtk_gl_area_queue_render ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
IO ()
gLAreaQueueRender ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
m ()
gLAreaQueueRender _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_queue_render _obj'
touchManagedPtr _obj
return ()
-- method GLArea::set_auto_render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_auto_render" gtk_gl_area_set_auto_render ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
CInt -> -- auto_render : TBasicType TBoolean
IO ()
gLAreaSetAutoRender ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Bool -> -- auto_render
m ()
gLAreaSetAutoRender _obj auto_render = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let auto_render' = (fromIntegral . fromEnum) auto_render
gtk_gl_area_set_auto_render _obj' auto_render'
touchManagedPtr _obj
return ()
-- method GLArea::set_error
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_error" gtk_gl_area_set_error ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
Ptr GError -> -- error : TError
IO ()
gLAreaSetError ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Maybe (GError) -> -- error
m ()
gLAreaSetError _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeError_ <- case error_ of
Nothing -> return nullPtr
Just jError_ -> do
let jError_' = unsafeManagedPtrGetPtr jError_
return jError_'
gtk_gl_area_set_error _obj' maybeError_
touchManagedPtr _obj
whenJust error_ touchManagedPtr
return ()
-- method GLArea::set_has_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_has_alpha" gtk_gl_area_set_has_alpha ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
CInt -> -- has_alpha : TBasicType TBoolean
IO ()
gLAreaSetHasAlpha ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Bool -> -- has_alpha
m ()
gLAreaSetHasAlpha _obj has_alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_alpha' = (fromIntegral . fromEnum) has_alpha
gtk_gl_area_set_has_alpha _obj' has_alpha'
touchManagedPtr _obj
return ()
-- method GLArea::set_has_depth_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_has_depth_buffer" gtk_gl_area_set_has_depth_buffer ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
CInt -> -- has_depth_buffer : TBasicType TBoolean
IO ()
gLAreaSetHasDepthBuffer ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Bool -> -- has_depth_buffer
m ()
gLAreaSetHasDepthBuffer _obj has_depth_buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_depth_buffer' = (fromIntegral . fromEnum) has_depth_buffer
gtk_gl_area_set_has_depth_buffer _obj' has_depth_buffer'
touchManagedPtr _obj
return ()
-- method GLArea::set_has_stencil_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_has_stencil_buffer" gtk_gl_area_set_has_stencil_buffer ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
CInt -> -- has_stencil_buffer : TBasicType TBoolean
IO ()
gLAreaSetHasStencilBuffer ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Bool -> -- has_stencil_buffer
m ()
gLAreaSetHasStencilBuffer _obj has_stencil_buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_stencil_buffer' = (fromIntegral . fromEnum) has_stencil_buffer
gtk_gl_area_set_has_stencil_buffer _obj' has_stencil_buffer'
touchManagedPtr _obj
return ()
-- method GLArea::set_required_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version ::
Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea"
Int32 -> -- major : TBasicType TInt32
Int32 -> -- minor : TBasicType TInt32
IO ()
gLAreaSetRequiredVersion ::
(MonadIO m, GLAreaK a) =>
a -> -- _obj
Int32 -> -- major
Int32 -> -- minor
m ()
gLAreaSetRequiredVersion _obj major minor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_set_required_version _obj' major minor
touchManagedPtr _obj
return ()
-- signal GLArea::create-context
type GLAreaCreateContextCallback =
IO Gdk.GLContext
noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback
noGLAreaCreateContextCallback = Nothing
type GLAreaCreateContextCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO (Ptr Gdk.GLContext)
foreign import ccall "wrapper"
mkGLAreaCreateContextCallback :: GLAreaCreateContextCallbackC -> IO (FunPtr GLAreaCreateContextCallbackC)
gLAreaCreateContextClosure :: GLAreaCreateContextCallback -> IO Closure
gLAreaCreateContextClosure cb = newCClosure =<< mkGLAreaCreateContextCallback wrapped
where wrapped = gLAreaCreateContextCallbackWrapper cb
gLAreaCreateContextCallbackWrapper ::
GLAreaCreateContextCallback ->
Ptr () ->
Ptr () ->
IO (Ptr Gdk.GLContext)
gLAreaCreateContextCallbackWrapper _cb _ _ = do
result <- _cb
result' <- refObject result
return result'
onGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
onGLAreaCreateContext obj cb = liftIO $ connectGLAreaCreateContext obj cb SignalConnectBefore
afterGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
afterGLAreaCreateContext obj cb = connectGLAreaCreateContext obj cb SignalConnectAfter
connectGLAreaCreateContext :: (GObject a, MonadIO m) =>
a -> GLAreaCreateContextCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaCreateContext obj cb after = liftIO $ do
cb' <- mkGLAreaCreateContextCallback (gLAreaCreateContextCallbackWrapper cb)
connectSignalFunPtr obj "create-context" cb' after
-- signal GLArea::render
type GLAreaRenderCallback =
Gdk.GLContext ->
IO Bool
noGLAreaRenderCallback :: Maybe GLAreaRenderCallback
noGLAreaRenderCallback = Nothing
type GLAreaRenderCallbackC =
Ptr () -> -- object
Ptr Gdk.GLContext ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkGLAreaRenderCallback :: GLAreaRenderCallbackC -> IO (FunPtr GLAreaRenderCallbackC)
gLAreaRenderClosure :: GLAreaRenderCallback -> IO Closure
gLAreaRenderClosure cb = newCClosure =<< mkGLAreaRenderCallback wrapped
where wrapped = gLAreaRenderCallbackWrapper cb
gLAreaRenderCallbackWrapper ::
GLAreaRenderCallback ->
Ptr () ->
Ptr Gdk.GLContext ->
Ptr () ->
IO CInt
gLAreaRenderCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.GLContext) context
result <- _cb context'
let result' = (fromIntegral . fromEnum) result
return result'
onGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
onGLAreaRender obj cb = liftIO $ connectGLAreaRender obj cb SignalConnectBefore
afterGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
afterGLAreaRender obj cb = connectGLAreaRender obj cb SignalConnectAfter
connectGLAreaRender :: (GObject a, MonadIO m) =>
a -> GLAreaRenderCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaRender obj cb after = liftIO $ do
cb' <- mkGLAreaRenderCallback (gLAreaRenderCallbackWrapper cb)
connectSignalFunPtr obj "render" cb' after
-- signal GLArea::resize
type GLAreaResizeCallback =
Int32 ->
Int32 ->
IO ()
noGLAreaResizeCallback :: Maybe GLAreaResizeCallback
noGLAreaResizeCallback = Nothing
type GLAreaResizeCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGLAreaResizeCallback :: GLAreaResizeCallbackC -> IO (FunPtr GLAreaResizeCallbackC)
gLAreaResizeClosure :: GLAreaResizeCallback -> IO Closure
gLAreaResizeClosure cb = newCClosure =<< mkGLAreaResizeCallback wrapped
where wrapped = gLAreaResizeCallbackWrapper cb
gLAreaResizeCallbackWrapper ::
GLAreaResizeCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
gLAreaResizeCallbackWrapper _cb _ width height _ = do
_cb width height
onGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
onGLAreaResize obj cb = liftIO $ connectGLAreaResize obj cb SignalConnectBefore
afterGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
afterGLAreaResize obj cb = connectGLAreaResize obj cb SignalConnectAfter
connectGLAreaResize :: (GObject a, MonadIO m) =>
a -> GLAreaResizeCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaResize obj cb after = liftIO $ do
cb' <- mkGLAreaResizeCallback (gLAreaResizeCallbackWrapper cb)
connectSignalFunPtr obj "resize" cb' after
-- object Gesture
newtype Gesture = Gesture (ForeignPtr Gesture)
noGesture :: Maybe Gesture
noGesture = Nothing
foreign import ccall "gtk_gesture_get_type"
c_gtk_gesture_get_type :: IO GType
type instance ParentTypes Gesture = '[EventController, GObject.Object]
instance GObject Gesture where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_get_type
class GObject o => GestureK o
instance (GObject o, IsDescendantOf Gesture o) => GestureK o
toGesture :: GestureK o => o -> IO Gesture
toGesture = unsafeCastTo Gesture
-- method Gesture::get_bounding_box
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_bounding_box" gtk_gesture_get_bounding_box ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO CInt
gestureGetBoundingBox ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m (Bool,Gdk.Rectangle)
gestureGetBoundingBox _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_gesture_get_bounding_box _obj' rect
let result' = (/= 0) result
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
return (result', rect')
-- method Gesture::get_bounding_box_center
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_bounding_box_center" gtk_gesture_get_bounding_box_center ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr CDouble -> -- x : TBasicType TDouble
Ptr CDouble -> -- y : TBasicType TDouble
IO CInt
gestureGetBoundingBoxCenter ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m (Bool,Double,Double)
gestureGetBoundingBoxCenter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr CDouble)
y <- allocMem :: IO (Ptr CDouble)
result <- gtk_gesture_get_bounding_box_center _obj' x y
let result' = (/= 0) result
x' <- peek x
let x'' = realToFrac x'
y' <- peek y
let y'' = realToFrac y'
touchManagedPtr _obj
freeMem x
freeMem y
return (result', x'', y'')
-- method Gesture::get_device
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Device"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_device" gtk_gesture_get_device ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO (Ptr Gdk.Device)
gestureGetDevice ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m Gdk.Device
gestureGetDevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_get_device _obj'
checkUnexpectedReturnNULL "gtk_gesture_get_device" result
result' <- (newObject Gdk.Device) result
touchManagedPtr _obj
return result'
-- method Gesture::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Gesture")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_group" gtk_gesture_get_group ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO (Ptr (GList (Ptr Gesture)))
gestureGetGroup ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m [Gesture]
gestureGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_get_group _obj'
checkUnexpectedReturnNULL "gtk_gesture_get_group" result
result' <- unpackGList result
result'' <- mapM (newObject Gesture) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Gesture::get_last_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Event"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_last_event" gtk_gesture_get_last_event ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence"
IO (Ptr Gdk.Event)
gestureGetLastEvent ::
(MonadIO m, GestureK a) =>
a -> -- _obj
Gdk.EventSequence -> -- sequence
m Gdk.Event
gestureGetLastEvent _obj sequence = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sequence' = unsafeManagedPtrGetPtr sequence
result <- gtk_gesture_get_last_event _obj' sequence'
checkUnexpectedReturnNULL "gtk_gesture_get_last_event" result
result' <- (newBoxed Gdk.Event) result
touchManagedPtr _obj
touchManagedPtr sequence
return result'
-- method Gesture::get_last_updated_sequence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "EventSequence"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_last_updated_sequence" gtk_gesture_get_last_updated_sequence ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO (Ptr Gdk.EventSequence)
gestureGetLastUpdatedSequence ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m Gdk.EventSequence
gestureGetLastUpdatedSequence _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_get_last_updated_sequence _obj'
checkUnexpectedReturnNULL "gtk_gesture_get_last_updated_sequence" result
result' <- (wrapBoxed Gdk.EventSequence) result
touchManagedPtr _obj
return result'
-- method Gesture::get_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_point" gtk_gesture_get_point ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence"
Ptr CDouble -> -- x : TBasicType TDouble
Ptr CDouble -> -- y : TBasicType TDouble
IO CInt
gestureGetPoint ::
(MonadIO m, GestureK a) =>
a -> -- _obj
Maybe (Gdk.EventSequence) -> -- sequence
m (Bool,Double,Double)
gestureGetPoint _obj sequence = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSequence <- case sequence of
Nothing -> return nullPtr
Just jSequence -> do
let jSequence' = unsafeManagedPtrGetPtr jSequence
return jSequence'
x <- allocMem :: IO (Ptr CDouble)
y <- allocMem :: IO (Ptr CDouble)
result <- gtk_gesture_get_point _obj' maybeSequence x y
let result' = (/= 0) result
x' <- peek x
let x'' = realToFrac x'
y' <- peek y
let y'' = realToFrac y'
touchManagedPtr _obj
whenJust sequence touchManagedPtr
freeMem x
freeMem y
return (result', x'', y'')
-- method Gesture::get_sequence_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "EventSequenceState"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_sequence_state" gtk_gesture_get_sequence_state ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence"
IO CUInt
gestureGetSequenceState ::
(MonadIO m, GestureK a) =>
a -> -- _obj
Gdk.EventSequence -> -- sequence
m EventSequenceState
gestureGetSequenceState _obj sequence = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sequence' = unsafeManagedPtrGetPtr sequence
result <- gtk_gesture_get_sequence_state _obj' sequence'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr sequence
return result'
-- method Gesture::get_sequences
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gdk" "EventSequence")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_sequences" gtk_gesture_get_sequences ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO (Ptr (GList (Ptr Gdk.EventSequence)))
gestureGetSequences ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m [Gdk.EventSequence]
gestureGetSequences _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_get_sequences _obj'
checkUnexpectedReturnNULL "gtk_gesture_get_sequences" result
result' <- unpackGList result
result'' <- mapM (newBoxed Gdk.EventSequence) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Gesture::get_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_get_window" gtk_gesture_get_window ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO (Ptr Gdk.Window)
gestureGetWindow ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m Gdk.Window
gestureGetWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_get_window _obj'
checkUnexpectedReturnNULL "gtk_gesture_get_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Gesture::group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_group" gtk_gesture_group ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gesture -> -- gesture : TInterface "Gtk" "Gesture"
IO ()
gestureGroup ::
(MonadIO m, GestureK a, GestureK b) =>
a -> -- _obj
b -> -- gesture
m ()
gestureGroup _obj gesture = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let gesture' = unsafeManagedPtrCastPtr gesture
gtk_gesture_group _obj' gesture'
touchManagedPtr _obj
touchManagedPtr gesture
return ()
-- method Gesture::handles_sequence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_handles_sequence" gtk_gesture_handles_sequence ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence"
IO CInt
gestureHandlesSequence ::
(MonadIO m, GestureK a) =>
a -> -- _obj
Gdk.EventSequence -> -- sequence
m Bool
gestureHandlesSequence _obj sequence = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sequence' = unsafeManagedPtrGetPtr sequence
result <- gtk_gesture_handles_sequence _obj' sequence'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr sequence
return result'
-- method Gesture::is_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_is_active" gtk_gesture_is_active ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO CInt
gestureIsActive ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m Bool
gestureIsActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_is_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Gesture::is_grouped_with
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_is_grouped_with" gtk_gesture_is_grouped_with ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gesture -> -- other : TInterface "Gtk" "Gesture"
IO CInt
gestureIsGroupedWith ::
(MonadIO m, GestureK a, GestureK b) =>
a -> -- _obj
b -> -- other
m Bool
gestureIsGroupedWith _obj other = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let other' = unsafeManagedPtrCastPtr other
result <- gtk_gesture_is_grouped_with _obj' other'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr other
return result'
-- method Gesture::is_recognized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_is_recognized" gtk_gesture_is_recognized ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO CInt
gestureIsRecognized ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m Bool
gestureIsRecognized _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_is_recognized _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Gesture::set_sequence_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_set_sequence_state" gtk_gesture_set_sequence_state ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence"
CUInt -> -- state : TInterface "Gtk" "EventSequenceState"
IO CInt
gestureSetSequenceState ::
(MonadIO m, GestureK a) =>
a -> -- _obj
Gdk.EventSequence -> -- sequence
EventSequenceState -> -- state
m Bool
gestureSetSequenceState _obj sequence state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sequence' = unsafeManagedPtrGetPtr sequence
let state' = (fromIntegral . fromEnum) state
result <- gtk_gesture_set_sequence_state _obj' sequence' state'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr sequence
return result'
-- method Gesture::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_set_state" gtk_gesture_set_state ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
CUInt -> -- state : TInterface "Gtk" "EventSequenceState"
IO CInt
gestureSetState ::
(MonadIO m, GestureK a) =>
a -> -- _obj
EventSequenceState -> -- state
m Bool
gestureSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
result <- gtk_gesture_set_state _obj' state'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Gesture::set_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_set_window" gtk_gesture_set_window ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
gestureSetWindow ::
(MonadIO m, GestureK a, Gdk.WindowK b) =>
a -> -- _obj
Maybe (b) -> -- window
m ()
gestureSetWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWindow <- case window of
Nothing -> return nullPtr
Just jWindow -> do
let jWindow' = unsafeManagedPtrCastPtr jWindow
return jWindow'
gtk_gesture_set_window _obj' maybeWindow
touchManagedPtr _obj
whenJust window touchManagedPtr
return ()
-- method Gesture::ungroup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_ungroup" gtk_gesture_ungroup ::
Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture"
IO ()
gestureUngroup ::
(MonadIO m, GestureK a) =>
a -> -- _obj
m ()
gestureUngroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gesture_ungroup _obj'
touchManagedPtr _obj
return ()
-- signal Gesture::begin
type GestureBeginCallback =
Gdk.EventSequence ->
IO ()
noGestureBeginCallback :: Maybe GestureBeginCallback
noGestureBeginCallback = Nothing
type GestureBeginCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSequence ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureBeginCallback :: GestureBeginCallbackC -> IO (FunPtr GestureBeginCallbackC)
gestureBeginClosure :: GestureBeginCallback -> IO Closure
gestureBeginClosure cb = newCClosure =<< mkGestureBeginCallback wrapped
where wrapped = gestureBeginCallbackWrapper cb
gestureBeginCallbackWrapper ::
GestureBeginCallback ->
Ptr () ->
Ptr Gdk.EventSequence ->
Ptr () ->
IO ()
gestureBeginCallbackWrapper _cb _ sequence _ = do
sequence' <- (newBoxed Gdk.EventSequence) sequence
_cb sequence'
onGestureBegin :: (GObject a, MonadIO m) => a -> GestureBeginCallback -> m SignalHandlerId
onGestureBegin obj cb = liftIO $ connectGestureBegin obj cb SignalConnectBefore
afterGestureBegin :: (GObject a, MonadIO m) => a -> GestureBeginCallback -> m SignalHandlerId
afterGestureBegin obj cb = connectGestureBegin obj cb SignalConnectAfter
connectGestureBegin :: (GObject a, MonadIO m) =>
a -> GestureBeginCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureBegin obj cb after = liftIO $ do
cb' <- mkGestureBeginCallback (gestureBeginCallbackWrapper cb)
connectSignalFunPtr obj "begin" cb' after
-- signal Gesture::cancel
type GestureCancelCallback =
Gdk.EventSequence ->
IO ()
noGestureCancelCallback :: Maybe GestureCancelCallback
noGestureCancelCallback = Nothing
type GestureCancelCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSequence ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureCancelCallback :: GestureCancelCallbackC -> IO (FunPtr GestureCancelCallbackC)
gestureCancelClosure :: GestureCancelCallback -> IO Closure
gestureCancelClosure cb = newCClosure =<< mkGestureCancelCallback wrapped
where wrapped = gestureCancelCallbackWrapper cb
gestureCancelCallbackWrapper ::
GestureCancelCallback ->
Ptr () ->
Ptr Gdk.EventSequence ->
Ptr () ->
IO ()
gestureCancelCallbackWrapper _cb _ sequence _ = do
sequence' <- (newBoxed Gdk.EventSequence) sequence
_cb sequence'
onGestureCancel :: (GObject a, MonadIO m) => a -> GestureCancelCallback -> m SignalHandlerId
onGestureCancel obj cb = liftIO $ connectGestureCancel obj cb SignalConnectBefore
afterGestureCancel :: (GObject a, MonadIO m) => a -> GestureCancelCallback -> m SignalHandlerId
afterGestureCancel obj cb = connectGestureCancel obj cb SignalConnectAfter
connectGestureCancel :: (GObject a, MonadIO m) =>
a -> GestureCancelCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureCancel obj cb after = liftIO $ do
cb' <- mkGestureCancelCallback (gestureCancelCallbackWrapper cb)
connectSignalFunPtr obj "cancel" cb' after
-- signal Gesture::end
type GestureEndCallback =
Gdk.EventSequence ->
IO ()
noGestureEndCallback :: Maybe GestureEndCallback
noGestureEndCallback = Nothing
type GestureEndCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSequence ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureEndCallback :: GestureEndCallbackC -> IO (FunPtr GestureEndCallbackC)
gestureEndClosure :: GestureEndCallback -> IO Closure
gestureEndClosure cb = newCClosure =<< mkGestureEndCallback wrapped
where wrapped = gestureEndCallbackWrapper cb
gestureEndCallbackWrapper ::
GestureEndCallback ->
Ptr () ->
Ptr Gdk.EventSequence ->
Ptr () ->
IO ()
gestureEndCallbackWrapper _cb _ sequence _ = do
sequence' <- (newBoxed Gdk.EventSequence) sequence
_cb sequence'
onGestureEnd :: (GObject a, MonadIO m) => a -> GestureEndCallback -> m SignalHandlerId
onGestureEnd obj cb = liftIO $ connectGestureEnd obj cb SignalConnectBefore
afterGestureEnd :: (GObject a, MonadIO m) => a -> GestureEndCallback -> m SignalHandlerId
afterGestureEnd obj cb = connectGestureEnd obj cb SignalConnectAfter
connectGestureEnd :: (GObject a, MonadIO m) =>
a -> GestureEndCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureEnd obj cb after = liftIO $ do
cb' <- mkGestureEndCallback (gestureEndCallbackWrapper cb)
connectSignalFunPtr obj "end" cb' after
-- signal Gesture::sequence-state-changed
type GestureSequenceStateChangedCallback =
Gdk.EventSequence ->
EventSequenceState ->
IO ()
noGestureSequenceStateChangedCallback :: Maybe GestureSequenceStateChangedCallback
noGestureSequenceStateChangedCallback = Nothing
type GestureSequenceStateChangedCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSequence ->
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureSequenceStateChangedCallback :: GestureSequenceStateChangedCallbackC -> IO (FunPtr GestureSequenceStateChangedCallbackC)
gestureSequenceStateChangedClosure :: GestureSequenceStateChangedCallback -> IO Closure
gestureSequenceStateChangedClosure cb = newCClosure =<< mkGestureSequenceStateChangedCallback wrapped
where wrapped = gestureSequenceStateChangedCallbackWrapper cb
gestureSequenceStateChangedCallbackWrapper ::
GestureSequenceStateChangedCallback ->
Ptr () ->
Ptr Gdk.EventSequence ->
CUInt ->
Ptr () ->
IO ()
gestureSequenceStateChangedCallbackWrapper _cb _ sequence state _ = do
sequence' <- (newBoxed Gdk.EventSequence) sequence
let state' = (toEnum . fromIntegral) state
_cb sequence' state'
onGestureSequenceStateChanged :: (GObject a, MonadIO m) => a -> GestureSequenceStateChangedCallback -> m SignalHandlerId
onGestureSequenceStateChanged obj cb = liftIO $ connectGestureSequenceStateChanged obj cb SignalConnectBefore
afterGestureSequenceStateChanged :: (GObject a, MonadIO m) => a -> GestureSequenceStateChangedCallback -> m SignalHandlerId
afterGestureSequenceStateChanged obj cb = connectGestureSequenceStateChanged obj cb SignalConnectAfter
connectGestureSequenceStateChanged :: (GObject a, MonadIO m) =>
a -> GestureSequenceStateChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureSequenceStateChanged obj cb after = liftIO $ do
cb' <- mkGestureSequenceStateChangedCallback (gestureSequenceStateChangedCallbackWrapper cb)
connectSignalFunPtr obj "sequence-state-changed" cb' after
-- signal Gesture::update
type GestureUpdateCallback =
Gdk.EventSequence ->
IO ()
noGestureUpdateCallback :: Maybe GestureUpdateCallback
noGestureUpdateCallback = Nothing
type GestureUpdateCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSequence ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureUpdateCallback :: GestureUpdateCallbackC -> IO (FunPtr GestureUpdateCallbackC)
gestureUpdateClosure :: GestureUpdateCallback -> IO Closure
gestureUpdateClosure cb = newCClosure =<< mkGestureUpdateCallback wrapped
where wrapped = gestureUpdateCallbackWrapper cb
gestureUpdateCallbackWrapper ::
GestureUpdateCallback ->
Ptr () ->
Ptr Gdk.EventSequence ->
Ptr () ->
IO ()
gestureUpdateCallbackWrapper _cb _ sequence _ = do
sequence' <- (newBoxed Gdk.EventSequence) sequence
_cb sequence'
onGestureUpdate :: (GObject a, MonadIO m) => a -> GestureUpdateCallback -> m SignalHandlerId
onGestureUpdate obj cb = liftIO $ connectGestureUpdate obj cb SignalConnectBefore
afterGestureUpdate :: (GObject a, MonadIO m) => a -> GestureUpdateCallback -> m SignalHandlerId
afterGestureUpdate obj cb = connectGestureUpdate obj cb SignalConnectAfter
connectGestureUpdate :: (GObject a, MonadIO m) =>
a -> GestureUpdateCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureUpdate obj cb after = liftIO $ do
cb' <- mkGestureUpdateCallback (gestureUpdateCallbackWrapper cb)
connectSignalFunPtr obj "update" cb' after
-- object GestureDrag
newtype GestureDrag = GestureDrag (ForeignPtr GestureDrag)
noGestureDrag :: Maybe GestureDrag
noGestureDrag = Nothing
foreign import ccall "gtk_gesture_drag_get_type"
c_gtk_gesture_drag_get_type :: IO GType
type instance ParentTypes GestureDrag = '[GestureSingle, Gesture, EventController, GObject.Object]
instance GObject GestureDrag where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_drag_get_type
class GObject o => GestureDragK o
instance (GObject o, IsDescendantOf GestureDrag o) => GestureDragK o
toGestureDrag :: GestureDragK o => o -> IO GestureDrag
toGestureDrag = unsafeCastTo GestureDrag
-- method GestureDrag::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureDrag"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_drag_new" gtk_gesture_drag_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureDrag)
gestureDragNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureDrag
gestureDragNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_drag_new widget'
checkUnexpectedReturnNULL "gtk_gesture_drag_new" result
result' <- (wrapObject GestureDrag) result
touchManagedPtr widget
return result'
-- XXX Could not generate method GestureDrag::get_offset
-- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such."
-- XXX Could not generate method GestureDrag::get_start_point
-- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such."
-- signal GestureDrag::drag-begin
type GestureDragDragBeginCallback =
Double ->
Double ->
IO ()
noGestureDragDragBeginCallback :: Maybe GestureDragDragBeginCallback
noGestureDragDragBeginCallback = Nothing
type GestureDragDragBeginCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureDragDragBeginCallback :: GestureDragDragBeginCallbackC -> IO (FunPtr GestureDragDragBeginCallbackC)
gestureDragDragBeginClosure :: GestureDragDragBeginCallback -> IO Closure
gestureDragDragBeginClosure cb = newCClosure =<< mkGestureDragDragBeginCallback wrapped
where wrapped = gestureDragDragBeginCallbackWrapper cb
gestureDragDragBeginCallbackWrapper ::
GestureDragDragBeginCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureDragDragBeginCallbackWrapper _cb _ start_x start_y _ = do
let start_x' = realToFrac start_x
let start_y' = realToFrac start_y
_cb start_x' start_y'
onGestureDragDragBegin :: (GObject a, MonadIO m) => a -> GestureDragDragBeginCallback -> m SignalHandlerId
onGestureDragDragBegin obj cb = liftIO $ connectGestureDragDragBegin obj cb SignalConnectBefore
afterGestureDragDragBegin :: (GObject a, MonadIO m) => a -> GestureDragDragBeginCallback -> m SignalHandlerId
afterGestureDragDragBegin obj cb = connectGestureDragDragBegin obj cb SignalConnectAfter
connectGestureDragDragBegin :: (GObject a, MonadIO m) =>
a -> GestureDragDragBeginCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureDragDragBegin obj cb after = liftIO $ do
cb' <- mkGestureDragDragBeginCallback (gestureDragDragBeginCallbackWrapper cb)
connectSignalFunPtr obj "drag-begin" cb' after
-- signal GestureDrag::drag-end
type GestureDragDragEndCallback =
Double ->
Double ->
IO ()
noGestureDragDragEndCallback :: Maybe GestureDragDragEndCallback
noGestureDragDragEndCallback = Nothing
type GestureDragDragEndCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureDragDragEndCallback :: GestureDragDragEndCallbackC -> IO (FunPtr GestureDragDragEndCallbackC)
gestureDragDragEndClosure :: GestureDragDragEndCallback -> IO Closure
gestureDragDragEndClosure cb = newCClosure =<< mkGestureDragDragEndCallback wrapped
where wrapped = gestureDragDragEndCallbackWrapper cb
gestureDragDragEndCallbackWrapper ::
GestureDragDragEndCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureDragDragEndCallbackWrapper _cb _ offset_x offset_y _ = do
let offset_x' = realToFrac offset_x
let offset_y' = realToFrac offset_y
_cb offset_x' offset_y'
onGestureDragDragEnd :: (GObject a, MonadIO m) => a -> GestureDragDragEndCallback -> m SignalHandlerId
onGestureDragDragEnd obj cb = liftIO $ connectGestureDragDragEnd obj cb SignalConnectBefore
afterGestureDragDragEnd :: (GObject a, MonadIO m) => a -> GestureDragDragEndCallback -> m SignalHandlerId
afterGestureDragDragEnd obj cb = connectGestureDragDragEnd obj cb SignalConnectAfter
connectGestureDragDragEnd :: (GObject a, MonadIO m) =>
a -> GestureDragDragEndCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureDragDragEnd obj cb after = liftIO $ do
cb' <- mkGestureDragDragEndCallback (gestureDragDragEndCallbackWrapper cb)
connectSignalFunPtr obj "drag-end" cb' after
-- signal GestureDrag::drag-update
type GestureDragDragUpdateCallback =
Double ->
Double ->
IO ()
noGestureDragDragUpdateCallback :: Maybe GestureDragDragUpdateCallback
noGestureDragDragUpdateCallback = Nothing
type GestureDragDragUpdateCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureDragDragUpdateCallback :: GestureDragDragUpdateCallbackC -> IO (FunPtr GestureDragDragUpdateCallbackC)
gestureDragDragUpdateClosure :: GestureDragDragUpdateCallback -> IO Closure
gestureDragDragUpdateClosure cb = newCClosure =<< mkGestureDragDragUpdateCallback wrapped
where wrapped = gestureDragDragUpdateCallbackWrapper cb
gestureDragDragUpdateCallbackWrapper ::
GestureDragDragUpdateCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureDragDragUpdateCallbackWrapper _cb _ offset_x offset_y _ = do
let offset_x' = realToFrac offset_x
let offset_y' = realToFrac offset_y
_cb offset_x' offset_y'
onGestureDragDragUpdate :: (GObject a, MonadIO m) => a -> GestureDragDragUpdateCallback -> m SignalHandlerId
onGestureDragDragUpdate obj cb = liftIO $ connectGestureDragDragUpdate obj cb SignalConnectBefore
afterGestureDragDragUpdate :: (GObject a, MonadIO m) => a -> GestureDragDragUpdateCallback -> m SignalHandlerId
afterGestureDragDragUpdate obj cb = connectGestureDragDragUpdate obj cb SignalConnectAfter
connectGestureDragDragUpdate :: (GObject a, MonadIO m) =>
a -> GestureDragDragUpdateCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureDragDragUpdate obj cb after = liftIO $ do
cb' <- mkGestureDragDragUpdateCallback (gestureDragDragUpdateCallbackWrapper cb)
connectSignalFunPtr obj "drag-update" cb' after
-- object GestureLongPress
newtype GestureLongPress = GestureLongPress (ForeignPtr GestureLongPress)
noGestureLongPress :: Maybe GestureLongPress
noGestureLongPress = Nothing
foreign import ccall "gtk_gesture_long_press_get_type"
c_gtk_gesture_long_press_get_type :: IO GType
type instance ParentTypes GestureLongPress = '[GestureSingle, Gesture, EventController, GObject.Object]
instance GObject GestureLongPress where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_long_press_get_type
class GObject o => GestureLongPressK o
instance (GObject o, IsDescendantOf GestureLongPress o) => GestureLongPressK o
toGestureLongPress :: GestureLongPressK o => o -> IO GestureLongPress
toGestureLongPress = unsafeCastTo GestureLongPress
-- method GestureLongPress::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureLongPress"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_long_press_new" gtk_gesture_long_press_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureLongPress)
gestureLongPressNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureLongPress
gestureLongPressNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_long_press_new widget'
checkUnexpectedReturnNULL "gtk_gesture_long_press_new" result
result' <- (wrapObject GestureLongPress) result
touchManagedPtr widget
return result'
-- signal GestureLongPress::cancelled
type GestureLongPressCancelledCallback =
IO ()
noGestureLongPressCancelledCallback :: Maybe GestureLongPressCancelledCallback
noGestureLongPressCancelledCallback = Nothing
type GestureLongPressCancelledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureLongPressCancelledCallback :: GestureLongPressCancelledCallbackC -> IO (FunPtr GestureLongPressCancelledCallbackC)
gestureLongPressCancelledClosure :: GestureLongPressCancelledCallback -> IO Closure
gestureLongPressCancelledClosure cb = newCClosure =<< mkGestureLongPressCancelledCallback wrapped
where wrapped = gestureLongPressCancelledCallbackWrapper cb
gestureLongPressCancelledCallbackWrapper ::
GestureLongPressCancelledCallback ->
Ptr () ->
Ptr () ->
IO ()
gestureLongPressCancelledCallbackWrapper _cb _ _ = do
_cb
onGestureLongPressCancelled :: (GObject a, MonadIO m) => a -> GestureLongPressCancelledCallback -> m SignalHandlerId
onGestureLongPressCancelled obj cb = liftIO $ connectGestureLongPressCancelled obj cb SignalConnectBefore
afterGestureLongPressCancelled :: (GObject a, MonadIO m) => a -> GestureLongPressCancelledCallback -> m SignalHandlerId
afterGestureLongPressCancelled obj cb = connectGestureLongPressCancelled obj cb SignalConnectAfter
connectGestureLongPressCancelled :: (GObject a, MonadIO m) =>
a -> GestureLongPressCancelledCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureLongPressCancelled obj cb after = liftIO $ do
cb' <- mkGestureLongPressCancelledCallback (gestureLongPressCancelledCallbackWrapper cb)
connectSignalFunPtr obj "cancelled" cb' after
-- signal GestureLongPress::pressed
type GestureLongPressPressedCallback =
Double ->
Double ->
IO ()
noGestureLongPressPressedCallback :: Maybe GestureLongPressPressedCallback
noGestureLongPressPressedCallback = Nothing
type GestureLongPressPressedCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureLongPressPressedCallback :: GestureLongPressPressedCallbackC -> IO (FunPtr GestureLongPressPressedCallbackC)
gestureLongPressPressedClosure :: GestureLongPressPressedCallback -> IO Closure
gestureLongPressPressedClosure cb = newCClosure =<< mkGestureLongPressPressedCallback wrapped
where wrapped = gestureLongPressPressedCallbackWrapper cb
gestureLongPressPressedCallbackWrapper ::
GestureLongPressPressedCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureLongPressPressedCallbackWrapper _cb _ x y _ = do
let x' = realToFrac x
let y' = realToFrac y
_cb x' y'
onGestureLongPressPressed :: (GObject a, MonadIO m) => a -> GestureLongPressPressedCallback -> m SignalHandlerId
onGestureLongPressPressed obj cb = liftIO $ connectGestureLongPressPressed obj cb SignalConnectBefore
afterGestureLongPressPressed :: (GObject a, MonadIO m) => a -> GestureLongPressPressedCallback -> m SignalHandlerId
afterGestureLongPressPressed obj cb = connectGestureLongPressPressed obj cb SignalConnectAfter
connectGestureLongPressPressed :: (GObject a, MonadIO m) =>
a -> GestureLongPressPressedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureLongPressPressed obj cb after = liftIO $ do
cb' <- mkGestureLongPressPressedCallback (gestureLongPressPressedCallbackWrapper cb)
connectSignalFunPtr obj "pressed" cb' after
-- object GestureMultiPress
newtype GestureMultiPress = GestureMultiPress (ForeignPtr GestureMultiPress)
noGestureMultiPress :: Maybe GestureMultiPress
noGestureMultiPress = Nothing
foreign import ccall "gtk_gesture_multi_press_get_type"
c_gtk_gesture_multi_press_get_type :: IO GType
type instance ParentTypes GestureMultiPress = '[GestureSingle, Gesture, EventController, GObject.Object]
instance GObject GestureMultiPress where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_multi_press_get_type
class GObject o => GestureMultiPressK o
instance (GObject o, IsDescendantOf GestureMultiPress o) => GestureMultiPressK o
toGestureMultiPress :: GestureMultiPressK o => o -> IO GestureMultiPress
toGestureMultiPress = unsafeCastTo GestureMultiPress
-- method GestureMultiPress::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureMultiPress"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_multi_press_new" gtk_gesture_multi_press_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureMultiPress)
gestureMultiPressNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureMultiPress
gestureMultiPressNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_multi_press_new widget'
checkUnexpectedReturnNULL "gtk_gesture_multi_press_new" result
result' <- (wrapObject GestureMultiPress) result
touchManagedPtr widget
return result'
-- method GestureMultiPress::get_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_multi_press_get_area" gtk_gesture_multi_press_get_area ::
Ptr GestureMultiPress -> -- _obj : TInterface "Gtk" "GestureMultiPress"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO CInt
gestureMultiPressGetArea ::
(MonadIO m, GestureMultiPressK a) =>
a -> -- _obj
m (Bool,Gdk.Rectangle)
gestureMultiPressGetArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_gesture_multi_press_get_area _obj' rect
let result' = (/= 0) result
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
return (result', rect')
-- method GestureMultiPress::set_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_multi_press_set_area" gtk_gesture_multi_press_set_area ::
Ptr GestureMultiPress -> -- _obj : TInterface "Gtk" "GestureMultiPress"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
gestureMultiPressSetArea ::
(MonadIO m, GestureMultiPressK a) =>
a -> -- _obj
Maybe (Gdk.Rectangle) -> -- rect
m ()
gestureMultiPressSetArea _obj rect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRect <- case rect of
Nothing -> return nullPtr
Just jRect -> do
let jRect' = unsafeManagedPtrGetPtr jRect
return jRect'
gtk_gesture_multi_press_set_area _obj' maybeRect
touchManagedPtr _obj
whenJust rect touchManagedPtr
return ()
-- signal GestureMultiPress::pressed
type GestureMultiPressPressedCallback =
Int32 ->
Double ->
Double ->
IO ()
noGestureMultiPressPressedCallback :: Maybe GestureMultiPressPressedCallback
noGestureMultiPressPressedCallback = Nothing
type GestureMultiPressPressedCallbackC =
Ptr () -> -- object
Int32 ->
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureMultiPressPressedCallback :: GestureMultiPressPressedCallbackC -> IO (FunPtr GestureMultiPressPressedCallbackC)
gestureMultiPressPressedClosure :: GestureMultiPressPressedCallback -> IO Closure
gestureMultiPressPressedClosure cb = newCClosure =<< mkGestureMultiPressPressedCallback wrapped
where wrapped = gestureMultiPressPressedCallbackWrapper cb
gestureMultiPressPressedCallbackWrapper ::
GestureMultiPressPressedCallback ->
Ptr () ->
Int32 ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureMultiPressPressedCallbackWrapper _cb _ n_press x y _ = do
let x' = realToFrac x
let y' = realToFrac y
_cb n_press x' y'
onGestureMultiPressPressed :: (GObject a, MonadIO m) => a -> GestureMultiPressPressedCallback -> m SignalHandlerId
onGestureMultiPressPressed obj cb = liftIO $ connectGestureMultiPressPressed obj cb SignalConnectBefore
afterGestureMultiPressPressed :: (GObject a, MonadIO m) => a -> GestureMultiPressPressedCallback -> m SignalHandlerId
afterGestureMultiPressPressed obj cb = connectGestureMultiPressPressed obj cb SignalConnectAfter
connectGestureMultiPressPressed :: (GObject a, MonadIO m) =>
a -> GestureMultiPressPressedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureMultiPressPressed obj cb after = liftIO $ do
cb' <- mkGestureMultiPressPressedCallback (gestureMultiPressPressedCallbackWrapper cb)
connectSignalFunPtr obj "pressed" cb' after
-- signal GestureMultiPress::released
type GestureMultiPressReleasedCallback =
Int32 ->
Double ->
Double ->
IO ()
noGestureMultiPressReleasedCallback :: Maybe GestureMultiPressReleasedCallback
noGestureMultiPressReleasedCallback = Nothing
type GestureMultiPressReleasedCallbackC =
Ptr () -> -- object
Int32 ->
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureMultiPressReleasedCallback :: GestureMultiPressReleasedCallbackC -> IO (FunPtr GestureMultiPressReleasedCallbackC)
gestureMultiPressReleasedClosure :: GestureMultiPressReleasedCallback -> IO Closure
gestureMultiPressReleasedClosure cb = newCClosure =<< mkGestureMultiPressReleasedCallback wrapped
where wrapped = gestureMultiPressReleasedCallbackWrapper cb
gestureMultiPressReleasedCallbackWrapper ::
GestureMultiPressReleasedCallback ->
Ptr () ->
Int32 ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureMultiPressReleasedCallbackWrapper _cb _ n_press x y _ = do
let x' = realToFrac x
let y' = realToFrac y
_cb n_press x' y'
onGestureMultiPressReleased :: (GObject a, MonadIO m) => a -> GestureMultiPressReleasedCallback -> m SignalHandlerId
onGestureMultiPressReleased obj cb = liftIO $ connectGestureMultiPressReleased obj cb SignalConnectBefore
afterGestureMultiPressReleased :: (GObject a, MonadIO m) => a -> GestureMultiPressReleasedCallback -> m SignalHandlerId
afterGestureMultiPressReleased obj cb = connectGestureMultiPressReleased obj cb SignalConnectAfter
connectGestureMultiPressReleased :: (GObject a, MonadIO m) =>
a -> GestureMultiPressReleasedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureMultiPressReleased obj cb after = liftIO $ do
cb' <- mkGestureMultiPressReleasedCallback (gestureMultiPressReleasedCallbackWrapper cb)
connectSignalFunPtr obj "released" cb' after
-- signal GestureMultiPress::stopped
type GestureMultiPressStoppedCallback =
IO ()
noGestureMultiPressStoppedCallback :: Maybe GestureMultiPressStoppedCallback
noGestureMultiPressStoppedCallback = Nothing
type GestureMultiPressStoppedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureMultiPressStoppedCallback :: GestureMultiPressStoppedCallbackC -> IO (FunPtr GestureMultiPressStoppedCallbackC)
gestureMultiPressStoppedClosure :: GestureMultiPressStoppedCallback -> IO Closure
gestureMultiPressStoppedClosure cb = newCClosure =<< mkGestureMultiPressStoppedCallback wrapped
where wrapped = gestureMultiPressStoppedCallbackWrapper cb
gestureMultiPressStoppedCallbackWrapper ::
GestureMultiPressStoppedCallback ->
Ptr () ->
Ptr () ->
IO ()
gestureMultiPressStoppedCallbackWrapper _cb _ _ = do
_cb
onGestureMultiPressStopped :: (GObject a, MonadIO m) => a -> GestureMultiPressStoppedCallback -> m SignalHandlerId
onGestureMultiPressStopped obj cb = liftIO $ connectGestureMultiPressStopped obj cb SignalConnectBefore
afterGestureMultiPressStopped :: (GObject a, MonadIO m) => a -> GestureMultiPressStoppedCallback -> m SignalHandlerId
afterGestureMultiPressStopped obj cb = connectGestureMultiPressStopped obj cb SignalConnectAfter
connectGestureMultiPressStopped :: (GObject a, MonadIO m) =>
a -> GestureMultiPressStoppedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureMultiPressStopped obj cb after = liftIO $ do
cb' <- mkGestureMultiPressStoppedCallback (gestureMultiPressStoppedCallbackWrapper cb)
connectSignalFunPtr obj "stopped" cb' after
-- object GesturePan
newtype GesturePan = GesturePan (ForeignPtr GesturePan)
noGesturePan :: Maybe GesturePan
noGesturePan = Nothing
foreign import ccall "gtk_gesture_pan_get_type"
c_gtk_gesture_pan_get_type :: IO GType
type instance ParentTypes GesturePan = '[GestureDrag, GestureSingle, Gesture, EventController, GObject.Object]
instance GObject GesturePan where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_pan_get_type
class GObject o => GesturePanK o
instance (GObject o, IsDescendantOf GesturePan o) => GesturePanK o
toGesturePan :: GesturePanK o => o -> IO GesturePan
toGesturePan = unsafeCastTo GesturePan
-- method GesturePan::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GesturePan"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_pan_new" gtk_gesture_pan_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO (Ptr GesturePan)
gesturePanNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Orientation -> -- orientation
m GesturePan
gesturePanNew widget orientation = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_gesture_pan_new widget' orientation'
checkUnexpectedReturnNULL "gtk_gesture_pan_new" result
result' <- (wrapObject GesturePan) result
touchManagedPtr widget
return result'
-- method GesturePan::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_pan_get_orientation" gtk_gesture_pan_get_orientation ::
Ptr GesturePan -> -- _obj : TInterface "Gtk" "GesturePan"
IO CUInt
gesturePanGetOrientation ::
(MonadIO m, GesturePanK a) =>
a -> -- _obj
m Orientation
gesturePanGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_pan_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method GesturePan::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_pan_set_orientation" gtk_gesture_pan_set_orientation ::
Ptr GesturePan -> -- _obj : TInterface "Gtk" "GesturePan"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
gesturePanSetOrientation ::
(MonadIO m, GesturePanK a) =>
a -> -- _obj
Orientation -> -- orientation
m ()
gesturePanSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_gesture_pan_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- signal GesturePan::pan
type GesturePanPanCallback =
PanDirection ->
Double ->
IO ()
noGesturePanPanCallback :: Maybe GesturePanPanCallback
noGesturePanPanCallback = Nothing
type GesturePanPanCallbackC =
Ptr () -> -- object
CUInt ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGesturePanPanCallback :: GesturePanPanCallbackC -> IO (FunPtr GesturePanPanCallbackC)
gesturePanPanClosure :: GesturePanPanCallback -> IO Closure
gesturePanPanClosure cb = newCClosure =<< mkGesturePanPanCallback wrapped
where wrapped = gesturePanPanCallbackWrapper cb
gesturePanPanCallbackWrapper ::
GesturePanPanCallback ->
Ptr () ->
CUInt ->
CDouble ->
Ptr () ->
IO ()
gesturePanPanCallbackWrapper _cb _ direction offset _ = do
let direction' = (toEnum . fromIntegral) direction
let offset' = realToFrac offset
_cb direction' offset'
onGesturePanPan :: (GObject a, MonadIO m) => a -> GesturePanPanCallback -> m SignalHandlerId
onGesturePanPan obj cb = liftIO $ connectGesturePanPan obj cb SignalConnectBefore
afterGesturePanPan :: (GObject a, MonadIO m) => a -> GesturePanPanCallback -> m SignalHandlerId
afterGesturePanPan obj cb = connectGesturePanPan obj cb SignalConnectAfter
connectGesturePanPan :: (GObject a, MonadIO m) =>
a -> GesturePanPanCallback -> SignalConnectMode -> m SignalHandlerId
connectGesturePanPan obj cb after = liftIO $ do
cb' <- mkGesturePanPanCallback (gesturePanPanCallbackWrapper cb)
connectSignalFunPtr obj "pan" cb' after
-- object GestureRotate
newtype GestureRotate = GestureRotate (ForeignPtr GestureRotate)
noGestureRotate :: Maybe GestureRotate
noGestureRotate = Nothing
foreign import ccall "gtk_gesture_rotate_get_type"
c_gtk_gesture_rotate_get_type :: IO GType
type instance ParentTypes GestureRotate = '[Gesture, EventController, GObject.Object]
instance GObject GestureRotate where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_rotate_get_type
class GObject o => GestureRotateK o
instance (GObject o, IsDescendantOf GestureRotate o) => GestureRotateK o
toGestureRotate :: GestureRotateK o => o -> IO GestureRotate
toGestureRotate = unsafeCastTo GestureRotate
-- method GestureRotate::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureRotate"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_rotate_new" gtk_gesture_rotate_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureRotate)
gestureRotateNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureRotate
gestureRotateNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_rotate_new widget'
checkUnexpectedReturnNULL "gtk_gesture_rotate_new" result
result' <- (wrapObject GestureRotate) result
touchManagedPtr widget
return result'
-- method GestureRotate::get_angle_delta
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_rotate_get_angle_delta" gtk_gesture_rotate_get_angle_delta ::
Ptr GestureRotate -> -- _obj : TInterface "Gtk" "GestureRotate"
IO CDouble
gestureRotateGetAngleDelta ::
(MonadIO m, GestureRotateK a) =>
a -> -- _obj
m Double
gestureRotateGetAngleDelta _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_rotate_get_angle_delta _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- signal GestureRotate::angle-changed
type GestureRotateAngleChangedCallback =
Double ->
Double ->
IO ()
noGestureRotateAngleChangedCallback :: Maybe GestureRotateAngleChangedCallback
noGestureRotateAngleChangedCallback = Nothing
type GestureRotateAngleChangedCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureRotateAngleChangedCallback :: GestureRotateAngleChangedCallbackC -> IO (FunPtr GestureRotateAngleChangedCallbackC)
gestureRotateAngleChangedClosure :: GestureRotateAngleChangedCallback -> IO Closure
gestureRotateAngleChangedClosure cb = newCClosure =<< mkGestureRotateAngleChangedCallback wrapped
where wrapped = gestureRotateAngleChangedCallbackWrapper cb
gestureRotateAngleChangedCallbackWrapper ::
GestureRotateAngleChangedCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureRotateAngleChangedCallbackWrapper _cb _ angle angle_delta _ = do
let angle' = realToFrac angle
let angle_delta' = realToFrac angle_delta
_cb angle' angle_delta'
onGestureRotateAngleChanged :: (GObject a, MonadIO m) => a -> GestureRotateAngleChangedCallback -> m SignalHandlerId
onGestureRotateAngleChanged obj cb = liftIO $ connectGestureRotateAngleChanged obj cb SignalConnectBefore
afterGestureRotateAngleChanged :: (GObject a, MonadIO m) => a -> GestureRotateAngleChangedCallback -> m SignalHandlerId
afterGestureRotateAngleChanged obj cb = connectGestureRotateAngleChanged obj cb SignalConnectAfter
connectGestureRotateAngleChanged :: (GObject a, MonadIO m) =>
a -> GestureRotateAngleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureRotateAngleChanged obj cb after = liftIO $ do
cb' <- mkGestureRotateAngleChangedCallback (gestureRotateAngleChangedCallbackWrapper cb)
connectSignalFunPtr obj "angle-changed" cb' after
-- object GestureSingle
newtype GestureSingle = GestureSingle (ForeignPtr GestureSingle)
noGestureSingle :: Maybe GestureSingle
noGestureSingle = Nothing
foreign import ccall "gtk_gesture_single_get_type"
c_gtk_gesture_single_get_type :: IO GType
type instance ParentTypes GestureSingle = '[Gesture, EventController, GObject.Object]
instance GObject GestureSingle where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_single_get_type
class GObject o => GestureSingleK o
instance (GObject o, IsDescendantOf GestureSingle o) => GestureSingleK o
toGestureSingle :: GestureSingleK o => o -> IO GestureSingle
toGestureSingle = unsafeCastTo GestureSingle
-- method GestureSingle::get_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_get_button" gtk_gesture_single_get_button ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
IO Word32
gestureSingleGetButton ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
m Word32
gestureSingleGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_single_get_button _obj'
touchManagedPtr _obj
return result
-- method GestureSingle::get_current_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_get_current_button" gtk_gesture_single_get_current_button ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
IO Word32
gestureSingleGetCurrentButton ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
m Word32
gestureSingleGetCurrentButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_single_get_current_button _obj'
touchManagedPtr _obj
return result
-- method GestureSingle::get_current_sequence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "EventSequence"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_get_current_sequence" gtk_gesture_single_get_current_sequence ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
IO (Ptr Gdk.EventSequence)
gestureSingleGetCurrentSequence ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
m Gdk.EventSequence
gestureSingleGetCurrentSequence _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_single_get_current_sequence _obj'
checkUnexpectedReturnNULL "gtk_gesture_single_get_current_sequence" result
result' <- (wrapBoxed Gdk.EventSequence) result
touchManagedPtr _obj
return result'
-- method GestureSingle::get_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_get_exclusive" gtk_gesture_single_get_exclusive ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
IO CInt
gestureSingleGetExclusive ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
m Bool
gestureSingleGetExclusive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_single_get_exclusive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GestureSingle::get_touch_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_get_touch_only" gtk_gesture_single_get_touch_only ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
IO CInt
gestureSingleGetTouchOnly ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
m Bool
gestureSingleGetTouchOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_single_get_touch_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method GestureSingle::set_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_set_button" gtk_gesture_single_set_button ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
Word32 -> -- button : TBasicType TUInt32
IO ()
gestureSingleSetButton ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
Word32 -> -- button
m ()
gestureSingleSetButton _obj button = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gesture_single_set_button _obj' button
touchManagedPtr _obj
return ()
-- method GestureSingle::set_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_set_exclusive" gtk_gesture_single_set_exclusive ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
CInt -> -- exclusive : TBasicType TBoolean
IO ()
gestureSingleSetExclusive ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
Bool -> -- exclusive
m ()
gestureSingleSetExclusive _obj exclusive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let exclusive' = (fromIntegral . fromEnum) exclusive
gtk_gesture_single_set_exclusive _obj' exclusive'
touchManagedPtr _obj
return ()
-- method GestureSingle::set_touch_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_single_set_touch_only" gtk_gesture_single_set_touch_only ::
Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle"
CInt -> -- touch_only : TBasicType TBoolean
IO ()
gestureSingleSetTouchOnly ::
(MonadIO m, GestureSingleK a) =>
a -> -- _obj
Bool -> -- touch_only
m ()
gestureSingleSetTouchOnly _obj touch_only = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let touch_only' = (fromIntegral . fromEnum) touch_only
gtk_gesture_single_set_touch_only _obj' touch_only'
touchManagedPtr _obj
return ()
-- object GestureSwipe
newtype GestureSwipe = GestureSwipe (ForeignPtr GestureSwipe)
noGestureSwipe :: Maybe GestureSwipe
noGestureSwipe = Nothing
foreign import ccall "gtk_gesture_swipe_get_type"
c_gtk_gesture_swipe_get_type :: IO GType
type instance ParentTypes GestureSwipe = '[GestureSingle, Gesture, EventController, GObject.Object]
instance GObject GestureSwipe where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_swipe_get_type
class GObject o => GestureSwipeK o
instance (GObject o, IsDescendantOf GestureSwipe o) => GestureSwipeK o
toGestureSwipe :: GestureSwipeK o => o -> IO GestureSwipe
toGestureSwipe = unsafeCastTo GestureSwipe
-- method GestureSwipe::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureSwipe"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_swipe_new" gtk_gesture_swipe_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureSwipe)
gestureSwipeNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureSwipe
gestureSwipeNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_swipe_new widget'
checkUnexpectedReturnNULL "gtk_gesture_swipe_new" result
result' <- (wrapObject GestureSwipe) result
touchManagedPtr widget
return result'
-- method GestureSwipe::get_velocity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_swipe_get_velocity" gtk_gesture_swipe_get_velocity ::
Ptr GestureSwipe -> -- _obj : TInterface "Gtk" "GestureSwipe"
Ptr CDouble -> -- velocity_x : TBasicType TDouble
Ptr CDouble -> -- velocity_y : TBasicType TDouble
IO CInt
gestureSwipeGetVelocity ::
(MonadIO m, GestureSwipeK a) =>
a -> -- _obj
m (Bool,Double,Double)
gestureSwipeGetVelocity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
velocity_x <- allocMem :: IO (Ptr CDouble)
velocity_y <- allocMem :: IO (Ptr CDouble)
result <- gtk_gesture_swipe_get_velocity _obj' velocity_x velocity_y
let result' = (/= 0) result
velocity_x' <- peek velocity_x
let velocity_x'' = realToFrac velocity_x'
velocity_y' <- peek velocity_y
let velocity_y'' = realToFrac velocity_y'
touchManagedPtr _obj
freeMem velocity_x
freeMem velocity_y
return (result', velocity_x'', velocity_y'')
-- signal GestureSwipe::swipe
type GestureSwipeSwipeCallback =
Double ->
Double ->
IO ()
noGestureSwipeSwipeCallback :: Maybe GestureSwipeSwipeCallback
noGestureSwipeSwipeCallback = Nothing
type GestureSwipeSwipeCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureSwipeSwipeCallback :: GestureSwipeSwipeCallbackC -> IO (FunPtr GestureSwipeSwipeCallbackC)
gestureSwipeSwipeClosure :: GestureSwipeSwipeCallback -> IO Closure
gestureSwipeSwipeClosure cb = newCClosure =<< mkGestureSwipeSwipeCallback wrapped
where wrapped = gestureSwipeSwipeCallbackWrapper cb
gestureSwipeSwipeCallbackWrapper ::
GestureSwipeSwipeCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO ()
gestureSwipeSwipeCallbackWrapper _cb _ velocity_x velocity_y _ = do
let velocity_x' = realToFrac velocity_x
let velocity_y' = realToFrac velocity_y
_cb velocity_x' velocity_y'
onGestureSwipeSwipe :: (GObject a, MonadIO m) => a -> GestureSwipeSwipeCallback -> m SignalHandlerId
onGestureSwipeSwipe obj cb = liftIO $ connectGestureSwipeSwipe obj cb SignalConnectBefore
afterGestureSwipeSwipe :: (GObject a, MonadIO m) => a -> GestureSwipeSwipeCallback -> m SignalHandlerId
afterGestureSwipeSwipe obj cb = connectGestureSwipeSwipe obj cb SignalConnectAfter
connectGestureSwipeSwipe :: (GObject a, MonadIO m) =>
a -> GestureSwipeSwipeCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureSwipeSwipe obj cb after = liftIO $ do
cb' <- mkGestureSwipeSwipeCallback (gestureSwipeSwipeCallbackWrapper cb)
connectSignalFunPtr obj "swipe" cb' after
-- object GestureZoom
newtype GestureZoom = GestureZoom (ForeignPtr GestureZoom)
noGestureZoom :: Maybe GestureZoom
noGestureZoom = Nothing
foreign import ccall "gtk_gesture_zoom_get_type"
c_gtk_gesture_zoom_get_type :: IO GType
type instance ParentTypes GestureZoom = '[Gesture, EventController, GObject.Object]
instance GObject GestureZoom where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_zoom_get_type
class GObject o => GestureZoomK o
instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o
toGestureZoom :: GestureZoomK o => o -> IO GestureZoom
toGestureZoom = unsafeCastTo GestureZoom
-- method GestureZoom::new
-- method type : Constructor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "GestureZoom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_zoom_new" gtk_gesture_zoom_new ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr GestureZoom)
gestureZoomNew ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m GestureZoom
gestureZoomNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_zoom_new widget'
checkUnexpectedReturnNULL "gtk_gesture_zoom_new" result
result' <- (wrapObject GestureZoom) result
touchManagedPtr widget
return result'
-- method GestureZoom::get_scale_delta
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gesture_zoom_get_scale_delta" gtk_gesture_zoom_get_scale_delta ::
Ptr GestureZoom -> -- _obj : TInterface "Gtk" "GestureZoom"
IO CDouble
gestureZoomGetScaleDelta ::
(MonadIO m, GestureZoomK a) =>
a -> -- _obj
m Double
gestureZoomGetScaleDelta _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_zoom_get_scale_delta _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- signal GestureZoom::scale-changed
type GestureZoomScaleChangedCallback =
Double ->
IO ()
noGestureZoomScaleChangedCallback :: Maybe GestureZoomScaleChangedCallback
noGestureZoomScaleChangedCallback = Nothing
type GestureZoomScaleChangedCallbackC =
Ptr () -> -- object
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkGestureZoomScaleChangedCallback :: GestureZoomScaleChangedCallbackC -> IO (FunPtr GestureZoomScaleChangedCallbackC)
gestureZoomScaleChangedClosure :: GestureZoomScaleChangedCallback -> IO Closure
gestureZoomScaleChangedClosure cb = newCClosure =<< mkGestureZoomScaleChangedCallback wrapped
where wrapped = gestureZoomScaleChangedCallbackWrapper cb
gestureZoomScaleChangedCallbackWrapper ::
GestureZoomScaleChangedCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO ()
gestureZoomScaleChangedCallbackWrapper _cb _ scale _ = do
let scale' = realToFrac scale
_cb scale'
onGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId
onGestureZoomScaleChanged obj cb = liftIO $ connectGestureZoomScaleChanged obj cb SignalConnectBefore
afterGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId
afterGestureZoomScaleChanged obj cb = connectGestureZoomScaleChanged obj cb SignalConnectAfter
connectGestureZoomScaleChanged :: (GObject a, MonadIO m) =>
a -> GestureZoomScaleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureZoomScaleChanged obj cb after = liftIO $ do
cb' <- mkGestureZoomScaleChangedCallback (gestureZoomScaleChangedCallbackWrapper cb)
connectSignalFunPtr obj "scale-changed" cb' after
-- struct Gradient
newtype Gradient = Gradient (ForeignPtr Gradient)
noGradient :: Maybe Gradient
noGradient = Nothing
foreign import ccall "gtk_gradient_get_type" c_gtk_gradient_get_type ::
IO GType
instance BoxedObject Gradient where
boxedType _ = c_gtk_gradient_get_type
-- method Gradient::new_linear
-- method type : Constructor
-- Args : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Gradient"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_new_linear" gtk_gradient_new_linear ::
CDouble -> -- x0 : TBasicType TDouble
CDouble -> -- y0 : TBasicType TDouble
CDouble -> -- x1 : TBasicType TDouble
CDouble -> -- y1 : TBasicType TDouble
IO (Ptr Gradient)
{-# DEPRECATED gradientNewLinear ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientNewLinear ::
(MonadIO m) =>
Double -> -- x0
Double -> -- y0
Double -> -- x1
Double -> -- y1
m Gradient
gradientNewLinear x0 y0 x1 y1 = liftIO $ do
let x0' = realToFrac x0
let y0' = realToFrac y0
let x1' = realToFrac x1
let y1' = realToFrac y1
result <- gtk_gradient_new_linear x0' y0' x1' y1'
checkUnexpectedReturnNULL "gtk_gradient_new_linear" result
result' <- (wrapBoxed Gradient) result
return result'
-- method Gradient::new_radial
-- method type : Constructor
-- Args : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Gradient"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_new_radial" gtk_gradient_new_radial ::
CDouble -> -- x0 : TBasicType TDouble
CDouble -> -- y0 : TBasicType TDouble
CDouble -> -- radius0 : TBasicType TDouble
CDouble -> -- x1 : TBasicType TDouble
CDouble -> -- y1 : TBasicType TDouble
CDouble -> -- radius1 : TBasicType TDouble
IO (Ptr Gradient)
{-# DEPRECATED gradientNewRadial ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientNewRadial ::
(MonadIO m) =>
Double -> -- x0
Double -> -- y0
Double -> -- radius0
Double -> -- x1
Double -> -- y1
Double -> -- radius1
m Gradient
gradientNewRadial x0 y0 radius0 x1 y1 radius1 = liftIO $ do
let x0' = realToFrac x0
let y0' = realToFrac y0
let radius0' = realToFrac radius0
let x1' = realToFrac x1
let y1' = realToFrac y1
let radius1' = realToFrac radius1
result <- gtk_gradient_new_radial x0' y0' radius0' x1' y1' radius1'
checkUnexpectedReturnNULL "gtk_gradient_new_radial" result
result' <- (wrapBoxed Gradient) result
return result'
-- method Gradient::add_color_stop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_add_color_stop" gtk_gradient_add_color_stop ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
CDouble -> -- offset : TBasicType TDouble
Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor"
IO ()
{-# DEPRECATED gradientAddColorStop ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientAddColorStop ::
(MonadIO m) =>
Gradient -> -- _obj
Double -> -- offset
SymbolicColor -> -- color
m ()
gradientAddColorStop _obj offset color = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let offset' = realToFrac offset
let color' = unsafeManagedPtrGetPtr color
gtk_gradient_add_color_stop _obj' offset' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
-- method Gradient::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Gradient"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_ref" gtk_gradient_ref ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
IO (Ptr Gradient)
{-# DEPRECATED gradientRef ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientRef ::
(MonadIO m) =>
Gradient -> -- _obj
m Gradient
gradientRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_gradient_ref _obj'
checkUnexpectedReturnNULL "gtk_gradient_ref" result
result' <- (wrapBoxed Gradient) result
touchManagedPtr _obj
return result'
-- method Gradient::resolve
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_gradient", argType = TInterface "cairo" "Pattern", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_resolve" gtk_gradient_resolve ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
Ptr StyleProperties -> -- props : TInterface "Gtk" "StyleProperties"
Ptr (Ptr Cairo.Pattern) -> -- resolved_gradient : TInterface "cairo" "Pattern"
IO CInt
{-# DEPRECATED gradientResolve ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientResolve ::
(MonadIO m, StylePropertiesK a) =>
Gradient -> -- _obj
a -> -- props
m (Bool,Cairo.Pattern)
gradientResolve _obj props = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let props' = unsafeManagedPtrCastPtr props
resolved_gradient <- allocMem :: IO (Ptr (Ptr Cairo.Pattern))
result <- gtk_gradient_resolve _obj' props' resolved_gradient
let result' = (/= 0) result
resolved_gradient' <- peek resolved_gradient
resolved_gradient'' <- (wrapBoxed Cairo.Pattern) resolved_gradient'
touchManagedPtr _obj
touchManagedPtr props
freeMem resolved_gradient
return (result', resolved_gradient'')
-- method Gradient::resolve_for_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Pattern"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_resolve_for_context" gtk_gradient_resolve_for_context ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
IO (Ptr Cairo.Pattern)
gradientResolveForContext ::
(MonadIO m, StyleContextK a) =>
Gradient -> -- _obj
a -> -- context
m Cairo.Pattern
gradientResolveForContext _obj context = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let context' = unsafeManagedPtrCastPtr context
result <- gtk_gradient_resolve_for_context _obj' context'
checkUnexpectedReturnNULL "gtk_gradient_resolve_for_context" result
result' <- (wrapBoxed Cairo.Pattern) result
touchManagedPtr _obj
touchManagedPtr context
return result'
-- method Gradient::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_to_string" gtk_gradient_to_string ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
IO CString
{-# DEPRECATED gradientToString ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientToString ::
(MonadIO m) =>
Gradient -> -- _obj
m T.Text
gradientToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_gradient_to_string _obj'
checkUnexpectedReturnNULL "gtk_gradient_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Gradient::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_gradient_unref" gtk_gradient_unref ::
Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient"
IO ()
{-# DEPRECATED gradientUnref ["(Since version 3.8)","#GtkGradient is deprecated."]#-}
gradientUnref ::
(MonadIO m) =>
Gradient -> -- _obj
m ()
gradientUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_gradient_unref _obj'
touchManagedPtr _obj
return ()
-- object Grid
newtype Grid = Grid (ForeignPtr Grid)
noGrid :: Maybe Grid
noGrid = Nothing
foreign import ccall "gtk_grid_get_type"
c_gtk_grid_get_type :: IO GType
type instance ParentTypes Grid = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Grid where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_grid_get_type
class GObject o => GridK o
instance (GObject o, IsDescendantOf Grid o) => GridK o
toGrid :: GridK o => o -> IO Grid
toGrid = unsafeCastTo Grid
-- method Grid::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Grid"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_new" gtk_grid_new ::
IO (Ptr Grid)
gridNew ::
(MonadIO m) =>
m Grid
gridNew = liftIO $ do
result <- gtk_grid_new
checkUnexpectedReturnNULL "gtk_grid_new" result
result' <- (newObject Grid) result
return result'
-- method Grid::attach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_attach" gtk_grid_attach ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- left : TBasicType TInt32
Int32 -> -- top : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
gridAttach ::
(MonadIO m, GridK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- left
Int32 -> -- top
Int32 -> -- width
Int32 -> -- height
m ()
gridAttach _obj child left top width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_grid_attach _obj' child' left top width height
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Grid::attach_next_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_attach_next_to" gtk_grid_attach_next_to ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- sibling : TInterface "Gtk" "Widget"
CUInt -> -- side : TInterface "Gtk" "PositionType"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
gridAttachNextTo ::
(MonadIO m, GridK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- sibling
PositionType -> -- side
Int32 -> -- width
Int32 -> -- height
m ()
gridAttachNextTo _obj child sibling side width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrCastPtr jSibling
return jSibling'
let side' = (fromIntegral . fromEnum) side
gtk_grid_attach_next_to _obj' child' maybeSibling side' width height
touchManagedPtr _obj
touchManagedPtr child
whenJust sibling touchManagedPtr
return ()
-- method Grid::get_baseline_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_baseline_row" gtk_grid_get_baseline_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Int32
gridGetBaselineRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Int32
gridGetBaselineRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_baseline_row _obj'
touchManagedPtr _obj
return result
-- method Grid::get_child_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- left : TBasicType TInt32
Int32 -> -- top : TBasicType TInt32
IO (Ptr Widget)
gridGetChildAt ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- left
Int32 -> -- top
m Widget
gridGetChildAt _obj left top = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_child_at _obj' left top
checkUnexpectedReturnNULL "gtk_grid_get_child_at" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Grid::get_column_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_column_homogeneous" gtk_grid_get_column_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO CInt
gridGetColumnHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Bool
gridGetColumnHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_column_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Grid::get_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_column_spacing" gtk_grid_get_column_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Word32
gridGetColumnSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Word32
gridGetColumnSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_column_spacing _obj'
touchManagedPtr _obj
return result
-- method Grid::get_row_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BaselinePosition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
IO CUInt
gridGetRowBaselinePosition ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
m BaselinePosition
gridGetRowBaselinePosition _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_baseline_position _obj' row
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Grid::get_row_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_homogeneous" gtk_grid_get_row_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO CInt
gridGetRowHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Bool
gridGetRowHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Grid::get_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_spacing" gtk_grid_get_row_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Word32
gridGetRowSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Word32
gridGetRowSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_spacing _obj'
touchManagedPtr _obj
return result
-- method Grid::insert_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridInsertColumn ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridInsertColumn _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_insert_column _obj' position
touchManagedPtr _obj
return ()
-- method Grid::insert_next_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_next_to" gtk_grid_insert_next_to ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- sibling : TInterface "Gtk" "Widget"
CUInt -> -- side : TInterface "Gtk" "PositionType"
IO ()
gridInsertNextTo ::
(MonadIO m, GridK a, WidgetK b) =>
a -> -- _obj
b -> -- sibling
PositionType -> -- side
m ()
gridInsertNextTo _obj sibling side = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sibling' = unsafeManagedPtrCastPtr sibling
let side' = (fromIntegral . fromEnum) side
gtk_grid_insert_next_to _obj' sibling' side'
touchManagedPtr _obj
touchManagedPtr sibling
return ()
-- method Grid::insert_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridInsertRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridInsertRow _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_insert_row _obj' position
touchManagedPtr _obj
return ()
-- method Grid::remove_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridRemoveColumn ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridRemoveColumn _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_remove_column _obj' position
touchManagedPtr _obj
return ()
-- method Grid::remove_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridRemoveRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridRemoveRow _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_remove_row _obj' position
touchManagedPtr _obj
return ()
-- method Grid::set_baseline_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
IO ()
gridSetBaselineRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
m ()
gridSetBaselineRow _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_baseline_row _obj' row
touchManagedPtr _obj
return ()
-- method Grid::set_column_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_column_homogeneous" gtk_grid_set_column_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
gridSetColumnHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
gridSetColumnHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_grid_set_column_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Grid::set_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
gridSetColumnSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
gridSetColumnSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_column_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method Grid::set_row_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
CUInt -> -- pos : TInterface "Gtk" "BaselinePosition"
IO ()
gridSetRowBaselinePosition ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
BaselinePosition -> -- pos
m ()
gridSetRowBaselinePosition _obj row pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pos' = (fromIntegral . fromEnum) pos
gtk_grid_set_row_baseline_position _obj' row pos'
touchManagedPtr _obj
return ()
-- method Grid::set_row_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_homogeneous" gtk_grid_set_row_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
gridSetRowHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
gridSetRowHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_grid_set_row_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Grid::set_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
gridSetRowSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
gridSetRowSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_row_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- object HBox
newtype HBox = HBox (ForeignPtr HBox)
noHBox :: Maybe HBox
noHBox = Nothing
foreign import ccall "gtk_hbox_get_type"
c_gtk_hbox_get_type :: IO GType
type instance ParentTypes HBox = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hbox_get_type
class GObject o => HBoxK o
instance (GObject o, IsDescendantOf HBox o) => HBoxK o
toHBox :: HBoxK o => o -> IO HBox
toHBox = unsafeCastTo HBox
-- method HBox::new
-- method type : Constructor
-- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "HBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hbox_new" gtk_hbox_new ::
CInt -> -- homogeneous : TBasicType TBoolean
Int32 -> -- spacing : TBasicType TInt32
IO (Ptr HBox)
{-# DEPRECATED hBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_HORIZONTAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-}
hBoxNew ::
(MonadIO m) =>
Bool -> -- homogeneous
Int32 -> -- spacing
m HBox
hBoxNew homogeneous spacing = liftIO $ do
let homogeneous' = (fromIntegral . fromEnum) homogeneous
result <- gtk_hbox_new homogeneous' spacing
checkUnexpectedReturnNULL "gtk_hbox_new" result
result' <- (newObject HBox) result
return result'
-- object HButtonBox
newtype HButtonBox = HButtonBox (ForeignPtr HButtonBox)
noHButtonBox :: Maybe HButtonBox
noHButtonBox = Nothing
foreign import ccall "gtk_hbutton_box_get_type"
c_gtk_hbutton_box_get_type :: IO GType
type instance ParentTypes HButtonBox = '[ButtonBox, Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HButtonBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hbutton_box_get_type
class GObject o => HButtonBoxK o
instance (GObject o, IsDescendantOf HButtonBox o) => HButtonBoxK o
toHButtonBox :: HButtonBoxK o => o -> IO HButtonBox
toHButtonBox = unsafeCastTo HButtonBox
-- method HButtonBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HButtonBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hbutton_box_new" gtk_hbutton_box_new ::
IO (Ptr HButtonBox)
{-# DEPRECATED hButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hButtonBoxNew ::
(MonadIO m) =>
m HButtonBox
hButtonBoxNew = liftIO $ do
result <- gtk_hbutton_box_new
checkUnexpectedReturnNULL "gtk_hbutton_box_new" result
result' <- (newObject HButtonBox) result
return result'
-- object HPaned
newtype HPaned = HPaned (ForeignPtr HPaned)
noHPaned :: Maybe HPaned
noHPaned = Nothing
foreign import ccall "gtk_hpaned_get_type"
c_gtk_hpaned_get_type :: IO GType
type instance ParentTypes HPaned = '[Paned, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HPaned where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hpaned_get_type
class GObject o => HPanedK o
instance (GObject o, IsDescendantOf HPaned o) => HPanedK o
toHPaned :: HPanedK o => o -> IO HPaned
toHPaned = unsafeCastTo HPaned
-- method HPaned::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HPaned"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hpaned_new" gtk_hpaned_new ::
IO (Ptr HPaned)
{-# DEPRECATED hPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hPanedNew ::
(MonadIO m) =>
m HPaned
hPanedNew = liftIO $ do
result <- gtk_hpaned_new
checkUnexpectedReturnNULL "gtk_hpaned_new" result
result' <- (newObject HPaned) result
return result'
-- object HSV
newtype HSV = HSV (ForeignPtr HSV)
noHSV :: Maybe HSV
noHSV = Nothing
foreign import ccall "gtk_hsv_get_type"
c_gtk_hsv_get_type :: IO GType
type instance ParentTypes HSV = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject HSV where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hsv_get_type
class GObject o => HSVK o
instance (GObject o, IsDescendantOf HSV o) => HSVK o
toHSV :: HSVK o => o -> IO HSV
toHSV = unsafeCastTo HSV
-- method HSV::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HSV"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_new" gtk_hsv_new ::
IO (Ptr HSV)
hSVNew ::
(MonadIO m) =>
m HSV
hSVNew = liftIO $ do
result <- gtk_hsv_new
checkUnexpectedReturnNULL "gtk_hsv_new" result
result' <- (newObject HSV) result
return result'
-- method HSV::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_get_color" gtk_hsv_get_color ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Ptr CDouble -> -- h : TBasicType TDouble
Ptr CDouble -> -- s : TBasicType TDouble
Ptr CDouble -> -- v : TBasicType TDouble
IO ()
hSVGetColor ::
(MonadIO m, HSVK a) =>
a -> -- _obj
m (Double,Double,Double)
hSVGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
h <- allocMem :: IO (Ptr CDouble)
s <- allocMem :: IO (Ptr CDouble)
v <- allocMem :: IO (Ptr CDouble)
gtk_hsv_get_color _obj' h s v
h' <- peek h
let h'' = realToFrac h'
s' <- peek s
let s'' = realToFrac s'
v' <- peek v
let v'' = realToFrac v'
touchManagedPtr _obj
freeMem h
freeMem s
freeMem v
return (h'', s'', v'')
-- method HSV::get_metrics
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_get_metrics" gtk_hsv_get_metrics ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Ptr Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- ring_width : TBasicType TInt32
IO ()
hSVGetMetrics ::
(MonadIO m, HSVK a) =>
a -> -- _obj
m (Int32,Int32)
hSVGetMetrics _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
size <- allocMem :: IO (Ptr Int32)
ring_width <- allocMem :: IO (Ptr Int32)
gtk_hsv_get_metrics _obj' size ring_width
size' <- peek size
ring_width' <- peek ring_width
touchManagedPtr _obj
freeMem size
freeMem ring_width
return (size', ring_width')
-- method HSV::is_adjusting
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_is_adjusting" gtk_hsv_is_adjusting ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
IO CInt
hSVIsAdjusting ::
(MonadIO m, HSVK a) =>
a -> -- _obj
m Bool
hSVIsAdjusting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_hsv_is_adjusting _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method HSV::set_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_set_color" gtk_hsv_set_color ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
CDouble -> -- h : TBasicType TDouble
CDouble -> -- s : TBasicType TDouble
CDouble -> -- v : TBasicType TDouble
IO ()
hSVSetColor ::
(MonadIO m, HSVK a) =>
a -> -- _obj
Double -> -- h
Double -> -- s
Double -> -- v
m ()
hSVSetColor _obj h s v = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let h' = realToFrac h
let s' = realToFrac s
let v' = realToFrac v
gtk_hsv_set_color _obj' h' s' v'
touchManagedPtr _obj
return ()
-- method HSV::set_metrics
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Int32 -> -- size : TBasicType TInt32
Int32 -> -- ring_width : TBasicType TInt32
IO ()
hSVSetMetrics ::
(MonadIO m, HSVK a) =>
a -> -- _obj
Int32 -> -- size
Int32 -> -- ring_width
m ()
hSVSetMetrics _obj size ring_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_hsv_set_metrics _obj' size ring_width
touchManagedPtr _obj
return ()
-- method HSV::to_rgb
-- method type : MemberFunction
-- Args : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_to_rgb" gtk_hsv_to_rgb ::
CDouble -> -- h : TBasicType TDouble
CDouble -> -- s : TBasicType TDouble
CDouble -> -- v : TBasicType TDouble
Ptr CDouble -> -- r : TBasicType TDouble
Ptr CDouble -> -- g : TBasicType TDouble
Ptr CDouble -> -- b : TBasicType TDouble
IO ()
hSVToRgb ::
(MonadIO m) =>
Double -> -- h
Double -> -- s
Double -> -- v
m (Double,Double,Double)
hSVToRgb h s v = liftIO $ do
let h' = realToFrac h
let s' = realToFrac s
let v' = realToFrac v
r <- allocMem :: IO (Ptr CDouble)
g <- allocMem :: IO (Ptr CDouble)
b <- allocMem :: IO (Ptr CDouble)
gtk_hsv_to_rgb h' s' v' r g b
r' <- peek r
let r'' = realToFrac r'
g' <- peek g
let g'' = realToFrac g'
b' <- peek b
let b'' = realToFrac b'
freeMem r
freeMem g
freeMem b
return (r'', g'', b'')
-- signal HSV::changed
type HSVChangedCallback =
IO ()
noHSVChangedCallback :: Maybe HSVChangedCallback
noHSVChangedCallback = Nothing
type HSVChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHSVChangedCallback :: HSVChangedCallbackC -> IO (FunPtr HSVChangedCallbackC)
hSVChangedClosure :: HSVChangedCallback -> IO Closure
hSVChangedClosure cb = newCClosure =<< mkHSVChangedCallback wrapped
where wrapped = hSVChangedCallbackWrapper cb
hSVChangedCallbackWrapper ::
HSVChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
hSVChangedCallbackWrapper _cb _ _ = do
_cb
onHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId
onHSVChanged obj cb = liftIO $ connectHSVChanged obj cb SignalConnectBefore
afterHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId
afterHSVChanged obj cb = connectHSVChanged obj cb SignalConnectAfter
connectHSVChanged :: (GObject a, MonadIO m) =>
a -> HSVChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectHSVChanged obj cb after = liftIO $ do
cb' <- mkHSVChangedCallback (hSVChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal HSV::move
type HSVMoveCallback =
DirectionType ->
IO ()
noHSVMoveCallback :: Maybe HSVMoveCallback
noHSVMoveCallback = Nothing
type HSVMoveCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHSVMoveCallback :: HSVMoveCallbackC -> IO (FunPtr HSVMoveCallbackC)
hSVMoveClosure :: HSVMoveCallback -> IO Closure
hSVMoveClosure cb = newCClosure =<< mkHSVMoveCallback wrapped
where wrapped = hSVMoveCallbackWrapper cb
hSVMoveCallbackWrapper ::
HSVMoveCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
hSVMoveCallbackWrapper _cb _ object _ = do
let object' = (toEnum . fromIntegral) object
_cb object'
onHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId
onHSVMove obj cb = liftIO $ connectHSVMove obj cb SignalConnectBefore
afterHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId
afterHSVMove obj cb = connectHSVMove obj cb SignalConnectAfter
connectHSVMove :: (GObject a, MonadIO m) =>
a -> HSVMoveCallback -> SignalConnectMode -> m SignalHandlerId
connectHSVMove obj cb after = liftIO $ do
cb' <- mkHSVMoveCallback (hSVMoveCallbackWrapper cb)
connectSignalFunPtr obj "move" cb' after
-- object HScale
newtype HScale = HScale (ForeignPtr HScale)
noHScale :: Maybe HScale
noHScale = Nothing
foreign import ccall "gtk_hscale_get_type"
c_gtk_hscale_get_type :: IO GType
type instance ParentTypes HScale = '[Scale, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HScale where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hscale_get_type
class GObject o => HScaleK o
instance (GObject o, IsDescendantOf HScale o) => HScaleK o
toHScale :: HScaleK o => o -> IO HScale
toHScale = unsafeCastTo HScale
-- method HScale::new
-- method type : Constructor
-- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "HScale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hscale_new" gtk_hscale_new ::
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr HScale)
{-# DEPRECATED hScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hScaleNew ::
(MonadIO m, AdjustmentK a) =>
Maybe (a) -> -- adjustment
m HScale
hScaleNew adjustment = liftIO $ do
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_hscale_new maybeAdjustment
checkUnexpectedReturnNULL "gtk_hscale_new" result
result' <- (newObject HScale) result
whenJust adjustment touchManagedPtr
return result'
-- method HScale::new_with_range
-- method type : Constructor
-- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "HScale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hscale_new_with_range" gtk_hscale_new_with_range ::
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
CDouble -> -- step : TBasicType TDouble
IO (Ptr HScale)
{-# DEPRECATED hScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hScaleNewWithRange ::
(MonadIO m) =>
Double -> -- min
Double -> -- max
Double -> -- step
m HScale
hScaleNewWithRange min max step = liftIO $ do
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_hscale_new_with_range min' max' step'
checkUnexpectedReturnNULL "gtk_hscale_new_with_range" result
result' <- (newObject HScale) result
return result'
-- object HScrollbar
newtype HScrollbar = HScrollbar (ForeignPtr HScrollbar)
noHScrollbar :: Maybe HScrollbar
noHScrollbar = Nothing
foreign import ccall "gtk_hscrollbar_get_type"
c_gtk_hscrollbar_get_type :: IO GType
type instance ParentTypes HScrollbar = '[Scrollbar, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HScrollbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hscrollbar_get_type
class GObject o => HScrollbarK o
instance (GObject o, IsDescendantOf HScrollbar o) => HScrollbarK o
toHScrollbar :: HScrollbarK o => o -> IO HScrollbar
toHScrollbar = unsafeCastTo HScrollbar
-- method HScrollbar::new
-- method type : Constructor
-- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "HScrollbar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hscrollbar_new" gtk_hscrollbar_new ::
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr HScrollbar)
{-# DEPRECATED hScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hScrollbarNew ::
(MonadIO m, AdjustmentK a) =>
Maybe (a) -> -- adjustment
m HScrollbar
hScrollbarNew adjustment = liftIO $ do
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_hscrollbar_new maybeAdjustment
checkUnexpectedReturnNULL "gtk_hscrollbar_new" result
result' <- (newObject HScrollbar) result
whenJust adjustment touchManagedPtr
return result'
-- object HSeparator
newtype HSeparator = HSeparator (ForeignPtr HSeparator)
noHSeparator :: Maybe HSeparator
noHSeparator = Nothing
foreign import ccall "gtk_hseparator_get_type"
c_gtk_hseparator_get_type :: IO GType
type instance ParentTypes HSeparator = '[Separator, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject HSeparator where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hseparator_get_type
class GObject o => HSeparatorK o
instance (GObject o, IsDescendantOf HSeparator o) => HSeparatorK o
toHSeparator :: HSeparatorK o => o -> IO HSeparator
toHSeparator = unsafeCastTo HSeparator
-- method HSeparator::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HSeparator"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hseparator_new" gtk_hseparator_new ::
IO (Ptr HSeparator)
{-# DEPRECATED hSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-}
hSeparatorNew ::
(MonadIO m) =>
m HSeparator
hSeparatorNew = liftIO $ do
result <- gtk_hseparator_new
checkUnexpectedReturnNULL "gtk_hseparator_new" result
result' <- (newObject HSeparator) result
return result'
-- object HandleBox
newtype HandleBox = HandleBox (ForeignPtr HandleBox)
noHandleBox :: Maybe HandleBox
noHandleBox = Nothing
foreign import ccall "gtk_handle_box_get_type"
c_gtk_handle_box_get_type :: IO GType
type instance ParentTypes HandleBox = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject HandleBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_handle_box_get_type
class GObject o => HandleBoxK o
instance (GObject o, IsDescendantOf HandleBox o) => HandleBoxK o
toHandleBox :: HandleBoxK o => o -> IO HandleBox
toHandleBox = unsafeCastTo HandleBox
-- method HandleBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HandleBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_new" gtk_handle_box_new ::
IO (Ptr HandleBox)
{-# DEPRECATED handleBoxNew ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxNew ::
(MonadIO m) =>
m HandleBox
handleBoxNew = liftIO $ do
result <- gtk_handle_box_new
checkUnexpectedReturnNULL "gtk_handle_box_new" result
result' <- (newObject HandleBox) result
return result'
-- method HandleBox::get_child_detached
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_get_child_detached" gtk_handle_box_get_child_detached ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
IO CInt
{-# DEPRECATED handleBoxGetChildDetached ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxGetChildDetached ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
m Bool
handleBoxGetChildDetached _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_handle_box_get_child_detached _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method HandleBox::get_handle_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_get_handle_position" gtk_handle_box_get_handle_position ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
IO CUInt
{-# DEPRECATED handleBoxGetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxGetHandlePosition ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
m PositionType
handleBoxGetHandlePosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_handle_box_get_handle_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method HandleBox::get_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ShadowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_get_shadow_type" gtk_handle_box_get_shadow_type ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
IO CUInt
{-# DEPRECATED handleBoxGetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxGetShadowType ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
m ShadowType
handleBoxGetShadowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_handle_box_get_shadow_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method HandleBox::get_snap_edge
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_get_snap_edge" gtk_handle_box_get_snap_edge ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
IO CUInt
{-# DEPRECATED handleBoxGetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxGetSnapEdge ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
m PositionType
handleBoxGetSnapEdge _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_handle_box_get_snap_edge _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method HandleBox::set_handle_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_set_handle_position" gtk_handle_box_set_handle_position ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
CUInt -> -- position : TInterface "Gtk" "PositionType"
IO ()
{-# DEPRECATED handleBoxSetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxSetHandlePosition ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
PositionType -> -- position
m ()
handleBoxSetHandlePosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_handle_box_set_handle_position _obj' position'
touchManagedPtr _obj
return ()
-- method HandleBox::set_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_set_shadow_type" gtk_handle_box_set_shadow_type ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
CUInt -> -- type : TInterface "Gtk" "ShadowType"
IO ()
{-# DEPRECATED handleBoxSetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxSetShadowType ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
ShadowType -> -- type
m ()
handleBoxSetShadowType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_handle_box_set_shadow_type _obj' type_'
touchManagedPtr _obj
return ()
-- method HandleBox::set_snap_edge
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_handle_box_set_snap_edge" gtk_handle_box_set_snap_edge ::
Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox"
CUInt -> -- edge : TInterface "Gtk" "PositionType"
IO ()
{-# DEPRECATED handleBoxSetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-}
handleBoxSetSnapEdge ::
(MonadIO m, HandleBoxK a) =>
a -> -- _obj
PositionType -> -- edge
m ()
handleBoxSetSnapEdge _obj edge = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let edge' = (fromIntegral . fromEnum) edge
gtk_handle_box_set_snap_edge _obj' edge'
touchManagedPtr _obj
return ()
-- signal HandleBox::child-attached
type HandleBoxChildAttachedCallback =
Widget ->
IO ()
noHandleBoxChildAttachedCallback :: Maybe HandleBoxChildAttachedCallback
noHandleBoxChildAttachedCallback = Nothing
type HandleBoxChildAttachedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHandleBoxChildAttachedCallback :: HandleBoxChildAttachedCallbackC -> IO (FunPtr HandleBoxChildAttachedCallbackC)
handleBoxChildAttachedClosure :: HandleBoxChildAttachedCallback -> IO Closure
handleBoxChildAttachedClosure cb = newCClosure =<< mkHandleBoxChildAttachedCallback wrapped
where wrapped = handleBoxChildAttachedCallbackWrapper cb
handleBoxChildAttachedCallbackWrapper ::
HandleBoxChildAttachedCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
handleBoxChildAttachedCallbackWrapper _cb _ widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
onHandleBoxChildAttached :: (GObject a, MonadIO m) => a -> HandleBoxChildAttachedCallback -> m SignalHandlerId
onHandleBoxChildAttached obj cb = liftIO $ connectHandleBoxChildAttached obj cb SignalConnectBefore
afterHandleBoxChildAttached :: (GObject a, MonadIO m) => a -> HandleBoxChildAttachedCallback -> m SignalHandlerId
afterHandleBoxChildAttached obj cb = connectHandleBoxChildAttached obj cb SignalConnectAfter
connectHandleBoxChildAttached :: (GObject a, MonadIO m) =>
a -> HandleBoxChildAttachedCallback -> SignalConnectMode -> m SignalHandlerId
connectHandleBoxChildAttached obj cb after = liftIO $ do
cb' <- mkHandleBoxChildAttachedCallback (handleBoxChildAttachedCallbackWrapper cb)
connectSignalFunPtr obj "child-attached" cb' after
-- signal HandleBox::child-detached
type HandleBoxChildDetachedCallback =
Widget ->
IO ()
noHandleBoxChildDetachedCallback :: Maybe HandleBoxChildDetachedCallback
noHandleBoxChildDetachedCallback = Nothing
type HandleBoxChildDetachedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHandleBoxChildDetachedCallback :: HandleBoxChildDetachedCallbackC -> IO (FunPtr HandleBoxChildDetachedCallbackC)
handleBoxChildDetachedClosure :: HandleBoxChildDetachedCallback -> IO Closure
handleBoxChildDetachedClosure cb = newCClosure =<< mkHandleBoxChildDetachedCallback wrapped
where wrapped = handleBoxChildDetachedCallbackWrapper cb
handleBoxChildDetachedCallbackWrapper ::
HandleBoxChildDetachedCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
handleBoxChildDetachedCallbackWrapper _cb _ widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
onHandleBoxChildDetached :: (GObject a, MonadIO m) => a -> HandleBoxChildDetachedCallback -> m SignalHandlerId
onHandleBoxChildDetached obj cb = liftIO $ connectHandleBoxChildDetached obj cb SignalConnectBefore
afterHandleBoxChildDetached :: (GObject a, MonadIO m) => a -> HandleBoxChildDetachedCallback -> m SignalHandlerId
afterHandleBoxChildDetached obj cb = connectHandleBoxChildDetached obj cb SignalConnectAfter
connectHandleBoxChildDetached :: (GObject a, MonadIO m) =>
a -> HandleBoxChildDetachedCallback -> SignalConnectMode -> m SignalHandlerId
connectHandleBoxChildDetached obj cb after = liftIO $ do
cb' <- mkHandleBoxChildDetachedCallback (handleBoxChildDetachedCallbackWrapper cb)
connectSignalFunPtr obj "child-detached" cb' after
-- object HeaderBar
newtype HeaderBar = HeaderBar (ForeignPtr HeaderBar)
noHeaderBar :: Maybe HeaderBar
noHeaderBar = Nothing
foreign import ccall "gtk_header_bar_get_type"
c_gtk_header_bar_get_type :: IO GType
type instance ParentTypes HeaderBar = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject HeaderBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_header_bar_get_type
class GObject o => HeaderBarK o
instance (GObject o, IsDescendantOf HeaderBar o) => HeaderBarK o
toHeaderBar :: HeaderBarK o => o -> IO HeaderBar
toHeaderBar = unsafeCastTo HeaderBar
-- method HeaderBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "HeaderBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_new" gtk_header_bar_new ::
IO (Ptr HeaderBar)
headerBarNew ::
(MonadIO m) =>
m HeaderBar
headerBarNew = liftIO $ do
result <- gtk_header_bar_new
checkUnexpectedReturnNULL "gtk_header_bar_new" result
result' <- (newObject HeaderBar) result
return result'
-- method HeaderBar::get_custom_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_custom_title" gtk_header_bar_get_custom_title ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO (Ptr Widget)
headerBarGetCustomTitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m Widget
headerBarGetCustomTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_custom_title _obj'
checkUnexpectedReturnNULL "gtk_header_bar_get_custom_title" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method HeaderBar::get_decoration_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_decoration_layout" gtk_header_bar_get_decoration_layout ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO CString
headerBarGetDecorationLayout ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m T.Text
headerBarGetDecorationLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_decoration_layout _obj'
checkUnexpectedReturnNULL "gtk_header_bar_get_decoration_layout" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method HeaderBar::get_has_subtitle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_has_subtitle" gtk_header_bar_get_has_subtitle ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO CInt
headerBarGetHasSubtitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m Bool
headerBarGetHasSubtitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_has_subtitle _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method HeaderBar::get_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_show_close_button" gtk_header_bar_get_show_close_button ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO CInt
headerBarGetShowCloseButton ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m Bool
headerBarGetShowCloseButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_show_close_button _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method HeaderBar::get_subtitle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_subtitle" gtk_header_bar_get_subtitle ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO CString
headerBarGetSubtitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m T.Text
headerBarGetSubtitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_subtitle _obj'
checkUnexpectedReturnNULL "gtk_header_bar_get_subtitle" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method HeaderBar::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_get_title" gtk_header_bar_get_title ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
IO CString
headerBarGetTitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
m T.Text
headerBarGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_header_bar_get_title _obj'
checkUnexpectedReturnNULL "gtk_header_bar_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method HeaderBar::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_pack_end" gtk_header_bar_pack_end ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
headerBarPackEnd ::
(MonadIO m, HeaderBarK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
headerBarPackEnd _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_header_bar_pack_end _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method HeaderBar::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_pack_start" gtk_header_bar_pack_start ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
headerBarPackStart ::
(MonadIO m, HeaderBarK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
headerBarPackStart _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_header_bar_pack_start _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method HeaderBar::set_custom_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_custom_title" gtk_header_bar_set_custom_title ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
Ptr Widget -> -- title_widget : TInterface "Gtk" "Widget"
IO ()
headerBarSetCustomTitle ::
(MonadIO m, HeaderBarK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- title_widget
m ()
headerBarSetCustomTitle _obj title_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTitle_widget <- case title_widget of
Nothing -> return nullPtr
Just jTitle_widget -> do
let jTitle_widget' = unsafeManagedPtrCastPtr jTitle_widget
return jTitle_widget'
gtk_header_bar_set_custom_title _obj' maybeTitle_widget
touchManagedPtr _obj
whenJust title_widget touchManagedPtr
return ()
-- method HeaderBar::set_decoration_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_decoration_layout" gtk_header_bar_set_decoration_layout ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
CString -> -- layout : TBasicType TUTF8
IO ()
headerBarSetDecorationLayout ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- layout
m ()
headerBarSetDecorationLayout _obj layout = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLayout <- case layout of
Nothing -> return nullPtr
Just jLayout -> do
jLayout' <- textToCString jLayout
return jLayout'
gtk_header_bar_set_decoration_layout _obj' maybeLayout
touchManagedPtr _obj
freeMem maybeLayout
return ()
-- method HeaderBar::set_has_subtitle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_has_subtitle" gtk_header_bar_set_has_subtitle ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
CInt -> -- setting : TBasicType TBoolean
IO ()
headerBarSetHasSubtitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
Bool -> -- setting
m ()
headerBarSetHasSubtitle _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_header_bar_set_has_subtitle _obj' setting'
touchManagedPtr _obj
return ()
-- method HeaderBar::set_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_show_close_button" gtk_header_bar_set_show_close_button ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
CInt -> -- setting : TBasicType TBoolean
IO ()
headerBarSetShowCloseButton ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
Bool -> -- setting
m ()
headerBarSetShowCloseButton _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_header_bar_set_show_close_button _obj' setting'
touchManagedPtr _obj
return ()
-- method HeaderBar::set_subtitle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_subtitle" gtk_header_bar_set_subtitle ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
CString -> -- subtitle : TBasicType TUTF8
IO ()
headerBarSetSubtitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- subtitle
m ()
headerBarSetSubtitle _obj subtitle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSubtitle <- case subtitle of
Nothing -> return nullPtr
Just jSubtitle -> do
jSubtitle' <- textToCString jSubtitle
return jSubtitle'
gtk_header_bar_set_subtitle _obj' maybeSubtitle
touchManagedPtr _obj
freeMem maybeSubtitle
return ()
-- method HeaderBar::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_header_bar_set_title" gtk_header_bar_set_title ::
Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar"
CString -> -- title : TBasicType TUTF8
IO ()
headerBarSetTitle ::
(MonadIO m, HeaderBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- title
m ()
headerBarSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTitle <- case title of
Nothing -> return nullPtr
Just jTitle -> do
jTitle' <- textToCString jTitle
return jTitle'
gtk_header_bar_set_title _obj' maybeTitle
touchManagedPtr _obj
freeMem maybeTitle
return ()
-- object IMContext
newtype IMContext = IMContext (ForeignPtr IMContext)
noIMContext :: Maybe IMContext
noIMContext = Nothing
foreign import ccall "gtk_im_context_get_type"
c_gtk_im_context_get_type :: IO GType
type instance ParentTypes IMContext = '[GObject.Object]
instance GObject IMContext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_im_context_get_type
class GObject o => IMContextK o
instance (GObject o, IsDescendantOf IMContext o) => IMContextK o
toIMContext :: IMContextK o => o -> IO IMContext
toIMContext = unsafeCastTo IMContext
-- method IMContext::delete_surrounding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_delete_surrounding" gtk_im_context_delete_surrounding ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Int32 -> -- offset : TBasicType TInt32
Int32 -> -- n_chars : TBasicType TInt32
IO CInt
iMContextDeleteSurrounding ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
Int32 -> -- offset
Int32 -> -- n_chars
m Bool
iMContextDeleteSurrounding _obj offset n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_im_context_delete_surrounding _obj' offset n_chars
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IMContext::filter_keypress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_filter_keypress" gtk_im_context_filter_keypress ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
iMContextFilterKeypress ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
Gdk.EventKey -> -- event
m Bool
iMContextFilterKeypress _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_im_context_filter_keypress _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method IMContext::focus_in
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_focus_in" gtk_im_context_focus_in ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
IO ()
iMContextFocusIn ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
m ()
iMContextFocusIn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_im_context_focus_in _obj'
touchManagedPtr _obj
return ()
-- method IMContext::focus_out
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_focus_out" gtk_im_context_focus_out ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
IO ()
iMContextFocusOut ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
m ()
iMContextFocusOut _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_im_context_focus_out _obj'
touchManagedPtr _obj
return ()
-- method IMContext::get_preedit_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_get_preedit_string" gtk_im_context_get_preedit_string ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Ptr CString -> -- str : TBasicType TUTF8
Ptr (Ptr Pango.AttrList) -> -- attrs : TInterface "Pango" "AttrList"
Ptr Int32 -> -- cursor_pos : TBasicType TInt32
IO ()
iMContextGetPreeditString ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
m (T.Text,Pango.AttrList,Int32)
iMContextGetPreeditString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str <- allocMem :: IO (Ptr CString)
attrs <- allocMem :: IO (Ptr (Ptr Pango.AttrList))
cursor_pos <- allocMem :: IO (Ptr Int32)
gtk_im_context_get_preedit_string _obj' str attrs cursor_pos
str' <- peek str
str'' <- cstringToText str'
freeMem str'
attrs' <- peek attrs
attrs'' <- (wrapBoxed Pango.AttrList) attrs'
cursor_pos' <- peek cursor_pos
touchManagedPtr _obj
freeMem str
freeMem attrs
freeMem cursor_pos
return (str'', attrs'', cursor_pos')
-- method IMContext::get_surrounding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_get_surrounding" gtk_im_context_get_surrounding ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Ptr CString -> -- text : TBasicType TUTF8
Ptr Int32 -> -- cursor_index : TBasicType TInt32
IO CInt
iMContextGetSurrounding ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
m (Bool,T.Text,Int32)
iMContextGetSurrounding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text <- allocMem :: IO (Ptr CString)
cursor_index <- allocMem :: IO (Ptr Int32)
result <- gtk_im_context_get_surrounding _obj' text cursor_index
let result' = (/= 0) result
text' <- peek text
text'' <- cstringToText text'
freeMem text'
cursor_index' <- peek cursor_index
touchManagedPtr _obj
freeMem text
freeMem cursor_index
return (result', text'', cursor_index')
-- method IMContext::reset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_reset" gtk_im_context_reset ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
IO ()
iMContextReset ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
m ()
iMContextReset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_im_context_reset _obj'
touchManagedPtr _obj
return ()
-- method IMContext::set_client_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_set_client_window" gtk_im_context_set_client_window ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
iMContextSetClientWindow ::
(MonadIO m, IMContextK a, Gdk.WindowK b) =>
a -> -- _obj
Maybe (b) -> -- window
m ()
iMContextSetClientWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWindow <- case window of
Nothing -> return nullPtr
Just jWindow -> do
let jWindow' = unsafeManagedPtrCastPtr jWindow
return jWindow'
gtk_im_context_set_client_window _obj' maybeWindow
touchManagedPtr _obj
whenJust window touchManagedPtr
return ()
-- method IMContext::set_cursor_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_set_cursor_location" gtk_im_context_set_cursor_location ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle"
IO ()
iMContextSetCursorLocation ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
Gdk.Rectangle -> -- area
m ()
iMContextSetCursorLocation _obj area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let area' = unsafeManagedPtrGetPtr area
gtk_im_context_set_cursor_location _obj' area'
touchManagedPtr _obj
touchManagedPtr area
return ()
-- method IMContext::set_surrounding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
Int32 -> -- cursor_index : TBasicType TInt32
IO ()
iMContextSetSurrounding ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
T.Text -> -- text
Int32 -> -- len
Int32 -> -- cursor_index
m ()
iMContextSetSurrounding _obj text len cursor_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_im_context_set_surrounding _obj' text' len cursor_index
touchManagedPtr _obj
freeMem text'
return ()
-- method IMContext::set_use_preedit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_set_use_preedit" gtk_im_context_set_use_preedit ::
Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext"
CInt -> -- use_preedit : TBasicType TBoolean
IO ()
iMContextSetUsePreedit ::
(MonadIO m, IMContextK a) =>
a -> -- _obj
Bool -> -- use_preedit
m ()
iMContextSetUsePreedit _obj use_preedit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_preedit' = (fromIntegral . fromEnum) use_preedit
gtk_im_context_set_use_preedit _obj' use_preedit'
touchManagedPtr _obj
return ()
-- signal IMContext::commit
type IMContextCommitCallback =
T.Text ->
IO ()
noIMContextCommitCallback :: Maybe IMContextCommitCallback
noIMContextCommitCallback = Nothing
type IMContextCommitCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIMContextCommitCallback :: IMContextCommitCallbackC -> IO (FunPtr IMContextCommitCallbackC)
iMContextCommitClosure :: IMContextCommitCallback -> IO Closure
iMContextCommitClosure cb = newCClosure =<< mkIMContextCommitCallback wrapped
where wrapped = iMContextCommitCallbackWrapper cb
iMContextCommitCallbackWrapper ::
IMContextCommitCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
iMContextCommitCallbackWrapper _cb _ str _ = do
str' <- cstringToText str
_cb str'
onIMContextCommit :: (GObject a, MonadIO m) => a -> IMContextCommitCallback -> m SignalHandlerId
onIMContextCommit obj cb = liftIO $ connectIMContextCommit obj cb SignalConnectBefore
afterIMContextCommit :: (GObject a, MonadIO m) => a -> IMContextCommitCallback -> m SignalHandlerId
afterIMContextCommit obj cb = connectIMContextCommit obj cb SignalConnectAfter
connectIMContextCommit :: (GObject a, MonadIO m) =>
a -> IMContextCommitCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextCommit obj cb after = liftIO $ do
cb' <- mkIMContextCommitCallback (iMContextCommitCallbackWrapper cb)
connectSignalFunPtr obj "commit" cb' after
-- signal IMContext::delete-surrounding
type IMContextDeleteSurroundingCallback =
Int32 ->
Int32 ->
IO Bool
noIMContextDeleteSurroundingCallback :: Maybe IMContextDeleteSurroundingCallback
noIMContextDeleteSurroundingCallback = Nothing
type IMContextDeleteSurroundingCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkIMContextDeleteSurroundingCallback :: IMContextDeleteSurroundingCallbackC -> IO (FunPtr IMContextDeleteSurroundingCallbackC)
iMContextDeleteSurroundingClosure :: IMContextDeleteSurroundingCallback -> IO Closure
iMContextDeleteSurroundingClosure cb = newCClosure =<< mkIMContextDeleteSurroundingCallback wrapped
where wrapped = iMContextDeleteSurroundingCallbackWrapper cb
iMContextDeleteSurroundingCallbackWrapper ::
IMContextDeleteSurroundingCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
iMContextDeleteSurroundingCallbackWrapper _cb _ offset n_chars _ = do
result <- _cb offset n_chars
let result' = (fromIntegral . fromEnum) result
return result'
onIMContextDeleteSurrounding :: (GObject a, MonadIO m) => a -> IMContextDeleteSurroundingCallback -> m SignalHandlerId
onIMContextDeleteSurrounding obj cb = liftIO $ connectIMContextDeleteSurrounding obj cb SignalConnectBefore
afterIMContextDeleteSurrounding :: (GObject a, MonadIO m) => a -> IMContextDeleteSurroundingCallback -> m SignalHandlerId
afterIMContextDeleteSurrounding obj cb = connectIMContextDeleteSurrounding obj cb SignalConnectAfter
connectIMContextDeleteSurrounding :: (GObject a, MonadIO m) =>
a -> IMContextDeleteSurroundingCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextDeleteSurrounding obj cb after = liftIO $ do
cb' <- mkIMContextDeleteSurroundingCallback (iMContextDeleteSurroundingCallbackWrapper cb)
connectSignalFunPtr obj "delete-surrounding" cb' after
-- signal IMContext::preedit-changed
type IMContextPreeditChangedCallback =
IO ()
noIMContextPreeditChangedCallback :: Maybe IMContextPreeditChangedCallback
noIMContextPreeditChangedCallback = Nothing
type IMContextPreeditChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIMContextPreeditChangedCallback :: IMContextPreeditChangedCallbackC -> IO (FunPtr IMContextPreeditChangedCallbackC)
iMContextPreeditChangedClosure :: IMContextPreeditChangedCallback -> IO Closure
iMContextPreeditChangedClosure cb = newCClosure =<< mkIMContextPreeditChangedCallback wrapped
where wrapped = iMContextPreeditChangedCallbackWrapper cb
iMContextPreeditChangedCallbackWrapper ::
IMContextPreeditChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
iMContextPreeditChangedCallbackWrapper _cb _ _ = do
_cb
onIMContextPreeditChanged :: (GObject a, MonadIO m) => a -> IMContextPreeditChangedCallback -> m SignalHandlerId
onIMContextPreeditChanged obj cb = liftIO $ connectIMContextPreeditChanged obj cb SignalConnectBefore
afterIMContextPreeditChanged :: (GObject a, MonadIO m) => a -> IMContextPreeditChangedCallback -> m SignalHandlerId
afterIMContextPreeditChanged obj cb = connectIMContextPreeditChanged obj cb SignalConnectAfter
connectIMContextPreeditChanged :: (GObject a, MonadIO m) =>
a -> IMContextPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextPreeditChanged obj cb after = liftIO $ do
cb' <- mkIMContextPreeditChangedCallback (iMContextPreeditChangedCallbackWrapper cb)
connectSignalFunPtr obj "preedit-changed" cb' after
-- signal IMContext::preedit-end
type IMContextPreeditEndCallback =
IO ()
noIMContextPreeditEndCallback :: Maybe IMContextPreeditEndCallback
noIMContextPreeditEndCallback = Nothing
type IMContextPreeditEndCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIMContextPreeditEndCallback :: IMContextPreeditEndCallbackC -> IO (FunPtr IMContextPreeditEndCallbackC)
iMContextPreeditEndClosure :: IMContextPreeditEndCallback -> IO Closure
iMContextPreeditEndClosure cb = newCClosure =<< mkIMContextPreeditEndCallback wrapped
where wrapped = iMContextPreeditEndCallbackWrapper cb
iMContextPreeditEndCallbackWrapper ::
IMContextPreeditEndCallback ->
Ptr () ->
Ptr () ->
IO ()
iMContextPreeditEndCallbackWrapper _cb _ _ = do
_cb
onIMContextPreeditEnd :: (GObject a, MonadIO m) => a -> IMContextPreeditEndCallback -> m SignalHandlerId
onIMContextPreeditEnd obj cb = liftIO $ connectIMContextPreeditEnd obj cb SignalConnectBefore
afterIMContextPreeditEnd :: (GObject a, MonadIO m) => a -> IMContextPreeditEndCallback -> m SignalHandlerId
afterIMContextPreeditEnd obj cb = connectIMContextPreeditEnd obj cb SignalConnectAfter
connectIMContextPreeditEnd :: (GObject a, MonadIO m) =>
a -> IMContextPreeditEndCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextPreeditEnd obj cb after = liftIO $ do
cb' <- mkIMContextPreeditEndCallback (iMContextPreeditEndCallbackWrapper cb)
connectSignalFunPtr obj "preedit-end" cb' after
-- signal IMContext::preedit-start
type IMContextPreeditStartCallback =
IO ()
noIMContextPreeditStartCallback :: Maybe IMContextPreeditStartCallback
noIMContextPreeditStartCallback = Nothing
type IMContextPreeditStartCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIMContextPreeditStartCallback :: IMContextPreeditStartCallbackC -> IO (FunPtr IMContextPreeditStartCallbackC)
iMContextPreeditStartClosure :: IMContextPreeditStartCallback -> IO Closure
iMContextPreeditStartClosure cb = newCClosure =<< mkIMContextPreeditStartCallback wrapped
where wrapped = iMContextPreeditStartCallbackWrapper cb
iMContextPreeditStartCallbackWrapper ::
IMContextPreeditStartCallback ->
Ptr () ->
Ptr () ->
IO ()
iMContextPreeditStartCallbackWrapper _cb _ _ = do
_cb
onIMContextPreeditStart :: (GObject a, MonadIO m) => a -> IMContextPreeditStartCallback -> m SignalHandlerId
onIMContextPreeditStart obj cb = liftIO $ connectIMContextPreeditStart obj cb SignalConnectBefore
afterIMContextPreeditStart :: (GObject a, MonadIO m) => a -> IMContextPreeditStartCallback -> m SignalHandlerId
afterIMContextPreeditStart obj cb = connectIMContextPreeditStart obj cb SignalConnectAfter
connectIMContextPreeditStart :: (GObject a, MonadIO m) =>
a -> IMContextPreeditStartCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextPreeditStart obj cb after = liftIO $ do
cb' <- mkIMContextPreeditStartCallback (iMContextPreeditStartCallbackWrapper cb)
connectSignalFunPtr obj "preedit-start" cb' after
-- signal IMContext::retrieve-surrounding
type IMContextRetrieveSurroundingCallback =
IO Bool
noIMContextRetrieveSurroundingCallback :: Maybe IMContextRetrieveSurroundingCallback
noIMContextRetrieveSurroundingCallback = Nothing
type IMContextRetrieveSurroundingCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkIMContextRetrieveSurroundingCallback :: IMContextRetrieveSurroundingCallbackC -> IO (FunPtr IMContextRetrieveSurroundingCallbackC)
iMContextRetrieveSurroundingClosure :: IMContextRetrieveSurroundingCallback -> IO Closure
iMContextRetrieveSurroundingClosure cb = newCClosure =<< mkIMContextRetrieveSurroundingCallback wrapped
where wrapped = iMContextRetrieveSurroundingCallbackWrapper cb
iMContextRetrieveSurroundingCallbackWrapper ::
IMContextRetrieveSurroundingCallback ->
Ptr () ->
Ptr () ->
IO CInt
iMContextRetrieveSurroundingCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onIMContextRetrieveSurrounding :: (GObject a, MonadIO m) => a -> IMContextRetrieveSurroundingCallback -> m SignalHandlerId
onIMContextRetrieveSurrounding obj cb = liftIO $ connectIMContextRetrieveSurrounding obj cb SignalConnectBefore
afterIMContextRetrieveSurrounding :: (GObject a, MonadIO m) => a -> IMContextRetrieveSurroundingCallback -> m SignalHandlerId
afterIMContextRetrieveSurrounding obj cb = connectIMContextRetrieveSurrounding obj cb SignalConnectAfter
connectIMContextRetrieveSurrounding :: (GObject a, MonadIO m) =>
a -> IMContextRetrieveSurroundingCallback -> SignalConnectMode -> m SignalHandlerId
connectIMContextRetrieveSurrounding obj cb after = liftIO $ do
cb' <- mkIMContextRetrieveSurroundingCallback (iMContextRetrieveSurroundingCallbackWrapper cb)
connectSignalFunPtr obj "retrieve-surrounding" cb' after
-- struct IMContextInfo
newtype IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo)
noIMContextInfo :: Maybe IMContextInfo
noIMContextInfo = Nothing
iMContextInfoReadContextId :: IMContextInfo -> IO T.Text
iMContextInfoReadContextId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
iMContextInfoReadContextName :: IMContextInfo -> IO T.Text
iMContextInfoReadContextName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
iMContextInfoReadDomain :: IMContextInfo -> IO T.Text
iMContextInfoReadDomain s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
iMContextInfoReadDomainDirname :: IMContextInfo -> IO T.Text
iMContextInfoReadDomainDirname s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
iMContextInfoReadDefaultLocales :: IMContextInfo -> IO T.Text
iMContextInfoReadDefaultLocales s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
-- object IMContextSimple
newtype IMContextSimple = IMContextSimple (ForeignPtr IMContextSimple)
noIMContextSimple :: Maybe IMContextSimple
noIMContextSimple = Nothing
foreign import ccall "gtk_im_context_simple_get_type"
c_gtk_im_context_simple_get_type :: IO GType
type instance ParentTypes IMContextSimple = '[IMContext, GObject.Object]
instance GObject IMContextSimple where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_im_context_simple_get_type
class GObject o => IMContextSimpleK o
instance (GObject o, IsDescendantOf IMContextSimple o) => IMContextSimpleK o
toIMContextSimple :: IMContextSimpleK o => o -> IO IMContextSimple
toIMContextSimple = unsafeCastTo IMContextSimple
-- method IMContextSimple::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IMContextSimple"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_context_simple_new" gtk_im_context_simple_new ::
IO (Ptr IMContextSimple)
iMContextSimpleNew ::
(MonadIO m) =>
m IMContextSimple
iMContextSimpleNew = liftIO $ do
result <- gtk_im_context_simple_new
checkUnexpectedReturnNULL "gtk_im_context_simple_new" result
result' <- (wrapObject IMContextSimple) result
return result'
-- object IMMulticontext
newtype IMMulticontext = IMMulticontext (ForeignPtr IMMulticontext)
noIMMulticontext :: Maybe IMMulticontext
noIMMulticontext = Nothing
foreign import ccall "gtk_im_multicontext_get_type"
c_gtk_im_multicontext_get_type :: IO GType
type instance ParentTypes IMMulticontext = '[IMContext, GObject.Object]
instance GObject IMMulticontext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_im_multicontext_get_type
class GObject o => IMMulticontextK o
instance (GObject o, IsDescendantOf IMMulticontext o) => IMMulticontextK o
toIMMulticontext :: IMMulticontextK o => o -> IO IMMulticontext
toIMMulticontext = unsafeCastTo IMMulticontext
-- method IMMulticontext::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IMMulticontext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_multicontext_new" gtk_im_multicontext_new ::
IO (Ptr IMMulticontext)
iMMulticontextNew ::
(MonadIO m) =>
m IMMulticontext
iMMulticontextNew = liftIO $ do
result <- gtk_im_multicontext_new
checkUnexpectedReturnNULL "gtk_im_multicontext_new" result
result' <- (wrapObject IMMulticontext) result
return result'
-- method IMMulticontext::append_menuitems
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_multicontext_append_menuitems" gtk_im_multicontext_append_menuitems ::
Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext"
Ptr MenuShell -> -- menushell : TInterface "Gtk" "MenuShell"
IO ()
{-# DEPRECATED iMMulticontextAppendMenuitems ["(Since version 3.10)","It is better to use the system-wide input"," method framework for changing input methods. Modern"," desktop shells offer on-screen displays for this that"," can triggered with a keyboard shortcut, e.g. Super-Space."]#-}
iMMulticontextAppendMenuitems ::
(MonadIO m, IMMulticontextK a, MenuShellK b) =>
a -> -- _obj
b -> -- menushell
m ()
iMMulticontextAppendMenuitems _obj menushell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let menushell' = unsafeManagedPtrCastPtr menushell
gtk_im_multicontext_append_menuitems _obj' menushell'
touchManagedPtr _obj
touchManagedPtr menushell
return ()
-- method IMMulticontext::get_context_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_multicontext_get_context_id" gtk_im_multicontext_get_context_id ::
Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext"
IO CString
iMMulticontextGetContextId ::
(MonadIO m, IMMulticontextK a) =>
a -> -- _obj
m T.Text
iMMulticontextGetContextId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_im_multicontext_get_context_id _obj'
checkUnexpectedReturnNULL "gtk_im_multicontext_get_context_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method IMMulticontext::set_context_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_im_multicontext_set_context_id" gtk_im_multicontext_set_context_id ::
Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext"
CString -> -- context_id : TBasicType TUTF8
IO ()
iMMulticontextSetContextId ::
(MonadIO m, IMMulticontextK a) =>
a -> -- _obj
T.Text -> -- context_id
m ()
iMMulticontextSetContextId _obj context_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
context_id' <- textToCString context_id
gtk_im_multicontext_set_context_id _obj' context_id'
touchManagedPtr _obj
freeMem context_id'
return ()
-- Enum IMPreeditStyle
{-# DEPRECATED IMPreeditStyle ["(Since version 3.10)"]#-}
data IMPreeditStyle =
IMPreeditStyleNothing
| IMPreeditStyleCallback
| IMPreeditStyleNone
| AnotherIMPreeditStyle Int
deriving (Show, Eq)
instance Enum IMPreeditStyle where
fromEnum IMPreeditStyleNothing = 0
fromEnum IMPreeditStyleCallback = 1
fromEnum IMPreeditStyleNone = 2
fromEnum (AnotherIMPreeditStyle k) = k
toEnum 0 = IMPreeditStyleNothing
toEnum 1 = IMPreeditStyleCallback
toEnum 2 = IMPreeditStyleNone
toEnum k = AnotherIMPreeditStyle k
foreign import ccall "gtk_im_preedit_style_get_type" c_gtk_im_preedit_style_get_type ::
IO GType
instance BoxedEnum IMPreeditStyle where
boxedEnumType _ = c_gtk_im_preedit_style_get_type
-- Enum IMStatusStyle
{-# DEPRECATED IMStatusStyle ["(Since version 3.10)"]#-}
data IMStatusStyle =
IMStatusStyleNothing
| IMStatusStyleCallback
| IMStatusStyleNone
| AnotherIMStatusStyle Int
deriving (Show, Eq)
instance Enum IMStatusStyle where
fromEnum IMStatusStyleNothing = 0
fromEnum IMStatusStyleCallback = 1
fromEnum IMStatusStyleNone = 2
fromEnum (AnotherIMStatusStyle k) = k
toEnum 0 = IMStatusStyleNothing
toEnum 1 = IMStatusStyleCallback
toEnum 2 = IMStatusStyleNone
toEnum k = AnotherIMStatusStyle k
foreign import ccall "gtk_im_status_style_get_type" c_gtk_im_status_style_get_type ::
IO GType
instance BoxedEnum IMStatusStyle where
boxedEnumType _ = c_gtk_im_status_style_get_type
-- object IconFactory
newtype IconFactory = IconFactory (ForeignPtr IconFactory)
noIconFactory :: Maybe IconFactory
noIconFactory = Nothing
foreign import ccall "gtk_icon_factory_get_type"
c_gtk_icon_factory_get_type :: IO GType
type instance ParentTypes IconFactory = '[GObject.Object, Buildable]
instance GObject IconFactory where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_icon_factory_get_type
class GObject o => IconFactoryK o
instance (GObject o, IsDescendantOf IconFactory o) => IconFactoryK o
toIconFactory :: IconFactoryK o => o -> IO IconFactory
toIconFactory = unsafeCastTo IconFactory
-- method IconFactory::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconFactory"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_new" gtk_icon_factory_new ::
IO (Ptr IconFactory)
{-# DEPRECATED iconFactoryNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryNew ::
(MonadIO m) =>
m IconFactory
iconFactoryNew = liftIO $ do
result <- gtk_icon_factory_new
checkUnexpectedReturnNULL "gtk_icon_factory_new" result
result' <- (wrapObject IconFactory) result
return result'
-- method IconFactory::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_add" gtk_icon_factory_add ::
Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory"
CString -> -- stock_id : TBasicType TUTF8
Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet"
IO ()
{-# DEPRECATED iconFactoryAdd ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryAdd ::
(MonadIO m, IconFactoryK a) =>
a -> -- _obj
T.Text -> -- stock_id
IconSet -> -- icon_set
m ()
iconFactoryAdd _obj stock_id icon_set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
let icon_set' = unsafeManagedPtrGetPtr icon_set
gtk_icon_factory_add _obj' stock_id' icon_set'
touchManagedPtr _obj
touchManagedPtr icon_set
freeMem stock_id'
return ()
-- method IconFactory::add_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_add_default" gtk_icon_factory_add_default ::
Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory"
IO ()
{-# DEPRECATED iconFactoryAddDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryAddDefault ::
(MonadIO m, IconFactoryK a) =>
a -> -- _obj
m ()
iconFactoryAddDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_factory_add_default _obj'
touchManagedPtr _obj
return ()
-- method IconFactory::lookup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_lookup" gtk_icon_factory_lookup ::
Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory"
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr IconSet)
{-# DEPRECATED iconFactoryLookup ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryLookup ::
(MonadIO m, IconFactoryK a) =>
a -> -- _obj
T.Text -> -- stock_id
m IconSet
iconFactoryLookup _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
result <- gtk_icon_factory_lookup _obj' stock_id'
checkUnexpectedReturnNULL "gtk_icon_factory_lookup" result
result' <- (newBoxed IconSet) result
touchManagedPtr _obj
freeMem stock_id'
return result'
-- method IconFactory::remove_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_remove_default" gtk_icon_factory_remove_default ::
Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory"
IO ()
{-# DEPRECATED iconFactoryRemoveDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryRemoveDefault ::
(MonadIO m, IconFactoryK a) =>
a -> -- _obj
m ()
iconFactoryRemoveDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_factory_remove_default _obj'
touchManagedPtr _obj
return ()
-- method IconFactory::lookup_default
-- method type : MemberFunction
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_factory_lookup_default" gtk_icon_factory_lookup_default ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr IconSet)
{-# DEPRECATED iconFactoryLookupDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconFactoryLookupDefault ::
(MonadIO m) =>
T.Text -> -- stock_id
m IconSet
iconFactoryLookupDefault stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_icon_factory_lookup_default stock_id'
checkUnexpectedReturnNULL "gtk_icon_factory_lookup_default" result
result' <- (newBoxed IconSet) result
freeMem stock_id'
return result'
-- object IconInfo
newtype IconInfo = IconInfo (ForeignPtr IconInfo)
noIconInfo :: Maybe IconInfo
noIconInfo = Nothing
foreign import ccall "gtk_icon_info_get_type"
c_gtk_icon_info_get_type :: IO GType
type instance ParentTypes IconInfo = '[GObject.Object]
instance GObject IconInfo where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_icon_info_get_type
class GObject o => IconInfoK o
instance (GObject o, IsDescendantOf IconInfo o) => IconInfoK o
toIconInfo :: IconInfoK o => o -> IO IconInfo
toIconInfo = unsafeCastTo IconInfo
-- method IconInfo::new_for_pixbuf
-- method type : Constructor
-- Args : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_new_for_pixbuf" gtk_icon_info_new_for_pixbuf ::
Ptr IconTheme -> -- icon_theme : TInterface "Gtk" "IconTheme"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr IconInfo)
iconInfoNewForPixbuf ::
(MonadIO m, IconThemeK a, GdkPixbuf.PixbufK b) =>
a -> -- icon_theme
b -> -- pixbuf
m IconInfo
iconInfoNewForPixbuf icon_theme pixbuf = liftIO $ do
let icon_theme' = unsafeManagedPtrCastPtr icon_theme
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
result <- gtk_icon_info_new_for_pixbuf icon_theme' pixbuf'
checkUnexpectedReturnNULL "gtk_icon_info_new_for_pixbuf" result
result' <- (wrapObject IconInfo) result
touchManagedPtr icon_theme
touchManagedPtr pixbuf
return result'
-- method IconInfo::get_attach_points
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_attach_points" gtk_icon_info_get_attach_points ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr (Ptr Gdk.Point) -> -- points : TCArray False (-1) 2 (TInterface "Gdk" "Point")
Ptr Int32 -> -- n_points : TBasicType TInt32
IO CInt
{-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-}
iconInfoGetAttachPoints ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m (Bool,[Gdk.Point])
iconInfoGetAttachPoints _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
points <- allocMem :: IO (Ptr (Ptr Gdk.Point))
n_points <- allocMem :: IO (Ptr Int32)
result <- gtk_icon_info_get_attach_points _obj' points n_points
n_points' <- peek n_points
let result' = (/= 0) result
points' <- peek points
points'' <- (unpackBlockArrayWithLength 8 n_points') points'
points''' <- mapM (wrapPtr Gdk.Point) points''
freeMem points'
touchManagedPtr _obj
freeMem points
freeMem n_points
return (result', points''')
-- method IconInfo::get_base_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_base_scale" gtk_icon_info_get_base_scale ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO Int32
iconInfoGetBaseScale ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m Int32
iconInfoGetBaseScale _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_get_base_scale _obj'
touchManagedPtr _obj
return result
-- method IconInfo::get_base_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_base_size" gtk_icon_info_get_base_size ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO Int32
iconInfoGetBaseSize ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m Int32
iconInfoGetBaseSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_get_base_size _obj'
touchManagedPtr _obj
return result
-- method IconInfo::get_builtin_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_builtin_pixbuf" gtk_icon_info_get_builtin_pixbuf ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconInfoGetBuiltinPixbuf ["(Since version 3.14)","This function is deprecated, use"," gtk_icon_theme_add_resource_path() instead of builtin icons."]#-}
iconInfoGetBuiltinPixbuf ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
iconInfoGetBuiltinPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_get_builtin_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_icon_info_get_builtin_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method IconInfo::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_display_name" gtk_icon_info_get_display_name ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO CString
{-# DEPRECATED iconInfoGetDisplayName ["(Since version 3.14)","Display names are deprecated"]#-}
iconInfoGetDisplayName ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m T.Text
iconInfoGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_get_display_name _obj'
checkUnexpectedReturnNULL "gtk_icon_info_get_display_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method IconInfo::get_embedded_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_embedded_rect" gtk_icon_info_get_embedded_rect ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gdk.Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle"
IO CInt
{-# DEPRECATED iconInfoGetEmbeddedRect ["(Since version 3.14)","Embedded rectangles are deprecated"]#-}
iconInfoGetEmbeddedRect ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m (Bool,Gdk.Rectangle)
iconInfoGetEmbeddedRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rectangle <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_icon_info_get_embedded_rect _obj' rectangle
let result' = (/= 0) result
rectangle' <- (wrapBoxed Gdk.Rectangle) rectangle
touchManagedPtr _obj
return (result', rectangle')
-- method IconInfo::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_get_filename" gtk_icon_info_get_filename ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO CString
iconInfoGetFilename ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m [Char]
iconInfoGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_get_filename _obj'
checkUnexpectedReturnNULL "gtk_icon_info_get_filename" result
result' <- cstringToString result
touchManagedPtr _obj
return result'
-- method IconInfo::is_symbolic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_is_symbolic" gtk_icon_info_is_symbolic ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
IO CInt
iconInfoIsSymbolic ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m Bool
iconInfoIsSymbolic _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_info_is_symbolic _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconInfo::load_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_icon" gtk_icon_info_load_icon ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadIcon ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
iconInfoLoadIcon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ gtk_icon_info_load_icon _obj'
checkUnexpectedReturnNULL "gtk_icon_info_load_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method IconInfo::load_icon_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_load_icon_async" gtk_icon_info_load_icon_async ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
iconInfoLoadIconAsync ::
(MonadIO m, IconInfoK a, Gio.CancellableK b) =>
a -> -- _obj
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
iconInfoLoadIconAsync _obj cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gtk_icon_info_load_icon_async _obj' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return ()
-- method IconInfo::load_icon_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_icon_finish" gtk_icon_info_load_icon_finish ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadIconFinish ::
(MonadIO m, IconInfoK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- res
m GdkPixbuf.Pixbuf
iconInfoLoadIconFinish _obj res = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let res' = unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ gtk_icon_info_load_icon_finish _obj' res'
checkUnexpectedReturnNULL "gtk_icon_info_load_icon_finish" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr res
return result'
) (do
return ()
)
-- method IconInfo::load_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_surface" gtk_icon_info_load_surface ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window"
Ptr (Ptr GError) -> -- error
IO (Ptr Cairo.Surface)
iconInfoLoadSurface ::
(MonadIO m, IconInfoK a, Gdk.WindowK b) =>
a -> -- _obj
Maybe (b) -> -- for_window
m Cairo.Surface
iconInfoLoadSurface _obj for_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFor_window <- case for_window of
Nothing -> return nullPtr
Just jFor_window -> do
let jFor_window' = unsafeManagedPtrCastPtr jFor_window
return jFor_window'
onException (do
result <- propagateGError $ gtk_icon_info_load_surface _obj' maybeFor_window
checkUnexpectedReturnNULL "gtk_icon_info_load_surface" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
whenJust for_window touchManagedPtr
return result'
) (do
return ()
)
-- method IconInfo::load_symbolic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic" gtk_icon_info_load_symbolic ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gdk.RGBA -> -- fg : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- success_color : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- warning_color : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA"
Ptr CInt -> -- was_symbolic : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadSymbolic ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
Gdk.RGBA -> -- fg
Maybe (Gdk.RGBA) -> -- success_color
Maybe (Gdk.RGBA) -> -- warning_color
Maybe (Gdk.RGBA) -> -- error_color
m (GdkPixbuf.Pixbuf,Bool)
iconInfoLoadSymbolic _obj fg success_color warning_color error_color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fg' = unsafeManagedPtrGetPtr fg
maybeSuccess_color <- case success_color of
Nothing -> return nullPtr
Just jSuccess_color -> do
let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color
return jSuccess_color'
maybeWarning_color <- case warning_color of
Nothing -> return nullPtr
Just jWarning_color -> do
let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color
return jWarning_color'
maybeError_color <- case error_color of
Nothing -> return nullPtr
Just jError_color -> do
let jError_color' = unsafeManagedPtrGetPtr jError_color
return jError_color'
was_symbolic <- allocMem :: IO (Ptr CInt)
onException (do
result <- propagateGError $ gtk_icon_info_load_symbolic _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color was_symbolic
checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
was_symbolic' <- peek was_symbolic
let was_symbolic'' = (/= 0) was_symbolic'
touchManagedPtr _obj
touchManagedPtr fg
whenJust success_color touchManagedPtr
whenJust warning_color touchManagedPtr
whenJust error_color touchManagedPtr
freeMem was_symbolic
return (result', was_symbolic'')
) (do
freeMem was_symbolic
)
-- method IconInfo::load_symbolic_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_async" gtk_icon_info_load_symbolic_async ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gdk.RGBA -> -- fg : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- success_color : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- warning_color : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
iconInfoLoadSymbolicAsync ::
(MonadIO m, IconInfoK a, Gio.CancellableK b) =>
a -> -- _obj
Gdk.RGBA -> -- fg
Maybe (Gdk.RGBA) -> -- success_color
Maybe (Gdk.RGBA) -> -- warning_color
Maybe (Gdk.RGBA) -> -- error_color
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
iconInfoLoadSymbolicAsync _obj fg success_color warning_color error_color cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fg' = unsafeManagedPtrGetPtr fg
maybeSuccess_color <- case success_color of
Nothing -> return nullPtr
Just jSuccess_color -> do
let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color
return jSuccess_color'
maybeWarning_color <- case warning_color of
Nothing -> return nullPtr
Just jWarning_color -> do
let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color
return jWarning_color'
maybeError_color <- case error_color of
Nothing -> return nullPtr
Just jError_color -> do
let jError_color' = unsafeManagedPtrGetPtr jError_color
return jError_color'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gtk_icon_info_load_symbolic_async _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color maybeCancellable maybeCallback user_data
touchManagedPtr _obj
touchManagedPtr fg
whenJust success_color touchManagedPtr
whenJust warning_color touchManagedPtr
whenJust error_color touchManagedPtr
whenJust cancellable touchManagedPtr
return ()
-- method IconInfo::load_symbolic_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_finish" gtk_icon_info_load_symbolic_finish ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult"
Ptr CInt -> -- was_symbolic : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadSymbolicFinish ::
(MonadIO m, IconInfoK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- res
m (GdkPixbuf.Pixbuf,Bool)
iconInfoLoadSymbolicFinish _obj res = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let res' = unsafeManagedPtrCastPtr res
was_symbolic <- allocMem :: IO (Ptr CInt)
onException (do
result <- propagateGError $ gtk_icon_info_load_symbolic_finish _obj' res' was_symbolic
checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_finish" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
was_symbolic' <- peek was_symbolic
let was_symbolic'' = (/= 0) was_symbolic'
touchManagedPtr _obj
touchManagedPtr res
freeMem was_symbolic
return (result', was_symbolic'')
) (do
freeMem was_symbolic
)
-- method IconInfo::load_symbolic_for_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_for_context" gtk_icon_info_load_symbolic_for_context ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr CInt -> -- was_symbolic : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadSymbolicForContext ::
(MonadIO m, IconInfoK a, StyleContextK b) =>
a -> -- _obj
b -> -- context
m (GdkPixbuf.Pixbuf,Bool)
iconInfoLoadSymbolicForContext _obj context = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
was_symbolic <- allocMem :: IO (Ptr CInt)
onException (do
result <- propagateGError $ gtk_icon_info_load_symbolic_for_context _obj' context' was_symbolic
checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
was_symbolic' <- peek was_symbolic
let was_symbolic'' = (/= 0) was_symbolic'
touchManagedPtr _obj
touchManagedPtr context
freeMem was_symbolic
return (result', was_symbolic'')
) (do
freeMem was_symbolic
)
-- method IconInfo::load_symbolic_for_context_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_for_context_async" gtk_icon_info_load_symbolic_for_context_async ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
iconInfoLoadSymbolicForContextAsync ::
(MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) =>
a -> -- _obj
b -> -- context
Maybe (c) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
iconInfoLoadSymbolicForContextAsync _obj context cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gtk_icon_info_load_symbolic_for_context_async _obj' context' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
touchManagedPtr context
whenJust cancellable touchManagedPtr
return ()
-- method IconInfo::load_symbolic_for_context_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_for_context_finish" gtk_icon_info_load_symbolic_for_context_finish ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult"
Ptr CInt -> -- was_symbolic : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconInfoLoadSymbolicForContextFinish ::
(MonadIO m, IconInfoK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- res
m (GdkPixbuf.Pixbuf,Bool)
iconInfoLoadSymbolicForContextFinish _obj res = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let res' = unsafeManagedPtrCastPtr res
was_symbolic <- allocMem :: IO (Ptr CInt)
onException (do
result <- propagateGError $ gtk_icon_info_load_symbolic_for_context_finish _obj' res' was_symbolic
checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context_finish" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
was_symbolic' <- peek was_symbolic
let was_symbolic'' = (/= 0) was_symbolic'
touchManagedPtr _obj
touchManagedPtr res
freeMem was_symbolic
return (result', was_symbolic'')
) (do
freeMem was_symbolic
)
-- method IconInfo::load_symbolic_for_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_info_load_symbolic_for_style" gtk_icon_info_load_symbolic_for_style ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
Ptr Style -> -- style : TInterface "Gtk" "Style"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr CInt -> -- was_symbolic : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconInfoLoadSymbolicForStyle ["(Since version 3.0)","Use gtk_icon_info_load_symbolic_for_context() instead"]#-}
iconInfoLoadSymbolicForStyle ::
(MonadIO m, IconInfoK a, StyleK b) =>
a -> -- _obj
b -> -- style
StateType -> -- state
m (GdkPixbuf.Pixbuf,Bool)
iconInfoLoadSymbolicForStyle _obj style state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = unsafeManagedPtrCastPtr style
let state' = (fromIntegral . fromEnum) state
was_symbolic <- allocMem :: IO (Ptr CInt)
onException (do
result <- propagateGError $ gtk_icon_info_load_symbolic_for_style _obj' style' state' was_symbolic
checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_style" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
was_symbolic' <- peek was_symbolic
let was_symbolic'' = (/= 0) was_symbolic'
touchManagedPtr _obj
touchManagedPtr style
freeMem was_symbolic
return (result', was_symbolic'')
) (do
freeMem was_symbolic
)
-- method IconInfo::set_raw_coordinates
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_info_set_raw_coordinates" gtk_icon_info_set_raw_coordinates ::
Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo"
CInt -> -- raw_coordinates : TBasicType TBoolean
IO ()
{-# DEPRECATED iconInfoSetRawCoordinates ["(Since version 3.14)","Embedded rectangles and attachment points are deprecated"]#-}
iconInfoSetRawCoordinates ::
(MonadIO m, IconInfoK a) =>
a -> -- _obj
Bool -> -- raw_coordinates
m ()
iconInfoSetRawCoordinates _obj raw_coordinates = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let raw_coordinates' = (fromIntegral . fromEnum) raw_coordinates
gtk_icon_info_set_raw_coordinates _obj' raw_coordinates'
touchManagedPtr _obj
return ()
-- Flags IconLookupFlags
data IconLookupFlags =
IconLookupFlagsNoSvg
| IconLookupFlagsForceSvg
| IconLookupFlagsUseBuiltin
| IconLookupFlagsGenericFallback
| IconLookupFlagsForceSize
| IconLookupFlagsForceRegular
| IconLookupFlagsForceSymbolic
| IconLookupFlagsDirLtr
| IconLookupFlagsDirRtl
| AnotherIconLookupFlags Int
deriving (Show, Eq)
instance Enum IconLookupFlags where
fromEnum IconLookupFlagsNoSvg = 1
fromEnum IconLookupFlagsForceSvg = 2
fromEnum IconLookupFlagsUseBuiltin = 4
fromEnum IconLookupFlagsGenericFallback = 8
fromEnum IconLookupFlagsForceSize = 16
fromEnum IconLookupFlagsForceRegular = 32
fromEnum IconLookupFlagsForceSymbolic = 64
fromEnum IconLookupFlagsDirLtr = 128
fromEnum IconLookupFlagsDirRtl = 256
fromEnum (AnotherIconLookupFlags k) = k
toEnum 1 = IconLookupFlagsNoSvg
toEnum 2 = IconLookupFlagsForceSvg
toEnum 4 = IconLookupFlagsUseBuiltin
toEnum 8 = IconLookupFlagsGenericFallback
toEnum 16 = IconLookupFlagsForceSize
toEnum 32 = IconLookupFlagsForceRegular
toEnum 64 = IconLookupFlagsForceSymbolic
toEnum 128 = IconLookupFlagsDirLtr
toEnum 256 = IconLookupFlagsDirRtl
toEnum k = AnotherIconLookupFlags k
foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type ::
IO GType
instance BoxedEnum IconLookupFlags where
boxedEnumType _ = c_gtk_icon_lookup_flags_get_type
instance IsGFlag IconLookupFlags
-- struct IconSet
newtype IconSet = IconSet (ForeignPtr IconSet)
noIconSet :: Maybe IconSet
noIconSet = Nothing
foreign import ccall "gtk_icon_set_get_type" c_gtk_icon_set_get_type ::
IO GType
instance BoxedObject IconSet where
boxedType _ = c_gtk_icon_set_get_type
-- method IconSet::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_new" gtk_icon_set_new ::
IO (Ptr IconSet)
{-# DEPRECATED iconSetNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetNew ::
(MonadIO m) =>
m IconSet
iconSetNew = liftIO $ do
result <- gtk_icon_set_new
checkUnexpectedReturnNULL "gtk_icon_set_new" result
result' <- (wrapBoxed IconSet) result
return result'
-- method IconSet::new_from_pixbuf
-- method type : Constructor
-- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_new_from_pixbuf" gtk_icon_set_new_from_pixbuf ::
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr IconSet)
{-# DEPRECATED iconSetNewFromPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetNewFromPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
a -> -- pixbuf
m IconSet
iconSetNewFromPixbuf pixbuf = liftIO $ do
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
result <- gtk_icon_set_new_from_pixbuf pixbuf'
checkUnexpectedReturnNULL "gtk_icon_set_new_from_pixbuf" result
result' <- (wrapBoxed IconSet) result
touchManagedPtr pixbuf
return result'
-- method IconSet::add_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_add_source" gtk_icon_set_add_source ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
Ptr IconSource -> -- source : TInterface "Gtk" "IconSource"
IO ()
{-# DEPRECATED iconSetAddSource ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetAddSource ::
(MonadIO m) =>
IconSet -> -- _obj
IconSource -> -- source
m ()
iconSetAddSource _obj source = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let source' = unsafeManagedPtrGetPtr source
gtk_icon_set_add_source _obj' source'
touchManagedPtr _obj
touchManagedPtr source
return ()
-- method IconSet::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_copy" gtk_icon_set_copy ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
IO (Ptr IconSet)
{-# DEPRECATED iconSetCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetCopy ::
(MonadIO m) =>
IconSet -> -- _obj
m IconSet
iconSetCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_set_copy _obj'
checkUnexpectedReturnNULL "gtk_icon_set_copy" result
result' <- (wrapBoxed IconSet) result
touchManagedPtr _obj
return result'
-- method IconSet::get_sizes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_get_sizes" gtk_icon_set_get_sizes ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
Ptr (Ptr Int32) -> -- sizes : TCArray False (-1) 2 (TBasicType TInt32)
Ptr Int32 -> -- n_sizes : TBasicType TInt32
IO ()
{-# DEPRECATED iconSetGetSizes ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetGetSizes ::
(MonadIO m) =>
IconSet -> -- _obj
m ([Int32])
iconSetGetSizes _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
sizes <- allocMem :: IO (Ptr (Ptr Int32))
n_sizes <- allocMem :: IO (Ptr Int32)
gtk_icon_set_get_sizes _obj' sizes n_sizes
n_sizes' <- peek n_sizes
sizes' <- peek sizes
sizes'' <- (unpackStorableArrayWithLength n_sizes') sizes'
freeMem sizes'
touchManagedPtr _obj
freeMem sizes
freeMem n_sizes
return sizes''
-- method IconSet::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_ref" gtk_icon_set_ref ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
IO (Ptr IconSet)
{-# DEPRECATED iconSetRef ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetRef ::
(MonadIO m) =>
IconSet -> -- _obj
m IconSet
iconSetRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_set_ref _obj'
checkUnexpectedReturnNULL "gtk_icon_set_ref" result
result' <- (wrapBoxed IconSet) result
touchManagedPtr _obj
return result'
-- method IconSet::render_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_render_icon" gtk_icon_set_render_icon ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
Ptr Style -> -- style : TInterface "Gtk" "Style"
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
CUInt -> -- state : TInterface "Gtk" "StateType"
Int32 -> -- size : TBasicType TInt32
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconSetRenderIcon ["(Since version 3.0)","Use gtk_icon_set_render_icon_pixbuf() instead"]#-}
iconSetRenderIcon ::
(MonadIO m, StyleK a, WidgetK b) =>
IconSet -> -- _obj
Maybe (a) -> -- style
TextDirection -> -- direction
StateType -> -- state
Int32 -> -- size
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
m GdkPixbuf.Pixbuf
iconSetRenderIcon _obj style direction state size widget detail = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeStyle <- case style of
Nothing -> return nullPtr
Just jStyle -> do
let jStyle' = unsafeManagedPtrCastPtr jStyle
return jStyle'
let direction' = (fromIntegral . fromEnum) direction
let state' = (fromIntegral . fromEnum) state
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
result <- gtk_icon_set_render_icon _obj' maybeStyle direction' state' size maybeWidget maybeDetail
checkUnexpectedReturnNULL "gtk_icon_set_render_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
whenJust style touchManagedPtr
whenJust widget touchManagedPtr
freeMem maybeDetail
return result'
-- method IconSet::render_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_render_icon_pixbuf" gtk_icon_set_render_icon_pixbuf ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Int32 -> -- size : TBasicType TInt32
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconSetRenderIconPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetRenderIconPixbuf ::
(MonadIO m, StyleContextK a) =>
IconSet -> -- _obj
a -> -- context
Int32 -> -- size
m GdkPixbuf.Pixbuf
iconSetRenderIconPixbuf _obj context size = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let context' = unsafeManagedPtrCastPtr context
result <- gtk_icon_set_render_icon_pixbuf _obj' context' size
checkUnexpectedReturnNULL "gtk_icon_set_render_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr context
return result'
-- method IconSet::render_icon_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_render_icon_surface" gtk_icon_set_render_icon_surface ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window"
IO (Ptr Cairo.Surface)
{-# DEPRECATED iconSetRenderIconSurface ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetRenderIconSurface ::
(MonadIO m, StyleContextK a, Gdk.WindowK b) =>
IconSet -> -- _obj
a -> -- context
Int32 -> -- size
Int32 -> -- scale
Maybe (b) -> -- for_window
m Cairo.Surface
iconSetRenderIconSurface _obj context size scale for_window = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let context' = unsafeManagedPtrCastPtr context
maybeFor_window <- case for_window of
Nothing -> return nullPtr
Just jFor_window -> do
let jFor_window' = unsafeManagedPtrCastPtr jFor_window
return jFor_window'
result <- gtk_icon_set_render_icon_surface _obj' context' size scale maybeFor_window
checkUnexpectedReturnNULL "gtk_icon_set_render_icon_surface" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
touchManagedPtr context
whenJust for_window touchManagedPtr
return result'
-- method IconSet::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_set_unref" gtk_icon_set_unref ::
Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet"
IO ()
{-# DEPRECATED iconSetUnref ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSetUnref ::
(MonadIO m) =>
IconSet -> -- _obj
m ()
iconSetUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_icon_set_unref _obj'
touchManagedPtr _obj
return ()
-- Enum IconSize
data IconSize =
IconSizeInvalid
| IconSizeMenu
| IconSizeSmallToolbar
| IconSizeLargeToolbar
| IconSizeButton
| IconSizeDnd
| IconSizeDialog
| AnotherIconSize Int
deriving (Show, Eq)
instance Enum IconSize where
fromEnum IconSizeInvalid = 0
fromEnum IconSizeMenu = 1
fromEnum IconSizeSmallToolbar = 2
fromEnum IconSizeLargeToolbar = 3
fromEnum IconSizeButton = 4
fromEnum IconSizeDnd = 5
fromEnum IconSizeDialog = 6
fromEnum (AnotherIconSize k) = k
toEnum 0 = IconSizeInvalid
toEnum 1 = IconSizeMenu
toEnum 2 = IconSizeSmallToolbar
toEnum 3 = IconSizeLargeToolbar
toEnum 4 = IconSizeButton
toEnum 5 = IconSizeDnd
toEnum 6 = IconSizeDialog
toEnum k = AnotherIconSize k
foreign import ccall "gtk_icon_size_get_type" c_gtk_icon_size_get_type ::
IO GType
instance BoxedEnum IconSize where
boxedEnumType _ = c_gtk_icon_size_get_type
-- struct IconSource
newtype IconSource = IconSource (ForeignPtr IconSource)
noIconSource :: Maybe IconSource
noIconSource = Nothing
foreign import ccall "gtk_icon_source_get_type" c_gtk_icon_source_get_type ::
IO GType
instance BoxedObject IconSource where
boxedType _ = c_gtk_icon_source_get_type
-- method IconSource::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconSource"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_new" gtk_icon_source_new ::
IO (Ptr IconSource)
{-# DEPRECATED iconSourceNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceNew ::
(MonadIO m) =>
m IconSource
iconSourceNew = liftIO $ do
result <- gtk_icon_source_new
checkUnexpectedReturnNULL "gtk_icon_source_new" result
result' <- (wrapBoxed IconSource) result
return result'
-- method IconSource::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSource"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_copy" gtk_icon_source_copy ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO (Ptr IconSource)
{-# DEPRECATED iconSourceCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceCopy ::
(MonadIO m) =>
IconSource -> -- _obj
m IconSource
iconSourceCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_copy _obj'
checkUnexpectedReturnNULL "gtk_icon_source_copy" result
result' <- (wrapBoxed IconSource) result
touchManagedPtr _obj
return result'
-- method IconSource::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_free" gtk_icon_source_free ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO ()
{-# DEPRECATED iconSourceFree ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceFree ::
(MonadIO m) =>
IconSource -> -- _obj
m ()
iconSourceFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_icon_source_free _obj'
touchManagedPtr _obj
return ()
-- method IconSource::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_direction" gtk_icon_source_get_direction ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CUInt
{-# DEPRECATED iconSourceGetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetDirection ::
(MonadIO m) =>
IconSource -> -- _obj
m TextDirection
iconSourceGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method IconSource::get_direction_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_direction_wildcarded" gtk_icon_source_get_direction_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CInt
{-# DEPRECATED iconSourceGetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetDirectionWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
m Bool
iconSourceGetDirectionWildcarded _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_direction_wildcarded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconSource::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_filename" gtk_icon_source_get_filename ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CString
{-# DEPRECATED iconSourceGetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetFilename ::
(MonadIO m) =>
IconSource -> -- _obj
m [Char]
iconSourceGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_filename _obj'
checkUnexpectedReturnNULL "gtk_icon_source_get_filename" result
result' <- cstringToString result
touchManagedPtr _obj
return result'
-- method IconSource::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_icon_name" gtk_icon_source_get_icon_name ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CString
{-# DEPRECATED iconSourceGetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetIconName ::
(MonadIO m) =>
IconSource -> -- _obj
m T.Text
iconSourceGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_icon_source_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method IconSource::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_pixbuf" gtk_icon_source_get_pixbuf ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconSourceGetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetPixbuf ::
(MonadIO m) =>
IconSource -> -- _obj
m GdkPixbuf.Pixbuf
iconSourceGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_icon_source_get_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method IconSource::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_size" gtk_icon_source_get_size ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO Int32
{-# DEPRECATED iconSourceGetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetSize ::
(MonadIO m) =>
IconSource -> -- _obj
m Int32
iconSourceGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_size _obj'
touchManagedPtr _obj
return result
-- method IconSource::get_size_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_size_wildcarded" gtk_icon_source_get_size_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CInt
{-# DEPRECATED iconSourceGetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetSizeWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
m Bool
iconSourceGetSizeWildcarded _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_size_wildcarded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconSource::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_state" gtk_icon_source_get_state ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CUInt
{-# DEPRECATED iconSourceGetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetState ::
(MonadIO m) =>
IconSource -> -- _obj
m StateType
iconSourceGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_state _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method IconSource::get_state_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_get_state_wildcarded" gtk_icon_source_get_state_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
IO CInt
{-# DEPRECATED iconSourceGetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceGetStateWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
m Bool
iconSourceGetStateWildcarded _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_icon_source_get_state_wildcarded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconSource::set_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_direction" gtk_icon_source_set_direction ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
IO ()
{-# DEPRECATED iconSourceSetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetDirection ::
(MonadIO m) =>
IconSource -> -- _obj
TextDirection -> -- direction
m ()
iconSourceSetDirection _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let direction' = (fromIntegral . fromEnum) direction
gtk_icon_source_set_direction _obj' direction'
touchManagedPtr _obj
return ()
-- method IconSource::set_direction_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_direction_wildcarded" gtk_icon_source_set_direction_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CInt -> -- setting : TBasicType TBoolean
IO ()
{-# DEPRECATED iconSourceSetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetDirectionWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
Bool -> -- setting
m ()
iconSourceSetDirectionWildcarded _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_icon_source_set_direction_wildcarded _obj' setting'
touchManagedPtr _obj
return ()
-- method IconSource::set_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_filename" gtk_icon_source_set_filename ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CString -> -- filename : TBasicType TFileName
IO ()
{-# DEPRECATED iconSourceSetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetFilename ::
(MonadIO m) =>
IconSource -> -- _obj
[Char] -> -- filename
m ()
iconSourceSetFilename _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
filename' <- stringToCString filename
gtk_icon_source_set_filename _obj' filename'
touchManagedPtr _obj
freeMem filename'
return ()
-- method IconSource::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_icon_name" gtk_icon_source_set_icon_name ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CString -> -- icon_name : TBasicType TUTF8
IO ()
{-# DEPRECATED iconSourceSetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetIconName ::
(MonadIO m) =>
IconSource -> -- _obj
Maybe (T.Text) -> -- icon_name
m ()
iconSourceSetIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_icon_source_set_icon_name _obj' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method IconSource::set_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_pixbuf" gtk_icon_source_set_pixbuf ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
{-# DEPRECATED iconSourceSetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
IconSource -> -- _obj
a -> -- pixbuf
m ()
iconSourceSetPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_icon_source_set_pixbuf _obj' pixbuf'
touchManagedPtr _obj
touchManagedPtr pixbuf
return ()
-- method IconSource::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_size" gtk_icon_source_set_size ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetSize ::
(MonadIO m) =>
IconSource -> -- _obj
Int32 -> -- size
m ()
iconSourceSetSize _obj size = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_icon_source_set_size _obj' size
touchManagedPtr _obj
return ()
-- method IconSource::set_size_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_size_wildcarded" gtk_icon_source_set_size_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CInt -> -- setting : TBasicType TBoolean
IO ()
{-# DEPRECATED iconSourceSetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetSizeWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
Bool -> -- setting
m ()
iconSourceSetSizeWildcarded _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_icon_source_set_size_wildcarded _obj' setting'
touchManagedPtr _obj
return ()
-- method IconSource::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_state" gtk_icon_source_set_state ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CUInt -> -- state : TInterface "Gtk" "StateType"
IO ()
{-# DEPRECATED iconSourceSetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetState ::
(MonadIO m) =>
IconSource -> -- _obj
StateType -> -- state
m ()
iconSourceSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let state' = (fromIntegral . fromEnum) state
gtk_icon_source_set_state _obj' state'
touchManagedPtr _obj
return ()
-- method IconSource::set_state_wildcarded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_source_set_state_wildcarded" gtk_icon_source_set_state_wildcarded ::
Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource"
CInt -> -- setting : TBasicType TBoolean
IO ()
{-# DEPRECATED iconSourceSetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSourceSetStateWildcarded ::
(MonadIO m) =>
IconSource -> -- _obj
Bool -> -- setting
m ()
iconSourceSetStateWildcarded _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_icon_source_set_state_wildcarded _obj' setting'
touchManagedPtr _obj
return ()
-- object IconTheme
newtype IconTheme = IconTheme (ForeignPtr IconTheme)
noIconTheme :: Maybe IconTheme
noIconTheme = Nothing
foreign import ccall "gtk_icon_theme_get_type"
c_gtk_icon_theme_get_type :: IO GType
type instance ParentTypes IconTheme = '[GObject.Object]
instance GObject IconTheme where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_icon_theme_get_type
class GObject o => IconThemeK o
instance (GObject o, IsDescendantOf IconTheme o) => IconThemeK o
toIconTheme :: IconThemeK o => o -> IO IconTheme
toIconTheme = unsafeCastTo IconTheme
-- method IconTheme::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconTheme"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_new" gtk_icon_theme_new ::
IO (Ptr IconTheme)
iconThemeNew ::
(MonadIO m) =>
m IconTheme
iconThemeNew = liftIO $ do
result <- gtk_icon_theme_new
checkUnexpectedReturnNULL "gtk_icon_theme_new" result
result' <- (wrapObject IconTheme) result
return result'
-- method IconTheme::add_resource_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_add_resource_path" gtk_icon_theme_add_resource_path ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- path : TBasicType TUTF8
IO ()
iconThemeAddResourcePath ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- path
m ()
iconThemeAddResourcePath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
gtk_icon_theme_add_resource_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
-- method IconTheme::append_search_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_append_search_path" gtk_icon_theme_append_search_path ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- path : TBasicType TFileName
IO ()
iconThemeAppendSearchPath ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
[Char] -> -- path
m ()
iconThemeAppendSearchPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- stringToCString path
gtk_icon_theme_append_search_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
-- method IconTheme::choose_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_choose_icon" gtk_icon_theme_choose_icon ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8)
Int32 -> -- size : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeChooseIcon ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
[T.Text] -> -- icon_names
Int32 -> -- size
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeChooseIcon _obj icon_names size flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_names' <- packZeroTerminatedUTF8CArray icon_names
let flags' = gflagsToWord flags
result <- gtk_icon_theme_choose_icon _obj' icon_names' size flags'
checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem icon_names'
freeMem icon_names'
return result'
-- method IconTheme::choose_icon_for_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_choose_icon_for_scale" gtk_icon_theme_choose_icon_for_scale ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8)
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeChooseIconForScale ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
[T.Text] -> -- icon_names
Int32 -> -- size
Int32 -> -- scale
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeChooseIconForScale _obj icon_names size scale flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_names' <- packZeroTerminatedUTF8CArray icon_names
let flags' = gflagsToWord flags
result <- gtk_icon_theme_choose_icon_for_scale _obj' icon_names' size scale flags'
checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon_for_scale" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem icon_names'
freeMem icon_names'
return result'
-- method IconTheme::get_example_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_get_example_icon_name" gtk_icon_theme_get_example_icon_name ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
IO CString
iconThemeGetExampleIconName ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
m T.Text
iconThemeGetExampleIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_theme_get_example_icon_name _obj'
checkUnexpectedReturnNULL "gtk_icon_theme_get_example_icon_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method IconTheme::get_icon_sizes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TInt32)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_get_icon_sizes" gtk_icon_theme_get_icon_sizes ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
IO (Ptr Int32)
iconThemeGetIconSizes ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
m [Int32]
iconThemeGetIconSizes _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
result <- gtk_icon_theme_get_icon_sizes _obj' icon_name'
checkUnexpectedReturnNULL "gtk_icon_theme_get_icon_sizes" result
result' <- unpackZeroTerminatedStorableArray result
freeMem result
touchManagedPtr _obj
freeMem icon_name'
return result'
-- method IconTheme::get_search_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_get_search_path" gtk_icon_theme_get_search_path ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr (Ptr CString) -> -- path : TCArray False (-1) 2 (TBasicType TFileName)
Ptr Int32 -> -- n_elements : TBasicType TInt32
IO ()
iconThemeGetSearchPath ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
m ([[Char]])
iconThemeGetSearchPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr CString))
n_elements <- allocMem :: IO (Ptr Int32)
gtk_icon_theme_get_search_path _obj' path n_elements
n_elements' <- peek n_elements
path' <- peek path
path'' <- (unpackFileNameArrayWithLength n_elements') path'
(mapCArrayWithLength n_elements') freeMem path'
freeMem path'
touchManagedPtr _obj
freeMem path
freeMem n_elements
return path''
-- method IconTheme::has_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_has_icon" gtk_icon_theme_has_icon ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
IO CInt
iconThemeHasIcon ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
m Bool
iconThemeHasIcon _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
result <- gtk_icon_theme_has_icon _obj' icon_name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem icon_name'
return result'
-- method IconTheme::list_contexts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_list_contexts" gtk_icon_theme_list_contexts ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
IO (Ptr (GList CString))
iconThemeListContexts ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
m [T.Text]
iconThemeListContexts _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_theme_list_contexts _obj'
checkUnexpectedReturnNULL "gtk_icon_theme_list_contexts" result
result' <- unpackGList result
result'' <- mapM cstringToText result'
mapGList freeMem result
g_list_free result
touchManagedPtr _obj
return result''
-- method IconTheme::list_icons
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_list_icons" gtk_icon_theme_list_icons ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- context : TBasicType TUTF8
IO (Ptr (GList CString))
iconThemeListIcons ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
Maybe (T.Text) -> -- context
m [T.Text]
iconThemeListIcons _obj context = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeContext <- case context of
Nothing -> return nullPtr
Just jContext -> do
jContext' <- textToCString jContext
return jContext'
result <- gtk_icon_theme_list_icons _obj' maybeContext
checkUnexpectedReturnNULL "gtk_icon_theme_list_icons" result
result' <- unpackGList result
result'' <- mapM cstringToText result'
mapGList freeMem result
g_list_free result
touchManagedPtr _obj
freeMem maybeContext
return result''
-- method IconTheme::load_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_theme_load_icon" gtk_icon_theme_load_icon ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconThemeLoadIcon ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
[IconLookupFlags] -> -- flags
m GdkPixbuf.Pixbuf
iconThemeLoadIcon _obj icon_name size flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
let flags' = gflagsToWord flags
onException (do
result <- propagateGError $ gtk_icon_theme_load_icon _obj' icon_name' size flags'
checkUnexpectedReturnNULL "gtk_icon_theme_load_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem icon_name'
return result'
) (do
freeMem icon_name'
)
-- method IconTheme::load_icon_for_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_theme_load_icon_for_scale" gtk_icon_theme_load_icon_for_scale ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
iconThemeLoadIconForScale ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
Int32 -> -- scale
[IconLookupFlags] -> -- flags
m GdkPixbuf.Pixbuf
iconThemeLoadIconForScale _obj icon_name size scale flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
let flags' = gflagsToWord flags
onException (do
result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' icon_name' size scale flags'
checkUnexpectedReturnNULL "gtk_icon_theme_load_icon_for_scale" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem icon_name'
return result'
) (do
freeMem icon_name'
)
-- method IconTheme::load_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_icon_theme_load_surface" gtk_icon_theme_load_surface ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window"
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr Cairo.Surface)
iconThemeLoadSurface ::
(MonadIO m, IconThemeK a, Gdk.WindowK b) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
Int32 -> -- scale
Maybe (b) -> -- for_window
[IconLookupFlags] -> -- flags
m Cairo.Surface
iconThemeLoadSurface _obj icon_name size scale for_window flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
maybeFor_window <- case for_window of
Nothing -> return nullPtr
Just jFor_window -> do
let jFor_window' = unsafeManagedPtrCastPtr jFor_window
return jFor_window'
let flags' = gflagsToWord flags
onException (do
result <- propagateGError $ gtk_icon_theme_load_surface _obj' icon_name' size scale maybeFor_window flags'
checkUnexpectedReturnNULL "gtk_icon_theme_load_surface" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
whenJust for_window touchManagedPtr
freeMem icon_name'
return result'
) (do
freeMem icon_name'
)
-- method IconTheme::lookup_by_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_lookup_by_gicon" gtk_icon_theme_lookup_by_gicon ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- size : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeLookupByGicon ::
(MonadIO m, IconThemeK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
Int32 -> -- size
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeLookupByGicon _obj icon size flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
let flags' = gflagsToWord flags
result <- gtk_icon_theme_lookup_by_gicon _obj' icon' size flags'
checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
touchManagedPtr icon
return result'
-- method IconTheme::lookup_by_gicon_for_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_lookup_by_gicon_for_scale" gtk_icon_theme_lookup_by_gicon_for_scale ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeLookupByGiconForScale ::
(MonadIO m, IconThemeK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
Int32 -> -- size
Int32 -> -- scale
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeLookupByGiconForScale _obj icon size scale flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
let flags' = gflagsToWord flags
result <- gtk_icon_theme_lookup_by_gicon_for_scale _obj' icon' size scale flags'
checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon_for_scale" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
touchManagedPtr icon
return result'
-- method IconTheme::lookup_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_lookup_icon" gtk_icon_theme_lookup_icon ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeLookupIcon ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeLookupIcon _obj icon_name size flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
let flags' = gflagsToWord flags
result <- gtk_icon_theme_lookup_icon _obj' icon_name' size flags'
checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
freeMem icon_name'
return result'
-- method IconTheme::lookup_icon_for_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_lookup_icon_for_scale" gtk_icon_theme_lookup_icon_for_scale ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags"
IO (Ptr IconInfo)
iconThemeLookupIconForScale ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
Int32 -> -- scale
[IconLookupFlags] -> -- flags
m IconInfo
iconThemeLookupIconForScale _obj icon_name size scale flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
let flags' = gflagsToWord flags
result <- gtk_icon_theme_lookup_icon_for_scale _obj' icon_name' size scale flags'
checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon_for_scale" result
result' <- (wrapObject IconInfo) result
touchManagedPtr _obj
freeMem icon_name'
return result'
-- method IconTheme::prepend_search_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_prepend_search_path" gtk_icon_theme_prepend_search_path ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- path : TBasicType TFileName
IO ()
iconThemePrependSearchPath ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
[Char] -> -- path
m ()
iconThemePrependSearchPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- stringToCString path
gtk_icon_theme_prepend_search_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
-- method IconTheme::rescan_if_needed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_rescan_if_needed" gtk_icon_theme_rescan_if_needed ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
IO CInt
iconThemeRescanIfNeeded ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
m Bool
iconThemeRescanIfNeeded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_theme_rescan_if_needed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconTheme::set_custom_theme
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_set_custom_theme" gtk_icon_theme_set_custom_theme ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
CString -> -- theme_name : TBasicType TUTF8
IO ()
iconThemeSetCustomTheme ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
Maybe (T.Text) -> -- theme_name
m ()
iconThemeSetCustomTheme _obj theme_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTheme_name <- case theme_name of
Nothing -> return nullPtr
Just jTheme_name -> do
jTheme_name' <- textToCString jTheme_name
return jTheme_name'
gtk_icon_theme_set_custom_theme _obj' maybeTheme_name
touchManagedPtr _obj
freeMem maybeTheme_name
return ()
-- method IconTheme::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_set_screen" gtk_icon_theme_set_screen ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
iconThemeSetScreen ::
(MonadIO m, IconThemeK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
iconThemeSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_icon_theme_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- method IconTheme::set_search_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_set_search_path" gtk_icon_theme_set_search_path ::
Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme"
Ptr CString -> -- path : TCArray False (-1) 2 (TBasicType TFileName)
Int32 -> -- n_elements : TBasicType TInt32
IO ()
iconThemeSetSearchPath ::
(MonadIO m, IconThemeK a) =>
a -> -- _obj
[[Char]] -> -- path
m ()
iconThemeSetSearchPath _obj path = liftIO $ do
let n_elements = fromIntegral $ length path
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- packFileNameArray path
gtk_icon_theme_set_search_path _obj' path' n_elements
touchManagedPtr _obj
(mapCArrayWithLength n_elements) freeMem path'
freeMem path'
return ()
-- method IconTheme::add_builtin_icon
-- method type : MemberFunction
-- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_add_builtin_icon" gtk_icon_theme_add_builtin_icon ::
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
{-# DEPRECATED iconThemeAddBuiltinIcon ["(Since version 3.14)","Use gtk_icon_theme_add_resource_path()"," to add application-specific icons to the icon theme."]#-}
iconThemeAddBuiltinIcon ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
T.Text -> -- icon_name
Int32 -> -- size
a -> -- pixbuf
m ()
iconThemeAddBuiltinIcon icon_name size pixbuf = liftIO $ do
icon_name' <- textToCString icon_name
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_icon_theme_add_builtin_icon icon_name' size pixbuf'
touchManagedPtr pixbuf
freeMem icon_name'
return ()
-- method IconTheme::get_default
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconTheme"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_get_default" gtk_icon_theme_get_default ::
IO (Ptr IconTheme)
iconThemeGetDefault ::
(MonadIO m) =>
m IconTheme
iconThemeGetDefault = liftIO $ do
result <- gtk_icon_theme_get_default
checkUnexpectedReturnNULL "gtk_icon_theme_get_default" result
result' <- (newObject IconTheme) result
return result'
-- method IconTheme::get_for_screen
-- method type : MemberFunction
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconTheme"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_get_for_screen" gtk_icon_theme_get_for_screen ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO (Ptr IconTheme)
iconThemeGetForScreen ::
(MonadIO m, Gdk.ScreenK a) =>
a -> -- screen
m IconTheme
iconThemeGetForScreen screen = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
result <- gtk_icon_theme_get_for_screen screen'
checkUnexpectedReturnNULL "gtk_icon_theme_get_for_screen" result
result' <- (newObject IconTheme) result
touchManagedPtr screen
return result'
-- signal IconTheme::changed
type IconThemeChangedCallback =
IO ()
noIconThemeChangedCallback :: Maybe IconThemeChangedCallback
noIconThemeChangedCallback = Nothing
type IconThemeChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconThemeChangedCallback :: IconThemeChangedCallbackC -> IO (FunPtr IconThemeChangedCallbackC)
iconThemeChangedClosure :: IconThemeChangedCallback -> IO Closure
iconThemeChangedClosure cb = newCClosure =<< mkIconThemeChangedCallback wrapped
where wrapped = iconThemeChangedCallbackWrapper cb
iconThemeChangedCallbackWrapper ::
IconThemeChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
iconThemeChangedCallbackWrapper _cb _ _ = do
_cb
onIconThemeChanged :: (GObject a, MonadIO m) => a -> IconThemeChangedCallback -> m SignalHandlerId
onIconThemeChanged obj cb = liftIO $ connectIconThemeChanged obj cb SignalConnectBefore
afterIconThemeChanged :: (GObject a, MonadIO m) => a -> IconThemeChangedCallback -> m SignalHandlerId
afterIconThemeChanged obj cb = connectIconThemeChanged obj cb SignalConnectAfter
connectIconThemeChanged :: (GObject a, MonadIO m) =>
a -> IconThemeChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectIconThemeChanged obj cb after = liftIO $ do
cb' <- mkIconThemeChangedCallback (iconThemeChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- Enum IconThemeError
data IconThemeError =
IconThemeErrorNotFound
| IconThemeErrorFailed
| AnotherIconThemeError Int
deriving (Show, Eq)
instance Enum IconThemeError where
fromEnum IconThemeErrorNotFound = 0
fromEnum IconThemeErrorFailed = 1
fromEnum (AnotherIconThemeError k) = k
toEnum 0 = IconThemeErrorNotFound
toEnum 1 = IconThemeErrorFailed
toEnum k = AnotherIconThemeError k
instance GErrorClass IconThemeError where
gerrorClassDomain _ = "gtk-icon-theme-error-quark"
catchIconThemeError ::
IO a ->
(IconThemeError -> GErrorMessage -> IO a) ->
IO a
catchIconThemeError = catchGErrorJustDomain
handleIconThemeError ::
(IconThemeError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleIconThemeError = handleGErrorJustDomain
foreign import ccall "gtk_icon_theme_error_get_type" c_gtk_icon_theme_error_get_type ::
IO GType
instance BoxedEnum IconThemeError where
boxedEnumType _ = c_gtk_icon_theme_error_get_type
-- object IconView
newtype IconView = IconView (ForeignPtr IconView)
noIconView :: Maybe IconView
noIconView = Nothing
foreign import ccall "gtk_icon_view_get_type"
c_gtk_icon_view_get_type :: IO GType
type instance ParentTypes IconView = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Scrollable]
instance GObject IconView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_icon_view_get_type
class GObject o => IconViewK o
instance (GObject o, IsDescendantOf IconView o) => IconViewK o
toIconView :: IconViewK o => o -> IO IconView
toIconView = unsafeCastTo IconView
-- method IconView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "IconView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_new" gtk_icon_view_new ::
IO (Ptr IconView)
iconViewNew ::
(MonadIO m) =>
m IconView
iconViewNew = liftIO $ do
result <- gtk_icon_view_new
checkUnexpectedReturnNULL "gtk_icon_view_new" result
result' <- (newObject IconView) result
return result'
-- method IconView::new_with_area
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_new_with_area" gtk_icon_view_new_with_area ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr IconView)
iconViewNewWithArea ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m IconView
iconViewNewWithArea area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_icon_view_new_with_area area'
checkUnexpectedReturnNULL "gtk_icon_view_new_with_area" result
result' <- (newObject IconView) result
touchManagedPtr area
return result'
-- method IconView::new_with_model
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_new_with_model" gtk_icon_view_new_with_model ::
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO (Ptr IconView)
iconViewNewWithModel ::
(MonadIO m, TreeModelK a) =>
a -> -- model
m IconView
iconViewNewWithModel model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_icon_view_new_with_model model'
checkUnexpectedReturnNULL "gtk_icon_view_new_with_model" result
result' <- (newObject IconView) result
touchManagedPtr model
return result'
-- method IconView::convert_widget_to_bin_window_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- wx : TBasicType TInt32
Int32 -> -- wy : TBasicType TInt32
Ptr Int32 -> -- bx : TBasicType TInt32
Ptr Int32 -> -- by : TBasicType TInt32
IO ()
iconViewConvertWidgetToBinWindowCoords ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- wx
Int32 -> -- wy
m (Int32,Int32)
iconViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
bx <- allocMem :: IO (Ptr Int32)
by <- allocMem :: IO (Ptr Int32)
gtk_icon_view_convert_widget_to_bin_window_coords _obj' wx wy bx by
bx' <- peek bx
by' <- peek by
touchManagedPtr _obj
freeMem bx
freeMem by
return (bx', by')
-- method IconView::create_drag_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_create_drag_icon" gtk_icon_view_create_drag_icon ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO (Ptr Cairo.Surface)
iconViewCreateDragIcon ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m Cairo.Surface
iconViewCreateDragIcon _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_icon_view_create_drag_icon _obj' path'
checkUnexpectedReturnNULL "gtk_icon_view_create_drag_icon" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method IconView::enable_model_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
iconViewEnableModelDragDest ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
[TargetEntry] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
iconViewEnableModelDragDest _obj targets actions = liftIO $ do
let n_targets = fromIntegral $ length targets
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
let actions' = gflagsToWord actions
gtk_icon_view_enable_model_drag_dest _obj' targets'' n_targets actions'
touchManagedPtr _obj
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- method IconView::enable_model_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
iconViewEnableModelDragSource ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
[Gdk.ModifierType] -> -- start_button_mask
[TargetEntry] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
iconViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do
let n_targets = fromIntegral $ length targets
let _obj' = unsafeManagedPtrCastPtr _obj
let start_button_mask' = gflagsToWord start_button_mask
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
let actions' = gflagsToWord actions
gtk_icon_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions'
touchManagedPtr _obj
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- method IconView::get_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_activate_on_single_click" gtk_icon_view_get_activate_on_single_click ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO CInt
iconViewGetActivateOnSingleClick ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Bool
iconViewGetActivateOnSingleClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_activate_on_single_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconView::get_cell_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_cell_rect" gtk_icon_view_get_cell_rect ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO CInt
iconViewGetCellRect ::
(MonadIO m, IconViewK a, CellRendererK b) =>
a -> -- _obj
TreePath -> -- path
Maybe (b) -> -- cell
m (Bool,Gdk.Rectangle)
iconViewGetCellRect _obj path cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
maybeCell <- case cell of
Nothing -> return nullPtr
Just jCell -> do
let jCell' = unsafeManagedPtrCastPtr jCell
return jCell'
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_icon_view_get_cell_rect _obj' path' maybeCell rect
let result' = (/= 0) result
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
touchManagedPtr path
whenJust cell touchManagedPtr
return (result', rect')
-- method IconView::get_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_column_spacing" gtk_icon_view_get_column_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetColumnSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetColumnSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_column_spacing _obj'
touchManagedPtr _obj
return result
-- method IconView::get_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_columns" gtk_icon_view_get_columns ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetColumns ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetColumns _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_columns _obj'
touchManagedPtr _obj
return result
-- method IconView::get_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_cursor" gtk_icon_view_get_cursor ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer"
IO CInt
iconViewGetCursor ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m (Bool,TreePath,CellRenderer)
iconViewGetCursor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
cell <- allocMem :: IO (Ptr (Ptr CellRenderer))
result <- gtk_icon_view_get_cursor _obj' path cell
let result' = (/= 0) result
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
cell' <- peek cell
cell'' <- (newObject CellRenderer) cell'
touchManagedPtr _obj
freeMem path
freeMem cell
return (result', path'', cell'')
-- method IconView::get_dest_item_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- drag_x : TBasicType TInt32
Int32 -> -- drag_y : TBasicType TInt32
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition"
IO CInt
iconViewGetDestItemAtPos ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- drag_x
Int32 -> -- drag_y
m (Bool,TreePath,IconViewDropPosition)
iconViewGetDestItemAtPos _obj drag_x drag_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
pos <- allocMem :: IO (Ptr CUInt)
result <- gtk_icon_view_get_dest_item_at_pos _obj' drag_x drag_y path pos
let result' = (/= 0) result
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
pos' <- peek pos
let pos'' = (toEnum . fromIntegral) pos'
touchManagedPtr _obj
freeMem path
freeMem pos
return (result', path'', pos'')
-- method IconView::get_drag_dest_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_drag_dest_item" gtk_icon_view_get_drag_dest_item ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition"
IO ()
iconViewGetDragDestItem ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m (TreePath,IconViewDropPosition)
iconViewGetDragDestItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
pos <- allocMem :: IO (Ptr CUInt)
gtk_icon_view_get_drag_dest_item _obj' path pos
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
pos' <- peek pos
let pos'' = (toEnum . fromIntegral) pos'
touchManagedPtr _obj
freeMem path
freeMem pos
return (path'', pos'')
-- method IconView::get_item_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer"
IO CInt
iconViewGetItemAtPos ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m (Bool,TreePath,CellRenderer)
iconViewGetItemAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
cell <- allocMem :: IO (Ptr (Ptr CellRenderer))
result <- gtk_icon_view_get_item_at_pos _obj' x y path cell
let result' = (/= 0) result
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
cell' <- peek cell
cell'' <- (wrapObject CellRenderer) cell'
touchManagedPtr _obj
freeMem path
freeMem cell
return (result', path'', cell'')
-- method IconView::get_item_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_column" gtk_icon_view_get_item_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO Int32
iconViewGetItemColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m Int32
iconViewGetItemColumn _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_icon_view_get_item_column _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return result
-- method IconView::get_item_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_orientation" gtk_icon_view_get_item_orientation ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO CUInt
iconViewGetItemOrientation ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Orientation
iconViewGetItemOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_item_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method IconView::get_item_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_padding" gtk_icon_view_get_item_padding ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetItemPadding ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetItemPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_item_padding _obj'
touchManagedPtr _obj
return result
-- method IconView::get_item_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_row" gtk_icon_view_get_item_row ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO Int32
iconViewGetItemRow ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m Int32
iconViewGetItemRow _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_icon_view_get_item_row _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return result
-- method IconView::get_item_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_item_width" gtk_icon_view_get_item_width ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetItemWidth ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetItemWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_item_width _obj'
touchManagedPtr _obj
return result
-- method IconView::get_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_margin" gtk_icon_view_get_margin ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetMargin ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetMargin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_margin _obj'
touchManagedPtr _obj
return result
-- method IconView::get_markup_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_markup_column" gtk_icon_view_get_markup_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetMarkupColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetMarkupColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_markup_column _obj'
touchManagedPtr _obj
return result
-- method IconView::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_model" gtk_icon_view_get_model ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO (Ptr TreeModel)
iconViewGetModel ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m TreeModel
iconViewGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_model _obj'
checkUnexpectedReturnNULL "gtk_icon_view_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method IconView::get_path_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr TreePath)
iconViewGetPathAtPos ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m TreePath
iconViewGetPathAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_path_at_pos _obj' x y
checkUnexpectedReturnNULL "gtk_icon_view_get_path_at_pos" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
return result'
-- method IconView::get_pixbuf_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_pixbuf_column" gtk_icon_view_get_pixbuf_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetPixbufColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetPixbufColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_pixbuf_column _obj'
touchManagedPtr _obj
return result
-- method IconView::get_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_reorderable" gtk_icon_view_get_reorderable ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO CInt
iconViewGetReorderable ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Bool
iconViewGetReorderable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_reorderable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method IconView::get_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_row_spacing" gtk_icon_view_get_row_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetRowSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetRowSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_row_spacing _obj'
touchManagedPtr _obj
return result
-- method IconView::get_selected_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "TreePath")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_selected_items" gtk_icon_view_get_selected_items ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO (Ptr (GList (Ptr TreePath)))
iconViewGetSelectedItems ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m [TreePath]
iconViewGetSelectedItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_selected_items _obj'
checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed TreePath) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method IconView::get_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_selection_mode" gtk_icon_view_get_selection_mode ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO CUInt
iconViewGetSelectionMode ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m SelectionMode
iconViewGetSelectionMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_selection_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method IconView::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_spacing" gtk_icon_view_get_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_spacing _obj'
touchManagedPtr _obj
return result
-- method IconView::get_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_text_column" gtk_icon_view_get_text_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetTextColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetTextColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_text_column _obj'
touchManagedPtr _obj
return result
-- method IconView::get_tooltip_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_tooltip_column" gtk_icon_view_get_tooltip_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO Int32
iconViewGetTooltipColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m Int32
iconViewGetTooltipColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_icon_view_get_tooltip_column _obj'
touchManagedPtr _obj
return result
-- method IconView::get_tooltip_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
CInt -> -- keyboard_tip : TBasicType TBoolean
Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
iconViewGetTooltipContext ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
Bool -> -- keyboard_tip
m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter)
iconViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x' <- allocMem :: IO (Ptr Int32)
poke x' x
y' <- allocMem :: IO (Ptr Int32)
poke y' y
let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip
model <- allocMem :: IO (Ptr (Ptr TreeModel))
path <- allocMem :: IO (Ptr (Ptr TreePath))
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
result <- gtk_icon_view_get_tooltip_context _obj' x' y' keyboard_tip' model path iter
let result' = (/= 0) result
x'' <- peek x'
y'' <- peek y'
model' <- peek model
model'' <- (newObject TreeModel) model'
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
freeMem x'
freeMem y'
freeMem model
freeMem path
return (result', x'', y'', model'', path'', iter')
-- method IconView::get_visible_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_get_visible_range" gtk_icon_view_get_visible_range ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath"
Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath"
IO CInt
iconViewGetVisibleRange ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m (Bool,TreePath,TreePath)
iconViewGetVisibleRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start_path <- allocMem :: IO (Ptr (Ptr TreePath))
end_path <- allocMem :: IO (Ptr (Ptr TreePath))
result <- gtk_icon_view_get_visible_range _obj' start_path end_path
let result' = (/= 0) result
start_path' <- peek start_path
start_path'' <- (wrapBoxed TreePath) start_path'
end_path' <- peek end_path
end_path'' <- (wrapBoxed TreePath) end_path'
touchManagedPtr _obj
freeMem start_path
freeMem end_path
return (result', start_path'', end_path'')
-- method IconView::item_activated
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_item_activated" gtk_icon_view_item_activated ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
iconViewItemActivated ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m ()
iconViewItemActivated _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_icon_view_item_activated _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method IconView::path_is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_path_is_selected" gtk_icon_view_path_is_selected ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
iconViewPathIsSelected ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
iconViewPathIsSelected _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_icon_view_path_is_selected _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method IconView::scroll_to_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_scroll_to_path" gtk_icon_view_scroll_to_path ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
CInt -> -- use_align : TBasicType TBoolean
CFloat -> -- row_align : TBasicType TFloat
CFloat -> -- col_align : TBasicType TFloat
IO ()
iconViewScrollToPath ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
Bool -> -- use_align
Float -> -- row_align
Float -> -- col_align
m ()
iconViewScrollToPath _obj path use_align row_align col_align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let use_align' = (fromIntegral . fromEnum) use_align
let row_align' = realToFrac row_align
let col_align' = realToFrac col_align
gtk_icon_view_scroll_to_path _obj' path' use_align' row_align' col_align'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method IconView::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_select_all" gtk_icon_view_select_all ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO ()
iconViewSelectAll ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m ()
iconViewSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_select_all _obj'
touchManagedPtr _obj
return ()
-- method IconView::select_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_select_path" gtk_icon_view_select_path ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
iconViewSelectPath ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m ()
iconViewSelectPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_icon_view_select_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method IconView::selected_foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
iconViewSelectedForeach ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
IconViewForeachFunc -> -- func
m ()
iconViewSelectedForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkIconViewForeachFunc (iconViewForeachFuncWrapper Nothing func)
let data_ = nullPtr
gtk_icon_view_selected_foreach _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method IconView::set_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_activate_on_single_click" gtk_icon_view_set_activate_on_single_click ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
CInt -> -- single : TBasicType TBoolean
IO ()
iconViewSetActivateOnSingleClick ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Bool -> -- single
m ()
iconViewSetActivateOnSingleClick _obj single = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single' = (fromIntegral . fromEnum) single
gtk_icon_view_set_activate_on_single_click _obj' single'
touchManagedPtr _obj
return ()
-- method IconView::set_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- column_spacing : TBasicType TInt32
IO ()
iconViewSetColumnSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- column_spacing
m ()
iconViewSetColumnSpacing _obj column_spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_column_spacing _obj' column_spacing
touchManagedPtr _obj
return ()
-- method IconView::set_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- columns : TBasicType TInt32
IO ()
iconViewSetColumns ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- columns
m ()
iconViewSetColumns _obj columns = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_columns _obj' columns
touchManagedPtr _obj
return ()
-- method IconView::set_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_cursor" gtk_icon_view_set_cursor ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- start_editing : TBasicType TBoolean
IO ()
iconViewSetCursor ::
(MonadIO m, IconViewK a, CellRendererK b) =>
a -> -- _obj
TreePath -> -- path
Maybe (b) -> -- cell
Bool -> -- start_editing
m ()
iconViewSetCursor _obj path cell start_editing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
maybeCell <- case cell of
Nothing -> return nullPtr
Just jCell -> do
let jCell' = unsafeManagedPtrCastPtr jCell
return jCell'
let start_editing' = (fromIntegral . fromEnum) start_editing
gtk_icon_view_set_cursor _obj' path' maybeCell start_editing'
touchManagedPtr _obj
touchManagedPtr path
whenJust cell touchManagedPtr
return ()
-- method IconView::set_drag_dest_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_drag_dest_item" gtk_icon_view_set_drag_dest_item ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition"
IO ()
iconViewSetDragDestItem ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Maybe (TreePath) -> -- path
IconViewDropPosition -> -- pos
m ()
iconViewSetDragDestItem _obj path pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
let pos' = (fromIntegral . fromEnum) pos
gtk_icon_view_set_drag_dest_item _obj' maybePath pos'
touchManagedPtr _obj
whenJust path touchManagedPtr
return ()
-- method IconView::set_item_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_item_orientation" gtk_icon_view_set_item_orientation ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
iconViewSetItemOrientation ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Orientation -> -- orientation
m ()
iconViewSetItemOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_icon_view_set_item_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- method IconView::set_item_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- item_padding : TBasicType TInt32
IO ()
iconViewSetItemPadding ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- item_padding
m ()
iconViewSetItemPadding _obj item_padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_item_padding _obj' item_padding
touchManagedPtr _obj
return ()
-- method IconView::set_item_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- item_width : TBasicType TInt32
IO ()
iconViewSetItemWidth ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- item_width
m ()
iconViewSetItemWidth _obj item_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_item_width _obj' item_width
touchManagedPtr _obj
return ()
-- method IconView::set_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- margin : TBasicType TInt32
IO ()
iconViewSetMargin ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
iconViewSetMargin _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_margin _obj' margin
touchManagedPtr _obj
return ()
-- method IconView::set_markup_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- column : TBasicType TInt32
IO ()
iconViewSetMarkupColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
iconViewSetMarkupColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_markup_column _obj' column
touchManagedPtr _obj
return ()
-- method IconView::set_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_model" gtk_icon_view_set_model ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO ()
iconViewSetModel ::
(MonadIO m, IconViewK a, TreeModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
m ()
iconViewSetModel _obj model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
gtk_icon_view_set_model _obj' maybeModel
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- method IconView::set_pixbuf_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- column : TBasicType TInt32
IO ()
iconViewSetPixbufColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
iconViewSetPixbufColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_pixbuf_column _obj' column
touchManagedPtr _obj
return ()
-- method IconView::set_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_reorderable" gtk_icon_view_set_reorderable ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
CInt -> -- reorderable : TBasicType TBoolean
IO ()
iconViewSetReorderable ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Bool -> -- reorderable
m ()
iconViewSetReorderable _obj reorderable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_icon_view_set_reorderable _obj' reorderable'
touchManagedPtr _obj
return ()
-- method IconView::set_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- row_spacing : TBasicType TInt32
IO ()
iconViewSetRowSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- row_spacing
m ()
iconViewSetRowSpacing _obj row_spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_row_spacing _obj' row_spacing
touchManagedPtr _obj
return ()
-- method IconView::set_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_selection_mode" gtk_icon_view_set_selection_mode ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
CUInt -> -- mode : TInterface "Gtk" "SelectionMode"
IO ()
iconViewSetSelectionMode ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
SelectionMode -> -- mode
m ()
iconViewSetSelectionMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_icon_view_set_selection_mode _obj' mode'
touchManagedPtr _obj
return ()
-- method IconView::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- spacing : TBasicType TInt32
IO ()
iconViewSetSpacing ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
iconViewSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method IconView::set_text_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- column : TBasicType TInt32
IO ()
iconViewSetTextColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
iconViewSetTextColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_text_column _obj' column
touchManagedPtr _obj
return ()
-- method IconView::set_tooltip_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_tooltip_cell" gtk_icon_view_set_tooltip_cell ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
IO ()
iconViewSetTooltipCell ::
(MonadIO m, IconViewK a, TooltipK b, CellRendererK c) =>
a -> -- _obj
b -> -- tooltip
TreePath -> -- path
Maybe (c) -> -- cell
m ()
iconViewSetTooltipCell _obj tooltip path cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tooltip' = unsafeManagedPtrCastPtr tooltip
let path' = unsafeManagedPtrGetPtr path
maybeCell <- case cell of
Nothing -> return nullPtr
Just jCell -> do
let jCell' = unsafeManagedPtrCastPtr jCell
return jCell'
gtk_icon_view_set_tooltip_cell _obj' tooltip' path' maybeCell
touchManagedPtr _obj
touchManagedPtr tooltip
touchManagedPtr path
whenJust cell touchManagedPtr
return ()
-- method IconView::set_tooltip_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Int32 -> -- column : TBasicType TInt32
IO ()
iconViewSetTooltipColumn ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
iconViewSetTooltipColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_set_tooltip_column _obj' column
touchManagedPtr _obj
return ()
-- method IconView::set_tooltip_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_set_tooltip_item" gtk_icon_view_set_tooltip_item ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
iconViewSetTooltipItem ::
(MonadIO m, IconViewK a, TooltipK b) =>
a -> -- _obj
b -> -- tooltip
TreePath -> -- path
m ()
iconViewSetTooltipItem _obj tooltip path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tooltip' = unsafeManagedPtrCastPtr tooltip
let path' = unsafeManagedPtrGetPtr path
gtk_icon_view_set_tooltip_item _obj' tooltip' path'
touchManagedPtr _obj
touchManagedPtr tooltip
touchManagedPtr path
return ()
-- method IconView::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_unselect_all" gtk_icon_view_unselect_all ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO ()
iconViewUnselectAll ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m ()
iconViewUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method IconView::unselect_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_unselect_path" gtk_icon_view_unselect_path ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
iconViewUnselectPath ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
TreePath -> -- path
m ()
iconViewUnselectPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_icon_view_unselect_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method IconView::unset_model_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_unset_model_drag_dest" gtk_icon_view_unset_model_drag_dest ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO ()
iconViewUnsetModelDragDest ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m ()
iconViewUnsetModelDragDest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_unset_model_drag_dest _obj'
touchManagedPtr _obj
return ()
-- method IconView::unset_model_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_view_unset_model_drag_source" gtk_icon_view_unset_model_drag_source ::
Ptr IconView -> -- _obj : TInterface "Gtk" "IconView"
IO ()
iconViewUnsetModelDragSource ::
(MonadIO m, IconViewK a) =>
a -> -- _obj
m ()
iconViewUnsetModelDragSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_icon_view_unset_model_drag_source _obj'
touchManagedPtr _obj
return ()
-- signal IconView::activate-cursor-item
type IconViewActivateCursorItemCallback =
IO Bool
noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback
noIconViewActivateCursorItemCallback = Nothing
type IconViewActivateCursorItemCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkIconViewActivateCursorItemCallback :: IconViewActivateCursorItemCallbackC -> IO (FunPtr IconViewActivateCursorItemCallbackC)
iconViewActivateCursorItemClosure :: IconViewActivateCursorItemCallback -> IO Closure
iconViewActivateCursorItemClosure cb = newCClosure =<< mkIconViewActivateCursorItemCallback wrapped
where wrapped = iconViewActivateCursorItemCallbackWrapper cb
iconViewActivateCursorItemCallbackWrapper ::
IconViewActivateCursorItemCallback ->
Ptr () ->
Ptr () ->
IO CInt
iconViewActivateCursorItemCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
onIconViewActivateCursorItem obj cb = liftIO $ connectIconViewActivateCursorItem obj cb SignalConnectBefore
afterIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
afterIconViewActivateCursorItem obj cb = connectIconViewActivateCursorItem obj cb SignalConnectAfter
connectIconViewActivateCursorItem :: (GObject a, MonadIO m) =>
a -> IconViewActivateCursorItemCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewActivateCursorItem obj cb after = liftIO $ do
cb' <- mkIconViewActivateCursorItemCallback (iconViewActivateCursorItemCallbackWrapper cb)
connectSignalFunPtr obj "activate-cursor-item" cb' after
-- signal IconView::item-activated
type IconViewItemActivatedCallback =
TreePath ->
IO ()
noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback
noIconViewItemActivatedCallback = Nothing
type IconViewItemActivatedCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewItemActivatedCallback :: IconViewItemActivatedCallbackC -> IO (FunPtr IconViewItemActivatedCallbackC)
iconViewItemActivatedClosure :: IconViewItemActivatedCallback -> IO Closure
iconViewItemActivatedClosure cb = newCClosure =<< mkIconViewItemActivatedCallback wrapped
where wrapped = iconViewItemActivatedCallbackWrapper cb
iconViewItemActivatedCallbackWrapper ::
IconViewItemActivatedCallback ->
Ptr () ->
Ptr TreePath ->
Ptr () ->
IO ()
iconViewItemActivatedCallbackWrapper _cb _ path _ = do
path' <- (newBoxed TreePath) path
_cb path'
onIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId
onIconViewItemActivated obj cb = liftIO $ connectIconViewItemActivated obj cb SignalConnectBefore
afterIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId
afterIconViewItemActivated obj cb = connectIconViewItemActivated obj cb SignalConnectAfter
connectIconViewItemActivated :: (GObject a, MonadIO m) =>
a -> IconViewItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewItemActivated obj cb after = liftIO $ do
cb' <- mkIconViewItemActivatedCallback (iconViewItemActivatedCallbackWrapper cb)
connectSignalFunPtr obj "item-activated" cb' after
-- signal IconView::move-cursor
type IconViewMoveCursorCallback =
MovementStep ->
Int32 ->
IO Bool
noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback
noIconViewMoveCursorCallback = Nothing
type IconViewMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkIconViewMoveCursorCallback :: IconViewMoveCursorCallbackC -> IO (FunPtr IconViewMoveCursorCallbackC)
iconViewMoveCursorClosure :: IconViewMoveCursorCallback -> IO Closure
iconViewMoveCursorClosure cb = newCClosure =<< mkIconViewMoveCursorCallback wrapped
where wrapped = iconViewMoveCursorCallbackWrapper cb
iconViewMoveCursorCallbackWrapper ::
IconViewMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
iconViewMoveCursorCallbackWrapper _cb _ step count _ = do
let step' = (toEnum . fromIntegral) step
result <- _cb step' count
let result' = (fromIntegral . fromEnum) result
return result'
onIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId
onIconViewMoveCursor obj cb = liftIO $ connectIconViewMoveCursor obj cb SignalConnectBefore
afterIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId
afterIconViewMoveCursor obj cb = connectIconViewMoveCursor obj cb SignalConnectAfter
connectIconViewMoveCursor :: (GObject a, MonadIO m) =>
a -> IconViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewMoveCursor obj cb after = liftIO $ do
cb' <- mkIconViewMoveCursorCallback (iconViewMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal IconView::select-all
type IconViewSelectAllCallback =
IO ()
noIconViewSelectAllCallback :: Maybe IconViewSelectAllCallback
noIconViewSelectAllCallback = Nothing
type IconViewSelectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewSelectAllCallback :: IconViewSelectAllCallbackC -> IO (FunPtr IconViewSelectAllCallbackC)
iconViewSelectAllClosure :: IconViewSelectAllCallback -> IO Closure
iconViewSelectAllClosure cb = newCClosure =<< mkIconViewSelectAllCallback wrapped
where wrapped = iconViewSelectAllCallbackWrapper cb
iconViewSelectAllCallbackWrapper ::
IconViewSelectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
iconViewSelectAllCallbackWrapper _cb _ _ = do
_cb
onIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId
onIconViewSelectAll obj cb = liftIO $ connectIconViewSelectAll obj cb SignalConnectBefore
afterIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId
afterIconViewSelectAll obj cb = connectIconViewSelectAll obj cb SignalConnectAfter
connectIconViewSelectAll :: (GObject a, MonadIO m) =>
a -> IconViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewSelectAll obj cb after = liftIO $ do
cb' <- mkIconViewSelectAllCallback (iconViewSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal IconView::select-cursor-item
type IconViewSelectCursorItemCallback =
IO ()
noIconViewSelectCursorItemCallback :: Maybe IconViewSelectCursorItemCallback
noIconViewSelectCursorItemCallback = Nothing
type IconViewSelectCursorItemCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewSelectCursorItemCallback :: IconViewSelectCursorItemCallbackC -> IO (FunPtr IconViewSelectCursorItemCallbackC)
iconViewSelectCursorItemClosure :: IconViewSelectCursorItemCallback -> IO Closure
iconViewSelectCursorItemClosure cb = newCClosure =<< mkIconViewSelectCursorItemCallback wrapped
where wrapped = iconViewSelectCursorItemCallbackWrapper cb
iconViewSelectCursorItemCallbackWrapper ::
IconViewSelectCursorItemCallback ->
Ptr () ->
Ptr () ->
IO ()
iconViewSelectCursorItemCallbackWrapper _cb _ _ = do
_cb
onIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId
onIconViewSelectCursorItem obj cb = liftIO $ connectIconViewSelectCursorItem obj cb SignalConnectBefore
afterIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId
afterIconViewSelectCursorItem obj cb = connectIconViewSelectCursorItem obj cb SignalConnectAfter
connectIconViewSelectCursorItem :: (GObject a, MonadIO m) =>
a -> IconViewSelectCursorItemCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewSelectCursorItem obj cb after = liftIO $ do
cb' <- mkIconViewSelectCursorItemCallback (iconViewSelectCursorItemCallbackWrapper cb)
connectSignalFunPtr obj "select-cursor-item" cb' after
-- signal IconView::selection-changed
type IconViewSelectionChangedCallback =
IO ()
noIconViewSelectionChangedCallback :: Maybe IconViewSelectionChangedCallback
noIconViewSelectionChangedCallback = Nothing
type IconViewSelectionChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewSelectionChangedCallback :: IconViewSelectionChangedCallbackC -> IO (FunPtr IconViewSelectionChangedCallbackC)
iconViewSelectionChangedClosure :: IconViewSelectionChangedCallback -> IO Closure
iconViewSelectionChangedClosure cb = newCClosure =<< mkIconViewSelectionChangedCallback wrapped
where wrapped = iconViewSelectionChangedCallbackWrapper cb
iconViewSelectionChangedCallbackWrapper ::
IconViewSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
iconViewSelectionChangedCallbackWrapper _cb _ _ = do
_cb
onIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId
onIconViewSelectionChanged obj cb = liftIO $ connectIconViewSelectionChanged obj cb SignalConnectBefore
afterIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId
afterIconViewSelectionChanged obj cb = connectIconViewSelectionChanged obj cb SignalConnectAfter
connectIconViewSelectionChanged :: (GObject a, MonadIO m) =>
a -> IconViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewSelectionChanged obj cb after = liftIO $ do
cb' <- mkIconViewSelectionChangedCallback (iconViewSelectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "selection-changed" cb' after
-- signal IconView::toggle-cursor-item
type IconViewToggleCursorItemCallback =
IO ()
noIconViewToggleCursorItemCallback :: Maybe IconViewToggleCursorItemCallback
noIconViewToggleCursorItemCallback = Nothing
type IconViewToggleCursorItemCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewToggleCursorItemCallback :: IconViewToggleCursorItemCallbackC -> IO (FunPtr IconViewToggleCursorItemCallbackC)
iconViewToggleCursorItemClosure :: IconViewToggleCursorItemCallback -> IO Closure
iconViewToggleCursorItemClosure cb = newCClosure =<< mkIconViewToggleCursorItemCallback wrapped
where wrapped = iconViewToggleCursorItemCallbackWrapper cb
iconViewToggleCursorItemCallbackWrapper ::
IconViewToggleCursorItemCallback ->
Ptr () ->
Ptr () ->
IO ()
iconViewToggleCursorItemCallbackWrapper _cb _ _ = do
_cb
onIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId
onIconViewToggleCursorItem obj cb = liftIO $ connectIconViewToggleCursorItem obj cb SignalConnectBefore
afterIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId
afterIconViewToggleCursorItem obj cb = connectIconViewToggleCursorItem obj cb SignalConnectAfter
connectIconViewToggleCursorItem :: (GObject a, MonadIO m) =>
a -> IconViewToggleCursorItemCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewToggleCursorItem obj cb after = liftIO $ do
cb' <- mkIconViewToggleCursorItemCallback (iconViewToggleCursorItemCallbackWrapper cb)
connectSignalFunPtr obj "toggle-cursor-item" cb' after
-- signal IconView::unselect-all
type IconViewUnselectAllCallback =
IO ()
noIconViewUnselectAllCallback :: Maybe IconViewUnselectAllCallback
noIconViewUnselectAllCallback = Nothing
type IconViewUnselectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconViewUnselectAllCallback :: IconViewUnselectAllCallbackC -> IO (FunPtr IconViewUnselectAllCallbackC)
iconViewUnselectAllClosure :: IconViewUnselectAllCallback -> IO Closure
iconViewUnselectAllClosure cb = newCClosure =<< mkIconViewUnselectAllCallback wrapped
where wrapped = iconViewUnselectAllCallbackWrapper cb
iconViewUnselectAllCallbackWrapper ::
IconViewUnselectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
iconViewUnselectAllCallbackWrapper _cb _ _ = do
_cb
onIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId
onIconViewUnselectAll obj cb = liftIO $ connectIconViewUnselectAll obj cb SignalConnectBefore
afterIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId
afterIconViewUnselectAll obj cb = connectIconViewUnselectAll obj cb SignalConnectAfter
connectIconViewUnselectAll :: (GObject a, MonadIO m) =>
a -> IconViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectIconViewUnselectAll obj cb after = liftIO $ do
cb' <- mkIconViewUnselectAllCallback (iconViewUnselectAllCallbackWrapper cb)
connectSignalFunPtr obj "unselect-all" cb' after
-- object IconViewAccessible
newtype IconViewAccessible = IconViewAccessible (ForeignPtr IconViewAccessible)
noIconViewAccessible :: Maybe IconViewAccessible
noIconViewAccessible = Nothing
foreign import ccall "gtk_icon_view_accessible_get_type"
c_gtk_icon_view_accessible_get_type :: IO GType
type instance ParentTypes IconViewAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject IconViewAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_icon_view_accessible_get_type
class GObject o => IconViewAccessibleK o
instance (GObject o, IsDescendantOf IconViewAccessible o) => IconViewAccessibleK o
toIconViewAccessible :: IconViewAccessibleK o => o -> IO IconViewAccessible
toIconViewAccessible = unsafeCastTo IconViewAccessible
-- Enum IconViewDropPosition
data IconViewDropPosition =
IconViewDropPositionNoDrop
| IconViewDropPositionDropInto
| IconViewDropPositionDropLeft
| IconViewDropPositionDropRight
| IconViewDropPositionDropAbove
| IconViewDropPositionDropBelow
| AnotherIconViewDropPosition Int
deriving (Show, Eq)
instance Enum IconViewDropPosition where
fromEnum IconViewDropPositionNoDrop = 0
fromEnum IconViewDropPositionDropInto = 1
fromEnum IconViewDropPositionDropLeft = 2
fromEnum IconViewDropPositionDropRight = 3
fromEnum IconViewDropPositionDropAbove = 4
fromEnum IconViewDropPositionDropBelow = 5
fromEnum (AnotherIconViewDropPosition k) = k
toEnum 0 = IconViewDropPositionNoDrop
toEnum 1 = IconViewDropPositionDropInto
toEnum 2 = IconViewDropPositionDropLeft
toEnum 3 = IconViewDropPositionDropRight
toEnum 4 = IconViewDropPositionDropAbove
toEnum 5 = IconViewDropPositionDropBelow
toEnum k = AnotherIconViewDropPosition k
foreign import ccall "gtk_icon_view_drop_position_get_type" c_gtk_icon_view_drop_position_get_type ::
IO GType
instance BoxedEnum IconViewDropPosition where
boxedEnumType _ = c_gtk_icon_view_drop_position_get_type
-- callback IconViewForeachFunc
iconViewForeachFuncClosure :: IconViewForeachFunc -> IO Closure
iconViewForeachFuncClosure cb = newCClosure =<< mkIconViewForeachFunc wrapped
where wrapped = iconViewForeachFuncWrapper Nothing cb
type IconViewForeachFuncC =
Ptr IconView ->
Ptr TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkIconViewForeachFunc :: IconViewForeachFuncC -> IO (FunPtr IconViewForeachFuncC)
type IconViewForeachFunc =
IconView ->
TreePath ->
IO ()
noIconViewForeachFunc :: Maybe IconViewForeachFunc
noIconViewForeachFunc = Nothing
iconViewForeachFuncWrapper ::
Maybe (Ptr (FunPtr (IconViewForeachFuncC))) ->
IconViewForeachFunc ->
Ptr IconView ->
Ptr TreePath ->
Ptr () ->
IO ()
iconViewForeachFuncWrapper funptrptr _cb icon_view path _ = do
icon_view' <- (newObject IconView) icon_view
path' <- (newBoxed TreePath) path
_cb icon_view' path'
maybeReleaseFunPtr funptrptr
-- object Image
newtype Image = Image (ForeignPtr Image)
noImage :: Maybe Image
noImage = Nothing
foreign import ccall "gtk_image_get_type"
c_gtk_image_get_type :: IO GType
type instance ParentTypes Image = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Image where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_image_get_type
class GObject o => ImageK o
instance (GObject o, IsDescendantOf Image o) => ImageK o
toImage :: ImageK o => o -> IO Image
toImage = unsafeCastTo Image
-- method Image::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new" gtk_image_new ::
IO (Ptr Image)
imageNew ::
(MonadIO m) =>
m Image
imageNew = liftIO $ do
result <- gtk_image_new
checkUnexpectedReturnNULL "gtk_image_new" result
result' <- (newObject Image) result
return result'
-- method Image::new_from_animation
-- method type : Constructor
-- Args : [Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_animation" gtk_image_new_from_animation ::
Ptr GdkPixbuf.PixbufAnimation -> -- animation : TInterface "GdkPixbuf" "PixbufAnimation"
IO (Ptr Image)
imageNewFromAnimation ::
(MonadIO m, GdkPixbuf.PixbufAnimationK a) =>
a -> -- animation
m Image
imageNewFromAnimation animation = liftIO $ do
let animation' = unsafeManagedPtrCastPtr animation
result <- gtk_image_new_from_animation animation'
checkUnexpectedReturnNULL "gtk_image_new_from_animation" result
result' <- (newObject Image) result
touchManagedPtr animation
return result'
-- method Image::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_file" gtk_image_new_from_file ::
CString -> -- filename : TBasicType TFileName
IO (Ptr Image)
imageNewFromFile ::
(MonadIO m) =>
[Char] -> -- filename
m Image
imageNewFromFile filename = liftIO $ do
filename' <- stringToCString filename
result <- gtk_image_new_from_file filename'
checkUnexpectedReturnNULL "gtk_image_new_from_file" result
result' <- (newObject Image) result
freeMem filename'
return result'
-- method Image::new_from_gicon
-- method type : Constructor
-- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_gicon" gtk_image_new_from_gicon ::
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- size : TBasicType TInt32
IO (Ptr Image)
imageNewFromGicon ::
(MonadIO m, Gio.IconK a) =>
a -> -- icon
Int32 -> -- size
m Image
imageNewFromGicon icon size = liftIO $ do
let icon' = unsafeManagedPtrCastPtr icon
result <- gtk_image_new_from_gicon icon' size
checkUnexpectedReturnNULL "gtk_image_new_from_gicon" result
result' <- (newObject Image) result
touchManagedPtr icon
return result'
-- method Image::new_from_icon_name
-- method type : Constructor
-- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_icon_name" gtk_image_new_from_icon_name ::
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO (Ptr Image)
imageNewFromIconName ::
(MonadIO m) =>
T.Text -> -- icon_name
Int32 -> -- size
m Image
imageNewFromIconName icon_name size = liftIO $ do
icon_name' <- textToCString icon_name
result <- gtk_image_new_from_icon_name icon_name' size
checkUnexpectedReturnNULL "gtk_image_new_from_icon_name" result
result' <- (newObject Image) result
freeMem icon_name'
return result'
-- method Image::new_from_icon_set
-- method type : Constructor
-- Args : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_icon_set" gtk_image_new_from_icon_set ::
Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet"
Int32 -> -- size : TBasicType TInt32
IO (Ptr Image)
{-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-}
imageNewFromIconSet ::
(MonadIO m) =>
IconSet -> -- icon_set
Int32 -> -- size
m Image
imageNewFromIconSet icon_set size = liftIO $ do
let icon_set' = unsafeManagedPtrGetPtr icon_set
result <- gtk_image_new_from_icon_set icon_set' size
checkUnexpectedReturnNULL "gtk_image_new_from_icon_set" result
result' <- (newObject Image) result
touchManagedPtr icon_set
return result'
-- method Image::new_from_pixbuf
-- method type : Constructor
-- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_pixbuf" gtk_image_new_from_pixbuf ::
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr Image)
imageNewFromPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
Maybe (a) -> -- pixbuf
m Image
imageNewFromPixbuf pixbuf = liftIO $ do
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
result <- gtk_image_new_from_pixbuf maybePixbuf
checkUnexpectedReturnNULL "gtk_image_new_from_pixbuf" result
result' <- (newObject Image) result
whenJust pixbuf touchManagedPtr
return result'
-- method Image::new_from_resource
-- method type : Constructor
-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_resource" gtk_image_new_from_resource ::
CString -> -- resource_path : TBasicType TUTF8
IO (Ptr Image)
imageNewFromResource ::
(MonadIO m) =>
T.Text -> -- resource_path
m Image
imageNewFromResource resource_path = liftIO $ do
resource_path' <- textToCString resource_path
result <- gtk_image_new_from_resource resource_path'
checkUnexpectedReturnNULL "gtk_image_new_from_resource" result
result' <- (newObject Image) result
freeMem resource_path'
return result'
-- method Image::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_stock" gtk_image_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO (Ptr Image)
{-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-}
imageNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
Int32 -> -- size
m Image
imageNewFromStock stock_id size = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_image_new_from_stock stock_id' size
checkUnexpectedReturnNULL "gtk_image_new_from_stock" result
result' <- (newObject Image) result
freeMem stock_id'
return result'
-- method Image::new_from_surface
-- method type : Constructor
-- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Image"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_new_from_surface" gtk_image_new_from_surface ::
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
IO (Ptr Image)
imageNewFromSurface ::
(MonadIO m) =>
Maybe (Cairo.Surface) -> -- surface
m Image
imageNewFromSurface surface = liftIO $ do
maybeSurface <- case surface of
Nothing -> return nullPtr
Just jSurface -> do
let jSurface' = unsafeManagedPtrGetPtr jSurface
return jSurface'
result <- gtk_image_new_from_surface maybeSurface
checkUnexpectedReturnNULL "gtk_image_new_from_surface" result
result' <- (newObject Image) result
whenJust surface touchManagedPtr
return result'
-- method Image::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_clear" gtk_image_clear ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
IO ()
imageClear ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m ()
imageClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_image_clear _obj'
touchManagedPtr _obj
return ()
-- method Image::get_animation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_animation" gtk_image_get_animation ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
IO (Ptr GdkPixbuf.PixbufAnimation)
imageGetAnimation ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m GdkPixbuf.PixbufAnimation
imageGetAnimation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_get_animation _obj'
checkUnexpectedReturnNULL "gtk_image_get_animation" result
result' <- (newObject GdkPixbuf.PixbufAnimation) result
touchManagedPtr _obj
return result'
-- method Image::get_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_gicon" gtk_image_get_gicon ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr (Ptr Gio.Icon) -> -- gicon : TInterface "Gio" "Icon"
Ptr Int32 -> -- size : TBasicType TInt32
IO ()
imageGetGicon ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m (Gio.Icon,Int32)
imageGetGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gicon <- allocMem :: IO (Ptr (Ptr Gio.Icon))
size <- allocMem :: IO (Ptr Int32)
gtk_image_get_gicon _obj' gicon size
gicon' <- peek gicon
gicon'' <- (newObject Gio.Icon) gicon'
size' <- peek size
touchManagedPtr _obj
freeMem gicon
freeMem size
return (gicon'', size')
-- method Image::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_icon_name" gtk_image_get_icon_name ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr CString -> -- icon_name : TBasicType TUTF8
Ptr Int32 -> -- size : TBasicType TInt32
IO ()
imageGetIconName ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m (T.Text,Int32)
imageGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name <- allocMem :: IO (Ptr CString)
size <- allocMem :: IO (Ptr Int32)
gtk_image_get_icon_name _obj' icon_name size
icon_name' <- peek icon_name
icon_name'' <- cstringToText icon_name'
size' <- peek size
touchManagedPtr _obj
freeMem icon_name
freeMem size
return (icon_name'', size')
-- method Image::get_icon_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_icon_set" gtk_image_get_icon_set ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr (Ptr IconSet) -> -- icon_set : TInterface "Gtk" "IconSet"
Ptr Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-}
imageGetIconSet ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m (IconSet,Int32)
imageGetIconSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_set <- allocMem :: IO (Ptr (Ptr IconSet))
size <- allocMem :: IO (Ptr Int32)
gtk_image_get_icon_set _obj' icon_set size
icon_set' <- peek icon_set
icon_set'' <- (newBoxed IconSet) icon_set'
size' <- peek size
touchManagedPtr _obj
freeMem icon_set
freeMem size
return (icon_set'', size')
-- method Image::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_pixbuf" gtk_image_get_pixbuf ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
IO (Ptr GdkPixbuf.Pixbuf)
imageGetPixbuf ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
imageGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_image_get_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method Image::get_pixel_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_pixel_size" gtk_image_get_pixel_size ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
IO Int32
imageGetPixelSize ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m Int32
imageGetPixelSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_get_pixel_size _obj'
touchManagedPtr _obj
return result
-- method Image::get_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_stock" gtk_image_get_stock ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr CString -> -- stock_id : TBasicType TUTF8
Ptr Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED imageGetStock ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-}
imageGetStock ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m (T.Text,Int32)
imageGetStock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id <- allocMem :: IO (Ptr CString)
size <- allocMem :: IO (Ptr Int32)
gtk_image_get_stock _obj' stock_id size
stock_id' <- peek stock_id
stock_id'' <- cstringToText stock_id'
size' <- peek size
touchManagedPtr _obj
freeMem stock_id
freeMem size
return (stock_id'', size')
-- method Image::get_storage_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_get_storage_type" gtk_image_get_storage_type ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
IO CUInt
imageGetStorageType ::
(MonadIO m, ImageK a) =>
a -> -- _obj
m ImageType
imageGetStorageType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_get_storage_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Image::set_from_animation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_animation" gtk_image_set_from_animation ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr GdkPixbuf.PixbufAnimation -> -- animation : TInterface "GdkPixbuf" "PixbufAnimation"
IO ()
imageSetFromAnimation ::
(MonadIO m, ImageK a, GdkPixbuf.PixbufAnimationK b) =>
a -> -- _obj
b -> -- animation
m ()
imageSetFromAnimation _obj animation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let animation' = unsafeManagedPtrCastPtr animation
gtk_image_set_from_animation _obj' animation'
touchManagedPtr _obj
touchManagedPtr animation
return ()
-- method Image::set_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_file" gtk_image_set_from_file ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
CString -> -- filename : TBasicType TFileName
IO ()
imageSetFromFile ::
(MonadIO m, ImageK a) =>
a -> -- _obj
Maybe ([Char]) -> -- filename
m ()
imageSetFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilename <- case filename of
Nothing -> return nullPtr
Just jFilename -> do
jFilename' <- stringToCString jFilename
return jFilename'
gtk_image_set_from_file _obj' maybeFilename
touchManagedPtr _obj
freeMem maybeFilename
return ()
-- method Image::set_from_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_gicon" gtk_image_set_from_gicon ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- size : TBasicType TInt32
IO ()
imageSetFromGicon ::
(MonadIO m, ImageK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
Int32 -> -- size
m ()
imageSetFromGicon _obj icon size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_image_set_from_gicon _obj' icon' size
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method Image::set_from_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_icon_name" gtk_image_set_from_icon_name ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO ()
imageSetFromIconName ::
(MonadIO m, ImageK a) =>
a -> -- _obj
T.Text -> -- icon_name
Int32 -> -- size
m ()
imageSetFromIconName _obj icon_name size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
gtk_image_set_from_icon_name _obj' icon_name' size
touchManagedPtr _obj
freeMem icon_name'
return ()
-- method Image::set_from_icon_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_icon_set" gtk_image_set_from_icon_set ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet"
Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-}
imageSetFromIconSet ::
(MonadIO m, ImageK a) =>
a -> -- _obj
IconSet -> -- icon_set
Int32 -> -- size
m ()
imageSetFromIconSet _obj icon_set size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_set' = unsafeManagedPtrGetPtr icon_set
gtk_image_set_from_icon_set _obj' icon_set' size
touchManagedPtr _obj
touchManagedPtr icon_set
return ()
-- method Image::set_from_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_pixbuf" gtk_image_set_from_pixbuf ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
imageSetFromPixbuf ::
(MonadIO m, ImageK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
Maybe (b) -> -- pixbuf
m ()
imageSetFromPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_image_set_from_pixbuf _obj' maybePixbuf
touchManagedPtr _obj
whenJust pixbuf touchManagedPtr
return ()
-- method Image::set_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_resource" gtk_image_set_from_resource ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
CString -> -- resource_path : TBasicType TUTF8
IO ()
imageSetFromResource ::
(MonadIO m, ImageK a) =>
a -> -- _obj
Maybe (T.Text) -> -- resource_path
m ()
imageSetFromResource _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeResource_path <- case resource_path of
Nothing -> return nullPtr
Just jResource_path -> do
jResource_path' <- textToCString jResource_path
return jResource_path'
gtk_image_set_from_resource _obj' maybeResource_path
touchManagedPtr _obj
freeMem maybeResource_path
return ()
-- method Image::set_from_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_stock" gtk_image_set_from_stock ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-}
imageSetFromStock ::
(MonadIO m, ImageK a) =>
a -> -- _obj
T.Text -> -- stock_id
Int32 -> -- size
m ()
imageSetFromStock _obj stock_id size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
gtk_image_set_from_stock _obj' stock_id' size
touchManagedPtr _obj
freeMem stock_id'
return ()
-- method Image::set_from_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_from_surface" gtk_image_set_from_surface ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
IO ()
imageSetFromSurface ::
(MonadIO m, ImageK a) =>
a -> -- _obj
Cairo.Surface -> -- surface
m ()
imageSetFromSurface _obj surface = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let surface' = unsafeManagedPtrGetPtr surface
gtk_image_set_from_surface _obj' surface'
touchManagedPtr _obj
touchManagedPtr surface
return ()
-- method Image::set_pixel_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_set_pixel_size" gtk_image_set_pixel_size ::
Ptr Image -> -- _obj : TInterface "Gtk" "Image"
Int32 -> -- pixel_size : TBasicType TInt32
IO ()
imageSetPixelSize ::
(MonadIO m, ImageK a) =>
a -> -- _obj
Int32 -> -- pixel_size
m ()
imageSetPixelSize _obj pixel_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_image_set_pixel_size _obj' pixel_size
touchManagedPtr _obj
return ()
-- object ImageAccessible
newtype ImageAccessible = ImageAccessible (ForeignPtr ImageAccessible)
noImageAccessible :: Maybe ImageAccessible
noImageAccessible = Nothing
foreign import ccall "gtk_image_accessible_get_type"
c_gtk_image_accessible_get_type :: IO GType
type instance ParentTypes ImageAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image]
instance GObject ImageAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_image_accessible_get_type
class GObject o => ImageAccessibleK o
instance (GObject o, IsDescendantOf ImageAccessible o) => ImageAccessibleK o
toImageAccessible :: ImageAccessibleK o => o -> IO ImageAccessible
toImageAccessible = unsafeCastTo ImageAccessible
-- object ImageCellAccessible
newtype ImageCellAccessible = ImageCellAccessible (ForeignPtr ImageCellAccessible)
noImageCellAccessible :: Maybe ImageCellAccessible
noImageCellAccessible = Nothing
foreign import ccall "gtk_image_cell_accessible_get_type"
c_gtk_image_cell_accessible_get_type :: IO GType
type instance ParentTypes ImageCellAccessible = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject ImageCellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_image_cell_accessible_get_type
class GObject o => ImageCellAccessibleK o
instance (GObject o, IsDescendantOf ImageCellAccessible o) => ImageCellAccessibleK o
toImageCellAccessible :: ImageCellAccessibleK o => o -> IO ImageCellAccessible
toImageCellAccessible = unsafeCastTo ImageCellAccessible
-- object ImageMenuItem
newtype ImageMenuItem = ImageMenuItem (ForeignPtr ImageMenuItem)
noImageMenuItem :: Maybe ImageMenuItem
noImageMenuItem = Nothing
foreign import ccall "gtk_image_menu_item_get_type"
c_gtk_image_menu_item_get_type :: IO GType
type instance ParentTypes ImageMenuItem = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject ImageMenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_image_menu_item_get_type
class GObject o => ImageMenuItemK o
instance (GObject o, IsDescendantOf ImageMenuItem o) => ImageMenuItemK o
toImageMenuItem :: ImageMenuItemK o => o -> IO ImageMenuItem
toImageMenuItem = unsafeCastTo ImageMenuItem
-- method ImageMenuItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ImageMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_new" gtk_image_menu_item_new ::
IO (Ptr ImageMenuItem)
{-# DEPRECATED imageMenuItemNew ["(Since version 3.10)","Use gtk_menu_item_new() instead."]#-}
imageMenuItemNew ::
(MonadIO m) =>
m ImageMenuItem
imageMenuItemNew = liftIO $ do
result <- gtk_image_menu_item_new
checkUnexpectedReturnNULL "gtk_image_menu_item_new" result
result' <- (newObject ImageMenuItem) result
return result'
-- method ImageMenuItem::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_new_from_stock" gtk_image_menu_item_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO (Ptr ImageMenuItem)
{-# DEPRECATED imageMenuItemNewFromStock ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-}
imageMenuItemNewFromStock ::
(MonadIO m, AccelGroupK a) =>
T.Text -> -- stock_id
Maybe (a) -> -- accel_group
m ImageMenuItem
imageMenuItemNewFromStock stock_id accel_group = liftIO $ do
stock_id' <- textToCString stock_id
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
result <- gtk_image_menu_item_new_from_stock stock_id' maybeAccel_group
checkUnexpectedReturnNULL "gtk_image_menu_item_new_from_stock" result
result' <- (newObject ImageMenuItem) result
whenJust accel_group touchManagedPtr
freeMem stock_id'
return result'
-- method ImageMenuItem::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_new_with_label" gtk_image_menu_item_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr ImageMenuItem)
{-# DEPRECATED imageMenuItemNewWithLabel ["(Since version 3.10)","Use gtk_menu_item_new_with_label() instead."]#-}
imageMenuItemNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m ImageMenuItem
imageMenuItemNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_image_menu_item_new_with_label label'
checkUnexpectedReturnNULL "gtk_image_menu_item_new_with_label" result
result' <- (newObject ImageMenuItem) result
freeMem label'
return result'
-- method ImageMenuItem::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_new_with_mnemonic" gtk_image_menu_item_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr ImageMenuItem)
{-# DEPRECATED imageMenuItemNewWithMnemonic ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-}
imageMenuItemNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m ImageMenuItem
imageMenuItemNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_image_menu_item_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_image_menu_item_new_with_mnemonic" result
result' <- (newObject ImageMenuItem) result
freeMem label'
return result'
-- method ImageMenuItem::get_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_get_always_show_image" gtk_image_menu_item_get_always_show_image ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
IO CInt
{-# DEPRECATED imageMenuItemGetAlwaysShowImage ["(Since version 3.10)"]#-}
imageMenuItemGetAlwaysShowImage ::
(MonadIO m, ImageMenuItemK a) =>
a -> -- _obj
m Bool
imageMenuItemGetAlwaysShowImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_menu_item_get_always_show_image _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ImageMenuItem::get_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_get_image" gtk_image_menu_item_get_image ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
IO (Ptr Widget)
{-# DEPRECATED imageMenuItemGetImage ["(Since version 3.10)"]#-}
imageMenuItemGetImage ::
(MonadIO m, ImageMenuItemK a) =>
a -> -- _obj
m Widget
imageMenuItemGetImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_menu_item_get_image _obj'
checkUnexpectedReturnNULL "gtk_image_menu_item_get_image" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ImageMenuItem::get_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_get_use_stock" gtk_image_menu_item_get_use_stock ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
IO CInt
{-# DEPRECATED imageMenuItemGetUseStock ["(Since version 3.10)"]#-}
imageMenuItemGetUseStock ::
(MonadIO m, ImageMenuItemK a) =>
a -> -- _obj
m Bool
imageMenuItemGetUseStock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_image_menu_item_get_use_stock _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ImageMenuItem::set_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_set_accel_group" gtk_image_menu_item_set_accel_group ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
{-# DEPRECATED imageMenuItemSetAccelGroup ["(Since version 3.10)"]#-}
imageMenuItemSetAccelGroup ::
(MonadIO m, ImageMenuItemK a, AccelGroupK b) =>
a -> -- _obj
b -> -- accel_group
m ()
imageMenuItemSetAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_group' = unsafeManagedPtrCastPtr accel_group
gtk_image_menu_item_set_accel_group _obj' accel_group'
touchManagedPtr _obj
touchManagedPtr accel_group
return ()
-- method ImageMenuItem::set_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_set_always_show_image" gtk_image_menu_item_set_always_show_image ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
CInt -> -- always_show : TBasicType TBoolean
IO ()
{-# DEPRECATED imageMenuItemSetAlwaysShowImage ["(Since version 3.10)"]#-}
imageMenuItemSetAlwaysShowImage ::
(MonadIO m, ImageMenuItemK a) =>
a -> -- _obj
Bool -> -- always_show
m ()
imageMenuItemSetAlwaysShowImage _obj always_show = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let always_show' = (fromIntegral . fromEnum) always_show
gtk_image_menu_item_set_always_show_image _obj' always_show'
touchManagedPtr _obj
return ()
-- method ImageMenuItem::set_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_set_image" gtk_image_menu_item_set_image ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
Ptr Widget -> -- image : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED imageMenuItemSetImage ["(Since version 3.10)"]#-}
imageMenuItemSetImage ::
(MonadIO m, ImageMenuItemK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- image
m ()
imageMenuItemSetImage _obj image = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeImage <- case image of
Nothing -> return nullPtr
Just jImage -> do
let jImage' = unsafeManagedPtrCastPtr jImage
return jImage'
gtk_image_menu_item_set_image _obj' maybeImage
touchManagedPtr _obj
whenJust image touchManagedPtr
return ()
-- method ImageMenuItem::set_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_image_menu_item_set_use_stock" gtk_image_menu_item_set_use_stock ::
Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem"
CInt -> -- use_stock : TBasicType TBoolean
IO ()
{-# DEPRECATED imageMenuItemSetUseStock ["(Since version 3.10)"]#-}
imageMenuItemSetUseStock ::
(MonadIO m, ImageMenuItemK a) =>
a -> -- _obj
Bool -> -- use_stock
m ()
imageMenuItemSetUseStock _obj use_stock = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_stock' = (fromIntegral . fromEnum) use_stock
gtk_image_menu_item_set_use_stock _obj' use_stock'
touchManagedPtr _obj
return ()
-- Enum ImageType
data ImageType =
ImageTypeEmpty
| ImageTypePixbuf
| ImageTypeStock
| ImageTypeIconSet
| ImageTypeAnimation
| ImageTypeIconName
| ImageTypeGicon
| ImageTypeSurface
| AnotherImageType Int
deriving (Show, Eq)
instance Enum ImageType where
fromEnum ImageTypeEmpty = 0
fromEnum ImageTypePixbuf = 1
fromEnum ImageTypeStock = 2
fromEnum ImageTypeIconSet = 3
fromEnum ImageTypeAnimation = 4
fromEnum ImageTypeIconName = 5
fromEnum ImageTypeGicon = 6
fromEnum ImageTypeSurface = 7
fromEnum (AnotherImageType k) = k
toEnum 0 = ImageTypeEmpty
toEnum 1 = ImageTypePixbuf
toEnum 2 = ImageTypeStock
toEnum 3 = ImageTypeIconSet
toEnum 4 = ImageTypeAnimation
toEnum 5 = ImageTypeIconName
toEnum 6 = ImageTypeGicon
toEnum 7 = ImageTypeSurface
toEnum k = AnotherImageType k
foreign import ccall "gtk_image_type_get_type" c_gtk_image_type_get_type ::
IO GType
instance BoxedEnum ImageType where
boxedEnumType _ = c_gtk_image_type_get_type
-- object InfoBar
newtype InfoBar = InfoBar (ForeignPtr InfoBar)
noInfoBar :: Maybe InfoBar
noInfoBar = Nothing
foreign import ccall "gtk_info_bar_get_type"
c_gtk_info_bar_get_type :: IO GType
type instance ParentTypes InfoBar = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject InfoBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_info_bar_get_type
class GObject o => InfoBarK o
instance (GObject o, IsDescendantOf InfoBar o) => InfoBarK o
toInfoBar :: InfoBarK o => o -> IO InfoBar
toInfoBar = unsafeCastTo InfoBar
-- method InfoBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "InfoBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_new" gtk_info_bar_new ::
IO (Ptr InfoBar)
infoBarNew ::
(MonadIO m) =>
m InfoBar
infoBarNew = liftIO $ do
result <- gtk_info_bar_new
checkUnexpectedReturnNULL "gtk_info_bar_new" result
result' <- (newObject InfoBar) result
return result'
-- method InfoBar::add_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_add_action_widget" gtk_info_bar_add_action_widget ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- response_id : TBasicType TInt32
IO ()
infoBarAddActionWidget ::
(MonadIO m, InfoBarK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- response_id
m ()
infoBarAddActionWidget _obj child response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_info_bar_add_action_widget _obj' child' response_id
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method InfoBar::add_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_add_button" gtk_info_bar_add_button ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
CString -> -- button_text : TBasicType TUTF8
Int32 -> -- response_id : TBasicType TInt32
IO (Ptr Button)
infoBarAddButton ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
T.Text -> -- button_text
Int32 -> -- response_id
m Button
infoBarAddButton _obj button_text response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
button_text' <- textToCString button_text
result <- gtk_info_bar_add_button _obj' button_text' response_id
checkUnexpectedReturnNULL "gtk_info_bar_add_button" result
result' <- (newObject Button) result
touchManagedPtr _obj
freeMem button_text'
return result'
-- method InfoBar::get_action_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_get_action_area" gtk_info_bar_get_action_area ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
IO (Ptr Widget)
infoBarGetActionArea ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
m Widget
infoBarGetActionArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_info_bar_get_action_area _obj'
checkUnexpectedReturnNULL "gtk_info_bar_get_action_area" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method InfoBar::get_content_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_get_content_area" gtk_info_bar_get_content_area ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
IO (Ptr Widget)
infoBarGetContentArea ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
m Widget
infoBarGetContentArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_info_bar_get_content_area _obj'
checkUnexpectedReturnNULL "gtk_info_bar_get_content_area" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method InfoBar::get_message_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MessageType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_get_message_type" gtk_info_bar_get_message_type ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
IO CUInt
infoBarGetMessageType ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
m MessageType
infoBarGetMessageType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_info_bar_get_message_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method InfoBar::get_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_get_show_close_button" gtk_info_bar_get_show_close_button ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
IO CInt
infoBarGetShowCloseButton ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
m Bool
infoBarGetShowCloseButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_info_bar_get_show_close_button _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method InfoBar::response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_response" gtk_info_bar_response ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
Int32 -> -- response_id : TBasicType TInt32
IO ()
infoBarResponse ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
Int32 -> -- response_id
m ()
infoBarResponse _obj response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_info_bar_response _obj' response_id
touchManagedPtr _obj
return ()
-- method InfoBar::set_default_response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_set_default_response" gtk_info_bar_set_default_response ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
Int32 -> -- response_id : TBasicType TInt32
IO ()
infoBarSetDefaultResponse ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
Int32 -> -- response_id
m ()
infoBarSetDefaultResponse _obj response_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_info_bar_set_default_response _obj' response_id
touchManagedPtr _obj
return ()
-- method InfoBar::set_message_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_set_message_type" gtk_info_bar_set_message_type ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
CUInt -> -- message_type : TInterface "Gtk" "MessageType"
IO ()
infoBarSetMessageType ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
MessageType -> -- message_type
m ()
infoBarSetMessageType _obj message_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let message_type' = (fromIntegral . fromEnum) message_type
gtk_info_bar_set_message_type _obj' message_type'
touchManagedPtr _obj
return ()
-- method InfoBar::set_response_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_set_response_sensitive" gtk_info_bar_set_response_sensitive ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
Int32 -> -- response_id : TBasicType TInt32
CInt -> -- setting : TBasicType TBoolean
IO ()
infoBarSetResponseSensitive ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
Int32 -> -- response_id
Bool -> -- setting
m ()
infoBarSetResponseSensitive _obj response_id setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_info_bar_set_response_sensitive _obj' response_id setting'
touchManagedPtr _obj
return ()
-- method InfoBar::set_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_info_bar_set_show_close_button" gtk_info_bar_set_show_close_button ::
Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar"
CInt -> -- setting : TBasicType TBoolean
IO ()
infoBarSetShowCloseButton ::
(MonadIO m, InfoBarK a) =>
a -> -- _obj
Bool -> -- setting
m ()
infoBarSetShowCloseButton _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_info_bar_set_show_close_button _obj' setting'
touchManagedPtr _obj
return ()
-- signal InfoBar::close
type InfoBarCloseCallback =
IO ()
noInfoBarCloseCallback :: Maybe InfoBarCloseCallback
noInfoBarCloseCallback = Nothing
type InfoBarCloseCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkInfoBarCloseCallback :: InfoBarCloseCallbackC -> IO (FunPtr InfoBarCloseCallbackC)
infoBarCloseClosure :: InfoBarCloseCallback -> IO Closure
infoBarCloseClosure cb = newCClosure =<< mkInfoBarCloseCallback wrapped
where wrapped = infoBarCloseCallbackWrapper cb
infoBarCloseCallbackWrapper ::
InfoBarCloseCallback ->
Ptr () ->
Ptr () ->
IO ()
infoBarCloseCallbackWrapper _cb _ _ = do
_cb
onInfoBarClose :: (GObject a, MonadIO m) => a -> InfoBarCloseCallback -> m SignalHandlerId
onInfoBarClose obj cb = liftIO $ connectInfoBarClose obj cb SignalConnectBefore
afterInfoBarClose :: (GObject a, MonadIO m) => a -> InfoBarCloseCallback -> m SignalHandlerId
afterInfoBarClose obj cb = connectInfoBarClose obj cb SignalConnectAfter
connectInfoBarClose :: (GObject a, MonadIO m) =>
a -> InfoBarCloseCallback -> SignalConnectMode -> m SignalHandlerId
connectInfoBarClose obj cb after = liftIO $ do
cb' <- mkInfoBarCloseCallback (infoBarCloseCallbackWrapper cb)
connectSignalFunPtr obj "close" cb' after
-- signal InfoBar::response
type InfoBarResponseCallback =
Int32 ->
IO ()
noInfoBarResponseCallback :: Maybe InfoBarResponseCallback
noInfoBarResponseCallback = Nothing
type InfoBarResponseCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkInfoBarResponseCallback :: InfoBarResponseCallbackC -> IO (FunPtr InfoBarResponseCallbackC)
infoBarResponseClosure :: InfoBarResponseCallback -> IO Closure
infoBarResponseClosure cb = newCClosure =<< mkInfoBarResponseCallback wrapped
where wrapped = infoBarResponseCallbackWrapper cb
infoBarResponseCallbackWrapper ::
InfoBarResponseCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
infoBarResponseCallbackWrapper _cb _ response_id _ = do
_cb response_id
onInfoBarResponse :: (GObject a, MonadIO m) => a -> InfoBarResponseCallback -> m SignalHandlerId
onInfoBarResponse obj cb = liftIO $ connectInfoBarResponse obj cb SignalConnectBefore
afterInfoBarResponse :: (GObject a, MonadIO m) => a -> InfoBarResponseCallback -> m SignalHandlerId
afterInfoBarResponse obj cb = connectInfoBarResponse obj cb SignalConnectAfter
connectInfoBarResponse :: (GObject a, MonadIO m) =>
a -> InfoBarResponseCallback -> SignalConnectMode -> m SignalHandlerId
connectInfoBarResponse obj cb after = liftIO $ do
cb' <- mkInfoBarResponseCallback (infoBarResponseCallbackWrapper cb)
connectSignalFunPtr obj "response" cb' after
-- Flags InputHints
data InputHints =
InputHintsNone
| InputHintsSpellcheck
| InputHintsNoSpellcheck
| InputHintsWordCompletion
| InputHintsLowercase
| InputHintsUppercaseChars
| InputHintsUppercaseWords
| InputHintsUppercaseSentences
| InputHintsInhibitOsk
| InputHintsVerticalWriting
| AnotherInputHints Int
deriving (Show, Eq)
instance Enum InputHints where
fromEnum InputHintsNone = 0
fromEnum InputHintsSpellcheck = 1
fromEnum InputHintsNoSpellcheck = 2
fromEnum InputHintsWordCompletion = 4
fromEnum InputHintsLowercase = 8
fromEnum InputHintsUppercaseChars = 16
fromEnum InputHintsUppercaseWords = 32
fromEnum InputHintsUppercaseSentences = 64
fromEnum InputHintsInhibitOsk = 128
fromEnum InputHintsVerticalWriting = 256
fromEnum (AnotherInputHints k) = k
toEnum 0 = InputHintsNone
toEnum 1 = InputHintsSpellcheck
toEnum 2 = InputHintsNoSpellcheck
toEnum 4 = InputHintsWordCompletion
toEnum 8 = InputHintsLowercase
toEnum 16 = InputHintsUppercaseChars
toEnum 32 = InputHintsUppercaseWords
toEnum 64 = InputHintsUppercaseSentences
toEnum 128 = InputHintsInhibitOsk
toEnum 256 = InputHintsVerticalWriting
toEnum k = AnotherInputHints k
foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type ::
IO GType
instance BoxedEnum InputHints where
boxedEnumType _ = c_gtk_input_hints_get_type
instance IsGFlag InputHints
-- Enum InputPurpose
data InputPurpose =
InputPurposeFreeForm
| InputPurposeAlpha
| InputPurposeDigits
| InputPurposeNumber
| InputPurposePhone
| InputPurposeUrl
| InputPurposeEmail
| InputPurposeName
| InputPurposePassword
| InputPurposePin
| AnotherInputPurpose Int
deriving (Show, Eq)
instance Enum InputPurpose where
fromEnum InputPurposeFreeForm = 0
fromEnum InputPurposeAlpha = 1
fromEnum InputPurposeDigits = 2
fromEnum InputPurposeNumber = 3
fromEnum InputPurposePhone = 4
fromEnum InputPurposeUrl = 5
fromEnum InputPurposeEmail = 6
fromEnum InputPurposeName = 7
fromEnum InputPurposePassword = 8
fromEnum InputPurposePin = 9
fromEnum (AnotherInputPurpose k) = k
toEnum 0 = InputPurposeFreeForm
toEnum 1 = InputPurposeAlpha
toEnum 2 = InputPurposeDigits
toEnum 3 = InputPurposeNumber
toEnum 4 = InputPurposePhone
toEnum 5 = InputPurposeUrl
toEnum 6 = InputPurposeEmail
toEnum 7 = InputPurposeName
toEnum 8 = InputPurposePassword
toEnum 9 = InputPurposePin
toEnum k = AnotherInputPurpose k
foreign import ccall "gtk_input_purpose_get_type" c_gtk_input_purpose_get_type ::
IO GType
instance BoxedEnum InputPurpose where
boxedEnumType _ = c_gtk_input_purpose_get_type
-- object Invisible
newtype Invisible = Invisible (ForeignPtr Invisible)
noInvisible :: Maybe Invisible
noInvisible = Nothing
foreign import ccall "gtk_invisible_get_type"
c_gtk_invisible_get_type :: IO GType
type instance ParentTypes Invisible = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Invisible where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_invisible_get_type
class GObject o => InvisibleK o
instance (GObject o, IsDescendantOf Invisible o) => InvisibleK o
toInvisible :: InvisibleK o => o -> IO Invisible
toInvisible = unsafeCastTo Invisible
-- method Invisible::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Invisible"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_invisible_new" gtk_invisible_new ::
IO (Ptr Invisible)
invisibleNew ::
(MonadIO m) =>
m Invisible
invisibleNew = liftIO $ do
result <- gtk_invisible_new
checkUnexpectedReturnNULL "gtk_invisible_new" result
result' <- (newObject Invisible) result
return result'
-- method Invisible::new_for_screen
-- method type : Constructor
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Invisible"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_invisible_new_for_screen" gtk_invisible_new_for_screen ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO (Ptr Invisible)
invisibleNewForScreen ::
(MonadIO m, Gdk.ScreenK a) =>
a -> -- screen
m Invisible
invisibleNewForScreen screen = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
result <- gtk_invisible_new_for_screen screen'
checkUnexpectedReturnNULL "gtk_invisible_new_for_screen" result
result' <- (newObject Invisible) result
touchManagedPtr screen
return result'
-- method Invisible::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_invisible_get_screen" gtk_invisible_get_screen ::
Ptr Invisible -> -- _obj : TInterface "Gtk" "Invisible"
IO (Ptr Gdk.Screen)
invisibleGetScreen ::
(MonadIO m, InvisibleK a) =>
a -> -- _obj
m Gdk.Screen
invisibleGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_invisible_get_screen _obj'
checkUnexpectedReturnNULL "gtk_invisible_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method Invisible::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_invisible_set_screen" gtk_invisible_set_screen ::
Ptr Invisible -> -- _obj : TInterface "Gtk" "Invisible"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
invisibleSetScreen ::
(MonadIO m, InvisibleK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
invisibleSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_invisible_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- Flags JunctionSides
data JunctionSides =
JunctionSidesNone
| JunctionSidesCornerTopleft
| JunctionSidesCornerTopright
| JunctionSidesCornerBottomleft
| JunctionSidesCornerBottomright
| JunctionSidesTop
| JunctionSidesBottom
| JunctionSidesLeft
| JunctionSidesRight
| AnotherJunctionSides Int
deriving (Show, Eq)
instance Enum JunctionSides where
fromEnum JunctionSidesNone = 0
fromEnum JunctionSidesCornerTopleft = 1
fromEnum JunctionSidesCornerTopright = 2
fromEnum JunctionSidesCornerBottomleft = 4
fromEnum JunctionSidesCornerBottomright = 8
fromEnum JunctionSidesTop = 3
fromEnum JunctionSidesBottom = 12
fromEnum JunctionSidesLeft = 5
fromEnum JunctionSidesRight = 10
fromEnum (AnotherJunctionSides k) = k
toEnum 0 = JunctionSidesNone
toEnum 1 = JunctionSidesCornerTopleft
toEnum 2 = JunctionSidesCornerTopright
toEnum 3 = JunctionSidesTop
toEnum 4 = JunctionSidesCornerBottomleft
toEnum 5 = JunctionSidesLeft
toEnum 8 = JunctionSidesCornerBottomright
toEnum 10 = JunctionSidesRight
toEnum 12 = JunctionSidesBottom
toEnum k = AnotherJunctionSides k
foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type ::
IO GType
instance BoxedEnum JunctionSides where
boxedEnumType _ = c_gtk_junction_sides_get_type
instance IsGFlag JunctionSides
-- Enum Justification
data Justification =
JustificationLeft
| JustificationRight
| JustificationCenter
| JustificationFill
| AnotherJustification Int
deriving (Show, Eq)
instance Enum Justification where
fromEnum JustificationLeft = 0
fromEnum JustificationRight = 1
fromEnum JustificationCenter = 2
fromEnum JustificationFill = 3
fromEnum (AnotherJustification k) = k
toEnum 0 = JustificationLeft
toEnum 1 = JustificationRight
toEnum 2 = JustificationCenter
toEnum 3 = JustificationFill
toEnum k = AnotherJustification k
foreign import ccall "gtk_justification_get_type" c_gtk_justification_get_type ::
IO GType
instance BoxedEnum Justification where
boxedEnumType _ = c_gtk_justification_get_type
-- callback KeySnoopFunc
keySnoopFuncClosure :: KeySnoopFunc -> IO Closure
keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped
where wrapped = keySnoopFuncWrapper Nothing cb
type KeySnoopFuncC =
Ptr Widget ->
Ptr Gdk.EventKey ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC)
type KeySnoopFunc =
Widget ->
Gdk.EventKey ->
IO Int32
noKeySnoopFunc :: Maybe KeySnoopFunc
noKeySnoopFunc = Nothing
keySnoopFuncWrapper ::
Maybe (Ptr (FunPtr (KeySnoopFuncC))) ->
KeySnoopFunc ->
Ptr Widget ->
Ptr Gdk.EventKey ->
Ptr () ->
IO Int32
keySnoopFuncWrapper funptrptr _cb grab_widget event _ = do
grab_widget' <- (newObject Widget) grab_widget
event' <- (newPtr 56 Gdk.EventKey) event
result <- _cb grab_widget' event'
maybeReleaseFunPtr funptrptr
return result
-- object Label
newtype Label = Label (ForeignPtr Label)
noLabel :: Maybe Label
noLabel = Nothing
foreign import ccall "gtk_label_get_type"
c_gtk_label_get_type :: IO GType
type instance ParentTypes Label = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Label where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_label_get_type
class GObject o => LabelK o
instance (GObject o, IsDescendantOf Label o) => LabelK o
toLabel :: LabelK o => o -> IO Label
toLabel = unsafeCastTo Label
-- method Label::new
-- method type : Constructor
-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Label"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_new" gtk_label_new ::
CString -> -- str : TBasicType TUTF8
IO (Ptr Label)
labelNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- str
m Label
labelNew str = liftIO $ do
maybeStr <- case str of
Nothing -> return nullPtr
Just jStr -> do
jStr' <- textToCString jStr
return jStr'
result <- gtk_label_new maybeStr
checkUnexpectedReturnNULL "gtk_label_new" result
result' <- (newObject Label) result
freeMem maybeStr
return result'
-- method Label::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Label"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_new_with_mnemonic" gtk_label_new_with_mnemonic ::
CString -> -- str : TBasicType TUTF8
IO (Ptr Label)
labelNewWithMnemonic ::
(MonadIO m) =>
Maybe (T.Text) -> -- str
m Label
labelNewWithMnemonic str = liftIO $ do
maybeStr <- case str of
Nothing -> return nullPtr
Just jStr -> do
jStr' <- textToCString jStr
return jStr'
result <- gtk_label_new_with_mnemonic maybeStr
checkUnexpectedReturnNULL "gtk_label_new_with_mnemonic" result
result' <- (newObject Label) result
freeMem maybeStr
return result'
-- method Label::get_angle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_angle" gtk_label_get_angle ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CDouble
labelGetAngle ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Double
labelGetAngle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_angle _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Label::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "AttrList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_attributes" gtk_label_get_attributes ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO (Ptr Pango.AttrList)
labelGetAttributes ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Pango.AttrList
labelGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_attributes _obj'
checkUnexpectedReturnNULL "gtk_label_get_attributes" result
result' <- (newBoxed Pango.AttrList) result
touchManagedPtr _obj
return result'
-- method Label::get_current_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_current_uri" gtk_label_get_current_uri ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CString
labelGetCurrentUri ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m T.Text
labelGetCurrentUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_current_uri _obj'
checkUnexpectedReturnNULL "gtk_label_get_current_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Label::get_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "EllipsizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_ellipsize" gtk_label_get_ellipsize ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CUInt
labelGetEllipsize ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Pango.EllipsizeMode
labelGetEllipsize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_ellipsize _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Label::get_justify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Justification"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_justify" gtk_label_get_justify ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CUInt
labelGetJustify ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Justification
labelGetJustify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_justify _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Label::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_label" gtk_label_get_label ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CString
labelGetLabel ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m T.Text
labelGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_label _obj'
checkUnexpectedReturnNULL "gtk_label_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Label::get_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_layout" gtk_label_get_layout ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO (Ptr Pango.Layout)
labelGetLayout ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Pango.Layout
labelGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_layout _obj'
checkUnexpectedReturnNULL "gtk_label_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
-- method Label::get_layout_offsets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
labelGetLayoutOffsets ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m (Int32,Int32)
labelGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_label_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
-- method Label::get_line_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_line_wrap" gtk_label_get_line_wrap ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetLineWrap ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetLineWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_line_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_line_wrap_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "WrapMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_line_wrap_mode" gtk_label_get_line_wrap_mode ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CUInt
labelGetLineWrapMode ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Pango.WrapMode
labelGetLineWrapMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_line_wrap_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Label::get_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_lines" gtk_label_get_lines ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO Int32
labelGetLines ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Int32
labelGetLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_lines _obj'
touchManagedPtr _obj
return result
-- method Label::get_max_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_max_width_chars" gtk_label_get_max_width_chars ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO Int32
labelGetMaxWidthChars ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Int32
labelGetMaxWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_max_width_chars _obj'
touchManagedPtr _obj
return result
-- method Label::get_mnemonic_keyval
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_mnemonic_keyval" gtk_label_get_mnemonic_keyval ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO Word32
labelGetMnemonicKeyval ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Word32
labelGetMnemonicKeyval _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_mnemonic_keyval _obj'
touchManagedPtr _obj
return result
-- method Label::get_mnemonic_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_mnemonic_widget" gtk_label_get_mnemonic_widget ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO (Ptr Widget)
labelGetMnemonicWidget ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Widget
labelGetMnemonicWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_mnemonic_widget _obj'
checkUnexpectedReturnNULL "gtk_label_get_mnemonic_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Label::get_selectable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_selectable" gtk_label_get_selectable ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetSelectable ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetSelectable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_selectable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_selection_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Ptr Int32 -> -- start : TBasicType TInt32
Ptr Int32 -> -- end : TBasicType TInt32
IO CInt
labelGetSelectionBounds ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m (Bool,Int32,Int32)
labelGetSelectionBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- allocMem :: IO (Ptr Int32)
end <- allocMem :: IO (Ptr Int32)
result <- gtk_label_get_selection_bounds _obj' start end
let result' = (/= 0) result
start' <- peek start
end' <- peek end
touchManagedPtr _obj
freeMem start
freeMem end
return (result', start', end')
-- method Label::get_single_line_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_single_line_mode" gtk_label_get_single_line_mode ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetSingleLineMode ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetSingleLineMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_single_line_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_text" gtk_label_get_text ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CString
labelGetText ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m T.Text
labelGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_text _obj'
checkUnexpectedReturnNULL "gtk_label_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Label::get_track_visited_links
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_track_visited_links" gtk_label_get_track_visited_links ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetTrackVisitedLinks ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetTrackVisitedLinks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_track_visited_links _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_use_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_use_markup" gtk_label_get_use_markup ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetUseMarkup ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetUseMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_use_markup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_use_underline" gtk_label_get_use_underline ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CInt
labelGetUseUnderline ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Bool
labelGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Label::get_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_width_chars" gtk_label_get_width_chars ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO Int32
labelGetWidthChars ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Int32
labelGetWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_width_chars _obj'
touchManagedPtr _obj
return result
-- method Label::get_xalign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_xalign" gtk_label_get_xalign ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CFloat
labelGetXalign ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Float
labelGetXalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_xalign _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Label::get_yalign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_get_yalign" gtk_label_get_yalign ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
IO CFloat
labelGetYalign ::
(MonadIO m, LabelK a) =>
a -> -- _obj
m Float
labelGetYalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_yalign _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Label::select_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_select_region" gtk_label_select_region ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Int32 -> -- start_offset : TBasicType TInt32
Int32 -> -- end_offset : TBasicType TInt32
IO ()
labelSelectRegion ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Int32 -> -- start_offset
Int32 -> -- end_offset
m ()
labelSelectRegion _obj start_offset end_offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_select_region _obj' start_offset end_offset
touchManagedPtr _obj
return ()
-- method Label::set_angle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_angle" gtk_label_set_angle ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CDouble -> -- angle : TBasicType TDouble
IO ()
labelSetAngle ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Double -> -- angle
m ()
labelSetAngle _obj angle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let angle' = realToFrac angle
gtk_label_set_angle _obj' angle'
touchManagedPtr _obj
return ()
-- method Label::set_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_attributes" gtk_label_set_attributes ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList"
IO ()
labelSetAttributes ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Maybe (Pango.AttrList) -> -- attrs
m ()
labelSetAttributes _obj attrs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAttrs <- case attrs of
Nothing -> return nullPtr
Just jAttrs -> do
let jAttrs' = unsafeManagedPtrGetPtr jAttrs
return jAttrs'
gtk_label_set_attributes _obj' maybeAttrs
touchManagedPtr _obj
whenJust attrs touchManagedPtr
return ()
-- method Label::set_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_ellipsize" gtk_label_set_ellipsize ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CUInt -> -- mode : TInterface "Pango" "EllipsizeMode"
IO ()
labelSetEllipsize ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Pango.EllipsizeMode -> -- mode
m ()
labelSetEllipsize _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_label_set_ellipsize _obj' mode'
touchManagedPtr _obj
return ()
-- method Label::set_justify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_justify" gtk_label_set_justify ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CUInt -> -- jtype : TInterface "Gtk" "Justification"
IO ()
labelSetJustify ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Justification -> -- jtype
m ()
labelSetJustify _obj jtype = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let jtype' = (fromIntegral . fromEnum) jtype
gtk_label_set_justify _obj' jtype'
touchManagedPtr _obj
return ()
-- method Label::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_label" gtk_label_set_label ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- str : TBasicType TUTF8
IO ()
labelSetLabel ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- str
m ()
labelSetLabel _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_label _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- method Label::set_line_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_line_wrap" gtk_label_set_line_wrap ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- wrap : TBasicType TBoolean
IO ()
labelSetLineWrap ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- wrap
m ()
labelSetLineWrap _obj wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap' = (fromIntegral . fromEnum) wrap
gtk_label_set_line_wrap _obj' wrap'
touchManagedPtr _obj
return ()
-- method Label::set_line_wrap_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_line_wrap_mode" gtk_label_set_line_wrap_mode ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CUInt -> -- wrap_mode : TInterface "Pango" "WrapMode"
IO ()
labelSetLineWrapMode ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Pango.WrapMode -> -- wrap_mode
m ()
labelSetLineWrapMode _obj wrap_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap_mode' = (fromIntegral . fromEnum) wrap_mode
gtk_label_set_line_wrap_mode _obj' wrap_mode'
touchManagedPtr _obj
return ()
-- method Label::set_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_lines" gtk_label_set_lines ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Int32 -> -- lines : TBasicType TInt32
IO ()
labelSetLines ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Int32 -> -- lines
m ()
labelSetLines _obj lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_lines _obj' lines
touchManagedPtr _obj
return ()
-- method Label::set_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_markup" gtk_label_set_markup ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- str : TBasicType TUTF8
IO ()
labelSetMarkup ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- str
m ()
labelSetMarkup _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_markup _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- method Label::set_markup_with_mnemonic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_markup_with_mnemonic" gtk_label_set_markup_with_mnemonic ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- str : TBasicType TUTF8
IO ()
labelSetMarkupWithMnemonic ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- str
m ()
labelSetMarkupWithMnemonic _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_markup_with_mnemonic _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- method Label::set_max_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Int32 -> -- n_chars : TBasicType TInt32
IO ()
labelSetMaxWidthChars ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Int32 -> -- n_chars
m ()
labelSetMaxWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_max_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
-- method Label::set_mnemonic_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_mnemonic_widget" gtk_label_set_mnemonic_widget ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
labelSetMnemonicWidget ::
(MonadIO m, LabelK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
labelSetMnemonicWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_label_set_mnemonic_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- method Label::set_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_pattern" gtk_label_set_pattern ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- pattern : TBasicType TUTF8
IO ()
labelSetPattern ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- pattern
m ()
labelSetPattern _obj pattern = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pattern' <- textToCString pattern
gtk_label_set_pattern _obj' pattern'
touchManagedPtr _obj
freeMem pattern'
return ()
-- method Label::set_selectable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_selectable" gtk_label_set_selectable ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- setting : TBasicType TBoolean
IO ()
labelSetSelectable ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- setting
m ()
labelSetSelectable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_selectable _obj' setting'
touchManagedPtr _obj
return ()
-- method Label::set_single_line_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_single_line_mode" gtk_label_set_single_line_mode ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- single_line_mode : TBasicType TBoolean
IO ()
labelSetSingleLineMode ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- single_line_mode
m ()
labelSetSingleLineMode _obj single_line_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single_line_mode' = (fromIntegral . fromEnum) single_line_mode
gtk_label_set_single_line_mode _obj' single_line_mode'
touchManagedPtr _obj
return ()
-- method Label::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_text" gtk_label_set_text ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- str : TBasicType TUTF8
IO ()
labelSetText ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- str
m ()
labelSetText _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_text _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- method Label::set_text_with_mnemonic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_text_with_mnemonic" gtk_label_set_text_with_mnemonic ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CString -> -- str : TBasicType TUTF8
IO ()
labelSetTextWithMnemonic ::
(MonadIO m, LabelK a) =>
a -> -- _obj
T.Text -> -- str
m ()
labelSetTextWithMnemonic _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_text_with_mnemonic _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- method Label::set_track_visited_links
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_track_visited_links" gtk_label_set_track_visited_links ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- track_links : TBasicType TBoolean
IO ()
labelSetTrackVisitedLinks ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- track_links
m ()
labelSetTrackVisitedLinks _obj track_links = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let track_links' = (fromIntegral . fromEnum) track_links
gtk_label_set_track_visited_links _obj' track_links'
touchManagedPtr _obj
return ()
-- method Label::set_use_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_use_markup" gtk_label_set_use_markup ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- setting : TBasicType TBoolean
IO ()
labelSetUseMarkup ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- setting
m ()
labelSetUseMarkup _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_use_markup _obj' setting'
touchManagedPtr _obj
return ()
-- method Label::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_use_underline" gtk_label_set_use_underline ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CInt -> -- setting : TBasicType TBoolean
IO ()
labelSetUseUnderline ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Bool -> -- setting
m ()
labelSetUseUnderline _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_use_underline _obj' setting'
touchManagedPtr _obj
return ()
-- method Label::set_width_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
Int32 -> -- n_chars : TBasicType TInt32
IO ()
labelSetWidthChars ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Int32 -> -- n_chars
m ()
labelSetWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
-- method Label::set_xalign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_xalign" gtk_label_set_xalign ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CFloat -> -- xalign : TBasicType TFloat
IO ()
labelSetXalign ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Float -> -- xalign
m ()
labelSetXalign _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_label_set_xalign _obj' xalign'
touchManagedPtr _obj
return ()
-- method Label::set_yalign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_label_set_yalign" gtk_label_set_yalign ::
Ptr Label -> -- _obj : TInterface "Gtk" "Label"
CFloat -> -- yalign : TBasicType TFloat
IO ()
labelSetYalign ::
(MonadIO m, LabelK a) =>
a -> -- _obj
Float -> -- yalign
m ()
labelSetYalign _obj yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let yalign' = realToFrac yalign
gtk_label_set_yalign _obj' yalign'
touchManagedPtr _obj
return ()
-- signal Label::activate-current-link
type LabelActivateCurrentLinkCallback =
IO ()
noLabelActivateCurrentLinkCallback :: Maybe LabelActivateCurrentLinkCallback
noLabelActivateCurrentLinkCallback = Nothing
type LabelActivateCurrentLinkCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkLabelActivateCurrentLinkCallback :: LabelActivateCurrentLinkCallbackC -> IO (FunPtr LabelActivateCurrentLinkCallbackC)
labelActivateCurrentLinkClosure :: LabelActivateCurrentLinkCallback -> IO Closure
labelActivateCurrentLinkClosure cb = newCClosure =<< mkLabelActivateCurrentLinkCallback wrapped
where wrapped = labelActivateCurrentLinkCallbackWrapper cb
labelActivateCurrentLinkCallbackWrapper ::
LabelActivateCurrentLinkCallback ->
Ptr () ->
Ptr () ->
IO ()
labelActivateCurrentLinkCallbackWrapper _cb _ _ = do
_cb
onLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId
onLabelActivateCurrentLink obj cb = liftIO $ connectLabelActivateCurrentLink obj cb SignalConnectBefore
afterLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId
afterLabelActivateCurrentLink obj cb = connectLabelActivateCurrentLink obj cb SignalConnectAfter
connectLabelActivateCurrentLink :: (GObject a, MonadIO m) =>
a -> LabelActivateCurrentLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelActivateCurrentLink obj cb after = liftIO $ do
cb' <- mkLabelActivateCurrentLinkCallback (labelActivateCurrentLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-current-link" cb' after
-- signal Label::activate-link
type LabelActivateLinkCallback =
T.Text ->
IO Bool
noLabelActivateLinkCallback :: Maybe LabelActivateLinkCallback
noLabelActivateLinkCallback = Nothing
type LabelActivateLinkCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkLabelActivateLinkCallback :: LabelActivateLinkCallbackC -> IO (FunPtr LabelActivateLinkCallbackC)
labelActivateLinkClosure :: LabelActivateLinkCallback -> IO Closure
labelActivateLinkClosure cb = newCClosure =<< mkLabelActivateLinkCallback wrapped
where wrapped = labelActivateLinkCallbackWrapper cb
labelActivateLinkCallbackWrapper ::
LabelActivateLinkCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CInt
labelActivateLinkCallbackWrapper _cb _ uri _ = do
uri' <- cstringToText uri
result <- _cb uri'
let result' = (fromIntegral . fromEnum) result
return result'
onLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId
onLabelActivateLink obj cb = liftIO $ connectLabelActivateLink obj cb SignalConnectBefore
afterLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId
afterLabelActivateLink obj cb = connectLabelActivateLink obj cb SignalConnectAfter
connectLabelActivateLink :: (GObject a, MonadIO m) =>
a -> LabelActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelActivateLink obj cb after = liftIO $ do
cb' <- mkLabelActivateLinkCallback (labelActivateLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-link" cb' after
-- signal Label::copy-clipboard
type LabelCopyClipboardCallback =
IO ()
noLabelCopyClipboardCallback :: Maybe LabelCopyClipboardCallback
noLabelCopyClipboardCallback = Nothing
type LabelCopyClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkLabelCopyClipboardCallback :: LabelCopyClipboardCallbackC -> IO (FunPtr LabelCopyClipboardCallbackC)
labelCopyClipboardClosure :: LabelCopyClipboardCallback -> IO Closure
labelCopyClipboardClosure cb = newCClosure =<< mkLabelCopyClipboardCallback wrapped
where wrapped = labelCopyClipboardCallbackWrapper cb
labelCopyClipboardCallbackWrapper ::
LabelCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
labelCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId
onLabelCopyClipboard obj cb = liftIO $ connectLabelCopyClipboard obj cb SignalConnectBefore
afterLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId
afterLabelCopyClipboard obj cb = connectLabelCopyClipboard obj cb SignalConnectAfter
connectLabelCopyClipboard :: (GObject a, MonadIO m) =>
a -> LabelCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelCopyClipboard obj cb after = liftIO $ do
cb' <- mkLabelCopyClipboardCallback (labelCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
-- signal Label::move-cursor
type LabelMoveCursorCallback =
MovementStep ->
Int32 ->
Bool ->
IO ()
noLabelMoveCursorCallback :: Maybe LabelMoveCursorCallback
noLabelMoveCursorCallback = Nothing
type LabelMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkLabelMoveCursorCallback :: LabelMoveCursorCallbackC -> IO (FunPtr LabelMoveCursorCallbackC)
labelMoveCursorClosure :: LabelMoveCursorCallback -> IO Closure
labelMoveCursorClosure cb = newCClosure =<< mkLabelMoveCursorCallback wrapped
where wrapped = labelMoveCursorCallbackWrapper cb
labelMoveCursorCallbackWrapper ::
LabelMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
labelMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do
let step' = (toEnum . fromIntegral) step
let extend_selection' = (/= 0) extend_selection
_cb step' count extend_selection'
onLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId
onLabelMoveCursor obj cb = liftIO $ connectLabelMoveCursor obj cb SignalConnectBefore
afterLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId
afterLabelMoveCursor obj cb = connectLabelMoveCursor obj cb SignalConnectAfter
connectLabelMoveCursor :: (GObject a, MonadIO m) =>
a -> LabelMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelMoveCursor obj cb after = liftIO $ do
cb' <- mkLabelMoveCursorCallback (labelMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal Label::populate-popup
type LabelPopulatePopupCallback =
Menu ->
IO ()
noLabelPopulatePopupCallback :: Maybe LabelPopulatePopupCallback
noLabelPopulatePopupCallback = Nothing
type LabelPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Menu ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkLabelPopulatePopupCallback :: LabelPopulatePopupCallbackC -> IO (FunPtr LabelPopulatePopupCallbackC)
labelPopulatePopupClosure :: LabelPopulatePopupCallback -> IO Closure
labelPopulatePopupClosure cb = newCClosure =<< mkLabelPopulatePopupCallback wrapped
where wrapped = labelPopulatePopupCallbackWrapper cb
labelPopulatePopupCallbackWrapper ::
LabelPopulatePopupCallback ->
Ptr () ->
Ptr Menu ->
Ptr () ->
IO ()
labelPopulatePopupCallbackWrapper _cb _ menu _ = do
menu' <- (newObject Menu) menu
_cb menu'
onLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId
onLabelPopulatePopup obj cb = liftIO $ connectLabelPopulatePopup obj cb SignalConnectBefore
afterLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId
afterLabelPopulatePopup obj cb = connectLabelPopulatePopup obj cb SignalConnectAfter
connectLabelPopulatePopup :: (GObject a, MonadIO m) =>
a -> LabelPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelPopulatePopup obj cb after = liftIO $ do
cb' <- mkLabelPopulatePopupCallback (labelPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- object LabelAccessible
newtype LabelAccessible = LabelAccessible (ForeignPtr LabelAccessible)
noLabelAccessible :: Maybe LabelAccessible
noLabelAccessible = Nothing
foreign import ccall "gtk_label_accessible_get_type"
c_gtk_label_accessible_get_type :: IO GType
type instance ParentTypes LabelAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Hypertext, Atk.Text]
instance GObject LabelAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_label_accessible_get_type
class GObject o => LabelAccessibleK o
instance (GObject o, IsDescendantOf LabelAccessible o) => LabelAccessibleK o
toLabelAccessible :: LabelAccessibleK o => o -> IO LabelAccessible
toLabelAccessible = unsafeCastTo LabelAccessible
-- struct LabelSelectionInfo
newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo)
noLabelSelectionInfo :: Maybe LabelSelectionInfo
noLabelSelectionInfo = Nothing
-- object Layout
newtype Layout = Layout (ForeignPtr Layout)
noLayout :: Maybe Layout
noLayout = Nothing
foreign import ccall "gtk_layout_get_type"
c_gtk_layout_get_type :: IO GType
type instance ParentTypes Layout = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable]
instance GObject Layout where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_layout_get_type
class GObject o => LayoutK o
instance (GObject o, IsDescendantOf Layout o) => LayoutK o
toLayout :: LayoutK o => o -> IO Layout
toLayout = unsafeCastTo Layout
-- method Layout::new
-- method type : Constructor
-- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_new" gtk_layout_new ::
Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment"
Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment"
IO (Ptr Layout)
layoutNew ::
(MonadIO m, AdjustmentK a, AdjustmentK b) =>
Maybe (a) -> -- hadjustment
Maybe (b) -> -- vadjustment
m Layout
layoutNew hadjustment vadjustment = liftIO $ do
maybeHadjustment <- case hadjustment of
Nothing -> return nullPtr
Just jHadjustment -> do
let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment
return jHadjustment'
maybeVadjustment <- case vadjustment of
Nothing -> return nullPtr
Just jVadjustment -> do
let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment
return jVadjustment'
result <- gtk_layout_new maybeHadjustment maybeVadjustment
checkUnexpectedReturnNULL "gtk_layout_new" result
result' <- (newObject Layout) result
whenJust hadjustment touchManagedPtr
whenJust vadjustment touchManagedPtr
return result'
-- method Layout::get_bin_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_get_bin_window" gtk_layout_get_bin_window ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
IO (Ptr Gdk.Window)
layoutGetBinWindow ::
(MonadIO m, LayoutK a) =>
a -> -- _obj
m Gdk.Window
layoutGetBinWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_layout_get_bin_window _obj'
checkUnexpectedReturnNULL "gtk_layout_get_bin_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Layout::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_get_hadjustment" gtk_layout_get_hadjustment ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
IO (Ptr Adjustment)
{-# DEPRECATED layoutGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
layoutGetHadjustment ::
(MonadIO m, LayoutK a) =>
a -> -- _obj
m Adjustment
layoutGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_layout_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_layout_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Layout::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_get_size" gtk_layout_get_size ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Ptr Word32 -> -- width : TBasicType TUInt32
Ptr Word32 -> -- height : TBasicType TUInt32
IO ()
layoutGetSize ::
(MonadIO m, LayoutK a) =>
a -> -- _obj
m (Word32,Word32)
layoutGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Word32)
height <- allocMem :: IO (Ptr Word32)
gtk_layout_get_size _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method Layout::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_get_vadjustment" gtk_layout_get_vadjustment ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
IO (Ptr Adjustment)
{-# DEPRECATED layoutGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
layoutGetVadjustment ::
(MonadIO m, LayoutK a) =>
a -> -- _obj
m Adjustment
layoutGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_layout_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_layout_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Layout::move
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_move" gtk_layout_move ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
layoutMove ::
(MonadIO m, LayoutK a, WidgetK b) =>
a -> -- _obj
b -> -- child_widget
Int32 -> -- x
Int32 -> -- y
m ()
layoutMove _obj child_widget x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child_widget' = unsafeManagedPtrCastPtr child_widget
gtk_layout_move _obj' child_widget' x y
touchManagedPtr _obj
touchManagedPtr child_widget
return ()
-- method Layout::put
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_put" gtk_layout_put ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
layoutPut ::
(MonadIO m, LayoutK a, WidgetK b) =>
a -> -- _obj
b -> -- child_widget
Int32 -> -- x
Int32 -> -- y
m ()
layoutPut _obj child_widget x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child_widget' = unsafeManagedPtrCastPtr child_widget
gtk_layout_put _obj' child_widget' x y
touchManagedPtr _obj
touchManagedPtr child_widget
return ()
-- method Layout::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_set_hadjustment" gtk_layout_set_hadjustment ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED layoutSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-}
layoutSetHadjustment ::
(MonadIO m, LayoutK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
layoutSetHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_layout_set_hadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method Layout::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_set_size" gtk_layout_set_size ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Word32 -> -- width : TBasicType TUInt32
Word32 -> -- height : TBasicType TUInt32
IO ()
layoutSetSize ::
(MonadIO m, LayoutK a) =>
a -> -- _obj
Word32 -> -- width
Word32 -> -- height
m ()
layoutSetSize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_layout_set_size _obj' width height
touchManagedPtr _obj
return ()
-- method Layout::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_layout_set_vadjustment" gtk_layout_set_vadjustment ::
Ptr Layout -> -- _obj : TInterface "Gtk" "Layout"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED layoutSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-}
layoutSetVadjustment ::
(MonadIO m, LayoutK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
layoutSetVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_layout_set_vadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- object LevelBar
newtype LevelBar = LevelBar (ForeignPtr LevelBar)
noLevelBar :: Maybe LevelBar
noLevelBar = Nothing
foreign import ccall "gtk_level_bar_get_type"
c_gtk_level_bar_get_type :: IO GType
type instance ParentTypes LevelBar = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject LevelBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_level_bar_get_type
class GObject o => LevelBarK o
instance (GObject o, IsDescendantOf LevelBar o) => LevelBarK o
toLevelBar :: LevelBarK o => o -> IO LevelBar
toLevelBar = unsafeCastTo LevelBar
-- method LevelBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "LevelBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_new" gtk_level_bar_new ::
IO (Ptr LevelBar)
levelBarNew ::
(MonadIO m) =>
m LevelBar
levelBarNew = liftIO $ do
result <- gtk_level_bar_new
checkUnexpectedReturnNULL "gtk_level_bar_new" result
result' <- (newObject LevelBar) result
return result'
-- method LevelBar::new_for_interval
-- method type : Constructor
-- Args : [Arg {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "LevelBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_new_for_interval" gtk_level_bar_new_for_interval ::
CDouble -> -- min_value : TBasicType TDouble
CDouble -> -- max_value : TBasicType TDouble
IO (Ptr LevelBar)
levelBarNewForInterval ::
(MonadIO m) =>
Double -> -- min_value
Double -> -- max_value
m LevelBar
levelBarNewForInterval min_value max_value = liftIO $ do
let min_value' = realToFrac min_value
let max_value' = realToFrac max_value
result <- gtk_level_bar_new_for_interval min_value' max_value'
checkUnexpectedReturnNULL "gtk_level_bar_new_for_interval" result
result' <- (newObject LevelBar) result
return result'
-- method LevelBar::add_offset_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_add_offset_value" gtk_level_bar_add_offset_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CString -> -- name : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
IO ()
levelBarAddOffsetValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
T.Text -> -- name
Double -> -- value
m ()
levelBarAddOffsetValue _obj name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let value' = realToFrac value
gtk_level_bar_add_offset_value _obj' name' value'
touchManagedPtr _obj
freeMem name'
return ()
-- method LevelBar::get_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_inverted" gtk_level_bar_get_inverted ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
IO CInt
levelBarGetInverted ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
m Bool
levelBarGetInverted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_level_bar_get_inverted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method LevelBar::get_max_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_max_value" gtk_level_bar_get_max_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
IO CDouble
levelBarGetMaxValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
m Double
levelBarGetMaxValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_level_bar_get_max_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method LevelBar::get_min_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_min_value" gtk_level_bar_get_min_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
IO CDouble
levelBarGetMinValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
m Double
levelBarGetMinValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_level_bar_get_min_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method LevelBar::get_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "LevelBarMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_mode" gtk_level_bar_get_mode ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
IO CUInt
levelBarGetMode ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
m LevelBarMode
levelBarGetMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_level_bar_get_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method LevelBar::get_offset_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_offset_value" gtk_level_bar_get_offset_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CString -> -- name : TBasicType TUTF8
Ptr CDouble -> -- value : TBasicType TDouble
IO CInt
levelBarGetOffsetValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- name
m (Bool,Double)
levelBarGetOffsetValue _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
value <- allocMem :: IO (Ptr CDouble)
result <- gtk_level_bar_get_offset_value _obj' maybeName value
let result' = (/= 0) result
value' <- peek value
let value'' = realToFrac value'
touchManagedPtr _obj
freeMem maybeName
freeMem value
return (result', value'')
-- method LevelBar::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_get_value" gtk_level_bar_get_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
IO CDouble
levelBarGetValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
m Double
levelBarGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_level_bar_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method LevelBar::remove_offset_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_remove_offset_value" gtk_level_bar_remove_offset_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CString -> -- name : TBasicType TUTF8
IO ()
levelBarRemoveOffsetValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- name
m ()
levelBarRemoveOffsetValue _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
gtk_level_bar_remove_offset_value _obj' maybeName
touchManagedPtr _obj
freeMem maybeName
return ()
-- method LevelBar::set_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_set_inverted" gtk_level_bar_set_inverted ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CInt -> -- inverted : TBasicType TBoolean
IO ()
levelBarSetInverted ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Bool -> -- inverted
m ()
levelBarSetInverted _obj inverted = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let inverted' = (fromIntegral . fromEnum) inverted
gtk_level_bar_set_inverted _obj' inverted'
touchManagedPtr _obj
return ()
-- method LevelBar::set_max_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_set_max_value" gtk_level_bar_set_max_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CDouble -> -- value : TBasicType TDouble
IO ()
levelBarSetMaxValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Double -> -- value
m ()
levelBarSetMaxValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_level_bar_set_max_value _obj' value'
touchManagedPtr _obj
return ()
-- method LevelBar::set_min_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_set_min_value" gtk_level_bar_set_min_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CDouble -> -- value : TBasicType TDouble
IO ()
levelBarSetMinValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Double -> -- value
m ()
levelBarSetMinValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_level_bar_set_min_value _obj' value'
touchManagedPtr _obj
return ()
-- method LevelBar::set_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_set_mode" gtk_level_bar_set_mode ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CUInt -> -- mode : TInterface "Gtk" "LevelBarMode"
IO ()
levelBarSetMode ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
LevelBarMode -> -- mode
m ()
levelBarSetMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_level_bar_set_mode _obj' mode'
touchManagedPtr _obj
return ()
-- method LevelBar::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_level_bar_set_value" gtk_level_bar_set_value ::
Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar"
CDouble -> -- value : TBasicType TDouble
IO ()
levelBarSetValue ::
(MonadIO m, LevelBarK a) =>
a -> -- _obj
Double -> -- value
m ()
levelBarSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_level_bar_set_value _obj' value'
touchManagedPtr _obj
return ()
-- signal LevelBar::offset-changed
type LevelBarOffsetChangedCallback =
T.Text ->
IO ()
noLevelBarOffsetChangedCallback :: Maybe LevelBarOffsetChangedCallback
noLevelBarOffsetChangedCallback = Nothing
type LevelBarOffsetChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkLevelBarOffsetChangedCallback :: LevelBarOffsetChangedCallbackC -> IO (FunPtr LevelBarOffsetChangedCallbackC)
levelBarOffsetChangedClosure :: LevelBarOffsetChangedCallback -> IO Closure
levelBarOffsetChangedClosure cb = newCClosure =<< mkLevelBarOffsetChangedCallback wrapped
where wrapped = levelBarOffsetChangedCallbackWrapper cb
levelBarOffsetChangedCallbackWrapper ::
LevelBarOffsetChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
levelBarOffsetChangedCallbackWrapper _cb _ name _ = do
name' <- cstringToText name
_cb name'
onLevelBarOffsetChanged :: (GObject a, MonadIO m) => a -> LevelBarOffsetChangedCallback -> m SignalHandlerId
onLevelBarOffsetChanged obj cb = liftIO $ connectLevelBarOffsetChanged obj cb SignalConnectBefore
afterLevelBarOffsetChanged :: (GObject a, MonadIO m) => a -> LevelBarOffsetChangedCallback -> m SignalHandlerId
afterLevelBarOffsetChanged obj cb = connectLevelBarOffsetChanged obj cb SignalConnectAfter
connectLevelBarOffsetChanged :: (GObject a, MonadIO m) =>
a -> LevelBarOffsetChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectLevelBarOffsetChanged obj cb after = liftIO $ do
cb' <- mkLevelBarOffsetChangedCallback (levelBarOffsetChangedCallbackWrapper cb)
connectSignalFunPtr obj "offset-changed" cb' after
-- object LevelBarAccessible
newtype LevelBarAccessible = LevelBarAccessible (ForeignPtr LevelBarAccessible)
noLevelBarAccessible :: Maybe LevelBarAccessible
noLevelBarAccessible = Nothing
foreign import ccall "gtk_level_bar_accessible_get_type"
c_gtk_level_bar_accessible_get_type :: IO GType
type instance ParentTypes LevelBarAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value]
instance GObject LevelBarAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_level_bar_accessible_get_type
class GObject o => LevelBarAccessibleK o
instance (GObject o, IsDescendantOf LevelBarAccessible o) => LevelBarAccessibleK o
toLevelBarAccessible :: LevelBarAccessibleK o => o -> IO LevelBarAccessible
toLevelBarAccessible = unsafeCastTo LevelBarAccessible
-- Enum LevelBarMode
data LevelBarMode =
LevelBarModeContinuous
| LevelBarModeDiscrete
| AnotherLevelBarMode Int
deriving (Show, Eq)
instance Enum LevelBarMode where
fromEnum LevelBarModeContinuous = 0
fromEnum LevelBarModeDiscrete = 1
fromEnum (AnotherLevelBarMode k) = k
toEnum 0 = LevelBarModeContinuous
toEnum 1 = LevelBarModeDiscrete
toEnum k = AnotherLevelBarMode k
foreign import ccall "gtk_level_bar_mode_get_type" c_gtk_level_bar_mode_get_type ::
IO GType
instance BoxedEnum LevelBarMode where
boxedEnumType _ = c_gtk_level_bar_mode_get_type
-- Enum License
data License =
LicenseUnknown
| LicenseCustom
| LicenseGpl20
| LicenseGpl30
| LicenseLgpl21
| LicenseLgpl30
| LicenseBsd
| LicenseMitX11
| LicenseArtistic
| LicenseGpl20Only
| LicenseGpl30Only
| LicenseLgpl21Only
| LicenseLgpl30Only
| AnotherLicense Int
deriving (Show, Eq)
instance Enum License where
fromEnum LicenseUnknown = 0
fromEnum LicenseCustom = 1
fromEnum LicenseGpl20 = 2
fromEnum LicenseGpl30 = 3
fromEnum LicenseLgpl21 = 4
fromEnum LicenseLgpl30 = 5
fromEnum LicenseBsd = 6
fromEnum LicenseMitX11 = 7
fromEnum LicenseArtistic = 8
fromEnum LicenseGpl20Only = 9
fromEnum LicenseGpl30Only = 10
fromEnum LicenseLgpl21Only = 11
fromEnum LicenseLgpl30Only = 12
fromEnum (AnotherLicense k) = k
toEnum 0 = LicenseUnknown
toEnum 1 = LicenseCustom
toEnum 2 = LicenseGpl20
toEnum 3 = LicenseGpl30
toEnum 4 = LicenseLgpl21
toEnum 5 = LicenseLgpl30
toEnum 6 = LicenseBsd
toEnum 7 = LicenseMitX11
toEnum 8 = LicenseArtistic
toEnum 9 = LicenseGpl20Only
toEnum 10 = LicenseGpl30Only
toEnum 11 = LicenseLgpl21Only
toEnum 12 = LicenseLgpl30Only
toEnum k = AnotherLicense k
foreign import ccall "gtk_license_get_type" c_gtk_license_get_type ::
IO GType
instance BoxedEnum License where
boxedEnumType _ = c_gtk_license_get_type
-- object LinkButton
newtype LinkButton = LinkButton (ForeignPtr LinkButton)
noLinkButton :: Maybe LinkButton
noLinkButton = Nothing
foreign import ccall "gtk_link_button_get_type"
c_gtk_link_button_get_type :: IO GType
type instance ParentTypes LinkButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject LinkButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_link_button_get_type
class GObject o => LinkButtonK o
instance (GObject o, IsDescendantOf LinkButton o) => LinkButtonK o
toLinkButton :: LinkButtonK o => o -> IO LinkButton
toLinkButton = unsafeCastTo LinkButton
-- method LinkButton::new
-- method type : Constructor
-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "LinkButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_new" gtk_link_button_new ::
CString -> -- uri : TBasicType TUTF8
IO (Ptr LinkButton)
linkButtonNew ::
(MonadIO m) =>
T.Text -> -- uri
m LinkButton
linkButtonNew uri = liftIO $ do
uri' <- textToCString uri
result <- gtk_link_button_new uri'
checkUnexpectedReturnNULL "gtk_link_button_new" result
result' <- (newObject LinkButton) result
freeMem uri'
return result'
-- method LinkButton::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "LinkButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_new_with_label" gtk_link_button_new_with_label ::
CString -> -- uri : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
IO (Ptr LinkButton)
linkButtonNewWithLabel ::
(MonadIO m) =>
T.Text -> -- uri
Maybe (T.Text) -> -- label
m LinkButton
linkButtonNewWithLabel uri label = liftIO $ do
uri' <- textToCString uri
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_link_button_new_with_label uri' maybeLabel
checkUnexpectedReturnNULL "gtk_link_button_new_with_label" result
result' <- (newObject LinkButton) result
freeMem uri'
freeMem maybeLabel
return result'
-- method LinkButton::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_get_uri" gtk_link_button_get_uri ::
Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton"
IO CString
linkButtonGetUri ::
(MonadIO m, LinkButtonK a) =>
a -> -- _obj
m T.Text
linkButtonGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_link_button_get_uri _obj'
checkUnexpectedReturnNULL "gtk_link_button_get_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method LinkButton::get_visited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_get_visited" gtk_link_button_get_visited ::
Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton"
IO CInt
linkButtonGetVisited ::
(MonadIO m, LinkButtonK a) =>
a -> -- _obj
m Bool
linkButtonGetVisited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_link_button_get_visited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method LinkButton::set_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_set_uri" gtk_link_button_set_uri ::
Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton"
CString -> -- uri : TBasicType TUTF8
IO ()
linkButtonSetUri ::
(MonadIO m, LinkButtonK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
linkButtonSetUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
gtk_link_button_set_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- method LinkButton::set_visited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_link_button_set_visited" gtk_link_button_set_visited ::
Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton"
CInt -> -- visited : TBasicType TBoolean
IO ()
linkButtonSetVisited ::
(MonadIO m, LinkButtonK a) =>
a -> -- _obj
Bool -> -- visited
m ()
linkButtonSetVisited _obj visited = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visited' = (fromIntegral . fromEnum) visited
gtk_link_button_set_visited _obj' visited'
touchManagedPtr _obj
return ()
-- signal LinkButton::activate-link
type LinkButtonActivateLinkCallback =
IO Bool
noLinkButtonActivateLinkCallback :: Maybe LinkButtonActivateLinkCallback
noLinkButtonActivateLinkCallback = Nothing
type LinkButtonActivateLinkCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkLinkButtonActivateLinkCallback :: LinkButtonActivateLinkCallbackC -> IO (FunPtr LinkButtonActivateLinkCallbackC)
linkButtonActivateLinkClosure :: LinkButtonActivateLinkCallback -> IO Closure
linkButtonActivateLinkClosure cb = newCClosure =<< mkLinkButtonActivateLinkCallback wrapped
where wrapped = linkButtonActivateLinkCallbackWrapper cb
linkButtonActivateLinkCallbackWrapper ::
LinkButtonActivateLinkCallback ->
Ptr () ->
Ptr () ->
IO CInt
linkButtonActivateLinkCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onLinkButtonActivateLink :: (GObject a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
onLinkButtonActivateLink obj cb = liftIO $ connectLinkButtonActivateLink obj cb SignalConnectBefore
afterLinkButtonActivateLink :: (GObject a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
afterLinkButtonActivateLink obj cb = connectLinkButtonActivateLink obj cb SignalConnectAfter
connectLinkButtonActivateLink :: (GObject a, MonadIO m) =>
a -> LinkButtonActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectLinkButtonActivateLink obj cb after = liftIO $ do
cb' <- mkLinkButtonActivateLinkCallback (linkButtonActivateLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-link" cb' after
-- object LinkButtonAccessible
newtype LinkButtonAccessible = LinkButtonAccessible (ForeignPtr LinkButtonAccessible)
noLinkButtonAccessible :: Maybe LinkButtonAccessible
noLinkButtonAccessible = Nothing
foreign import ccall "gtk_link_button_accessible_get_type"
c_gtk_link_button_accessible_get_type :: IO GType
type instance ParentTypes LinkButtonAccessible = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.HyperlinkImpl, Atk.Image]
instance GObject LinkButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_link_button_accessible_get_type
class GObject o => LinkButtonAccessibleK o
instance (GObject o, IsDescendantOf LinkButtonAccessible o) => LinkButtonAccessibleK o
toLinkButtonAccessible :: LinkButtonAccessibleK o => o -> IO LinkButtonAccessible
toLinkButtonAccessible = unsafeCastTo LinkButtonAccessible
-- object ListBox
newtype ListBox = ListBox (ForeignPtr ListBox)
noListBox :: Maybe ListBox
noListBox = Nothing
foreign import ccall "gtk_list_box_get_type"
c_gtk_list_box_get_type :: IO GType
type instance ParentTypes ListBox = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ListBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_list_box_get_type
class GObject o => ListBoxK o
instance (GObject o, IsDescendantOf ListBox o) => ListBoxK o
toListBox :: ListBoxK o => o -> IO ListBox
toListBox = unsafeCastTo ListBox
-- method ListBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ListBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_new" gtk_list_box_new ::
IO (Ptr ListBox)
listBoxNew ::
(MonadIO m) =>
m ListBox
listBoxNew = liftIO $ do
result <- gtk_list_box_new
checkUnexpectedReturnNULL "gtk_list_box_new" result
result' <- (newObject ListBox) result
return result'
-- method ListBox::bind_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_bind_model" gtk_list_box_bind_model ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr Gio.ListModel -> -- model : TInterface "Gio" "ListModel"
FunPtr ListBoxCreateWidgetFuncC -> -- create_widget_func : TInterface "Gtk" "ListBoxCreateWidgetFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify"
IO ()
listBoxBindModel ::
(MonadIO m, ListBoxK a, Gio.ListModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
Maybe (ListBoxCreateWidgetFunc) -> -- create_widget_func
m ()
listBoxBindModel _obj model create_widget_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
maybeCreate_widget_func <- case create_widget_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCreate_widget_func -> do
jCreate_widget_func' <- mkListBoxCreateWidgetFunc (listBoxCreateWidgetFuncWrapper Nothing jCreate_widget_func)
return jCreate_widget_func'
let user_data = castFunPtrToPtr maybeCreate_widget_func
let user_data_free_func = safeFreeFunPtrPtr
gtk_list_box_bind_model _obj' maybeModel maybeCreate_widget_func user_data user_data_free_func
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- method ListBox::drag_highlight_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_drag_highlight_row" gtk_list_box_drag_highlight_row ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow"
IO ()
listBoxDragHighlightRow ::
(MonadIO m, ListBoxK a, ListBoxRowK b) =>
a -> -- _obj
b -> -- row
m ()
listBoxDragHighlightRow _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let row' = unsafeManagedPtrCastPtr row
gtk_list_box_drag_highlight_row _obj' row'
touchManagedPtr _obj
touchManagedPtr row
return ()
-- method ListBox::drag_unhighlight_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_drag_unhighlight_row" gtk_list_box_drag_unhighlight_row ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxDragUnhighlightRow ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxDragUnhighlightRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_drag_unhighlight_row _obj'
touchManagedPtr _obj
return ()
-- method ListBox::get_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_activate_on_single_click" gtk_list_box_get_activate_on_single_click ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO CInt
listBoxGetActivateOnSingleClick ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m Bool
listBoxGetActivateOnSingleClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_activate_on_single_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ListBox::get_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_adjustment" gtk_list_box_get_adjustment ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO (Ptr Adjustment)
listBoxGetAdjustment ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m Adjustment
listBoxGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_list_box_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ListBox::get_row_at_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ListBoxRow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_row_at_index" gtk_list_box_get_row_at_index ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Int32 -> -- index_ : TBasicType TInt32
IO (Ptr ListBoxRow)
listBoxGetRowAtIndex ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Int32 -> -- index_
m ListBoxRow
listBoxGetRowAtIndex _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_row_at_index _obj' index_
checkUnexpectedReturnNULL "gtk_list_box_get_row_at_index" result
result' <- (newObject ListBoxRow) result
touchManagedPtr _obj
return result'
-- method ListBox::get_row_at_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ListBoxRow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_row_at_y" gtk_list_box_get_row_at_y ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Int32 -> -- y : TBasicType TInt32
IO (Ptr ListBoxRow)
listBoxGetRowAtY ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Int32 -> -- y
m ListBoxRow
listBoxGetRowAtY _obj y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_row_at_y _obj' y
checkUnexpectedReturnNULL "gtk_list_box_get_row_at_y" result
result' <- (newObject ListBoxRow) result
touchManagedPtr _obj
return result'
-- method ListBox::get_selected_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ListBoxRow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_selected_row" gtk_list_box_get_selected_row ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO (Ptr ListBoxRow)
listBoxGetSelectedRow ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ListBoxRow
listBoxGetSelectedRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_selected_row _obj'
checkUnexpectedReturnNULL "gtk_list_box_get_selected_row" result
result' <- (newObject ListBoxRow) result
touchManagedPtr _obj
return result'
-- method ListBox::get_selected_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "ListBoxRow")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_selected_rows" gtk_list_box_get_selected_rows ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO (Ptr (GList (Ptr ListBoxRow)))
listBoxGetSelectedRows ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m [ListBoxRow]
listBoxGetSelectedRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_selected_rows _obj'
checkUnexpectedReturnNULL "gtk_list_box_get_selected_rows" result
result' <- unpackGList result
result'' <- mapM (newObject ListBoxRow) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method ListBox::get_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_get_selection_mode" gtk_list_box_get_selection_mode ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO CUInt
listBoxGetSelectionMode ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m SelectionMode
listBoxGetSelectionMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_get_selection_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ListBox::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_insert" gtk_list_box_insert ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
listBoxInsert ::
(MonadIO m, ListBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
listBoxInsert _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_list_box_insert _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ListBox::invalidate_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_invalidate_filter" gtk_list_box_invalidate_filter ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxInvalidateFilter ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxInvalidateFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_invalidate_filter _obj'
touchManagedPtr _obj
return ()
-- method ListBox::invalidate_headers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_invalidate_headers" gtk_list_box_invalidate_headers ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxInvalidateHeaders ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxInvalidateHeaders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_invalidate_headers _obj'
touchManagedPtr _obj
return ()
-- method ListBox::invalidate_sort
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_invalidate_sort" gtk_list_box_invalidate_sort ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxInvalidateSort ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxInvalidateSort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_invalidate_sort _obj'
touchManagedPtr _obj
return ()
-- method ListBox::prepend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_prepend" gtk_list_box_prepend ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
listBoxPrepend ::
(MonadIO m, ListBoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
listBoxPrepend _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_list_box_prepend _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ListBox::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_select_all" gtk_list_box_select_all ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxSelectAll ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_select_all _obj'
touchManagedPtr _obj
return ()
-- method ListBox::select_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_select_row" gtk_list_box_select_row ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow"
IO ()
listBoxSelectRow ::
(MonadIO m, ListBoxK a, ListBoxRowK b) =>
a -> -- _obj
Maybe (b) -> -- row
m ()
listBoxSelectRow _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRow <- case row of
Nothing -> return nullPtr
Just jRow -> do
let jRow' = unsafeManagedPtrCastPtr jRow
return jRow'
gtk_list_box_select_row _obj' maybeRow
touchManagedPtr _obj
whenJust row touchManagedPtr
return ()
-- method ListBox::selected_foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_selected_foreach" gtk_list_box_selected_foreach ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
FunPtr ListBoxForeachFuncC -> -- func : TInterface "Gtk" "ListBoxForeachFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
listBoxSelectedForeach ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
ListBoxForeachFunc -> -- func
m ()
listBoxSelectedForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkListBoxForeachFunc (listBoxForeachFuncWrapper Nothing func)
let data_ = nullPtr
gtk_list_box_selected_foreach _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method ListBox::set_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_activate_on_single_click" gtk_list_box_set_activate_on_single_click ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
CInt -> -- single : TBasicType TBoolean
IO ()
listBoxSetActivateOnSingleClick ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Bool -> -- single
m ()
listBoxSetActivateOnSingleClick _obj single = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single' = (fromIntegral . fromEnum) single
gtk_list_box_set_activate_on_single_click _obj' single'
touchManagedPtr _obj
return ()
-- method ListBox::set_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_adjustment" gtk_list_box_set_adjustment ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
listBoxSetAdjustment ::
(MonadIO m, ListBoxK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
listBoxSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_list_box_set_adjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method ListBox::set_filter_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_filter_func" gtk_list_box_set_filter_func ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
FunPtr ListBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "ListBoxFilterFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
listBoxSetFilterFunc ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Maybe (ListBoxFilterFunc) -> -- filter_func
m ()
listBoxSetFilterFunc _obj filter_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilter_func <- case filter_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFilter_func -> do
jFilter_func' <- mkListBoxFilterFunc (listBoxFilterFuncWrapper Nothing jFilter_func)
return jFilter_func'
let user_data = castFunPtrToPtr maybeFilter_func
let destroy = safeFreeFunPtrPtr
gtk_list_box_set_filter_func _obj' maybeFilter_func user_data destroy
touchManagedPtr _obj
return ()
-- method ListBox::set_header_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_header_func" gtk_list_box_set_header_func ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
FunPtr ListBoxUpdateHeaderFuncC -> -- update_header : TInterface "Gtk" "ListBoxUpdateHeaderFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
listBoxSetHeaderFunc ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Maybe (ListBoxUpdateHeaderFunc) -> -- update_header
m ()
listBoxSetHeaderFunc _obj update_header = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeUpdate_header <- case update_header of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jUpdate_header -> do
jUpdate_header' <- mkListBoxUpdateHeaderFunc (listBoxUpdateHeaderFuncWrapper Nothing jUpdate_header)
return jUpdate_header'
let user_data = castFunPtrToPtr maybeUpdate_header
let destroy = safeFreeFunPtrPtr
gtk_list_box_set_header_func _obj' maybeUpdate_header user_data destroy
touchManagedPtr _obj
return ()
-- method ListBox::set_placeholder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_placeholder" gtk_list_box_set_placeholder ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr Widget -> -- placeholder : TInterface "Gtk" "Widget"
IO ()
listBoxSetPlaceholder ::
(MonadIO m, ListBoxK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- placeholder
m ()
listBoxSetPlaceholder _obj placeholder = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePlaceholder <- case placeholder of
Nothing -> return nullPtr
Just jPlaceholder -> do
let jPlaceholder' = unsafeManagedPtrCastPtr jPlaceholder
return jPlaceholder'
gtk_list_box_set_placeholder _obj' maybePlaceholder
touchManagedPtr _obj
whenJust placeholder touchManagedPtr
return ()
-- method ListBox::set_selection_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_selection_mode" gtk_list_box_set_selection_mode ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
CUInt -> -- mode : TInterface "Gtk" "SelectionMode"
IO ()
listBoxSetSelectionMode ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
SelectionMode -> -- mode
m ()
listBoxSetSelectionMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_list_box_set_selection_mode _obj' mode'
touchManagedPtr _obj
return ()
-- method ListBox::set_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_set_sort_func" gtk_list_box_set_sort_func ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
FunPtr ListBoxSortFuncC -> -- sort_func : TInterface "Gtk" "ListBoxSortFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
listBoxSetSortFunc ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
Maybe (ListBoxSortFunc) -> -- sort_func
m ()
listBoxSetSortFunc _obj sort_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSort_func <- case sort_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jSort_func -> do
jSort_func' <- mkListBoxSortFunc (listBoxSortFuncWrapper Nothing jSort_func)
return jSort_func'
let user_data = castFunPtrToPtr maybeSort_func
let destroy = safeFreeFunPtrPtr
gtk_list_box_set_sort_func _obj' maybeSort_func user_data destroy
touchManagedPtr _obj
return ()
-- method ListBox::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_unselect_all" gtk_list_box_unselect_all ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
IO ()
listBoxUnselectAll ::
(MonadIO m, ListBoxK a) =>
a -> -- _obj
m ()
listBoxUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method ListBox::unselect_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_unselect_row" gtk_list_box_unselect_row ::
Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox"
Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow"
IO ()
listBoxUnselectRow ::
(MonadIO m, ListBoxK a, ListBoxRowK b) =>
a -> -- _obj
b -> -- row
m ()
listBoxUnselectRow _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let row' = unsafeManagedPtrCastPtr row
gtk_list_box_unselect_row _obj' row'
touchManagedPtr _obj
touchManagedPtr row
return ()
-- signal ListBox::activate-cursor-row
type ListBoxActivateCursorRowCallback =
IO ()
noListBoxActivateCursorRowCallback :: Maybe ListBoxActivateCursorRowCallback
noListBoxActivateCursorRowCallback = Nothing
type ListBoxActivateCursorRowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxActivateCursorRowCallback :: ListBoxActivateCursorRowCallbackC -> IO (FunPtr ListBoxActivateCursorRowCallbackC)
listBoxActivateCursorRowClosure :: ListBoxActivateCursorRowCallback -> IO Closure
listBoxActivateCursorRowClosure cb = newCClosure =<< mkListBoxActivateCursorRowCallback wrapped
where wrapped = listBoxActivateCursorRowCallbackWrapper cb
listBoxActivateCursorRowCallbackWrapper ::
ListBoxActivateCursorRowCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxActivateCursorRowCallbackWrapper _cb _ _ = do
_cb
onListBoxActivateCursorRow :: (GObject a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId
onListBoxActivateCursorRow obj cb = liftIO $ connectListBoxActivateCursorRow obj cb SignalConnectBefore
afterListBoxActivateCursorRow :: (GObject a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId
afterListBoxActivateCursorRow obj cb = connectListBoxActivateCursorRow obj cb SignalConnectAfter
connectListBoxActivateCursorRow :: (GObject a, MonadIO m) =>
a -> ListBoxActivateCursorRowCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxActivateCursorRow obj cb after = liftIO $ do
cb' <- mkListBoxActivateCursorRowCallback (listBoxActivateCursorRowCallbackWrapper cb)
connectSignalFunPtr obj "activate-cursor-row" cb' after
-- signal ListBox::move-cursor
type ListBoxMoveCursorCallback =
MovementStep ->
Int32 ->
IO ()
noListBoxMoveCursorCallback :: Maybe ListBoxMoveCursorCallback
noListBoxMoveCursorCallback = Nothing
type ListBoxMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxMoveCursorCallback :: ListBoxMoveCursorCallbackC -> IO (FunPtr ListBoxMoveCursorCallbackC)
listBoxMoveCursorClosure :: ListBoxMoveCursorCallback -> IO Closure
listBoxMoveCursorClosure cb = newCClosure =<< mkListBoxMoveCursorCallback wrapped
where wrapped = listBoxMoveCursorCallbackWrapper cb
listBoxMoveCursorCallbackWrapper ::
ListBoxMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
listBoxMoveCursorCallbackWrapper _cb _ object p0 _ = do
let object' = (toEnum . fromIntegral) object
_cb object' p0
onListBoxMoveCursor :: (GObject a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId
onListBoxMoveCursor obj cb = liftIO $ connectListBoxMoveCursor obj cb SignalConnectBefore
afterListBoxMoveCursor :: (GObject a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId
afterListBoxMoveCursor obj cb = connectListBoxMoveCursor obj cb SignalConnectAfter
connectListBoxMoveCursor :: (GObject a, MonadIO m) =>
a -> ListBoxMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxMoveCursor obj cb after = liftIO $ do
cb' <- mkListBoxMoveCursorCallback (listBoxMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal ListBox::row-activated
type ListBoxRowActivatedCallback =
ListBoxRow ->
IO ()
noListBoxRowActivatedCallback :: Maybe ListBoxRowActivatedCallback
noListBoxRowActivatedCallback = Nothing
type ListBoxRowActivatedCallbackC =
Ptr () -> -- object
Ptr ListBoxRow ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxRowActivatedCallback :: ListBoxRowActivatedCallbackC -> IO (FunPtr ListBoxRowActivatedCallbackC)
listBoxRowActivatedClosure :: ListBoxRowActivatedCallback -> IO Closure
listBoxRowActivatedClosure cb = newCClosure =<< mkListBoxRowActivatedCallback wrapped
where wrapped = listBoxRowActivatedCallbackWrapper cb
listBoxRowActivatedCallbackWrapper ::
ListBoxRowActivatedCallback ->
Ptr () ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
listBoxRowActivatedCallbackWrapper _cb _ row _ = do
row' <- (newObject ListBoxRow) row
_cb row'
onListBoxRowActivated :: (GObject a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId
onListBoxRowActivated obj cb = liftIO $ connectListBoxRowActivated obj cb SignalConnectBefore
afterListBoxRowActivated :: (GObject a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId
afterListBoxRowActivated obj cb = connectListBoxRowActivated obj cb SignalConnectAfter
connectListBoxRowActivated :: (GObject a, MonadIO m) =>
a -> ListBoxRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxRowActivated obj cb after = liftIO $ do
cb' <- mkListBoxRowActivatedCallback (listBoxRowActivatedCallbackWrapper cb)
connectSignalFunPtr obj "row-activated" cb' after
-- signal ListBox::row-selected
type ListBoxRowSelectedCallback =
Maybe ListBoxRow ->
IO ()
noListBoxRowSelectedCallback :: Maybe ListBoxRowSelectedCallback
noListBoxRowSelectedCallback = Nothing
type ListBoxRowSelectedCallbackC =
Ptr () -> -- object
Ptr ListBoxRow ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxRowSelectedCallback :: ListBoxRowSelectedCallbackC -> IO (FunPtr ListBoxRowSelectedCallbackC)
listBoxRowSelectedClosure :: ListBoxRowSelectedCallback -> IO Closure
listBoxRowSelectedClosure cb = newCClosure =<< mkListBoxRowSelectedCallback wrapped
where wrapped = listBoxRowSelectedCallbackWrapper cb
listBoxRowSelectedCallbackWrapper ::
ListBoxRowSelectedCallback ->
Ptr () ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
listBoxRowSelectedCallbackWrapper _cb _ row _ = do
maybeRow <-
if row == nullPtr
then return Nothing
else do
row' <- (newObject ListBoxRow) row
return $ Just row'
_cb maybeRow
onListBoxRowSelected :: (GObject a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId
onListBoxRowSelected obj cb = liftIO $ connectListBoxRowSelected obj cb SignalConnectBefore
afterListBoxRowSelected :: (GObject a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId
afterListBoxRowSelected obj cb = connectListBoxRowSelected obj cb SignalConnectAfter
connectListBoxRowSelected :: (GObject a, MonadIO m) =>
a -> ListBoxRowSelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxRowSelected obj cb after = liftIO $ do
cb' <- mkListBoxRowSelectedCallback (listBoxRowSelectedCallbackWrapper cb)
connectSignalFunPtr obj "row-selected" cb' after
-- signal ListBox::select-all
type ListBoxSelectAllCallback =
IO ()
noListBoxSelectAllCallback :: Maybe ListBoxSelectAllCallback
noListBoxSelectAllCallback = Nothing
type ListBoxSelectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxSelectAllCallback :: ListBoxSelectAllCallbackC -> IO (FunPtr ListBoxSelectAllCallbackC)
listBoxSelectAllClosure :: ListBoxSelectAllCallback -> IO Closure
listBoxSelectAllClosure cb = newCClosure =<< mkListBoxSelectAllCallback wrapped
where wrapped = listBoxSelectAllCallbackWrapper cb
listBoxSelectAllCallbackWrapper ::
ListBoxSelectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxSelectAllCallbackWrapper _cb _ _ = do
_cb
onListBoxSelectAll :: (GObject a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId
onListBoxSelectAll obj cb = liftIO $ connectListBoxSelectAll obj cb SignalConnectBefore
afterListBoxSelectAll :: (GObject a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId
afterListBoxSelectAll obj cb = connectListBoxSelectAll obj cb SignalConnectAfter
connectListBoxSelectAll :: (GObject a, MonadIO m) =>
a -> ListBoxSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxSelectAll obj cb after = liftIO $ do
cb' <- mkListBoxSelectAllCallback (listBoxSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal ListBox::selected-rows-changed
type ListBoxSelectedRowsChangedCallback =
IO ()
noListBoxSelectedRowsChangedCallback :: Maybe ListBoxSelectedRowsChangedCallback
noListBoxSelectedRowsChangedCallback = Nothing
type ListBoxSelectedRowsChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxSelectedRowsChangedCallback :: ListBoxSelectedRowsChangedCallbackC -> IO (FunPtr ListBoxSelectedRowsChangedCallbackC)
listBoxSelectedRowsChangedClosure :: ListBoxSelectedRowsChangedCallback -> IO Closure
listBoxSelectedRowsChangedClosure cb = newCClosure =<< mkListBoxSelectedRowsChangedCallback wrapped
where wrapped = listBoxSelectedRowsChangedCallbackWrapper cb
listBoxSelectedRowsChangedCallbackWrapper ::
ListBoxSelectedRowsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxSelectedRowsChangedCallbackWrapper _cb _ _ = do
_cb
onListBoxSelectedRowsChanged :: (GObject a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId
onListBoxSelectedRowsChanged obj cb = liftIO $ connectListBoxSelectedRowsChanged obj cb SignalConnectBefore
afterListBoxSelectedRowsChanged :: (GObject a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId
afterListBoxSelectedRowsChanged obj cb = connectListBoxSelectedRowsChanged obj cb SignalConnectAfter
connectListBoxSelectedRowsChanged :: (GObject a, MonadIO m) =>
a -> ListBoxSelectedRowsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxSelectedRowsChanged obj cb after = liftIO $ do
cb' <- mkListBoxSelectedRowsChangedCallback (listBoxSelectedRowsChangedCallbackWrapper cb)
connectSignalFunPtr obj "selected-rows-changed" cb' after
-- signal ListBox::toggle-cursor-row
type ListBoxToggleCursorRowCallback =
IO ()
noListBoxToggleCursorRowCallback :: Maybe ListBoxToggleCursorRowCallback
noListBoxToggleCursorRowCallback = Nothing
type ListBoxToggleCursorRowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxToggleCursorRowCallback :: ListBoxToggleCursorRowCallbackC -> IO (FunPtr ListBoxToggleCursorRowCallbackC)
listBoxToggleCursorRowClosure :: ListBoxToggleCursorRowCallback -> IO Closure
listBoxToggleCursorRowClosure cb = newCClosure =<< mkListBoxToggleCursorRowCallback wrapped
where wrapped = listBoxToggleCursorRowCallbackWrapper cb
listBoxToggleCursorRowCallbackWrapper ::
ListBoxToggleCursorRowCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxToggleCursorRowCallbackWrapper _cb _ _ = do
_cb
onListBoxToggleCursorRow :: (GObject a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId
onListBoxToggleCursorRow obj cb = liftIO $ connectListBoxToggleCursorRow obj cb SignalConnectBefore
afterListBoxToggleCursorRow :: (GObject a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId
afterListBoxToggleCursorRow obj cb = connectListBoxToggleCursorRow obj cb SignalConnectAfter
connectListBoxToggleCursorRow :: (GObject a, MonadIO m) =>
a -> ListBoxToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxToggleCursorRow obj cb after = liftIO $ do
cb' <- mkListBoxToggleCursorRowCallback (listBoxToggleCursorRowCallbackWrapper cb)
connectSignalFunPtr obj "toggle-cursor-row" cb' after
-- signal ListBox::unselect-all
type ListBoxUnselectAllCallback =
IO ()
noListBoxUnselectAllCallback :: Maybe ListBoxUnselectAllCallback
noListBoxUnselectAllCallback = Nothing
type ListBoxUnselectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxUnselectAllCallback :: ListBoxUnselectAllCallbackC -> IO (FunPtr ListBoxUnselectAllCallbackC)
listBoxUnselectAllClosure :: ListBoxUnselectAllCallback -> IO Closure
listBoxUnselectAllClosure cb = newCClosure =<< mkListBoxUnselectAllCallback wrapped
where wrapped = listBoxUnselectAllCallbackWrapper cb
listBoxUnselectAllCallbackWrapper ::
ListBoxUnselectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxUnselectAllCallbackWrapper _cb _ _ = do
_cb
onListBoxUnselectAll :: (GObject a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId
onListBoxUnselectAll obj cb = liftIO $ connectListBoxUnselectAll obj cb SignalConnectBefore
afterListBoxUnselectAll :: (GObject a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId
afterListBoxUnselectAll obj cb = connectListBoxUnselectAll obj cb SignalConnectAfter
connectListBoxUnselectAll :: (GObject a, MonadIO m) =>
a -> ListBoxUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxUnselectAll obj cb after = liftIO $ do
cb' <- mkListBoxUnselectAllCallback (listBoxUnselectAllCallbackWrapper cb)
connectSignalFunPtr obj "unselect-all" cb' after
-- object ListBoxAccessible
newtype ListBoxAccessible = ListBoxAccessible (ForeignPtr ListBoxAccessible)
noListBoxAccessible :: Maybe ListBoxAccessible
noListBoxAccessible = Nothing
foreign import ccall "gtk_list_box_accessible_get_type"
c_gtk_list_box_accessible_get_type :: IO GType
type instance ParentTypes ListBoxAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject ListBoxAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_list_box_accessible_get_type
class GObject o => ListBoxAccessibleK o
instance (GObject o, IsDescendantOf ListBoxAccessible o) => ListBoxAccessibleK o
toListBoxAccessible :: ListBoxAccessibleK o => o -> IO ListBoxAccessible
toListBoxAccessible = unsafeCastTo ListBoxAccessible
-- callback ListBoxCreateWidgetFunc
listBoxCreateWidgetFuncClosure :: ListBoxCreateWidgetFunc -> IO Closure
listBoxCreateWidgetFuncClosure cb = newCClosure =<< mkListBoxCreateWidgetFunc wrapped
where wrapped = listBoxCreateWidgetFuncWrapper Nothing cb
type ListBoxCreateWidgetFuncC =
Ptr GObject.Object ->
Ptr () ->
IO (Ptr Widget)
foreign import ccall "wrapper"
mkListBoxCreateWidgetFunc :: ListBoxCreateWidgetFuncC -> IO (FunPtr ListBoxCreateWidgetFuncC)
type ListBoxCreateWidgetFunc =
GObject.Object ->
IO Widget
noListBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc
noListBoxCreateWidgetFunc = Nothing
listBoxCreateWidgetFuncWrapper ::
Maybe (Ptr (FunPtr (ListBoxCreateWidgetFuncC))) ->
ListBoxCreateWidgetFunc ->
Ptr GObject.Object ->
Ptr () ->
IO (Ptr Widget)
listBoxCreateWidgetFuncWrapper funptrptr _cb item _ = do
item' <- (newObject GObject.Object) item
result <- _cb item'
maybeReleaseFunPtr funptrptr
result' <- refObject result
return result'
-- callback ListBoxFilterFunc
listBoxFilterFuncClosure :: ListBoxFilterFunc -> IO Closure
listBoxFilterFuncClosure cb = newCClosure =<< mkListBoxFilterFunc wrapped
where wrapped = listBoxFilterFuncWrapper Nothing cb
type ListBoxFilterFuncC =
Ptr ListBoxRow ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkListBoxFilterFunc :: ListBoxFilterFuncC -> IO (FunPtr ListBoxFilterFuncC)
type ListBoxFilterFunc =
ListBoxRow ->
IO Bool
noListBoxFilterFunc :: Maybe ListBoxFilterFunc
noListBoxFilterFunc = Nothing
listBoxFilterFuncWrapper ::
Maybe (Ptr (FunPtr (ListBoxFilterFuncC))) ->
ListBoxFilterFunc ->
Ptr ListBoxRow ->
Ptr () ->
IO CInt
listBoxFilterFuncWrapper funptrptr _cb row _ = do
row' <- (newObject ListBoxRow) row
result <- _cb row'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- callback ListBoxForeachFunc
listBoxForeachFuncClosure :: ListBoxForeachFunc -> IO Closure
listBoxForeachFuncClosure cb = newCClosure =<< mkListBoxForeachFunc wrapped
where wrapped = listBoxForeachFuncWrapper Nothing cb
type ListBoxForeachFuncC =
Ptr ListBox ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkListBoxForeachFunc :: ListBoxForeachFuncC -> IO (FunPtr ListBoxForeachFuncC)
type ListBoxForeachFunc =
ListBox ->
ListBoxRow ->
IO ()
noListBoxForeachFunc :: Maybe ListBoxForeachFunc
noListBoxForeachFunc = Nothing
listBoxForeachFuncWrapper ::
Maybe (Ptr (FunPtr (ListBoxForeachFuncC))) ->
ListBoxForeachFunc ->
Ptr ListBox ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
listBoxForeachFuncWrapper funptrptr _cb box row _ = do
box' <- (newObject ListBox) box
row' <- (newObject ListBoxRow) row
_cb box' row'
maybeReleaseFunPtr funptrptr
-- object ListBoxRow
newtype ListBoxRow = ListBoxRow (ForeignPtr ListBoxRow)
noListBoxRow :: Maybe ListBoxRow
noListBoxRow = Nothing
foreign import ccall "gtk_list_box_row_get_type"
c_gtk_list_box_row_get_type :: IO GType
type instance ParentTypes ListBoxRow = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ListBoxRow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_list_box_row_get_type
class GObject o => ListBoxRowK o
instance (GObject o, IsDescendantOf ListBoxRow o) => ListBoxRowK o
toListBoxRow :: ListBoxRowK o => o -> IO ListBoxRow
toListBoxRow = unsafeCastTo ListBoxRow
-- method ListBoxRow::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ListBoxRow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_new" gtk_list_box_row_new ::
IO (Ptr ListBoxRow)
listBoxRowNew ::
(MonadIO m) =>
m ListBoxRow
listBoxRowNew = liftIO $ do
result <- gtk_list_box_row_new
checkUnexpectedReturnNULL "gtk_list_box_row_new" result
result' <- (newObject ListBoxRow) result
return result'
-- method ListBoxRow::changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_changed" gtk_list_box_row_changed ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO ()
listBoxRowChanged ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m ()
listBoxRowChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_box_row_changed _obj'
touchManagedPtr _obj
return ()
-- method ListBoxRow::get_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_get_activatable" gtk_list_box_row_get_activatable ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO CInt
listBoxRowGetActivatable ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m Bool
listBoxRowGetActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_row_get_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ListBoxRow::get_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_get_header" gtk_list_box_row_get_header ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO (Ptr Widget)
listBoxRowGetHeader ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m Widget
listBoxRowGetHeader _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_row_get_header _obj'
checkUnexpectedReturnNULL "gtk_list_box_row_get_header" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ListBoxRow::get_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_get_index" gtk_list_box_row_get_index ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO Int32
listBoxRowGetIndex ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m Int32
listBoxRowGetIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_row_get_index _obj'
touchManagedPtr _obj
return result
-- method ListBoxRow::get_selectable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_get_selectable" gtk_list_box_row_get_selectable ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO CInt
listBoxRowGetSelectable ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m Bool
listBoxRowGetSelectable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_row_get_selectable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ListBoxRow::is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_is_selected" gtk_list_box_row_is_selected ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
IO CInt
listBoxRowIsSelected ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
m Bool
listBoxRowIsSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_list_box_row_is_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ListBoxRow::set_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_set_activatable" gtk_list_box_row_set_activatable ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
CInt -> -- activatable : TBasicType TBoolean
IO ()
listBoxRowSetActivatable ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
Bool -> -- activatable
m ()
listBoxRowSetActivatable _obj activatable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let activatable' = (fromIntegral . fromEnum) activatable
gtk_list_box_row_set_activatable _obj' activatable'
touchManagedPtr _obj
return ()
-- method ListBoxRow::set_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_set_header" gtk_list_box_row_set_header ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
Ptr Widget -> -- header : TInterface "Gtk" "Widget"
IO ()
listBoxRowSetHeader ::
(MonadIO m, ListBoxRowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- header
m ()
listBoxRowSetHeader _obj header = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeHeader <- case header of
Nothing -> return nullPtr
Just jHeader -> do
let jHeader' = unsafeManagedPtrCastPtr jHeader
return jHeader'
gtk_list_box_row_set_header _obj' maybeHeader
touchManagedPtr _obj
whenJust header touchManagedPtr
return ()
-- method ListBoxRow::set_selectable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_box_row_set_selectable" gtk_list_box_row_set_selectable ::
Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow"
CInt -> -- selectable : TBasicType TBoolean
IO ()
listBoxRowSetSelectable ::
(MonadIO m, ListBoxRowK a) =>
a -> -- _obj
Bool -> -- selectable
m ()
listBoxRowSetSelectable _obj selectable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let selectable' = (fromIntegral . fromEnum) selectable
gtk_list_box_row_set_selectable _obj' selectable'
touchManagedPtr _obj
return ()
-- signal ListBoxRow::activate
type ListBoxRowActivateCallback =
IO ()
noListBoxRowActivateCallback :: Maybe ListBoxRowActivateCallback
noListBoxRowActivateCallback = Nothing
type ListBoxRowActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkListBoxRowActivateCallback :: ListBoxRowActivateCallbackC -> IO (FunPtr ListBoxRowActivateCallbackC)
listBoxRowActivateClosure :: ListBoxRowActivateCallback -> IO Closure
listBoxRowActivateClosure cb = newCClosure =<< mkListBoxRowActivateCallback wrapped
where wrapped = listBoxRowActivateCallbackWrapper cb
listBoxRowActivateCallbackWrapper ::
ListBoxRowActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
listBoxRowActivateCallbackWrapper _cb _ _ = do
_cb
onListBoxRowActivate :: (GObject a, MonadIO m) => a -> ListBoxRowActivateCallback -> m SignalHandlerId
onListBoxRowActivate obj cb = liftIO $ connectListBoxRowActivate obj cb SignalConnectBefore
afterListBoxRowActivate :: (GObject a, MonadIO m) => a -> ListBoxRowActivateCallback -> m SignalHandlerId
afterListBoxRowActivate obj cb = connectListBoxRowActivate obj cb SignalConnectAfter
connectListBoxRowActivate :: (GObject a, MonadIO m) =>
a -> ListBoxRowActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectListBoxRowActivate obj cb after = liftIO $ do
cb' <- mkListBoxRowActivateCallback (listBoxRowActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- object ListBoxRowAccessible
newtype ListBoxRowAccessible = ListBoxRowAccessible (ForeignPtr ListBoxRowAccessible)
noListBoxRowAccessible :: Maybe ListBoxRowAccessible
noListBoxRowAccessible = Nothing
foreign import ccall "gtk_list_box_row_accessible_get_type"
c_gtk_list_box_row_accessible_get_type :: IO GType
type instance ParentTypes ListBoxRowAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject ListBoxRowAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_list_box_row_accessible_get_type
class GObject o => ListBoxRowAccessibleK o
instance (GObject o, IsDescendantOf ListBoxRowAccessible o) => ListBoxRowAccessibleK o
toListBoxRowAccessible :: ListBoxRowAccessibleK o => o -> IO ListBoxRowAccessible
toListBoxRowAccessible = unsafeCastTo ListBoxRowAccessible
-- callback ListBoxSortFunc
listBoxSortFuncClosure :: ListBoxSortFunc -> IO Closure
listBoxSortFuncClosure cb = newCClosure =<< mkListBoxSortFunc wrapped
where wrapped = listBoxSortFuncWrapper Nothing cb
type ListBoxSortFuncC =
Ptr ListBoxRow ->
Ptr ListBoxRow ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkListBoxSortFunc :: ListBoxSortFuncC -> IO (FunPtr ListBoxSortFuncC)
type ListBoxSortFunc =
ListBoxRow ->
ListBoxRow ->
IO Int32
noListBoxSortFunc :: Maybe ListBoxSortFunc
noListBoxSortFunc = Nothing
listBoxSortFuncWrapper ::
Maybe (Ptr (FunPtr (ListBoxSortFuncC))) ->
ListBoxSortFunc ->
Ptr ListBoxRow ->
Ptr ListBoxRow ->
Ptr () ->
IO Int32
listBoxSortFuncWrapper funptrptr _cb row1 row2 _ = do
row1' <- (newObject ListBoxRow) row1
row2' <- (newObject ListBoxRow) row2
result <- _cb row1' row2'
maybeReleaseFunPtr funptrptr
return result
-- callback ListBoxUpdateHeaderFunc
listBoxUpdateHeaderFuncClosure :: ListBoxUpdateHeaderFunc -> IO Closure
listBoxUpdateHeaderFuncClosure cb = newCClosure =<< mkListBoxUpdateHeaderFunc wrapped
where wrapped = listBoxUpdateHeaderFuncWrapper Nothing cb
type ListBoxUpdateHeaderFuncC =
Ptr ListBoxRow ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkListBoxUpdateHeaderFunc :: ListBoxUpdateHeaderFuncC -> IO (FunPtr ListBoxUpdateHeaderFuncC)
type ListBoxUpdateHeaderFunc =
ListBoxRow ->
Maybe ListBoxRow ->
IO ()
noListBoxUpdateHeaderFunc :: Maybe ListBoxUpdateHeaderFunc
noListBoxUpdateHeaderFunc = Nothing
listBoxUpdateHeaderFuncWrapper ::
Maybe (Ptr (FunPtr (ListBoxUpdateHeaderFuncC))) ->
ListBoxUpdateHeaderFunc ->
Ptr ListBoxRow ->
Ptr ListBoxRow ->
Ptr () ->
IO ()
listBoxUpdateHeaderFuncWrapper funptrptr _cb row before _ = do
row' <- (newObject ListBoxRow) row
maybeBefore <-
if before == nullPtr
then return Nothing
else do
before' <- (newObject ListBoxRow) before
return $ Just before'
_cb row' maybeBefore
maybeReleaseFunPtr funptrptr
-- object ListStore
newtype ListStore = ListStore (ForeignPtr ListStore)
noListStore :: Maybe ListStore
noListStore = Nothing
foreign import ccall "gtk_list_store_get_type"
c_gtk_list_store_get_type :: IO GType
type instance ParentTypes ListStore = '[GObject.Object, Buildable, TreeDragDest, TreeDragSource, TreeModel, TreeSortable]
instance GObject ListStore where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_list_store_get_type
class GObject o => ListStoreK o
instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o
toListStore :: ListStoreK o => o -> IO ListStore
toListStore = unsafeCastTo ListStore
-- method ListStore::new
-- method type : Constructor
-- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ListStore"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_newv" gtk_list_store_newv ::
Int32 -> -- n_columns : TBasicType TInt32
Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType)
IO (Ptr ListStore)
listStoreNew ::
(MonadIO m) =>
[GType] -> -- types
m ListStore
listStoreNew types = liftIO $ do
let n_columns = fromIntegral $ length types
types' <- (packMapStorableArray gtypeToCGType) types
result <- gtk_list_store_newv n_columns types'
checkUnexpectedReturnNULL "gtk_list_store_newv" result
result' <- (wrapObject ListStore) result
freeMem types'
return result'
-- method ListStore::append
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_append" gtk_list_store_append ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
listStoreAppend ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
m (TreeIter)
listStoreAppend _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
gtk_list_store_append _obj' iter
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
return iter'
-- method ListStore::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_clear" gtk_list_store_clear ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
IO ()
listStoreClear ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
m ()
listStoreClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_list_store_clear _obj'
touchManagedPtr _obj
return ()
-- method ListStore::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_insert" gtk_list_store_insert ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Int32 -> -- position : TBasicType TInt32
IO ()
listStoreInsert ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
Int32 -> -- position
m (TreeIter)
listStoreInsert _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
gtk_list_store_insert _obj' iter position
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
return iter'
-- method ListStore::insert_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_insert_after" gtk_list_store_insert_after ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter"
IO ()
listStoreInsertAfter ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- sibling
m (TreeIter)
listStoreInsertAfter _obj sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrGetPtr jSibling
return jSibling'
gtk_list_store_insert_after _obj' iter maybeSibling
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust sibling touchManagedPtr
return iter'
-- method ListStore::insert_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_insert_before" gtk_list_store_insert_before ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter"
IO ()
listStoreInsertBefore ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- sibling
m (TreeIter)
listStoreInsertBefore _obj sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrGetPtr jSibling
return jSibling'
gtk_list_store_insert_before _obj' iter maybeSibling
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust sibling touchManagedPtr
return iter'
-- method ListStore::insert_with_valuesv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_insert_with_valuesv" gtk_list_store_insert_with_valuesv ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Int32 -> -- position : TBasicType TInt32
Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt32)
Ptr GValue -> -- values : TCArray False (-1) 5 (TInterface "GObject" "Value")
Int32 -> -- n_values : TBasicType TInt32
IO ()
listStoreInsertWithValuesv ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
Int32 -> -- position
[Int32] -> -- columns
[GValue] -> -- values
m (TreeIter)
listStoreInsertWithValuesv _obj position columns values = liftIO $ do
let n_values = fromIntegral $ length values
let columns_expected_length_ = fromIntegral $ length columns
when (columns_expected_length_ /= n_values) $
error "Gtk.listStoreInsertWithValuesv : length of 'columns' does not agree with that of 'values'."
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
columns' <- packStorableArray columns
let values' = map unsafeManagedPtrGetPtr values
values'' <- packBlockArray 24 values'
gtk_list_store_insert_with_valuesv _obj' iter position columns' values'' n_values
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
mapM_ touchManagedPtr values
freeMem columns'
freeMem values''
return iter'
-- method ListStore::iter_is_valid
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_iter_is_valid" gtk_list_store_iter_is_valid ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
listStoreIterIsValid ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
listStoreIterIsValid _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_list_store_iter_is_valid _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method ListStore::move_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_move_after" gtk_list_store_move_after ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter"
IO ()
listStoreMoveAfter ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Maybe (TreeIter) -> -- position
m ()
listStoreMoveAfter _obj iter position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybePosition <- case position of
Nothing -> return nullPtr
Just jPosition -> do
let jPosition' = unsafeManagedPtrGetPtr jPosition
return jPosition'
gtk_list_store_move_after _obj' iter' maybePosition
touchManagedPtr _obj
touchManagedPtr iter
whenJust position touchManagedPtr
return ()
-- method ListStore::move_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_move_before" gtk_list_store_move_before ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter"
IO ()
listStoreMoveBefore ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Maybe (TreeIter) -> -- position
m ()
listStoreMoveBefore _obj iter position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybePosition <- case position of
Nothing -> return nullPtr
Just jPosition -> do
let jPosition' = unsafeManagedPtrGetPtr jPosition
return jPosition'
gtk_list_store_move_before _obj' iter' maybePosition
touchManagedPtr _obj
touchManagedPtr iter
whenJust position touchManagedPtr
return ()
-- method ListStore::prepend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_prepend" gtk_list_store_prepend ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
listStorePrepend ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
m (TreeIter)
listStorePrepend _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
gtk_list_store_prepend _obj' iter
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
return iter'
-- method ListStore::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_remove" gtk_list_store_remove ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
listStoreRemove ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
listStoreRemove _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_list_store_remove _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method ListStore::reorder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_reorder" gtk_list_store_reorder ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt32)
IO ()
listStoreReorder ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
[Int32] -> -- new_order
m ()
listStoreReorder _obj new_order = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
new_order' <- packZeroTerminatedStorableArray new_order
gtk_list_store_reorder _obj' new_order'
touchManagedPtr _obj
freeMem new_order'
return ()
-- method ListStore::set_column_types
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_set_column_types" gtk_list_store_set_column_types ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Int32 -> -- n_columns : TBasicType TInt32
Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType)
IO ()
listStoreSetColumnTypes ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
[GType] -> -- types
m ()
listStoreSetColumnTypes _obj types = liftIO $ do
let n_columns = fromIntegral $ length types
let _obj' = unsafeManagedPtrCastPtr _obj
types' <- (packMapStorableArray gtypeToCGType) types
gtk_list_store_set_column_types _obj' n_columns types'
touchManagedPtr _obj
freeMem types'
return ()
-- method ListStore::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_set_value" gtk_list_store_set_value ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Int32 -> -- column : TBasicType TInt32
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
listStoreSetValue ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Int32 -> -- column
GValue -> -- value
m ()
listStoreSetValue _obj iter column value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let value' = unsafeManagedPtrGetPtr value
gtk_list_store_set_value _obj' iter' column value'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr value
return ()
-- method ListStore::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_set_valuesv" gtk_list_store_set_valuesv ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt32)
Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value")
Int32 -> -- n_values : TBasicType TInt32
IO ()
listStoreSet ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
[Int32] -> -- columns
[GValue] -> -- values
m ()
listStoreSet _obj iter columns values = liftIO $ do
let n_values = fromIntegral $ length values
let columns_expected_length_ = fromIntegral $ length columns
when (columns_expected_length_ /= n_values) $
error "Gtk.listStoreSet : length of 'columns' does not agree with that of 'values'."
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
columns' <- packStorableArray columns
let values' = map unsafeManagedPtrGetPtr values
values'' <- packBlockArray 24 values'
gtk_list_store_set_valuesv _obj' iter' columns' values'' n_values
touchManagedPtr _obj
touchManagedPtr iter
mapM_ touchManagedPtr values
freeMem columns'
freeMem values''
return ()
-- method ListStore::swap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_list_store_swap" gtk_list_store_swap ::
Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore"
Ptr TreeIter -> -- a : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- b : TInterface "Gtk" "TreeIter"
IO ()
listStoreSwap ::
(MonadIO m, ListStoreK a) =>
a -> -- _obj
TreeIter -> -- a
TreeIter -> -- b
m ()
listStoreSwap _obj a b = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let a' = unsafeManagedPtrGetPtr a
let b' = unsafeManagedPtrGetPtr b
gtk_list_store_swap _obj' a' b'
touchManagedPtr _obj
touchManagedPtr a
touchManagedPtr b
return ()
-- object LockButton
newtype LockButton = LockButton (ForeignPtr LockButton)
noLockButton :: Maybe LockButton
noLockButton = Nothing
foreign import ccall "gtk_lock_button_get_type"
c_gtk_lock_button_get_type :: IO GType
type instance ParentTypes LockButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject LockButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_lock_button_get_type
class GObject o => LockButtonK o
instance (GObject o, IsDescendantOf LockButton o) => LockButtonK o
toLockButton :: LockButtonK o => o -> IO LockButton
toLockButton = unsafeCastTo LockButton
-- method LockButton::new
-- method type : Constructor
-- Args : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "LockButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_lock_button_new" gtk_lock_button_new ::
Ptr Gio.Permission -> -- permission : TInterface "Gio" "Permission"
IO (Ptr LockButton)
lockButtonNew ::
(MonadIO m, Gio.PermissionK a) =>
Maybe (a) -> -- permission
m LockButton
lockButtonNew permission = liftIO $ do
maybePermission <- case permission of
Nothing -> return nullPtr
Just jPermission -> do
let jPermission' = unsafeManagedPtrCastPtr jPermission
return jPermission'
result <- gtk_lock_button_new maybePermission
checkUnexpectedReturnNULL "gtk_lock_button_new" result
result' <- (newObject LockButton) result
whenJust permission touchManagedPtr
return result'
-- method LockButton::get_permission
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Permission"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_lock_button_get_permission" gtk_lock_button_get_permission ::
Ptr LockButton -> -- _obj : TInterface "Gtk" "LockButton"
IO (Ptr Gio.Permission)
lockButtonGetPermission ::
(MonadIO m, LockButtonK a) =>
a -> -- _obj
m Gio.Permission
lockButtonGetPermission _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_lock_button_get_permission _obj'
checkUnexpectedReturnNULL "gtk_lock_button_get_permission" result
result' <- (newObject Gio.Permission) result
touchManagedPtr _obj
return result'
-- method LockButton::set_permission
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_lock_button_set_permission" gtk_lock_button_set_permission ::
Ptr LockButton -> -- _obj : TInterface "Gtk" "LockButton"
Ptr Gio.Permission -> -- permission : TInterface "Gio" "Permission"
IO ()
lockButtonSetPermission ::
(MonadIO m, LockButtonK a, Gio.PermissionK b) =>
a -> -- _obj
Maybe (b) -> -- permission
m ()
lockButtonSetPermission _obj permission = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePermission <- case permission of
Nothing -> return nullPtr
Just jPermission -> do
let jPermission' = unsafeManagedPtrCastPtr jPermission
return jPermission'
gtk_lock_button_set_permission _obj' maybePermission
touchManagedPtr _obj
whenJust permission touchManagedPtr
return ()
-- object LockButtonAccessible
newtype LockButtonAccessible = LockButtonAccessible (ForeignPtr LockButtonAccessible)
noLockButtonAccessible :: Maybe LockButtonAccessible
noLockButtonAccessible = Nothing
foreign import ccall "gtk_lock_button_accessible_get_type"
c_gtk_lock_button_accessible_get_type :: IO GType
type instance ParentTypes LockButtonAccessible = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject LockButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_lock_button_accessible_get_type
class GObject o => LockButtonAccessibleK o
instance (GObject o, IsDescendantOf LockButtonAccessible o) => LockButtonAccessibleK o
toLockButtonAccessible :: LockButtonAccessibleK o => o -> IO LockButtonAccessible
toLockButtonAccessible = unsafeCastTo LockButtonAccessible
-- object Menu
newtype Menu = Menu (ForeignPtr Menu)
noMenu :: Maybe Menu
noMenu = Nothing
foreign import ccall "gtk_menu_get_type"
c_gtk_menu_get_type :: IO GType
type instance ParentTypes Menu = '[MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Menu where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_get_type
class GObject o => MenuK o
instance (GObject o, IsDescendantOf Menu o) => MenuK o
toMenu :: MenuK o => o -> IO Menu
toMenu = unsafeCastTo Menu
-- method Menu::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Menu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_new" gtk_menu_new ::
IO (Ptr Menu)
menuNew ::
(MonadIO m) =>
m Menu
menuNew = liftIO $ do
result <- gtk_menu_new
checkUnexpectedReturnNULL "gtk_menu_new" result
result' <- (newObject Menu) result
return result'
-- method Menu::new_from_model
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Menu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_new_from_model" gtk_menu_new_from_model ::
Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel"
IO (Ptr Menu)
menuNewFromModel ::
(MonadIO m, Gio.MenuModelK a) =>
a -> -- model
m Menu
menuNewFromModel model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_menu_new_from_model model'
checkUnexpectedReturnNULL "gtk_menu_new_from_model" result
result' <- (newObject Menu) result
touchManagedPtr model
return result'
-- method Menu::attach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_attach" gtk_menu_attach ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Word32 -> -- left_attach : TBasicType TUInt32
Word32 -> -- right_attach : TBasicType TUInt32
Word32 -> -- top_attach : TBasicType TUInt32
Word32 -> -- bottom_attach : TBasicType TUInt32
IO ()
menuAttach ::
(MonadIO m, MenuK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Word32 -> -- left_attach
Word32 -> -- right_attach
Word32 -> -- top_attach
Word32 -> -- bottom_attach
m ()
menuAttach _obj child left_attach right_attach top_attach bottom_attach = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_menu_attach _obj' child' left_attach right_attach top_attach bottom_attach
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Menu::attach_to_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_attach_to_widget" gtk_menu_attach_to_widget ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget"
FunPtr MenuDetachFuncC -> -- detacher : TInterface "Gtk" "MenuDetachFunc"
IO ()
menuAttachToWidget ::
(MonadIO m, MenuK a, WidgetK b) =>
a -> -- _obj
b -> -- attach_widget
Maybe (MenuDetachFunc) -> -- detacher
m ()
menuAttachToWidget _obj attach_widget detacher = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let attach_widget' = unsafeManagedPtrCastPtr attach_widget
ptrdetacher <- callocMem :: IO (Ptr (FunPtr MenuDetachFuncC))
maybeDetacher <- case detacher of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jDetacher -> do
jDetacher' <- mkMenuDetachFunc (menuDetachFuncWrapper (Just ptrdetacher) jDetacher)
poke ptrdetacher jDetacher'
return jDetacher'
gtk_menu_attach_to_widget _obj' attach_widget' maybeDetacher
touchManagedPtr _obj
touchManagedPtr attach_widget
return ()
-- method Menu::detach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_detach" gtk_menu_detach ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO ()
menuDetach ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m ()
menuDetach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_detach _obj'
touchManagedPtr _obj
return ()
-- method Menu::get_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_accel_group" gtk_menu_get_accel_group ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO (Ptr AccelGroup)
menuGetAccelGroup ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m AccelGroup
menuGetAccelGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_accel_group _obj'
checkUnexpectedReturnNULL "gtk_menu_get_accel_group" result
result' <- (newObject AccelGroup) result
touchManagedPtr _obj
return result'
-- method Menu::get_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_accel_path" gtk_menu_get_accel_path ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO CString
menuGetAccelPath ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m T.Text
menuGetAccelPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_accel_path _obj'
checkUnexpectedReturnNULL "gtk_menu_get_accel_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Menu::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_active" gtk_menu_get_active ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO (Ptr Widget)
menuGetActive ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m Widget
menuGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_active _obj'
checkUnexpectedReturnNULL "gtk_menu_get_active" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Menu::get_attach_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_attach_widget" gtk_menu_get_attach_widget ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO (Ptr Widget)
menuGetAttachWidget ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m Widget
menuGetAttachWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_attach_widget _obj'
checkUnexpectedReturnNULL "gtk_menu_get_attach_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Menu::get_monitor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_monitor" gtk_menu_get_monitor ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO Int32
menuGetMonitor ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m Int32
menuGetMonitor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_monitor _obj'
touchManagedPtr _obj
return result
-- method Menu::get_reserve_toggle_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_reserve_toggle_size" gtk_menu_get_reserve_toggle_size ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO CInt
menuGetReserveToggleSize ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m Bool
menuGetReserveToggleSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_reserve_toggle_size _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Menu::get_tearoff_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_tearoff_state" gtk_menu_get_tearoff_state ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO CInt
{-# DEPRECATED menuGetTearoffState ["(Since version 3.10)"]#-}
menuGetTearoffState ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m Bool
menuGetTearoffState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_tearoff_state _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Menu::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_title" gtk_menu_get_title ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO CString
{-# DEPRECATED menuGetTitle ["(Since version 3.10)"]#-}
menuGetTitle ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m T.Text
menuGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_get_title _obj'
checkUnexpectedReturnNULL "gtk_menu_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Menu::popdown
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_popdown" gtk_menu_popdown ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO ()
menuPopdown ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m ()
menuPopdown _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_popdown _obj'
touchManagedPtr _obj
return ()
-- method Menu::popup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_popup" gtk_menu_popup ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget"
Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget"
FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc"
Ptr () -> -- data : TBasicType TVoid
Word32 -> -- button : TBasicType TUInt32
Word32 -> -- activate_time : TBasicType TUInt32
IO ()
menuPopup ::
(MonadIO m, MenuK a, WidgetK b, WidgetK c) =>
a -> -- _obj
Maybe (b) -> -- parent_menu_shell
Maybe (c) -> -- parent_menu_item
Maybe (MenuPositionFunc) -> -- func
Word32 -> -- button
Word32 -> -- activate_time
m ()
menuPopup _obj parent_menu_shell parent_menu_item func button activate_time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeParent_menu_shell <- case parent_menu_shell of
Nothing -> return nullPtr
Just jParent_menu_shell -> do
let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell
return jParent_menu_shell'
maybeParent_menu_item <- case parent_menu_item of
Nothing -> return nullPtr
Just jParent_menu_item -> do
let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item
return jParent_menu_item'
ptrfunc <- callocMem :: IO (Ptr (FunPtr MenuPositionFuncC))
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkMenuPositionFunc (menuPositionFuncWrapper (Just ptrfunc) jFunc)
poke ptrfunc jFunc'
return jFunc'
let data_ = nullPtr
gtk_menu_popup _obj' maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ button activate_time
touchManagedPtr _obj
whenJust parent_menu_shell touchManagedPtr
whenJust parent_menu_item touchManagedPtr
return ()
-- method Menu::popup_for_device
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_popup_for_device" gtk_menu_popup_for_device ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget"
Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget"
FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
Word32 -> -- button : TBasicType TUInt32
Word32 -> -- activate_time : TBasicType TUInt32
IO ()
menuPopupForDevice ::
(MonadIO m, MenuK a, Gdk.DeviceK b, WidgetK c, WidgetK d) =>
a -> -- _obj
Maybe (b) -> -- device
Maybe (c) -> -- parent_menu_shell
Maybe (d) -> -- parent_menu_item
Maybe (MenuPositionFunc) -> -- func
Word32 -> -- button
Word32 -> -- activate_time
m ()
menuPopupForDevice _obj device parent_menu_shell parent_menu_item func button activate_time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeDevice <- case device of
Nothing -> return nullPtr
Just jDevice -> do
let jDevice' = unsafeManagedPtrCastPtr jDevice
return jDevice'
maybeParent_menu_shell <- case parent_menu_shell of
Nothing -> return nullPtr
Just jParent_menu_shell -> do
let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell
return jParent_menu_shell'
maybeParent_menu_item <- case parent_menu_item of
Nothing -> return nullPtr
Just jParent_menu_item -> do
let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item
return jParent_menu_item'
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkMenuPositionFunc (menuPositionFuncWrapper Nothing jFunc)
return jFunc'
let data_ = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_menu_popup_for_device _obj' maybeDevice maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ destroy button activate_time
touchManagedPtr _obj
whenJust device touchManagedPtr
whenJust parent_menu_shell touchManagedPtr
whenJust parent_menu_item touchManagedPtr
return ()
-- method Menu::reorder_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_reorder_child" gtk_menu_reorder_child ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
menuReorderChild ::
(MonadIO m, MenuK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
menuReorderChild _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_menu_reorder_child _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Menu::reposition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_reposition" gtk_menu_reposition ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
IO ()
menuReposition ::
(MonadIO m, MenuK a) =>
a -> -- _obj
m ()
menuReposition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_reposition _obj'
touchManagedPtr _obj
return ()
-- method Menu::set_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_accel_group" gtk_menu_set_accel_group ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
menuSetAccelGroup ::
(MonadIO m, MenuK a, AccelGroupK b) =>
a -> -- _obj
Maybe (b) -> -- accel_group
m ()
menuSetAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
gtk_menu_set_accel_group _obj' maybeAccel_group
touchManagedPtr _obj
whenJust accel_group touchManagedPtr
return ()
-- method Menu::set_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_accel_path" gtk_menu_set_accel_path ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
CString -> -- accel_path : TBasicType TUTF8
IO ()
menuSetAccelPath ::
(MonadIO m, MenuK a) =>
a -> -- _obj
Maybe (T.Text) -> -- accel_path
m ()
menuSetAccelPath _obj accel_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_path <- case accel_path of
Nothing -> return nullPtr
Just jAccel_path -> do
jAccel_path' <- textToCString jAccel_path
return jAccel_path'
gtk_menu_set_accel_path _obj' maybeAccel_path
touchManagedPtr _obj
freeMem maybeAccel_path
return ()
-- method Menu::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_active" gtk_menu_set_active ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Word32 -> -- index : TBasicType TUInt32
IO ()
menuSetActive ::
(MonadIO m, MenuK a) =>
a -> -- _obj
Word32 -> -- index
m ()
menuSetActive _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_set_active _obj' index
touchManagedPtr _obj
return ()
-- method Menu::set_monitor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_monitor" gtk_menu_set_monitor ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Int32 -> -- monitor_num : TBasicType TInt32
IO ()
menuSetMonitor ::
(MonadIO m, MenuK a) =>
a -> -- _obj
Int32 -> -- monitor_num
m ()
menuSetMonitor _obj monitor_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_set_monitor _obj' monitor_num
touchManagedPtr _obj
return ()
-- method Menu::set_reserve_toggle_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_reserve_toggle_size" gtk_menu_set_reserve_toggle_size ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
CInt -> -- reserve_toggle_size : TBasicType TBoolean
IO ()
menuSetReserveToggleSize ::
(MonadIO m, MenuK a) =>
a -> -- _obj
Bool -> -- reserve_toggle_size
m ()
menuSetReserveToggleSize _obj reserve_toggle_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reserve_toggle_size' = (fromIntegral . fromEnum) reserve_toggle_size
gtk_menu_set_reserve_toggle_size _obj' reserve_toggle_size'
touchManagedPtr _obj
return ()
-- method Menu::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_screen" gtk_menu_set_screen ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
menuSetScreen ::
(MonadIO m, MenuK a, Gdk.ScreenK b) =>
a -> -- _obj
Maybe (b) -> -- screen
m ()
menuSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeScreen <- case screen of
Nothing -> return nullPtr
Just jScreen -> do
let jScreen' = unsafeManagedPtrCastPtr jScreen
return jScreen'
gtk_menu_set_screen _obj' maybeScreen
touchManagedPtr _obj
whenJust screen touchManagedPtr
return ()
-- method Menu::set_tearoff_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_tearoff_state" gtk_menu_set_tearoff_state ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
CInt -> -- torn_off : TBasicType TBoolean
IO ()
{-# DEPRECATED menuSetTearoffState ["(Since version 3.10)"]#-}
menuSetTearoffState ::
(MonadIO m, MenuK a) =>
a -> -- _obj
Bool -> -- torn_off
m ()
menuSetTearoffState _obj torn_off = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let torn_off' = (fromIntegral . fromEnum) torn_off
gtk_menu_set_tearoff_state _obj' torn_off'
touchManagedPtr _obj
return ()
-- method Menu::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_set_title" gtk_menu_set_title ::
Ptr Menu -> -- _obj : TInterface "Gtk" "Menu"
CString -> -- title : TBasicType TUTF8
IO ()
{-# DEPRECATED menuSetTitle ["(Since version 3.10)"]#-}
menuSetTitle ::
(MonadIO m, MenuK a) =>
a -> -- _obj
T.Text -> -- title
m ()
menuSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_menu_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method Menu::get_for_attach_widget
-- method type : MemberFunction
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_get_for_attach_widget" gtk_menu_get_for_attach_widget ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr (GList (Ptr Widget)))
menuGetForAttachWidget ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m [Widget]
menuGetForAttachWidget widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_menu_get_for_attach_widget widget'
checkUnexpectedReturnNULL "gtk_menu_get_for_attach_widget" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
touchManagedPtr widget
return result''
-- signal Menu::move-scroll
type MenuMoveScrollCallback =
ScrollType ->
IO ()
noMenuMoveScrollCallback :: Maybe MenuMoveScrollCallback
noMenuMoveScrollCallback = Nothing
type MenuMoveScrollCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuMoveScrollCallback :: MenuMoveScrollCallbackC -> IO (FunPtr MenuMoveScrollCallbackC)
menuMoveScrollClosure :: MenuMoveScrollCallback -> IO Closure
menuMoveScrollClosure cb = newCClosure =<< mkMenuMoveScrollCallback wrapped
where wrapped = menuMoveScrollCallbackWrapper cb
menuMoveScrollCallbackWrapper ::
MenuMoveScrollCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
menuMoveScrollCallbackWrapper _cb _ scroll_type _ = do
let scroll_type' = (toEnum . fromIntegral) scroll_type
_cb scroll_type'
onMenuMoveScroll :: (GObject a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId
onMenuMoveScroll obj cb = liftIO $ connectMenuMoveScroll obj cb SignalConnectBefore
afterMenuMoveScroll :: (GObject a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId
afterMenuMoveScroll obj cb = connectMenuMoveScroll obj cb SignalConnectAfter
connectMenuMoveScroll :: (GObject a, MonadIO m) =>
a -> MenuMoveScrollCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuMoveScroll obj cb after = liftIO $ do
cb' <- mkMenuMoveScrollCallback (menuMoveScrollCallbackWrapper cb)
connectSignalFunPtr obj "move-scroll" cb' after
-- object MenuAccessible
newtype MenuAccessible = MenuAccessible (ForeignPtr MenuAccessible)
noMenuAccessible :: Maybe MenuAccessible
noMenuAccessible = Nothing
foreign import ccall "gtk_menu_accessible_get_type"
c_gtk_menu_accessible_get_type :: IO GType
type instance ParentTypes MenuAccessible = '[MenuShellAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject MenuAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_menu_accessible_get_type
class GObject o => MenuAccessibleK o
instance (GObject o, IsDescendantOf MenuAccessible o) => MenuAccessibleK o
toMenuAccessible :: MenuAccessibleK o => o -> IO MenuAccessible
toMenuAccessible = unsafeCastTo MenuAccessible
-- object MenuBar
newtype MenuBar = MenuBar (ForeignPtr MenuBar)
noMenuBar :: Maybe MenuBar
noMenuBar = Nothing
foreign import ccall "gtk_menu_bar_get_type"
c_gtk_menu_bar_get_type :: IO GType
type instance ParentTypes MenuBar = '[MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject MenuBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_bar_get_type
class GObject o => MenuBarK o
instance (GObject o, IsDescendantOf MenuBar o) => MenuBarK o
toMenuBar :: MenuBarK o => o -> IO MenuBar
toMenuBar = unsafeCastTo MenuBar
-- method MenuBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "MenuBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_new" gtk_menu_bar_new ::
IO (Ptr MenuBar)
menuBarNew ::
(MonadIO m) =>
m MenuBar
menuBarNew = liftIO $ do
result <- gtk_menu_bar_new
checkUnexpectedReturnNULL "gtk_menu_bar_new" result
result' <- (newObject MenuBar) result
return result'
-- method MenuBar::new_from_model
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MenuBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_new_from_model" gtk_menu_bar_new_from_model ::
Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel"
IO (Ptr MenuBar)
menuBarNewFromModel ::
(MonadIO m, Gio.MenuModelK a) =>
a -> -- model
m MenuBar
menuBarNewFromModel model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_menu_bar_new_from_model model'
checkUnexpectedReturnNULL "gtk_menu_bar_new_from_model" result
result' <- (newObject MenuBar) result
touchManagedPtr model
return result'
-- method MenuBar::get_child_pack_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PackDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_get_child_pack_direction" gtk_menu_bar_get_child_pack_direction ::
Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar"
IO CUInt
menuBarGetChildPackDirection ::
(MonadIO m, MenuBarK a) =>
a -> -- _obj
m PackDirection
menuBarGetChildPackDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_bar_get_child_pack_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method MenuBar::get_pack_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PackDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_get_pack_direction" gtk_menu_bar_get_pack_direction ::
Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar"
IO CUInt
menuBarGetPackDirection ::
(MonadIO m, MenuBarK a) =>
a -> -- _obj
m PackDirection
menuBarGetPackDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_bar_get_pack_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method MenuBar::set_child_pack_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_set_child_pack_direction" gtk_menu_bar_set_child_pack_direction ::
Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar"
CUInt -> -- child_pack_dir : TInterface "Gtk" "PackDirection"
IO ()
menuBarSetChildPackDirection ::
(MonadIO m, MenuBarK a) =>
a -> -- _obj
PackDirection -> -- child_pack_dir
m ()
menuBarSetChildPackDirection _obj child_pack_dir = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child_pack_dir' = (fromIntegral . fromEnum) child_pack_dir
gtk_menu_bar_set_child_pack_direction _obj' child_pack_dir'
touchManagedPtr _obj
return ()
-- method MenuBar::set_pack_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_bar_set_pack_direction" gtk_menu_bar_set_pack_direction ::
Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar"
CUInt -> -- pack_dir : TInterface "Gtk" "PackDirection"
IO ()
menuBarSetPackDirection ::
(MonadIO m, MenuBarK a) =>
a -> -- _obj
PackDirection -> -- pack_dir
m ()
menuBarSetPackDirection _obj pack_dir = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pack_dir' = (fromIntegral . fromEnum) pack_dir
gtk_menu_bar_set_pack_direction _obj' pack_dir'
touchManagedPtr _obj
return ()
-- object MenuButton
newtype MenuButton = MenuButton (ForeignPtr MenuButton)
noMenuButton :: Maybe MenuButton
noMenuButton = Nothing
foreign import ccall "gtk_menu_button_get_type"
c_gtk_menu_button_get_type :: IO GType
type instance ParentTypes MenuButton = '[ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject MenuButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_button_get_type
class GObject o => MenuButtonK o
instance (GObject o, IsDescendantOf MenuButton o) => MenuButtonK o
toMenuButton :: MenuButtonK o => o -> IO MenuButton
toMenuButton = unsafeCastTo MenuButton
-- method MenuButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "MenuButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_new" gtk_menu_button_new ::
IO (Ptr MenuButton)
menuButtonNew ::
(MonadIO m) =>
m MenuButton
menuButtonNew = liftIO $ do
result <- gtk_menu_button_new
checkUnexpectedReturnNULL "gtk_menu_button_new" result
result' <- (newObject MenuButton) result
return result'
-- method MenuButton::get_align_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_align_widget" gtk_menu_button_get_align_widget ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO (Ptr Widget)
menuButtonGetAlignWidget ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m Widget
menuButtonGetAlignWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_align_widget _obj'
checkUnexpectedReturnNULL "gtk_menu_button_get_align_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MenuButton::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ArrowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_direction" gtk_menu_button_get_direction ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO CUInt
menuButtonGetDirection ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m ArrowType
menuButtonGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method MenuButton::get_menu_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "MenuModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_menu_model" gtk_menu_button_get_menu_model ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO (Ptr Gio.MenuModel)
menuButtonGetMenuModel ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m Gio.MenuModel
menuButtonGetMenuModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_menu_model _obj'
checkUnexpectedReturnNULL "gtk_menu_button_get_menu_model" result
result' <- (newObject Gio.MenuModel) result
touchManagedPtr _obj
return result'
-- method MenuButton::get_popover
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Popover"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_popover" gtk_menu_button_get_popover ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO (Ptr Popover)
menuButtonGetPopover ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m Popover
menuButtonGetPopover _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_popover _obj'
checkUnexpectedReturnNULL "gtk_menu_button_get_popover" result
result' <- (newObject Popover) result
touchManagedPtr _obj
return result'
-- method MenuButton::get_popup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Menu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_popup" gtk_menu_button_get_popup ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO (Ptr Menu)
menuButtonGetPopup ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m Menu
menuButtonGetPopup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_popup _obj'
checkUnexpectedReturnNULL "gtk_menu_button_get_popup" result
result' <- (newObject Menu) result
touchManagedPtr _obj
return result'
-- method MenuButton::get_use_popover
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_get_use_popover" gtk_menu_button_get_use_popover ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
IO CInt
menuButtonGetUsePopover ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
m Bool
menuButtonGetUsePopover _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_button_get_use_popover _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MenuButton::set_align_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_align_widget" gtk_menu_button_set_align_widget ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
Ptr Widget -> -- align_widget : TInterface "Gtk" "Widget"
IO ()
menuButtonSetAlignWidget ::
(MonadIO m, MenuButtonK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- align_widget
m ()
menuButtonSetAlignWidget _obj align_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAlign_widget <- case align_widget of
Nothing -> return nullPtr
Just jAlign_widget -> do
let jAlign_widget' = unsafeManagedPtrCastPtr jAlign_widget
return jAlign_widget'
gtk_menu_button_set_align_widget _obj' maybeAlign_widget
touchManagedPtr _obj
whenJust align_widget touchManagedPtr
return ()
-- method MenuButton::set_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_direction" gtk_menu_button_set_direction ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
CUInt -> -- direction : TInterface "Gtk" "ArrowType"
IO ()
menuButtonSetDirection ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
ArrowType -> -- direction
m ()
menuButtonSetDirection _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
gtk_menu_button_set_direction _obj' direction'
touchManagedPtr _obj
return ()
-- method MenuButton::set_menu_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_menu_model" gtk_menu_button_set_menu_model ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
Ptr Gio.MenuModel -> -- menu_model : TInterface "Gio" "MenuModel"
IO ()
menuButtonSetMenuModel ::
(MonadIO m, MenuButtonK a, Gio.MenuModelK b) =>
a -> -- _obj
Maybe (b) -> -- menu_model
m ()
menuButtonSetMenuModel _obj menu_model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMenu_model <- case menu_model of
Nothing -> return nullPtr
Just jMenu_model -> do
let jMenu_model' = unsafeManagedPtrCastPtr jMenu_model
return jMenu_model'
gtk_menu_button_set_menu_model _obj' maybeMenu_model
touchManagedPtr _obj
whenJust menu_model touchManagedPtr
return ()
-- method MenuButton::set_popover
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_popover" gtk_menu_button_set_popover ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
Ptr Widget -> -- popover : TInterface "Gtk" "Widget"
IO ()
menuButtonSetPopover ::
(MonadIO m, MenuButtonK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- popover
m ()
menuButtonSetPopover _obj popover = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePopover <- case popover of
Nothing -> return nullPtr
Just jPopover -> do
let jPopover' = unsafeManagedPtrCastPtr jPopover
return jPopover'
gtk_menu_button_set_popover _obj' maybePopover
touchManagedPtr _obj
whenJust popover touchManagedPtr
return ()
-- method MenuButton::set_popup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_popup" gtk_menu_button_set_popup ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
Ptr Widget -> -- menu : TInterface "Gtk" "Widget"
IO ()
menuButtonSetPopup ::
(MonadIO m, MenuButtonK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- menu
m ()
menuButtonSetPopup _obj menu = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMenu <- case menu of
Nothing -> return nullPtr
Just jMenu -> do
let jMenu' = unsafeManagedPtrCastPtr jMenu
return jMenu'
gtk_menu_button_set_popup _obj' maybeMenu
touchManagedPtr _obj
whenJust menu touchManagedPtr
return ()
-- method MenuButton::set_use_popover
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_button_set_use_popover" gtk_menu_button_set_use_popover ::
Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton"
CInt -> -- use_popover : TBasicType TBoolean
IO ()
menuButtonSetUsePopover ::
(MonadIO m, MenuButtonK a) =>
a -> -- _obj
Bool -> -- use_popover
m ()
menuButtonSetUsePopover _obj use_popover = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_popover' = (fromIntegral . fromEnum) use_popover
gtk_menu_button_set_use_popover _obj' use_popover'
touchManagedPtr _obj
return ()
-- object MenuButtonAccessible
newtype MenuButtonAccessible = MenuButtonAccessible (ForeignPtr MenuButtonAccessible)
noMenuButtonAccessible :: Maybe MenuButtonAccessible
noMenuButtonAccessible = Nothing
foreign import ccall "gtk_menu_button_accessible_get_type"
c_gtk_menu_button_accessible_get_type :: IO GType
type instance ParentTypes MenuButtonAccessible = '[ToggleButtonAccessible, ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject MenuButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_menu_button_accessible_get_type
class GObject o => MenuButtonAccessibleK o
instance (GObject o, IsDescendantOf MenuButtonAccessible o) => MenuButtonAccessibleK o
toMenuButtonAccessible :: MenuButtonAccessibleK o => o -> IO MenuButtonAccessible
toMenuButtonAccessible = unsafeCastTo MenuButtonAccessible
-- callback MenuDetachFunc
menuDetachFuncClosure :: MenuDetachFunc -> IO Closure
menuDetachFuncClosure cb = newCClosure =<< mkMenuDetachFunc wrapped
where wrapped = menuDetachFuncWrapper Nothing cb
type MenuDetachFuncC =
Ptr Widget ->
Ptr Menu ->
IO ()
foreign import ccall "wrapper"
mkMenuDetachFunc :: MenuDetachFuncC -> IO (FunPtr MenuDetachFuncC)
type MenuDetachFunc =
Widget ->
Menu ->
IO ()
noMenuDetachFunc :: Maybe MenuDetachFunc
noMenuDetachFunc = Nothing
menuDetachFuncWrapper ::
Maybe (Ptr (FunPtr (MenuDetachFuncC))) ->
MenuDetachFunc ->
Ptr Widget ->
Ptr Menu ->
IO ()
menuDetachFuncWrapper funptrptr _cb attach_widget menu = do
attach_widget' <- (newObject Widget) attach_widget
menu' <- (newObject Menu) menu
_cb attach_widget' menu'
maybeReleaseFunPtr funptrptr
-- Enum MenuDirectionType
data MenuDirectionType =
MenuDirectionTypeParent
| MenuDirectionTypeChild
| MenuDirectionTypeNext
| MenuDirectionTypePrev
| AnotherMenuDirectionType Int
deriving (Show, Eq)
instance Enum MenuDirectionType where
fromEnum MenuDirectionTypeParent = 0
fromEnum MenuDirectionTypeChild = 1
fromEnum MenuDirectionTypeNext = 2
fromEnum MenuDirectionTypePrev = 3
fromEnum (AnotherMenuDirectionType k) = k
toEnum 0 = MenuDirectionTypeParent
toEnum 1 = MenuDirectionTypeChild
toEnum 2 = MenuDirectionTypeNext
toEnum 3 = MenuDirectionTypePrev
toEnum k = AnotherMenuDirectionType k
foreign import ccall "gtk_menu_direction_type_get_type" c_gtk_menu_direction_type_get_type ::
IO GType
instance BoxedEnum MenuDirectionType where
boxedEnumType _ = c_gtk_menu_direction_type_get_type
-- object MenuItem
newtype MenuItem = MenuItem (ForeignPtr MenuItem)
noMenuItem :: Maybe MenuItem
noMenuItem = Nothing
foreign import ccall "gtk_menu_item_get_type"
c_gtk_menu_item_get_type :: IO GType
type instance ParentTypes MenuItem = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject MenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_item_get_type
class GObject o => MenuItemK o
instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o
toMenuItem :: MenuItemK o => o -> IO MenuItem
toMenuItem = unsafeCastTo MenuItem
-- method MenuItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "MenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_new" gtk_menu_item_new ::
IO (Ptr MenuItem)
menuItemNew ::
(MonadIO m) =>
m MenuItem
menuItemNew = liftIO $ do
result <- gtk_menu_item_new
checkUnexpectedReturnNULL "gtk_menu_item_new" result
result' <- (newObject MenuItem) result
return result'
-- method MenuItem::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_new_with_label" gtk_menu_item_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr MenuItem)
menuItemNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m MenuItem
menuItemNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_menu_item_new_with_label label'
checkUnexpectedReturnNULL "gtk_menu_item_new_with_label" result
result' <- (newObject MenuItem) result
freeMem label'
return result'
-- method MenuItem::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_new_with_mnemonic" gtk_menu_item_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr MenuItem)
menuItemNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m MenuItem
menuItemNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_menu_item_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_menu_item_new_with_mnemonic" result
result' <- (newObject MenuItem) result
freeMem label'
return result'
-- method MenuItem::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_activate" gtk_menu_item_activate ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO ()
menuItemActivate ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m ()
menuItemActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_item_activate _obj'
touchManagedPtr _obj
return ()
-- method MenuItem::deselect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_deselect" gtk_menu_item_deselect ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO ()
menuItemDeselect ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m ()
menuItemDeselect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_item_deselect _obj'
touchManagedPtr _obj
return ()
-- method MenuItem::get_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_accel_path" gtk_menu_item_get_accel_path ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO CString
menuItemGetAccelPath ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m T.Text
menuItemGetAccelPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_accel_path _obj'
checkUnexpectedReturnNULL "gtk_menu_item_get_accel_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method MenuItem::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_label" gtk_menu_item_get_label ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO CString
menuItemGetLabel ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m T.Text
menuItemGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_label _obj'
checkUnexpectedReturnNULL "gtk_menu_item_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method MenuItem::get_reserve_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_reserve_indicator" gtk_menu_item_get_reserve_indicator ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO CInt
menuItemGetReserveIndicator ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m Bool
menuItemGetReserveIndicator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_reserve_indicator _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MenuItem::get_right_justified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_right_justified" gtk_menu_item_get_right_justified ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO CInt
{-# DEPRECATED menuItemGetRightJustified ["(Since version 3.2)","See gtk_menu_item_set_right_justified()"]#-}
menuItemGetRightJustified ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m Bool
menuItemGetRightJustified _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_right_justified _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MenuItem::get_submenu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_submenu" gtk_menu_item_get_submenu ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO (Ptr Widget)
menuItemGetSubmenu ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m Widget
menuItemGetSubmenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_submenu _obj'
checkUnexpectedReturnNULL "gtk_menu_item_get_submenu" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MenuItem::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_get_use_underline" gtk_menu_item_get_use_underline ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO CInt
menuItemGetUseUnderline ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m Bool
menuItemGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_item_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MenuItem::select
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_select" gtk_menu_item_select ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
IO ()
menuItemSelect ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
m ()
menuItemSelect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_item_select _obj'
touchManagedPtr _obj
return ()
-- method MenuItem::set_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_accel_path" gtk_menu_item_set_accel_path ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
CString -> -- accel_path : TBasicType TUTF8
IO ()
menuItemSetAccelPath ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Maybe (T.Text) -> -- accel_path
m ()
menuItemSetAccelPath _obj accel_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_path <- case accel_path of
Nothing -> return nullPtr
Just jAccel_path -> do
jAccel_path' <- textToCString jAccel_path
return jAccel_path'
gtk_menu_item_set_accel_path _obj' maybeAccel_path
touchManagedPtr _obj
freeMem maybeAccel_path
return ()
-- method MenuItem::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_label" gtk_menu_item_set_label ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
CString -> -- label : TBasicType TUTF8
IO ()
menuItemSetLabel ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
T.Text -> -- label
m ()
menuItemSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
label' <- textToCString label
gtk_menu_item_set_label _obj' label'
touchManagedPtr _obj
freeMem label'
return ()
-- method MenuItem::set_reserve_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_reserve_indicator" gtk_menu_item_set_reserve_indicator ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
CInt -> -- reserve : TBasicType TBoolean
IO ()
menuItemSetReserveIndicator ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Bool -> -- reserve
m ()
menuItemSetReserveIndicator _obj reserve = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reserve' = (fromIntegral . fromEnum) reserve
gtk_menu_item_set_reserve_indicator _obj' reserve'
touchManagedPtr _obj
return ()
-- method MenuItem::set_right_justified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_right_justified" gtk_menu_item_set_right_justified ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
CInt -> -- right_justified : TBasicType TBoolean
IO ()
{-# DEPRECATED menuItemSetRightJustified ["(Since version 3.2)","If you insist on using it, use"," gtk_widget_set_hexpand() and gtk_widget_set_halign()."]#-}
menuItemSetRightJustified ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Bool -> -- right_justified
m ()
menuItemSetRightJustified _obj right_justified = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let right_justified' = (fromIntegral . fromEnum) right_justified
gtk_menu_item_set_right_justified _obj' right_justified'
touchManagedPtr _obj
return ()
-- method MenuItem::set_submenu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_submenu" gtk_menu_item_set_submenu ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
Ptr Menu -> -- submenu : TInterface "Gtk" "Menu"
IO ()
menuItemSetSubmenu ::
(MonadIO m, MenuItemK a, MenuK b) =>
a -> -- _obj
Maybe (b) -> -- submenu
m ()
menuItemSetSubmenu _obj submenu = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSubmenu <- case submenu of
Nothing -> return nullPtr
Just jSubmenu -> do
let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu
return jSubmenu'
gtk_menu_item_set_submenu _obj' maybeSubmenu
touchManagedPtr _obj
whenJust submenu touchManagedPtr
return ()
-- method MenuItem::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_set_use_underline" gtk_menu_item_set_use_underline ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
CInt -> -- setting : TBasicType TBoolean
IO ()
menuItemSetUseUnderline ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Bool -> -- setting
m ()
menuItemSetUseUnderline _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_menu_item_set_use_underline _obj' setting'
touchManagedPtr _obj
return ()
-- method MenuItem::toggle_size_allocate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_toggle_size_allocate" gtk_menu_item_toggle_size_allocate ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
Int32 -> -- allocation : TBasicType TInt32
IO ()
menuItemToggleSizeAllocate ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Int32 -> -- allocation
m ()
menuItemToggleSizeAllocate _obj allocation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_item_toggle_size_allocate _obj' allocation
touchManagedPtr _obj
return ()
-- method MenuItem::toggle_size_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_item_toggle_size_request" gtk_menu_item_toggle_size_request ::
Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem"
Ptr Int32 -> -- requisition : TBasicType TInt32
IO ()
menuItemToggleSizeRequest ::
(MonadIO m, MenuItemK a) =>
a -> -- _obj
Int32 -> -- requisition
m (Int32)
menuItemToggleSizeRequest _obj requisition = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition' <- allocMem :: IO (Ptr Int32)
poke requisition' requisition
gtk_menu_item_toggle_size_request _obj' requisition'
requisition'' <- peek requisition'
touchManagedPtr _obj
freeMem requisition'
return requisition''
-- signal MenuItem::activate
type MenuItemActivateCallback =
IO ()
noMenuItemActivateCallback :: Maybe MenuItemActivateCallback
noMenuItemActivateCallback = Nothing
type MenuItemActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemActivateCallback :: MenuItemActivateCallbackC -> IO (FunPtr MenuItemActivateCallbackC)
menuItemActivateClosure :: MenuItemActivateCallback -> IO Closure
menuItemActivateClosure cb = newCClosure =<< mkMenuItemActivateCallback wrapped
where wrapped = menuItemActivateCallbackWrapper cb
menuItemActivateCallbackWrapper ::
MenuItemActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
menuItemActivateCallbackWrapper _cb _ _ = do
_cb
onMenuItemActivate :: (GObject a, MonadIO m) => a -> MenuItemActivateCallback -> m SignalHandlerId
onMenuItemActivate obj cb = liftIO $ connectMenuItemActivate obj cb SignalConnectBefore
afterMenuItemActivate :: (GObject a, MonadIO m) => a -> MenuItemActivateCallback -> m SignalHandlerId
afterMenuItemActivate obj cb = connectMenuItemActivate obj cb SignalConnectAfter
connectMenuItemActivate :: (GObject a, MonadIO m) =>
a -> MenuItemActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemActivate obj cb after = liftIO $ do
cb' <- mkMenuItemActivateCallback (menuItemActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal MenuItem::activate-item
type MenuItemActivateItemCallback =
IO ()
noMenuItemActivateItemCallback :: Maybe MenuItemActivateItemCallback
noMenuItemActivateItemCallback = Nothing
type MenuItemActivateItemCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemActivateItemCallback :: MenuItemActivateItemCallbackC -> IO (FunPtr MenuItemActivateItemCallbackC)
menuItemActivateItemClosure :: MenuItemActivateItemCallback -> IO Closure
menuItemActivateItemClosure cb = newCClosure =<< mkMenuItemActivateItemCallback wrapped
where wrapped = menuItemActivateItemCallbackWrapper cb
menuItemActivateItemCallbackWrapper ::
MenuItemActivateItemCallback ->
Ptr () ->
Ptr () ->
IO ()
menuItemActivateItemCallbackWrapper _cb _ _ = do
_cb
onMenuItemActivateItem :: (GObject a, MonadIO m) => a -> MenuItemActivateItemCallback -> m SignalHandlerId
onMenuItemActivateItem obj cb = liftIO $ connectMenuItemActivateItem obj cb SignalConnectBefore
afterMenuItemActivateItem :: (GObject a, MonadIO m) => a -> MenuItemActivateItemCallback -> m SignalHandlerId
afterMenuItemActivateItem obj cb = connectMenuItemActivateItem obj cb SignalConnectAfter
connectMenuItemActivateItem :: (GObject a, MonadIO m) =>
a -> MenuItemActivateItemCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemActivateItem obj cb after = liftIO $ do
cb' <- mkMenuItemActivateItemCallback (menuItemActivateItemCallbackWrapper cb)
connectSignalFunPtr obj "activate-item" cb' after
-- signal MenuItem::deselect
type MenuItemDeselectCallback =
IO ()
noMenuItemDeselectCallback :: Maybe MenuItemDeselectCallback
noMenuItemDeselectCallback = Nothing
type MenuItemDeselectCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemDeselectCallback :: MenuItemDeselectCallbackC -> IO (FunPtr MenuItemDeselectCallbackC)
menuItemDeselectClosure :: MenuItemDeselectCallback -> IO Closure
menuItemDeselectClosure cb = newCClosure =<< mkMenuItemDeselectCallback wrapped
where wrapped = menuItemDeselectCallbackWrapper cb
menuItemDeselectCallbackWrapper ::
MenuItemDeselectCallback ->
Ptr () ->
Ptr () ->
IO ()
menuItemDeselectCallbackWrapper _cb _ _ = do
_cb
onMenuItemDeselect :: (GObject a, MonadIO m) => a -> MenuItemDeselectCallback -> m SignalHandlerId
onMenuItemDeselect obj cb = liftIO $ connectMenuItemDeselect obj cb SignalConnectBefore
afterMenuItemDeselect :: (GObject a, MonadIO m) => a -> MenuItemDeselectCallback -> m SignalHandlerId
afterMenuItemDeselect obj cb = connectMenuItemDeselect obj cb SignalConnectAfter
connectMenuItemDeselect :: (GObject a, MonadIO m) =>
a -> MenuItemDeselectCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemDeselect obj cb after = liftIO $ do
cb' <- mkMenuItemDeselectCallback (menuItemDeselectCallbackWrapper cb)
connectSignalFunPtr obj "deselect" cb' after
-- signal MenuItem::select
type MenuItemSelectCallback =
IO ()
noMenuItemSelectCallback :: Maybe MenuItemSelectCallback
noMenuItemSelectCallback = Nothing
type MenuItemSelectCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemSelectCallback :: MenuItemSelectCallbackC -> IO (FunPtr MenuItemSelectCallbackC)
menuItemSelectClosure :: MenuItemSelectCallback -> IO Closure
menuItemSelectClosure cb = newCClosure =<< mkMenuItemSelectCallback wrapped
where wrapped = menuItemSelectCallbackWrapper cb
menuItemSelectCallbackWrapper ::
MenuItemSelectCallback ->
Ptr () ->
Ptr () ->
IO ()
menuItemSelectCallbackWrapper _cb _ _ = do
_cb
onMenuItemSelect :: (GObject a, MonadIO m) => a -> MenuItemSelectCallback -> m SignalHandlerId
onMenuItemSelect obj cb = liftIO $ connectMenuItemSelect obj cb SignalConnectBefore
afterMenuItemSelect :: (GObject a, MonadIO m) => a -> MenuItemSelectCallback -> m SignalHandlerId
afterMenuItemSelect obj cb = connectMenuItemSelect obj cb SignalConnectAfter
connectMenuItemSelect :: (GObject a, MonadIO m) =>
a -> MenuItemSelectCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemSelect obj cb after = liftIO $ do
cb' <- mkMenuItemSelectCallback (menuItemSelectCallbackWrapper cb)
connectSignalFunPtr obj "select" cb' after
-- signal MenuItem::toggle-size-allocate
type MenuItemToggleSizeAllocateCallback =
Int32 ->
IO ()
noMenuItemToggleSizeAllocateCallback :: Maybe MenuItemToggleSizeAllocateCallback
noMenuItemToggleSizeAllocateCallback = Nothing
type MenuItemToggleSizeAllocateCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemToggleSizeAllocateCallback :: MenuItemToggleSizeAllocateCallbackC -> IO (FunPtr MenuItemToggleSizeAllocateCallbackC)
menuItemToggleSizeAllocateClosure :: MenuItemToggleSizeAllocateCallback -> IO Closure
menuItemToggleSizeAllocateClosure cb = newCClosure =<< mkMenuItemToggleSizeAllocateCallback wrapped
where wrapped = menuItemToggleSizeAllocateCallbackWrapper cb
menuItemToggleSizeAllocateCallbackWrapper ::
MenuItemToggleSizeAllocateCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
menuItemToggleSizeAllocateCallbackWrapper _cb _ object _ = do
_cb object
onMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeAllocateCallback -> m SignalHandlerId
onMenuItemToggleSizeAllocate obj cb = liftIO $ connectMenuItemToggleSizeAllocate obj cb SignalConnectBefore
afterMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeAllocateCallback -> m SignalHandlerId
afterMenuItemToggleSizeAllocate obj cb = connectMenuItemToggleSizeAllocate obj cb SignalConnectAfter
connectMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) =>
a -> MenuItemToggleSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemToggleSizeAllocate obj cb after = liftIO $ do
cb' <- mkMenuItemToggleSizeAllocateCallback (menuItemToggleSizeAllocateCallbackWrapper cb)
connectSignalFunPtr obj "toggle-size-allocate" cb' after
-- signal MenuItem::toggle-size-request
type MenuItemToggleSizeRequestCallback =
Ptr () ->
IO ()
noMenuItemToggleSizeRequestCallback :: Maybe MenuItemToggleSizeRequestCallback
noMenuItemToggleSizeRequestCallback = Nothing
type MenuItemToggleSizeRequestCallbackC =
Ptr () -> -- object
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuItemToggleSizeRequestCallback :: MenuItemToggleSizeRequestCallbackC -> IO (FunPtr MenuItemToggleSizeRequestCallbackC)
menuItemToggleSizeRequestClosure :: MenuItemToggleSizeRequestCallback -> IO Closure
menuItemToggleSizeRequestClosure cb = newCClosure =<< mkMenuItemToggleSizeRequestCallback wrapped
where wrapped = menuItemToggleSizeRequestCallbackWrapper cb
menuItemToggleSizeRequestCallbackWrapper ::
MenuItemToggleSizeRequestCallback ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
menuItemToggleSizeRequestCallbackWrapper _cb _ object _ = do
_cb object
onMenuItemToggleSizeRequest :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeRequestCallback -> m SignalHandlerId
onMenuItemToggleSizeRequest obj cb = liftIO $ connectMenuItemToggleSizeRequest obj cb SignalConnectBefore
afterMenuItemToggleSizeRequest :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeRequestCallback -> m SignalHandlerId
afterMenuItemToggleSizeRequest obj cb = connectMenuItemToggleSizeRequest obj cb SignalConnectAfter
connectMenuItemToggleSizeRequest :: (GObject a, MonadIO m) =>
a -> MenuItemToggleSizeRequestCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuItemToggleSizeRequest obj cb after = liftIO $ do
cb' <- mkMenuItemToggleSizeRequestCallback (menuItemToggleSizeRequestCallbackWrapper cb)
connectSignalFunPtr obj "toggle-size-request" cb' after
-- object MenuItemAccessible
newtype MenuItemAccessible = MenuItemAccessible (ForeignPtr MenuItemAccessible)
noMenuItemAccessible :: Maybe MenuItemAccessible
noMenuItemAccessible = Nothing
foreign import ccall "gtk_menu_item_accessible_get_type"
c_gtk_menu_item_accessible_get_type :: IO GType
type instance ParentTypes MenuItemAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection]
instance GObject MenuItemAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_menu_item_accessible_get_type
class GObject o => MenuItemAccessibleK o
instance (GObject o, IsDescendantOf MenuItemAccessible o) => MenuItemAccessibleK o
toMenuItemAccessible :: MenuItemAccessibleK o => o -> IO MenuItemAccessible
toMenuItemAccessible = unsafeCastTo MenuItemAccessible
-- callback MenuPositionFunc
menuPositionFuncClosure :: MenuPositionFunc -> IO Closure
menuPositionFuncClosure cb = newCClosure =<< mkMenuPositionFunc wrapped
where wrapped = menuPositionFuncWrapper Nothing cb
type MenuPositionFuncC =
Ptr Menu ->
Ptr Int32 ->
Ptr Int32 ->
Ptr CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkMenuPositionFunc :: MenuPositionFuncC -> IO (FunPtr MenuPositionFuncC)
type MenuPositionFunc =
Menu ->
Int32 ->
Int32 ->
IO (Int32,Int32,Bool)
noMenuPositionFunc :: Maybe MenuPositionFunc
noMenuPositionFunc = Nothing
menuPositionFuncWrapper ::
Maybe (Ptr (FunPtr (MenuPositionFuncC))) ->
MenuPositionFunc ->
Ptr Menu ->
Ptr Int32 ->
Ptr Int32 ->
Ptr CInt ->
Ptr () ->
IO ()
menuPositionFuncWrapper funptrptr _cb menu x y push_in _ = do
menu' <- (newObject Menu) menu
x' <- peek x
y' <- peek y
(outx, outy, outpush_in) <- _cb menu' x' y'
poke x outx
poke y outy
let outpush_in' = (fromIntegral . fromEnum) outpush_in
poke push_in outpush_in'
maybeReleaseFunPtr funptrptr
-- object MenuShell
newtype MenuShell = MenuShell (ForeignPtr MenuShell)
noMenuShell :: Maybe MenuShell
noMenuShell = Nothing
foreign import ccall "gtk_menu_shell_get_type"
c_gtk_menu_shell_get_type :: IO GType
type instance ParentTypes MenuShell = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject MenuShell where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_shell_get_type
class GObject o => MenuShellK o
instance (GObject o, IsDescendantOf MenuShell o) => MenuShellK o
toMenuShell :: MenuShellK o => o -> IO MenuShell
toMenuShell = unsafeCastTo MenuShell
-- method MenuShell::activate_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_activate_item" gtk_menu_shell_activate_item ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget"
CInt -> -- force_deactivate : TBasicType TBoolean
IO ()
menuShellActivateItem ::
(MonadIO m, MenuShellK a, WidgetK b) =>
a -> -- _obj
b -> -- menu_item
Bool -> -- force_deactivate
m ()
menuShellActivateItem _obj menu_item force_deactivate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let menu_item' = unsafeManagedPtrCastPtr menu_item
let force_deactivate' = (fromIntegral . fromEnum) force_deactivate
gtk_menu_shell_activate_item _obj' menu_item' force_deactivate'
touchManagedPtr _obj
touchManagedPtr menu_item
return ()
-- method MenuShell::append
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_append" gtk_menu_shell_append ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr MenuItem -> -- child : TInterface "Gtk" "MenuItem"
IO ()
menuShellAppend ::
(MonadIO m, MenuShellK a, MenuItemK b) =>
a -> -- _obj
b -> -- child
m ()
menuShellAppend _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_menu_shell_append _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method MenuShell::bind_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_bind_model" gtk_menu_shell_bind_model ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel"
CString -> -- action_namespace : TBasicType TUTF8
CInt -> -- with_separators : TBasicType TBoolean
IO ()
menuShellBindModel ::
(MonadIO m, MenuShellK a, Gio.MenuModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
Maybe (T.Text) -> -- action_namespace
Bool -> -- with_separators
m ()
menuShellBindModel _obj model action_namespace with_separators = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
maybeAction_namespace <- case action_namespace of
Nothing -> return nullPtr
Just jAction_namespace -> do
jAction_namespace' <- textToCString jAction_namespace
return jAction_namespace'
let with_separators' = (fromIntegral . fromEnum) with_separators
gtk_menu_shell_bind_model _obj' maybeModel maybeAction_namespace with_separators'
touchManagedPtr _obj
whenJust model touchManagedPtr
freeMem maybeAction_namespace
return ()
-- method MenuShell::cancel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_cancel" gtk_menu_shell_cancel ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO ()
menuShellCancel ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m ()
menuShellCancel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_shell_cancel _obj'
touchManagedPtr _obj
return ()
-- method MenuShell::deactivate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_deactivate" gtk_menu_shell_deactivate ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO ()
menuShellDeactivate ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m ()
menuShellDeactivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_shell_deactivate _obj'
touchManagedPtr _obj
return ()
-- method MenuShell::deselect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_deselect" gtk_menu_shell_deselect ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO ()
menuShellDeselect ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m ()
menuShellDeselect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_menu_shell_deselect _obj'
touchManagedPtr _obj
return ()
-- method MenuShell::get_parent_shell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_get_parent_shell" gtk_menu_shell_get_parent_shell ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO (Ptr Widget)
menuShellGetParentShell ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m Widget
menuShellGetParentShell _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_shell_get_parent_shell _obj'
checkUnexpectedReturnNULL "gtk_menu_shell_get_parent_shell" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MenuShell::get_selected_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_get_selected_item" gtk_menu_shell_get_selected_item ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO (Ptr Widget)
menuShellGetSelectedItem ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m Widget
menuShellGetSelectedItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_shell_get_selected_item _obj'
checkUnexpectedReturnNULL "gtk_menu_shell_get_selected_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MenuShell::get_take_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_get_take_focus" gtk_menu_shell_get_take_focus ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
IO CInt
menuShellGetTakeFocus ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
m Bool
menuShellGetTakeFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_shell_get_take_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MenuShell::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_insert" gtk_menu_shell_insert ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
menuShellInsert ::
(MonadIO m, MenuShellK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
menuShellInsert _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_menu_shell_insert _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method MenuShell::prepend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_prepend" gtk_menu_shell_prepend ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
menuShellPrepend ::
(MonadIO m, MenuShellK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
menuShellPrepend _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_menu_shell_prepend _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method MenuShell::select_first
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_select_first" gtk_menu_shell_select_first ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
CInt -> -- search_sensitive : TBasicType TBoolean
IO ()
menuShellSelectFirst ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
Bool -> -- search_sensitive
m ()
menuShellSelectFirst _obj search_sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let search_sensitive' = (fromIntegral . fromEnum) search_sensitive
gtk_menu_shell_select_first _obj' search_sensitive'
touchManagedPtr _obj
return ()
-- method MenuShell::select_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_select_item" gtk_menu_shell_select_item ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget"
IO ()
menuShellSelectItem ::
(MonadIO m, MenuShellK a, WidgetK b) =>
a -> -- _obj
b -> -- menu_item
m ()
menuShellSelectItem _obj menu_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let menu_item' = unsafeManagedPtrCastPtr menu_item
gtk_menu_shell_select_item _obj' menu_item'
touchManagedPtr _obj
touchManagedPtr menu_item
return ()
-- method MenuShell::set_take_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_shell_set_take_focus" gtk_menu_shell_set_take_focus ::
Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell"
CInt -> -- take_focus : TBasicType TBoolean
IO ()
menuShellSetTakeFocus ::
(MonadIO m, MenuShellK a) =>
a -> -- _obj
Bool -> -- take_focus
m ()
menuShellSetTakeFocus _obj take_focus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let take_focus' = (fromIntegral . fromEnum) take_focus
gtk_menu_shell_set_take_focus _obj' take_focus'
touchManagedPtr _obj
return ()
-- signal MenuShell::activate-current
type MenuShellActivateCurrentCallback =
Bool ->
IO ()
noMenuShellActivateCurrentCallback :: Maybe MenuShellActivateCurrentCallback
noMenuShellActivateCurrentCallback = Nothing
type MenuShellActivateCurrentCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellActivateCurrentCallback :: MenuShellActivateCurrentCallbackC -> IO (FunPtr MenuShellActivateCurrentCallbackC)
menuShellActivateCurrentClosure :: MenuShellActivateCurrentCallback -> IO Closure
menuShellActivateCurrentClosure cb = newCClosure =<< mkMenuShellActivateCurrentCallback wrapped
where wrapped = menuShellActivateCurrentCallbackWrapper cb
menuShellActivateCurrentCallbackWrapper ::
MenuShellActivateCurrentCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO ()
menuShellActivateCurrentCallbackWrapper _cb _ force_hide _ = do
let force_hide' = (/= 0) force_hide
_cb force_hide'
onMenuShellActivateCurrent :: (GObject a, MonadIO m) => a -> MenuShellActivateCurrentCallback -> m SignalHandlerId
onMenuShellActivateCurrent obj cb = liftIO $ connectMenuShellActivateCurrent obj cb SignalConnectBefore
afterMenuShellActivateCurrent :: (GObject a, MonadIO m) => a -> MenuShellActivateCurrentCallback -> m SignalHandlerId
afterMenuShellActivateCurrent obj cb = connectMenuShellActivateCurrent obj cb SignalConnectAfter
connectMenuShellActivateCurrent :: (GObject a, MonadIO m) =>
a -> MenuShellActivateCurrentCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellActivateCurrent obj cb after = liftIO $ do
cb' <- mkMenuShellActivateCurrentCallback (menuShellActivateCurrentCallbackWrapper cb)
connectSignalFunPtr obj "activate-current" cb' after
-- signal MenuShell::cancel
type MenuShellCancelCallback =
IO ()
noMenuShellCancelCallback :: Maybe MenuShellCancelCallback
noMenuShellCancelCallback = Nothing
type MenuShellCancelCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellCancelCallback :: MenuShellCancelCallbackC -> IO (FunPtr MenuShellCancelCallbackC)
menuShellCancelClosure :: MenuShellCancelCallback -> IO Closure
menuShellCancelClosure cb = newCClosure =<< mkMenuShellCancelCallback wrapped
where wrapped = menuShellCancelCallbackWrapper cb
menuShellCancelCallbackWrapper ::
MenuShellCancelCallback ->
Ptr () ->
Ptr () ->
IO ()
menuShellCancelCallbackWrapper _cb _ _ = do
_cb
onMenuShellCancel :: (GObject a, MonadIO m) => a -> MenuShellCancelCallback -> m SignalHandlerId
onMenuShellCancel obj cb = liftIO $ connectMenuShellCancel obj cb SignalConnectBefore
afterMenuShellCancel :: (GObject a, MonadIO m) => a -> MenuShellCancelCallback -> m SignalHandlerId
afterMenuShellCancel obj cb = connectMenuShellCancel obj cb SignalConnectAfter
connectMenuShellCancel :: (GObject a, MonadIO m) =>
a -> MenuShellCancelCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellCancel obj cb after = liftIO $ do
cb' <- mkMenuShellCancelCallback (menuShellCancelCallbackWrapper cb)
connectSignalFunPtr obj "cancel" cb' after
-- signal MenuShell::cycle-focus
type MenuShellCycleFocusCallback =
DirectionType ->
IO ()
noMenuShellCycleFocusCallback :: Maybe MenuShellCycleFocusCallback
noMenuShellCycleFocusCallback = Nothing
type MenuShellCycleFocusCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellCycleFocusCallback :: MenuShellCycleFocusCallbackC -> IO (FunPtr MenuShellCycleFocusCallbackC)
menuShellCycleFocusClosure :: MenuShellCycleFocusCallback -> IO Closure
menuShellCycleFocusClosure cb = newCClosure =<< mkMenuShellCycleFocusCallback wrapped
where wrapped = menuShellCycleFocusCallbackWrapper cb
menuShellCycleFocusCallbackWrapper ::
MenuShellCycleFocusCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
menuShellCycleFocusCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
_cb direction'
onMenuShellCycleFocus :: (GObject a, MonadIO m) => a -> MenuShellCycleFocusCallback -> m SignalHandlerId
onMenuShellCycleFocus obj cb = liftIO $ connectMenuShellCycleFocus obj cb SignalConnectBefore
afterMenuShellCycleFocus :: (GObject a, MonadIO m) => a -> MenuShellCycleFocusCallback -> m SignalHandlerId
afterMenuShellCycleFocus obj cb = connectMenuShellCycleFocus obj cb SignalConnectAfter
connectMenuShellCycleFocus :: (GObject a, MonadIO m) =>
a -> MenuShellCycleFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellCycleFocus obj cb after = liftIO $ do
cb' <- mkMenuShellCycleFocusCallback (menuShellCycleFocusCallbackWrapper cb)
connectSignalFunPtr obj "cycle-focus" cb' after
-- signal MenuShell::deactivate
type MenuShellDeactivateCallback =
IO ()
noMenuShellDeactivateCallback :: Maybe MenuShellDeactivateCallback
noMenuShellDeactivateCallback = Nothing
type MenuShellDeactivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellDeactivateCallback :: MenuShellDeactivateCallbackC -> IO (FunPtr MenuShellDeactivateCallbackC)
menuShellDeactivateClosure :: MenuShellDeactivateCallback -> IO Closure
menuShellDeactivateClosure cb = newCClosure =<< mkMenuShellDeactivateCallback wrapped
where wrapped = menuShellDeactivateCallbackWrapper cb
menuShellDeactivateCallbackWrapper ::
MenuShellDeactivateCallback ->
Ptr () ->
Ptr () ->
IO ()
menuShellDeactivateCallbackWrapper _cb _ _ = do
_cb
onMenuShellDeactivate :: (GObject a, MonadIO m) => a -> MenuShellDeactivateCallback -> m SignalHandlerId
onMenuShellDeactivate obj cb = liftIO $ connectMenuShellDeactivate obj cb SignalConnectBefore
afterMenuShellDeactivate :: (GObject a, MonadIO m) => a -> MenuShellDeactivateCallback -> m SignalHandlerId
afterMenuShellDeactivate obj cb = connectMenuShellDeactivate obj cb SignalConnectAfter
connectMenuShellDeactivate :: (GObject a, MonadIO m) =>
a -> MenuShellDeactivateCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellDeactivate obj cb after = liftIO $ do
cb' <- mkMenuShellDeactivateCallback (menuShellDeactivateCallbackWrapper cb)
connectSignalFunPtr obj "deactivate" cb' after
-- signal MenuShell::insert
type MenuShellInsertCallback =
Widget ->
Int32 ->
IO ()
noMenuShellInsertCallback :: Maybe MenuShellInsertCallback
noMenuShellInsertCallback = Nothing
type MenuShellInsertCallbackC =
Ptr () -> -- object
Ptr Widget ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellInsertCallback :: MenuShellInsertCallbackC -> IO (FunPtr MenuShellInsertCallbackC)
menuShellInsertClosure :: MenuShellInsertCallback -> IO Closure
menuShellInsertClosure cb = newCClosure =<< mkMenuShellInsertCallback wrapped
where wrapped = menuShellInsertCallbackWrapper cb
menuShellInsertCallbackWrapper ::
MenuShellInsertCallback ->
Ptr () ->
Ptr Widget ->
Int32 ->
Ptr () ->
IO ()
menuShellInsertCallbackWrapper _cb _ child position _ = do
child' <- (newObject Widget) child
_cb child' position
onMenuShellInsert :: (GObject a, MonadIO m) => a -> MenuShellInsertCallback -> m SignalHandlerId
onMenuShellInsert obj cb = liftIO $ connectMenuShellInsert obj cb SignalConnectBefore
afterMenuShellInsert :: (GObject a, MonadIO m) => a -> MenuShellInsertCallback -> m SignalHandlerId
afterMenuShellInsert obj cb = connectMenuShellInsert obj cb SignalConnectAfter
connectMenuShellInsert :: (GObject a, MonadIO m) =>
a -> MenuShellInsertCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellInsert obj cb after = liftIO $ do
cb' <- mkMenuShellInsertCallback (menuShellInsertCallbackWrapper cb)
connectSignalFunPtr obj "insert" cb' after
-- signal MenuShell::move-current
type MenuShellMoveCurrentCallback =
MenuDirectionType ->
IO ()
noMenuShellMoveCurrentCallback :: Maybe MenuShellMoveCurrentCallback
noMenuShellMoveCurrentCallback = Nothing
type MenuShellMoveCurrentCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellMoveCurrentCallback :: MenuShellMoveCurrentCallbackC -> IO (FunPtr MenuShellMoveCurrentCallbackC)
menuShellMoveCurrentClosure :: MenuShellMoveCurrentCallback -> IO Closure
menuShellMoveCurrentClosure cb = newCClosure =<< mkMenuShellMoveCurrentCallback wrapped
where wrapped = menuShellMoveCurrentCallbackWrapper cb
menuShellMoveCurrentCallbackWrapper ::
MenuShellMoveCurrentCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
menuShellMoveCurrentCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
_cb direction'
onMenuShellMoveCurrent :: (GObject a, MonadIO m) => a -> MenuShellMoveCurrentCallback -> m SignalHandlerId
onMenuShellMoveCurrent obj cb = liftIO $ connectMenuShellMoveCurrent obj cb SignalConnectBefore
afterMenuShellMoveCurrent :: (GObject a, MonadIO m) => a -> MenuShellMoveCurrentCallback -> m SignalHandlerId
afterMenuShellMoveCurrent obj cb = connectMenuShellMoveCurrent obj cb SignalConnectAfter
connectMenuShellMoveCurrent :: (GObject a, MonadIO m) =>
a -> MenuShellMoveCurrentCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellMoveCurrent obj cb after = liftIO $ do
cb' <- mkMenuShellMoveCurrentCallback (menuShellMoveCurrentCallbackWrapper cb)
connectSignalFunPtr obj "move-current" cb' after
-- signal MenuShell::move-selected
type MenuShellMoveSelectedCallback =
Int32 ->
IO Bool
noMenuShellMoveSelectedCallback :: Maybe MenuShellMoveSelectedCallback
noMenuShellMoveSelectedCallback = Nothing
type MenuShellMoveSelectedCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkMenuShellMoveSelectedCallback :: MenuShellMoveSelectedCallbackC -> IO (FunPtr MenuShellMoveSelectedCallbackC)
menuShellMoveSelectedClosure :: MenuShellMoveSelectedCallback -> IO Closure
menuShellMoveSelectedClosure cb = newCClosure =<< mkMenuShellMoveSelectedCallback wrapped
where wrapped = menuShellMoveSelectedCallbackWrapper cb
menuShellMoveSelectedCallbackWrapper ::
MenuShellMoveSelectedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO CInt
menuShellMoveSelectedCallbackWrapper _cb _ distance _ = do
result <- _cb distance
let result' = (fromIntegral . fromEnum) result
return result'
onMenuShellMoveSelected :: (GObject a, MonadIO m) => a -> MenuShellMoveSelectedCallback -> m SignalHandlerId
onMenuShellMoveSelected obj cb = liftIO $ connectMenuShellMoveSelected obj cb SignalConnectBefore
afterMenuShellMoveSelected :: (GObject a, MonadIO m) => a -> MenuShellMoveSelectedCallback -> m SignalHandlerId
afterMenuShellMoveSelected obj cb = connectMenuShellMoveSelected obj cb SignalConnectAfter
connectMenuShellMoveSelected :: (GObject a, MonadIO m) =>
a -> MenuShellMoveSelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellMoveSelected obj cb after = liftIO $ do
cb' <- mkMenuShellMoveSelectedCallback (menuShellMoveSelectedCallbackWrapper cb)
connectSignalFunPtr obj "move-selected" cb' after
-- signal MenuShell::selection-done
type MenuShellSelectionDoneCallback =
IO ()
noMenuShellSelectionDoneCallback :: Maybe MenuShellSelectionDoneCallback
noMenuShellSelectionDoneCallback = Nothing
type MenuShellSelectionDoneCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuShellSelectionDoneCallback :: MenuShellSelectionDoneCallbackC -> IO (FunPtr MenuShellSelectionDoneCallbackC)
menuShellSelectionDoneClosure :: MenuShellSelectionDoneCallback -> IO Closure
menuShellSelectionDoneClosure cb = newCClosure =<< mkMenuShellSelectionDoneCallback wrapped
where wrapped = menuShellSelectionDoneCallbackWrapper cb
menuShellSelectionDoneCallbackWrapper ::
MenuShellSelectionDoneCallback ->
Ptr () ->
Ptr () ->
IO ()
menuShellSelectionDoneCallbackWrapper _cb _ _ = do
_cb
onMenuShellSelectionDone :: (GObject a, MonadIO m) => a -> MenuShellSelectionDoneCallback -> m SignalHandlerId
onMenuShellSelectionDone obj cb = liftIO $ connectMenuShellSelectionDone obj cb SignalConnectBefore
afterMenuShellSelectionDone :: (GObject a, MonadIO m) => a -> MenuShellSelectionDoneCallback -> m SignalHandlerId
afterMenuShellSelectionDone obj cb = connectMenuShellSelectionDone obj cb SignalConnectAfter
connectMenuShellSelectionDone :: (GObject a, MonadIO m) =>
a -> MenuShellSelectionDoneCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuShellSelectionDone obj cb after = liftIO $ do
cb' <- mkMenuShellSelectionDoneCallback (menuShellSelectionDoneCallbackWrapper cb)
connectSignalFunPtr obj "selection-done" cb' after
-- object MenuShellAccessible
newtype MenuShellAccessible = MenuShellAccessible (ForeignPtr MenuShellAccessible)
noMenuShellAccessible :: Maybe MenuShellAccessible
noMenuShellAccessible = Nothing
foreign import ccall "gtk_menu_shell_accessible_get_type"
c_gtk_menu_shell_accessible_get_type :: IO GType
type instance ParentTypes MenuShellAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject MenuShellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_menu_shell_accessible_get_type
class GObject o => MenuShellAccessibleK o
instance (GObject o, IsDescendantOf MenuShellAccessible o) => MenuShellAccessibleK o
toMenuShellAccessible :: MenuShellAccessibleK o => o -> IO MenuShellAccessible
toMenuShellAccessible = unsafeCastTo MenuShellAccessible
-- object MenuToolButton
newtype MenuToolButton = MenuToolButton (ForeignPtr MenuToolButton)
noMenuToolButton :: Maybe MenuToolButton
noMenuToolButton = Nothing
foreign import ccall "gtk_menu_tool_button_get_type"
c_gtk_menu_tool_button_get_type :: IO GType
type instance ParentTypes MenuToolButton = '[ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject MenuToolButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_menu_tool_button_get_type
class GObject o => MenuToolButtonK o
instance (GObject o, IsDescendantOf MenuToolButton o) => MenuToolButtonK o
toMenuToolButton :: MenuToolButtonK o => o -> IO MenuToolButton
toMenuToolButton = unsafeCastTo MenuToolButton
-- method MenuToolButton::new
-- method type : Constructor
-- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MenuToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_new" gtk_menu_tool_button_new ::
Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget"
CString -> -- label : TBasicType TUTF8
IO (Ptr MenuToolButton)
menuToolButtonNew ::
(MonadIO m, WidgetK a) =>
Maybe (a) -> -- icon_widget
Maybe (T.Text) -> -- label
m MenuToolButton
menuToolButtonNew icon_widget label = liftIO $ do
maybeIcon_widget <- case icon_widget of
Nothing -> return nullPtr
Just jIcon_widget -> do
let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget
return jIcon_widget'
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_menu_tool_button_new maybeIcon_widget maybeLabel
checkUnexpectedReturnNULL "gtk_menu_tool_button_new" result
result' <- (newObject MenuToolButton) result
whenJust icon_widget touchManagedPtr
freeMem maybeLabel
return result'
-- method MenuToolButton::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MenuToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_new_from_stock" gtk_menu_tool_button_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr MenuToolButton)
{-# DEPRECATED menuToolButtonNewFromStock ["(Since version 3.10)","Use gtk_menu_tool_button_new() instead."]#-}
menuToolButtonNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
m MenuToolButton
menuToolButtonNewFromStock stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_menu_tool_button_new_from_stock stock_id'
checkUnexpectedReturnNULL "gtk_menu_tool_button_new_from_stock" result
result' <- (newObject MenuToolButton) result
freeMem stock_id'
return result'
-- method MenuToolButton::get_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_get_menu" gtk_menu_tool_button_get_menu ::
Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton"
IO (Ptr Widget)
menuToolButtonGetMenu ::
(MonadIO m, MenuToolButtonK a) =>
a -> -- _obj
m Widget
menuToolButtonGetMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_menu_tool_button_get_menu _obj'
checkUnexpectedReturnNULL "gtk_menu_tool_button_get_menu" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MenuToolButton::set_arrow_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_set_arrow_tooltip_markup" gtk_menu_tool_button_set_arrow_tooltip_markup ::
Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton"
CString -> -- markup : TBasicType TUTF8
IO ()
menuToolButtonSetArrowTooltipMarkup ::
(MonadIO m, MenuToolButtonK a) =>
a -> -- _obj
T.Text -> -- markup
m ()
menuToolButtonSetArrowTooltipMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
markup' <- textToCString markup
gtk_menu_tool_button_set_arrow_tooltip_markup _obj' markup'
touchManagedPtr _obj
freeMem markup'
return ()
-- method MenuToolButton::set_arrow_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_set_arrow_tooltip_text" gtk_menu_tool_button_set_arrow_tooltip_text ::
Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton"
CString -> -- text : TBasicType TUTF8
IO ()
menuToolButtonSetArrowTooltipText ::
(MonadIO m, MenuToolButtonK a) =>
a -> -- _obj
T.Text -> -- text
m ()
menuToolButtonSetArrowTooltipText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_menu_tool_button_set_arrow_tooltip_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method MenuToolButton::set_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_menu_tool_button_set_menu" gtk_menu_tool_button_set_menu ::
Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton"
Ptr Widget -> -- menu : TInterface "Gtk" "Widget"
IO ()
menuToolButtonSetMenu ::
(MonadIO m, MenuToolButtonK a, WidgetK b) =>
a -> -- _obj
b -> -- menu
m ()
menuToolButtonSetMenu _obj menu = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let menu' = unsafeManagedPtrCastPtr menu
gtk_menu_tool_button_set_menu _obj' menu'
touchManagedPtr _obj
touchManagedPtr menu
return ()
-- signal MenuToolButton::show-menu
type MenuToolButtonShowMenuCallback =
IO ()
noMenuToolButtonShowMenuCallback :: Maybe MenuToolButtonShowMenuCallback
noMenuToolButtonShowMenuCallback = Nothing
type MenuToolButtonShowMenuCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkMenuToolButtonShowMenuCallback :: MenuToolButtonShowMenuCallbackC -> IO (FunPtr MenuToolButtonShowMenuCallbackC)
menuToolButtonShowMenuClosure :: MenuToolButtonShowMenuCallback -> IO Closure
menuToolButtonShowMenuClosure cb = newCClosure =<< mkMenuToolButtonShowMenuCallback wrapped
where wrapped = menuToolButtonShowMenuCallbackWrapper cb
menuToolButtonShowMenuCallbackWrapper ::
MenuToolButtonShowMenuCallback ->
Ptr () ->
Ptr () ->
IO ()
menuToolButtonShowMenuCallbackWrapper _cb _ _ = do
_cb
onMenuToolButtonShowMenu :: (GObject a, MonadIO m) => a -> MenuToolButtonShowMenuCallback -> m SignalHandlerId
onMenuToolButtonShowMenu obj cb = liftIO $ connectMenuToolButtonShowMenu obj cb SignalConnectBefore
afterMenuToolButtonShowMenu :: (GObject a, MonadIO m) => a -> MenuToolButtonShowMenuCallback -> m SignalHandlerId
afterMenuToolButtonShowMenu obj cb = connectMenuToolButtonShowMenu obj cb SignalConnectAfter
connectMenuToolButtonShowMenu :: (GObject a, MonadIO m) =>
a -> MenuToolButtonShowMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectMenuToolButtonShowMenu obj cb after = liftIO $ do
cb' <- mkMenuToolButtonShowMenuCallback (menuToolButtonShowMenuCallbackWrapper cb)
connectSignalFunPtr obj "show-menu" cb' after
-- object MessageDialog
newtype MessageDialog = MessageDialog (ForeignPtr MessageDialog)
noMessageDialog :: Maybe MessageDialog
noMessageDialog = Nothing
foreign import ccall "gtk_message_dialog_get_type"
c_gtk_message_dialog_get_type :: IO GType
type instance ParentTypes MessageDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject MessageDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_message_dialog_get_type
class GObject o => MessageDialogK o
instance (GObject o, IsDescendantOf MessageDialog o) => MessageDialogK o
toMessageDialog :: MessageDialogK o => o -> IO MessageDialog
toMessageDialog = unsafeCastTo MessageDialog
-- method MessageDialog::get_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_message_dialog_get_image" gtk_message_dialog_get_image ::
Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog"
IO (Ptr Widget)
{-# DEPRECATED messageDialogGetImage ["(Since version 3.12)","Use #GtkDialog for dialogs with images"]#-}
messageDialogGetImage ::
(MonadIO m, MessageDialogK a) =>
a -> -- _obj
m Widget
messageDialogGetImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_message_dialog_get_image _obj'
checkUnexpectedReturnNULL "gtk_message_dialog_get_image" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MessageDialog::get_message_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_message_dialog_get_message_area" gtk_message_dialog_get_message_area ::
Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog"
IO (Ptr Widget)
messageDialogGetMessageArea ::
(MonadIO m, MessageDialogK a) =>
a -> -- _obj
m Widget
messageDialogGetMessageArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_message_dialog_get_message_area _obj'
checkUnexpectedReturnNULL "gtk_message_dialog_get_message_area" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method MessageDialog::set_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_message_dialog_set_image" gtk_message_dialog_set_image ::
Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog"
Ptr Widget -> -- image : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED messageDialogSetImage ["(Since version 3.12)","Use #GtkDialog to create dialogs with images"]#-}
messageDialogSetImage ::
(MonadIO m, MessageDialogK a, WidgetK b) =>
a -> -- _obj
b -> -- image
m ()
messageDialogSetImage _obj image = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let image' = unsafeManagedPtrCastPtr image
gtk_message_dialog_set_image _obj' image'
touchManagedPtr _obj
touchManagedPtr image
return ()
-- method MessageDialog::set_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_message_dialog_set_markup" gtk_message_dialog_set_markup ::
Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog"
CString -> -- str : TBasicType TUTF8
IO ()
messageDialogSetMarkup ::
(MonadIO m, MessageDialogK a) =>
a -> -- _obj
T.Text -> -- str
m ()
messageDialogSetMarkup _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_message_dialog_set_markup _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
-- Enum MessageType
data MessageType =
MessageTypeInfo
| MessageTypeWarning
| MessageTypeQuestion
| MessageTypeError
| MessageTypeOther
| AnotherMessageType Int
deriving (Show, Eq)
instance Enum MessageType where
fromEnum MessageTypeInfo = 0
fromEnum MessageTypeWarning = 1
fromEnum MessageTypeQuestion = 2
fromEnum MessageTypeError = 3
fromEnum MessageTypeOther = 4
fromEnum (AnotherMessageType k) = k
toEnum 0 = MessageTypeInfo
toEnum 1 = MessageTypeWarning
toEnum 2 = MessageTypeQuestion
toEnum 3 = MessageTypeError
toEnum 4 = MessageTypeOther
toEnum k = AnotherMessageType k
foreign import ccall "gtk_message_type_get_type" c_gtk_message_type_get_type ::
IO GType
instance BoxedEnum MessageType where
boxedEnumType _ = c_gtk_message_type_get_type
-- object Misc
newtype Misc = Misc (ForeignPtr Misc)
noMisc :: Maybe Misc
noMisc = Nothing
foreign import ccall "gtk_misc_get_type"
c_gtk_misc_get_type :: IO GType
type instance ParentTypes Misc = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Misc where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_misc_get_type
class GObject o => MiscK o
instance (GObject o, IsDescendantOf Misc o) => MiscK o
toMisc :: MiscK o => o -> IO Misc
toMisc = unsafeCastTo Misc
-- method Misc::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_misc_get_alignment" gtk_misc_get_alignment ::
Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED miscGetAlignment ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-}
miscGetAlignment ::
(MonadIO m, MiscK a) =>
a -> -- _obj
m (Float,Float)
miscGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_misc_get_alignment _obj' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr _obj
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
-- method Misc::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_misc_get_padding" gtk_misc_get_padding ::
Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"
Ptr Int32 -> -- xpad : TBasicType TInt32
Ptr Int32 -> -- ypad : TBasicType TInt32
IO ()
{-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-}
miscGetPadding ::
(MonadIO m, MiscK a) =>
a -> -- _obj
m (Int32,Int32)
miscGetPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xpad <- allocMem :: IO (Ptr Int32)
ypad <- allocMem :: IO (Ptr Int32)
gtk_misc_get_padding _obj' xpad ypad
xpad' <- peek xpad
ypad' <- peek ypad
touchManagedPtr _obj
freeMem xpad
freeMem ypad
return (xpad', ypad')
-- method Misc::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_misc_set_alignment" gtk_misc_set_alignment ::
Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED miscSetAlignment ["(Since version 3.14)","Use #GtkWidget's alignment (#GtkWidget:halign and #GtkWidget:valign) and margin properties or #GtkLabel's #GtkLabel:xalign and #GtkLabel:yalign properties."]#-}
miscSetAlignment ::
(MonadIO m, MiscK a) =>
a -> -- _obj
Float -> -- xalign
Float -> -- yalign
m ()
miscSetAlignment _obj xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_misc_set_alignment _obj' xalign' yalign'
touchManagedPtr _obj
return ()
-- method Misc::set_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_misc_set_padding" gtk_misc_set_padding ::
Ptr Misc -> -- _obj : TInterface "Gtk" "Misc"
Int32 -> -- xpad : TBasicType TInt32
Int32 -> -- ypad : TBasicType TInt32
IO ()
{-# DEPRECATED miscSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-}
miscSetPadding ::
(MonadIO m, MiscK a) =>
a -> -- _obj
Int32 -> -- xpad
Int32 -> -- ypad
m ()
miscSetPadding _obj xpad ypad = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_misc_set_padding _obj' xpad ypad
touchManagedPtr _obj
return ()
-- object ModelButton
newtype ModelButton = ModelButton (ForeignPtr ModelButton)
noModelButton :: Maybe ModelButton
noModelButton = Nothing
foreign import ccall "gtk_model_button_get_type"
c_gtk_model_button_get_type :: IO GType
type instance ParentTypes ModelButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject ModelButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_model_button_get_type
class GObject o => ModelButtonK o
instance (GObject o, IsDescendantOf ModelButton o) => ModelButtonK o
toModelButton :: ModelButtonK o => o -> IO ModelButton
toModelButton = unsafeCastTo ModelButton
-- method ModelButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ModelButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_model_button_new" gtk_model_button_new ::
IO (Ptr ModelButton)
modelButtonNew ::
(MonadIO m) =>
m ModelButton
modelButtonNew = liftIO $ do
result <- gtk_model_button_new
checkUnexpectedReturnNULL "gtk_model_button_new" result
result' <- (newObject ModelButton) result
return result'
-- callback ModuleDisplayInitFunc
moduleDisplayInitFuncClosure :: ModuleDisplayInitFunc -> IO Closure
moduleDisplayInitFuncClosure cb = newCClosure =<< mkModuleDisplayInitFunc wrapped
where wrapped = moduleDisplayInitFuncWrapper Nothing cb
type ModuleDisplayInitFuncC =
Ptr Gdk.Display ->
IO ()
foreign import ccall "wrapper"
mkModuleDisplayInitFunc :: ModuleDisplayInitFuncC -> IO (FunPtr ModuleDisplayInitFuncC)
type ModuleDisplayInitFunc =
Gdk.Display ->
IO ()
noModuleDisplayInitFunc :: Maybe ModuleDisplayInitFunc
noModuleDisplayInitFunc = Nothing
moduleDisplayInitFuncWrapper ::
Maybe (Ptr (FunPtr (ModuleDisplayInitFuncC))) ->
ModuleDisplayInitFunc ->
Ptr Gdk.Display ->
IO ()
moduleDisplayInitFuncWrapper funptrptr _cb display = do
display' <- (newObject Gdk.Display) display
_cb display'
maybeReleaseFunPtr funptrptr
-- callback ModuleInitFunc
moduleInitFuncClosure :: ModuleInitFunc -> IO Closure
moduleInitFuncClosure cb = newCClosure =<< mkModuleInitFunc wrapped
where wrapped = moduleInitFuncWrapper Nothing cb
type ModuleInitFuncC =
Int32 ->
Ptr CString ->
IO ()
foreign import ccall "wrapper"
mkModuleInitFunc :: ModuleInitFuncC -> IO (FunPtr ModuleInitFuncC)
type ModuleInitFunc =
Maybe [T.Text] ->
IO ()
noModuleInitFunc :: Maybe ModuleInitFunc
noModuleInitFunc = Nothing
moduleInitFuncWrapper ::
Maybe (Ptr (FunPtr (ModuleInitFuncC))) ->
ModuleInitFunc ->
Int32 ->
Ptr CString ->
IO ()
moduleInitFuncWrapper funptrptr _cb argc argv = do
maybeArgv <-
if argv == nullPtr
then return Nothing
else do
argv' <- (unpackUTF8CArrayWithLength argc) argv
return $ Just argv'
_cb maybeArgv
maybeReleaseFunPtr funptrptr
-- object MountOperation
newtype MountOperation = MountOperation (ForeignPtr MountOperation)
noMountOperation :: Maybe MountOperation
noMountOperation = Nothing
foreign import ccall "gtk_mount_operation_get_type"
c_gtk_mount_operation_get_type :: IO GType
type instance ParentTypes MountOperation = '[Gio.MountOperation, GObject.Object]
instance GObject MountOperation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_mount_operation_get_type
class GObject o => MountOperationK o
instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o
toMountOperation :: MountOperationK o => o -> IO MountOperation
toMountOperation = unsafeCastTo MountOperation
-- method MountOperation::new
-- method type : Constructor
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "MountOperation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_new" gtk_mount_operation_new ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
IO (Ptr MountOperation)
mountOperationNew ::
(MonadIO m, WindowK a) =>
Maybe (a) -> -- parent
m MountOperation
mountOperationNew parent = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
result <- gtk_mount_operation_new maybeParent
checkUnexpectedReturnNULL "gtk_mount_operation_new" result
result' <- (wrapObject MountOperation) result
whenJust parent touchManagedPtr
return result'
-- method MountOperation::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_get_parent" gtk_mount_operation_get_parent ::
Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation"
IO (Ptr Window)
mountOperationGetParent ::
(MonadIO m, MountOperationK a) =>
a -> -- _obj
m Window
mountOperationGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_mount_operation_get_parent _obj'
checkUnexpectedReturnNULL "gtk_mount_operation_get_parent" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
-- method MountOperation::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_get_screen" gtk_mount_operation_get_screen ::
Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation"
IO (Ptr Gdk.Screen)
mountOperationGetScreen ::
(MonadIO m, MountOperationK a) =>
a -> -- _obj
m Gdk.Screen
mountOperationGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_mount_operation_get_screen _obj'
checkUnexpectedReturnNULL "gtk_mount_operation_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method MountOperation::is_showing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_is_showing" gtk_mount_operation_is_showing ::
Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation"
IO CInt
mountOperationIsShowing ::
(MonadIO m, MountOperationK a) =>
a -> -- _obj
m Bool
mountOperationIsShowing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_mount_operation_is_showing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MountOperation::set_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_set_parent" gtk_mount_operation_set_parent ::
Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation"
Ptr Window -> -- parent : TInterface "Gtk" "Window"
IO ()
mountOperationSetParent ::
(MonadIO m, MountOperationK a, WindowK b) =>
a -> -- _obj
Maybe (b) -> -- parent
m ()
mountOperationSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
gtk_mount_operation_set_parent _obj' maybeParent
touchManagedPtr _obj
whenJust parent touchManagedPtr
return ()
-- method MountOperation::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_mount_operation_set_screen" gtk_mount_operation_set_screen ::
Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
mountOperationSetScreen ::
(MonadIO m, MountOperationK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
mountOperationSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_mount_operation_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- Enum MovementStep
data MovementStep =
MovementStepLogicalPositions
| MovementStepVisualPositions
| MovementStepWords
| MovementStepDisplayLines
| MovementStepDisplayLineEnds
| MovementStepParagraphs
| MovementStepParagraphEnds
| MovementStepPages
| MovementStepBufferEnds
| MovementStepHorizontalPages
| AnotherMovementStep Int
deriving (Show, Eq)
instance Enum MovementStep where
fromEnum MovementStepLogicalPositions = 0
fromEnum MovementStepVisualPositions = 1
fromEnum MovementStepWords = 2
fromEnum MovementStepDisplayLines = 3
fromEnum MovementStepDisplayLineEnds = 4
fromEnum MovementStepParagraphs = 5
fromEnum MovementStepParagraphEnds = 6
fromEnum MovementStepPages = 7
fromEnum MovementStepBufferEnds = 8
fromEnum MovementStepHorizontalPages = 9
fromEnum (AnotherMovementStep k) = k
toEnum 0 = MovementStepLogicalPositions
toEnum 1 = MovementStepVisualPositions
toEnum 2 = MovementStepWords
toEnum 3 = MovementStepDisplayLines
toEnum 4 = MovementStepDisplayLineEnds
toEnum 5 = MovementStepParagraphs
toEnum 6 = MovementStepParagraphEnds
toEnum 7 = MovementStepPages
toEnum 8 = MovementStepBufferEnds
toEnum 9 = MovementStepHorizontalPages
toEnum k = AnotherMovementStep k
foreign import ccall "gtk_movement_step_get_type" c_gtk_movement_step_get_type ::
IO GType
instance BoxedEnum MovementStep where
boxedEnumType _ = c_gtk_movement_step_get_type
-- object Notebook
newtype Notebook = Notebook (ForeignPtr Notebook)
noNotebook :: Maybe Notebook
noNotebook = Nothing
foreign import ccall "gtk_notebook_get_type"
c_gtk_notebook_get_type :: IO GType
type instance ParentTypes Notebook = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Notebook where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_notebook_get_type
class GObject o => NotebookK o
instance (GObject o, IsDescendantOf Notebook o) => NotebookK o
toNotebook :: NotebookK o => o -> IO Notebook
toNotebook = unsafeCastTo Notebook
-- method Notebook::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Notebook"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_new" gtk_notebook_new ::
IO (Ptr Notebook)
notebookNew ::
(MonadIO m) =>
m Notebook
notebookNew = liftIO $ do
result <- gtk_notebook_new
checkUnexpectedReturnNULL "gtk_notebook_new" result
result' <- (newObject Notebook) result
return result'
-- method Notebook::append_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_append_page" gtk_notebook_append_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
IO Int32
notebookAppendPage ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
m Int32
notebookAppendPage _obj child tab_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
result <- gtk_notebook_append_page _obj' child' maybeTab_label
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
return result
-- method Notebook::append_page_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_append_page_menu" gtk_notebook_append_page_menu ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget"
IO Int32
notebookAppendPageMenu ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
Maybe (d) -> -- menu_label
m Int32
notebookAppendPageMenu _obj child tab_label menu_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
maybeMenu_label <- case menu_label of
Nothing -> return nullPtr
Just jMenu_label -> do
let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label
return jMenu_label'
result <- gtk_notebook_append_page_menu _obj' child' maybeTab_label maybeMenu_label
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
whenJust menu_label touchManagedPtr
return result
-- method Notebook::detach_tab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_detach_tab" gtk_notebook_detach_tab ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
notebookDetachTab ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
notebookDetachTab _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_notebook_detach_tab _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Notebook::get_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO (Ptr Widget)
notebookGetActionWidget ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
PackType -> -- pack_type
m Widget
notebookGetActionWidget _obj pack_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pack_type' = (fromIntegral . fromEnum) pack_type
result <- gtk_notebook_get_action_widget _obj' pack_type'
checkUnexpectedReturnNULL "gtk_notebook_get_action_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Notebook::get_current_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_current_page" gtk_notebook_get_current_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO Int32
notebookGetCurrentPage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Int32
notebookGetCurrentPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_current_page _obj'
touchManagedPtr _obj
return result
-- method Notebook::get_group_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_group_name" gtk_notebook_get_group_name ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO CString
notebookGetGroupName ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m T.Text
notebookGetGroupName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_group_name _obj'
checkUnexpectedReturnNULL "gtk_notebook_get_group_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Notebook::get_menu_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_menu_label" gtk_notebook_get_menu_label ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO (Ptr Widget)
notebookGetMenuLabel ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Widget
notebookGetMenuLabel _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_menu_label _obj' child'
checkUnexpectedReturnNULL "gtk_notebook_get_menu_label" result
result' <- (newObject Widget) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_menu_label_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_menu_label_text" gtk_notebook_get_menu_label_text ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CString
notebookGetMenuLabelText ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m T.Text
notebookGetMenuLabelText _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_menu_label_text _obj' child'
checkUnexpectedReturnNULL "gtk_notebook_get_menu_label_text" result
result' <- cstringToText result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_n_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_n_pages" gtk_notebook_get_n_pages ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO Int32
notebookGetNPages ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Int32
notebookGetNPages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_n_pages _obj'
touchManagedPtr _obj
return result
-- method Notebook::get_nth_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Int32 -> -- page_num : TBasicType TInt32
IO (Ptr Widget)
notebookGetNthPage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Int32 -> -- page_num
m Widget
notebookGetNthPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_nth_page _obj' page_num
checkUnexpectedReturnNULL "gtk_notebook_get_nth_page" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Notebook::get_scrollable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_scrollable" gtk_notebook_get_scrollable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO CInt
notebookGetScrollable ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Bool
notebookGetScrollable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_scrollable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Notebook::get_show_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_show_border" gtk_notebook_get_show_border ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO CInt
notebookGetShowBorder ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Bool
notebookGetShowBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_show_border _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Notebook::get_show_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_show_tabs" gtk_notebook_get_show_tabs ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO CInt
notebookGetShowTabs ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Bool
notebookGetShowTabs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_show_tabs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Notebook::get_tab_detachable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_detachable" gtk_notebook_get_tab_detachable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CInt
notebookGetTabDetachable ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Bool
notebookGetTabDetachable _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_tab_detachable _obj' child'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_tab_hborder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_hborder" gtk_notebook_get_tab_hborder ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO Word16
{-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"]#-}
notebookGetTabHborder ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Word16
notebookGetTabHborder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_tab_hborder _obj'
touchManagedPtr _obj
return result
-- method Notebook::get_tab_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO (Ptr Widget)
notebookGetTabLabel ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Widget
notebookGetTabLabel _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_tab_label _obj' child'
checkUnexpectedReturnNULL "gtk_notebook_get_tab_label" result
result' <- (newObject Widget) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_tab_label_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_label_text" gtk_notebook_get_tab_label_text ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CString
notebookGetTabLabelText ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m T.Text
notebookGetTabLabelText _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_tab_label_text _obj' child'
checkUnexpectedReturnNULL "gtk_notebook_get_tab_label_text" result
result' <- cstringToText result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_tab_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO CUInt
notebookGetTabPos ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m PositionType
notebookGetTabPos _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_tab_pos _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Notebook::get_tab_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_reorderable" gtk_notebook_get_tab_reorderable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO CInt
notebookGetTabReorderable ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Bool
notebookGetTabReorderable _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_get_tab_reorderable _obj' child'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr child
return result'
-- method Notebook::get_tab_vborder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_get_tab_vborder" gtk_notebook_get_tab_vborder ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO Word16
{-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"]#-}
notebookGetTabVborder ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m Word16
notebookGetTabVborder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_notebook_get_tab_vborder _obj'
touchManagedPtr _obj
return result
-- method Notebook::insert_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_insert_page" gtk_notebook_insert_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO Int32
notebookInsertPage ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
Int32 -> -- position
m Int32
notebookInsertPage _obj child tab_label position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
result <- gtk_notebook_insert_page _obj' child' maybeTab_label position
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
return result
-- method Notebook::insert_page_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_insert_page_menu" gtk_notebook_insert_page_menu ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO Int32
notebookInsertPageMenu ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
Maybe (d) -> -- menu_label
Int32 -> -- position
m Int32
notebookInsertPageMenu _obj child tab_label menu_label position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
maybeMenu_label <- case menu_label of
Nothing -> return nullPtr
Just jMenu_label -> do
let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label
return jMenu_label'
result <- gtk_notebook_insert_page_menu _obj' child' maybeTab_label maybeMenu_label position
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
whenJust menu_label touchManagedPtr
return result
-- method Notebook::next_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_next_page" gtk_notebook_next_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO ()
notebookNextPage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m ()
notebookNextPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_next_page _obj'
touchManagedPtr _obj
return ()
-- method Notebook::page_num
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_page_num" gtk_notebook_page_num ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO Int32
notebookPageNum ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m Int32
notebookPageNum _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_page_num _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return result
-- method Notebook::popup_disable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_popup_disable" gtk_notebook_popup_disable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO ()
notebookPopupDisable ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m ()
notebookPopupDisable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_popup_disable _obj'
touchManagedPtr _obj
return ()
-- method Notebook::popup_enable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_popup_enable" gtk_notebook_popup_enable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO ()
notebookPopupEnable ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m ()
notebookPopupEnable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_popup_enable _obj'
touchManagedPtr _obj
return ()
-- method Notebook::prepend_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_prepend_page" gtk_notebook_prepend_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
IO Int32
notebookPrependPage ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
m Int32
notebookPrependPage _obj child tab_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
result <- gtk_notebook_prepend_page _obj' child' maybeTab_label
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
return result
-- method Notebook::prepend_page_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_prepend_page_menu" gtk_notebook_prepend_page_menu ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget"
IO Int32
notebookPrependPageMenu ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
Maybe (d) -> -- menu_label
m Int32
notebookPrependPageMenu _obj child tab_label menu_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
maybeMenu_label <- case menu_label of
Nothing -> return nullPtr
Just jMenu_label -> do
let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label
return jMenu_label'
result <- gtk_notebook_prepend_page_menu _obj' child' maybeTab_label maybeMenu_label
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
whenJust menu_label touchManagedPtr
return result
-- method Notebook::prev_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_prev_page" gtk_notebook_prev_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
IO ()
notebookPrevPage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
m ()
notebookPrevPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_prev_page _obj'
touchManagedPtr _obj
return ()
-- method Notebook::remove_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Int32 -> -- page_num : TBasicType TInt32
IO ()
notebookRemovePage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Int32 -> -- page_num
m ()
notebookRemovePage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_remove_page _obj' page_num
touchManagedPtr _obj
return ()
-- method Notebook::reorder_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
notebookReorderChild ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
notebookReorderChild _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_notebook_reorder_child _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Notebook::set_action_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_action_widget" gtk_notebook_set_action_widget ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO ()
notebookSetActionWidget ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
PackType -> -- pack_type
m ()
notebookSetActionWidget _obj widget pack_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let pack_type' = (fromIntegral . fromEnum) pack_type
gtk_notebook_set_action_widget _obj' widget' pack_type'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Notebook::set_current_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Int32 -> -- page_num : TBasicType TInt32
IO ()
notebookSetCurrentPage ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Int32 -> -- page_num
m ()
notebookSetCurrentPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_set_current_page _obj' page_num
touchManagedPtr _obj
return ()
-- method Notebook::set_group_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_group_name" gtk_notebook_set_group_name ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CString -> -- group_name : TBasicType TUTF8
IO ()
notebookSetGroupName ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Maybe (T.Text) -> -- group_name
m ()
notebookSetGroupName _obj group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
gtk_notebook_set_group_name _obj' maybeGroup_name
touchManagedPtr _obj
freeMem maybeGroup_name
return ()
-- method Notebook::set_menu_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_menu_label" gtk_notebook_set_menu_label ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget"
IO ()
notebookSetMenuLabel ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- menu_label
m ()
notebookSetMenuLabel _obj child menu_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeMenu_label <- case menu_label of
Nothing -> return nullPtr
Just jMenu_label -> do
let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label
return jMenu_label'
gtk_notebook_set_menu_label _obj' child' maybeMenu_label
touchManagedPtr _obj
touchManagedPtr child
whenJust menu_label touchManagedPtr
return ()
-- method Notebook::set_menu_label_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_menu_label_text" gtk_notebook_set_menu_label_text ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- menu_text : TBasicType TUTF8
IO ()
notebookSetMenuLabelText ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- menu_text
m ()
notebookSetMenuLabelText _obj child menu_text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
menu_text' <- textToCString menu_text
gtk_notebook_set_menu_label_text _obj' child' menu_text'
touchManagedPtr _obj
touchManagedPtr child
freeMem menu_text'
return ()
-- method Notebook::set_scrollable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_scrollable" gtk_notebook_set_scrollable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CInt -> -- scrollable : TBasicType TBoolean
IO ()
notebookSetScrollable ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Bool -> -- scrollable
m ()
notebookSetScrollable _obj scrollable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let scrollable' = (fromIntegral . fromEnum) scrollable
gtk_notebook_set_scrollable _obj' scrollable'
touchManagedPtr _obj
return ()
-- method Notebook::set_show_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_show_border" gtk_notebook_set_show_border ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CInt -> -- show_border : TBasicType TBoolean
IO ()
notebookSetShowBorder ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Bool -> -- show_border
m ()
notebookSetShowBorder _obj show_border = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_border' = (fromIntegral . fromEnum) show_border
gtk_notebook_set_show_border _obj' show_border'
touchManagedPtr _obj
return ()
-- method Notebook::set_show_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_show_tabs" gtk_notebook_set_show_tabs ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CInt -> -- show_tabs : TBasicType TBoolean
IO ()
notebookSetShowTabs ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
Bool -> -- show_tabs
m ()
notebookSetShowTabs _obj show_tabs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_tabs' = (fromIntegral . fromEnum) show_tabs
gtk_notebook_set_show_tabs _obj' show_tabs'
touchManagedPtr _obj
return ()
-- method Notebook::set_tab_detachable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_tab_detachable" gtk_notebook_set_tab_detachable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- detachable : TBasicType TBoolean
IO ()
notebookSetTabDetachable ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- detachable
m ()
notebookSetTabDetachable _obj child detachable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let detachable' = (fromIntegral . fromEnum) detachable
gtk_notebook_set_tab_detachable _obj' child' detachable'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Notebook::set_tab_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_tab_label" gtk_notebook_set_tab_label ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget"
IO ()
notebookSetTabLabel ::
(MonadIO m, NotebookK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- tab_label
m ()
notebookSetTabLabel _obj child tab_label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeTab_label <- case tab_label of
Nothing -> return nullPtr
Just jTab_label -> do
let jTab_label' = unsafeManagedPtrCastPtr jTab_label
return jTab_label'
gtk_notebook_set_tab_label _obj' child' maybeTab_label
touchManagedPtr _obj
touchManagedPtr child
whenJust tab_label touchManagedPtr
return ()
-- method Notebook::set_tab_label_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_tab_label_text" gtk_notebook_set_tab_label_text ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- tab_text : TBasicType TUTF8
IO ()
notebookSetTabLabelText ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- tab_text
m ()
notebookSetTabLabelText _obj child tab_text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
tab_text' <- textToCString tab_text
gtk_notebook_set_tab_label_text _obj' child' tab_text'
touchManagedPtr _obj
touchManagedPtr child
freeMem tab_text'
return ()
-- method Notebook::set_tab_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_tab_pos" gtk_notebook_set_tab_pos ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
CUInt -> -- pos : TInterface "Gtk" "PositionType"
IO ()
notebookSetTabPos ::
(MonadIO m, NotebookK a) =>
a -> -- _obj
PositionType -> -- pos
m ()
notebookSetTabPos _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pos' = (fromIntegral . fromEnum) pos
gtk_notebook_set_tab_pos _obj' pos'
touchManagedPtr _obj
return ()
-- method Notebook::set_tab_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_set_tab_reorderable" gtk_notebook_set_tab_reorderable ::
Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- reorderable : TBasicType TBoolean
IO ()
notebookSetTabReorderable ::
(MonadIO m, NotebookK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- reorderable
m ()
notebookSetTabReorderable _obj child reorderable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_notebook_set_tab_reorderable _obj' child' reorderable'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- signal Notebook::change-current-page
type NotebookChangeCurrentPageCallback =
Int32 ->
IO Bool
noNotebookChangeCurrentPageCallback :: Maybe NotebookChangeCurrentPageCallback
noNotebookChangeCurrentPageCallback = Nothing
type NotebookChangeCurrentPageCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkNotebookChangeCurrentPageCallback :: NotebookChangeCurrentPageCallbackC -> IO (FunPtr NotebookChangeCurrentPageCallbackC)
notebookChangeCurrentPageClosure :: NotebookChangeCurrentPageCallback -> IO Closure
notebookChangeCurrentPageClosure cb = newCClosure =<< mkNotebookChangeCurrentPageCallback wrapped
where wrapped = notebookChangeCurrentPageCallbackWrapper cb
notebookChangeCurrentPageCallbackWrapper ::
NotebookChangeCurrentPageCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO CInt
notebookChangeCurrentPageCallbackWrapper _cb _ object _ = do
result <- _cb object
let result' = (fromIntegral . fromEnum) result
return result'
onNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId
onNotebookChangeCurrentPage obj cb = liftIO $ connectNotebookChangeCurrentPage obj cb SignalConnectBefore
afterNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId
afterNotebookChangeCurrentPage obj cb = connectNotebookChangeCurrentPage obj cb SignalConnectAfter
connectNotebookChangeCurrentPage :: (GObject a, MonadIO m) =>
a -> NotebookChangeCurrentPageCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookChangeCurrentPage obj cb after = liftIO $ do
cb' <- mkNotebookChangeCurrentPageCallback (notebookChangeCurrentPageCallbackWrapper cb)
connectSignalFunPtr obj "change-current-page" cb' after
-- signal Notebook::create-window
type NotebookCreateWindowCallback =
Widget ->
Int32 ->
Int32 ->
IO Notebook
noNotebookCreateWindowCallback :: Maybe NotebookCreateWindowCallback
noNotebookCreateWindowCallback = Nothing
type NotebookCreateWindowCallbackC =
Ptr () -> -- object
Ptr Widget ->
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO (Ptr Notebook)
foreign import ccall "wrapper"
mkNotebookCreateWindowCallback :: NotebookCreateWindowCallbackC -> IO (FunPtr NotebookCreateWindowCallbackC)
notebookCreateWindowClosure :: NotebookCreateWindowCallback -> IO Closure
notebookCreateWindowClosure cb = newCClosure =<< mkNotebookCreateWindowCallback wrapped
where wrapped = notebookCreateWindowCallbackWrapper cb
notebookCreateWindowCallbackWrapper ::
NotebookCreateWindowCallback ->
Ptr () ->
Ptr Widget ->
Int32 ->
Int32 ->
Ptr () ->
IO (Ptr Notebook)
notebookCreateWindowCallbackWrapper _cb _ page x y _ = do
page' <- (newObject Widget) page
result <- _cb page' x y
let result' = unsafeManagedPtrCastPtr result
return result'
onNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId
onNotebookCreateWindow obj cb = liftIO $ connectNotebookCreateWindow obj cb SignalConnectBefore
afterNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId
afterNotebookCreateWindow obj cb = connectNotebookCreateWindow obj cb SignalConnectAfter
connectNotebookCreateWindow :: (GObject a, MonadIO m) =>
a -> NotebookCreateWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookCreateWindow obj cb after = liftIO $ do
cb' <- mkNotebookCreateWindowCallback (notebookCreateWindowCallbackWrapper cb)
connectSignalFunPtr obj "create-window" cb' after
-- signal Notebook::focus-tab
type NotebookFocusTabCallback =
NotebookTab ->
IO Bool
noNotebookFocusTabCallback :: Maybe NotebookFocusTabCallback
noNotebookFocusTabCallback = Nothing
type NotebookFocusTabCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkNotebookFocusTabCallback :: NotebookFocusTabCallbackC -> IO (FunPtr NotebookFocusTabCallbackC)
notebookFocusTabClosure :: NotebookFocusTabCallback -> IO Closure
notebookFocusTabClosure cb = newCClosure =<< mkNotebookFocusTabCallback wrapped
where wrapped = notebookFocusTabCallbackWrapper cb
notebookFocusTabCallbackWrapper ::
NotebookFocusTabCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
notebookFocusTabCallbackWrapper _cb _ object _ = do
let object' = (toEnum . fromIntegral) object
result <- _cb object'
let result' = (fromIntegral . fromEnum) result
return result'
onNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId
onNotebookFocusTab obj cb = liftIO $ connectNotebookFocusTab obj cb SignalConnectBefore
afterNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId
afterNotebookFocusTab obj cb = connectNotebookFocusTab obj cb SignalConnectAfter
connectNotebookFocusTab :: (GObject a, MonadIO m) =>
a -> NotebookFocusTabCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookFocusTab obj cb after = liftIO $ do
cb' <- mkNotebookFocusTabCallback (notebookFocusTabCallbackWrapper cb)
connectSignalFunPtr obj "focus-tab" cb' after
-- signal Notebook::move-focus-out
type NotebookMoveFocusOutCallback =
DirectionType ->
IO ()
noNotebookMoveFocusOutCallback :: Maybe NotebookMoveFocusOutCallback
noNotebookMoveFocusOutCallback = Nothing
type NotebookMoveFocusOutCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkNotebookMoveFocusOutCallback :: NotebookMoveFocusOutCallbackC -> IO (FunPtr NotebookMoveFocusOutCallbackC)
notebookMoveFocusOutClosure :: NotebookMoveFocusOutCallback -> IO Closure
notebookMoveFocusOutClosure cb = newCClosure =<< mkNotebookMoveFocusOutCallback wrapped
where wrapped = notebookMoveFocusOutCallbackWrapper cb
notebookMoveFocusOutCallbackWrapper ::
NotebookMoveFocusOutCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
notebookMoveFocusOutCallbackWrapper _cb _ object _ = do
let object' = (toEnum . fromIntegral) object
_cb object'
onNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId
onNotebookMoveFocusOut obj cb = liftIO $ connectNotebookMoveFocusOut obj cb SignalConnectBefore
afterNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId
afterNotebookMoveFocusOut obj cb = connectNotebookMoveFocusOut obj cb SignalConnectAfter
connectNotebookMoveFocusOut :: (GObject a, MonadIO m) =>
a -> NotebookMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookMoveFocusOut obj cb after = liftIO $ do
cb' <- mkNotebookMoveFocusOutCallback (notebookMoveFocusOutCallbackWrapper cb)
connectSignalFunPtr obj "move-focus-out" cb' after
-- signal Notebook::page-added
type NotebookPageAddedCallback =
Widget ->
Word32 ->
IO ()
noNotebookPageAddedCallback :: Maybe NotebookPageAddedCallback
noNotebookPageAddedCallback = Nothing
type NotebookPageAddedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkNotebookPageAddedCallback :: NotebookPageAddedCallbackC -> IO (FunPtr NotebookPageAddedCallbackC)
notebookPageAddedClosure :: NotebookPageAddedCallback -> IO Closure
notebookPageAddedClosure cb = newCClosure =<< mkNotebookPageAddedCallback wrapped
where wrapped = notebookPageAddedCallbackWrapper cb
notebookPageAddedCallbackWrapper ::
NotebookPageAddedCallback ->
Ptr () ->
Ptr Widget ->
Word32 ->
Ptr () ->
IO ()
notebookPageAddedCallbackWrapper _cb _ child page_num _ = do
child' <- (newObject Widget) child
_cb child' page_num
onNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId
onNotebookPageAdded obj cb = liftIO $ connectNotebookPageAdded obj cb SignalConnectBefore
afterNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId
afterNotebookPageAdded obj cb = connectNotebookPageAdded obj cb SignalConnectAfter
connectNotebookPageAdded :: (GObject a, MonadIO m) =>
a -> NotebookPageAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookPageAdded obj cb after = liftIO $ do
cb' <- mkNotebookPageAddedCallback (notebookPageAddedCallbackWrapper cb)
connectSignalFunPtr obj "page-added" cb' after
-- signal Notebook::page-removed
type NotebookPageRemovedCallback =
Widget ->
Word32 ->
IO ()
noNotebookPageRemovedCallback :: Maybe NotebookPageRemovedCallback
noNotebookPageRemovedCallback = Nothing
type NotebookPageRemovedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkNotebookPageRemovedCallback :: NotebookPageRemovedCallbackC -> IO (FunPtr NotebookPageRemovedCallbackC)
notebookPageRemovedClosure :: NotebookPageRemovedCallback -> IO Closure
notebookPageRemovedClosure cb = newCClosure =<< mkNotebookPageRemovedCallback wrapped
where wrapped = notebookPageRemovedCallbackWrapper cb
notebookPageRemovedCallbackWrapper ::
NotebookPageRemovedCallback ->
Ptr () ->
Ptr Widget ->
Word32 ->
Ptr () ->
IO ()
notebookPageRemovedCallbackWrapper _cb _ child page_num _ = do
child' <- (newObject Widget) child
_cb child' page_num
onNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId
onNotebookPageRemoved obj cb = liftIO $ connectNotebookPageRemoved obj cb SignalConnectBefore
afterNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId
afterNotebookPageRemoved obj cb = connectNotebookPageRemoved obj cb SignalConnectAfter
connectNotebookPageRemoved :: (GObject a, MonadIO m) =>
a -> NotebookPageRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookPageRemoved obj cb after = liftIO $ do
cb' <- mkNotebookPageRemovedCallback (notebookPageRemovedCallbackWrapper cb)
connectSignalFunPtr obj "page-removed" cb' after
-- signal Notebook::page-reordered
type NotebookPageReorderedCallback =
Widget ->
Word32 ->
IO ()
noNotebookPageReorderedCallback :: Maybe NotebookPageReorderedCallback
noNotebookPageReorderedCallback = Nothing
type NotebookPageReorderedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkNotebookPageReorderedCallback :: NotebookPageReorderedCallbackC -> IO (FunPtr NotebookPageReorderedCallbackC)
notebookPageReorderedClosure :: NotebookPageReorderedCallback -> IO Closure
notebookPageReorderedClosure cb = newCClosure =<< mkNotebookPageReorderedCallback wrapped
where wrapped = notebookPageReorderedCallbackWrapper cb
notebookPageReorderedCallbackWrapper ::
NotebookPageReorderedCallback ->
Ptr () ->
Ptr Widget ->
Word32 ->
Ptr () ->
IO ()
notebookPageReorderedCallbackWrapper _cb _ child page_num _ = do
child' <- (newObject Widget) child
_cb child' page_num
onNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId
onNotebookPageReordered obj cb = liftIO $ connectNotebookPageReordered obj cb SignalConnectBefore
afterNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId
afterNotebookPageReordered obj cb = connectNotebookPageReordered obj cb SignalConnectAfter
connectNotebookPageReordered :: (GObject a, MonadIO m) =>
a -> NotebookPageReorderedCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookPageReordered obj cb after = liftIO $ do
cb' <- mkNotebookPageReorderedCallback (notebookPageReorderedCallbackWrapper cb)
connectSignalFunPtr obj "page-reordered" cb' after
-- signal Notebook::reorder-tab
type NotebookReorderTabCallback =
DirectionType ->
Bool ->
IO Bool
noNotebookReorderTabCallback :: Maybe NotebookReorderTabCallback
noNotebookReorderTabCallback = Nothing
type NotebookReorderTabCallbackC =
Ptr () -> -- object
CUInt ->
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkNotebookReorderTabCallback :: NotebookReorderTabCallbackC -> IO (FunPtr NotebookReorderTabCallbackC)
notebookReorderTabClosure :: NotebookReorderTabCallback -> IO Closure
notebookReorderTabClosure cb = newCClosure =<< mkNotebookReorderTabCallback wrapped
where wrapped = notebookReorderTabCallbackWrapper cb
notebookReorderTabCallbackWrapper ::
NotebookReorderTabCallback ->
Ptr () ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
notebookReorderTabCallbackWrapper _cb _ object p0 _ = do
let object' = (toEnum . fromIntegral) object
let p0' = (/= 0) p0
result <- _cb object' p0'
let result' = (fromIntegral . fromEnum) result
return result'
onNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId
onNotebookReorderTab obj cb = liftIO $ connectNotebookReorderTab obj cb SignalConnectBefore
afterNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId
afterNotebookReorderTab obj cb = connectNotebookReorderTab obj cb SignalConnectAfter
connectNotebookReorderTab :: (GObject a, MonadIO m) =>
a -> NotebookReorderTabCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookReorderTab obj cb after = liftIO $ do
cb' <- mkNotebookReorderTabCallback (notebookReorderTabCallbackWrapper cb)
connectSignalFunPtr obj "reorder-tab" cb' after
-- signal Notebook::select-page
type NotebookSelectPageCallback =
Bool ->
IO Bool
noNotebookSelectPageCallback :: Maybe NotebookSelectPageCallback
noNotebookSelectPageCallback = Nothing
type NotebookSelectPageCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkNotebookSelectPageCallback :: NotebookSelectPageCallbackC -> IO (FunPtr NotebookSelectPageCallbackC)
notebookSelectPageClosure :: NotebookSelectPageCallback -> IO Closure
notebookSelectPageClosure cb = newCClosure =<< mkNotebookSelectPageCallback wrapped
where wrapped = notebookSelectPageCallbackWrapper cb
notebookSelectPageCallbackWrapper ::
NotebookSelectPageCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
notebookSelectPageCallbackWrapper _cb _ object _ = do
let object' = (/= 0) object
result <- _cb object'
let result' = (fromIntegral . fromEnum) result
return result'
onNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId
onNotebookSelectPage obj cb = liftIO $ connectNotebookSelectPage obj cb SignalConnectBefore
afterNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId
afterNotebookSelectPage obj cb = connectNotebookSelectPage obj cb SignalConnectAfter
connectNotebookSelectPage :: (GObject a, MonadIO m) =>
a -> NotebookSelectPageCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookSelectPage obj cb after = liftIO $ do
cb' <- mkNotebookSelectPageCallback (notebookSelectPageCallbackWrapper cb)
connectSignalFunPtr obj "select-page" cb' after
-- signal Notebook::switch-page
type NotebookSwitchPageCallback =
Widget ->
Word32 ->
IO ()
noNotebookSwitchPageCallback :: Maybe NotebookSwitchPageCallback
noNotebookSwitchPageCallback = Nothing
type NotebookSwitchPageCallbackC =
Ptr () -> -- object
Ptr Widget ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkNotebookSwitchPageCallback :: NotebookSwitchPageCallbackC -> IO (FunPtr NotebookSwitchPageCallbackC)
notebookSwitchPageClosure :: NotebookSwitchPageCallback -> IO Closure
notebookSwitchPageClosure cb = newCClosure =<< mkNotebookSwitchPageCallback wrapped
where wrapped = notebookSwitchPageCallbackWrapper cb
notebookSwitchPageCallbackWrapper ::
NotebookSwitchPageCallback ->
Ptr () ->
Ptr Widget ->
Word32 ->
Ptr () ->
IO ()
notebookSwitchPageCallbackWrapper _cb _ page page_num _ = do
page' <- (newObject Widget) page
_cb page' page_num
onNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId
onNotebookSwitchPage obj cb = liftIO $ connectNotebookSwitchPage obj cb SignalConnectBefore
afterNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId
afterNotebookSwitchPage obj cb = connectNotebookSwitchPage obj cb SignalConnectAfter
connectNotebookSwitchPage :: (GObject a, MonadIO m) =>
a -> NotebookSwitchPageCallback -> SignalConnectMode -> m SignalHandlerId
connectNotebookSwitchPage obj cb after = liftIO $ do
cb' <- mkNotebookSwitchPageCallback (notebookSwitchPageCallbackWrapper cb)
connectSignalFunPtr obj "switch-page" cb' after
-- object NotebookAccessible
newtype NotebookAccessible = NotebookAccessible (ForeignPtr NotebookAccessible)
noNotebookAccessible :: Maybe NotebookAccessible
noNotebookAccessible = Nothing
foreign import ccall "gtk_notebook_accessible_get_type"
c_gtk_notebook_accessible_get_type :: IO GType
type instance ParentTypes NotebookAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection]
instance GObject NotebookAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_notebook_accessible_get_type
class GObject o => NotebookAccessibleK o
instance (GObject o, IsDescendantOf NotebookAccessible o) => NotebookAccessibleK o
toNotebookAccessible :: NotebookAccessibleK o => o -> IO NotebookAccessible
toNotebookAccessible = unsafeCastTo NotebookAccessible
-- object NotebookPageAccessible
newtype NotebookPageAccessible = NotebookPageAccessible (ForeignPtr NotebookPageAccessible)
noNotebookPageAccessible :: Maybe NotebookPageAccessible
noNotebookPageAccessible = Nothing
foreign import ccall "gtk_notebook_page_accessible_get_type"
c_gtk_notebook_page_accessible_get_type :: IO GType
type instance ParentTypes NotebookPageAccessible = '[Atk.Object, GObject.Object, Atk.Component]
instance GObject NotebookPageAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_notebook_page_accessible_get_type
class GObject o => NotebookPageAccessibleK o
instance (GObject o, IsDescendantOf NotebookPageAccessible o) => NotebookPageAccessibleK o
toNotebookPageAccessible :: NotebookPageAccessibleK o => o -> IO NotebookPageAccessible
toNotebookPageAccessible = unsafeCastTo NotebookPageAccessible
-- method NotebookPageAccessible::new
-- method type : Constructor
-- Args : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "NotebookPageAccessible"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_page_accessible_new" gtk_notebook_page_accessible_new ::
Ptr NotebookAccessible -> -- notebook : TInterface "Gtk" "NotebookAccessible"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO (Ptr NotebookPageAccessible)
notebookPageAccessibleNew ::
(MonadIO m, NotebookAccessibleK a, WidgetK b) =>
a -> -- notebook
b -> -- child
m NotebookPageAccessible
notebookPageAccessibleNew notebook child = liftIO $ do
let notebook' = unsafeManagedPtrCastPtr notebook
let child' = unsafeManagedPtrCastPtr child
result <- gtk_notebook_page_accessible_new notebook' child'
checkUnexpectedReturnNULL "gtk_notebook_page_accessible_new" result
result' <- (wrapObject NotebookPageAccessible) result
touchManagedPtr notebook
touchManagedPtr child
return result'
-- method NotebookPageAccessible::invalidate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_notebook_page_accessible_invalidate" gtk_notebook_page_accessible_invalidate ::
Ptr NotebookPageAccessible -> -- _obj : TInterface "Gtk" "NotebookPageAccessible"
IO ()
notebookPageAccessibleInvalidate ::
(MonadIO m, NotebookPageAccessibleK a) =>
a -> -- _obj
m ()
notebookPageAccessibleInvalidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_notebook_page_accessible_invalidate _obj'
touchManagedPtr _obj
return ()
-- Enum NotebookTab
data NotebookTab =
NotebookTabFirst
| NotebookTabLast
| AnotherNotebookTab Int
deriving (Show, Eq)
instance Enum NotebookTab where
fromEnum NotebookTabFirst = 0
fromEnum NotebookTabLast = 1
fromEnum (AnotherNotebookTab k) = k
toEnum 0 = NotebookTabFirst
toEnum 1 = NotebookTabLast
toEnum k = AnotherNotebookTab k
foreign import ccall "gtk_notebook_tab_get_type" c_gtk_notebook_tab_get_type ::
IO GType
instance BoxedEnum NotebookTab where
boxedEnumType _ = c_gtk_notebook_tab_get_type
-- Enum NumberUpLayout
data NumberUpLayout =
NumberUpLayoutLrtb
| NumberUpLayoutLrbt
| NumberUpLayoutRltb
| NumberUpLayoutRlbt
| NumberUpLayoutTblr
| NumberUpLayoutTbrl
| NumberUpLayoutBtlr
| NumberUpLayoutBtrl
| AnotherNumberUpLayout Int
deriving (Show, Eq)
instance Enum NumberUpLayout where
fromEnum NumberUpLayoutLrtb = 0
fromEnum NumberUpLayoutLrbt = 1
fromEnum NumberUpLayoutRltb = 2
fromEnum NumberUpLayoutRlbt = 3
fromEnum NumberUpLayoutTblr = 4
fromEnum NumberUpLayoutTbrl = 5
fromEnum NumberUpLayoutBtlr = 6
fromEnum NumberUpLayoutBtrl = 7
fromEnum (AnotherNumberUpLayout k) = k
toEnum 0 = NumberUpLayoutLrtb
toEnum 1 = NumberUpLayoutLrbt
toEnum 2 = NumberUpLayoutRltb
toEnum 3 = NumberUpLayoutRlbt
toEnum 4 = NumberUpLayoutTblr
toEnum 5 = NumberUpLayoutTbrl
toEnum 6 = NumberUpLayoutBtlr
toEnum 7 = NumberUpLayoutBtrl
toEnum k = AnotherNumberUpLayout k
foreign import ccall "gtk_number_up_layout_get_type" c_gtk_number_up_layout_get_type ::
IO GType
instance BoxedEnum NumberUpLayout where
boxedEnumType _ = c_gtk_number_up_layout_get_type
-- object NumerableIcon
newtype NumerableIcon = NumerableIcon (ForeignPtr NumerableIcon)
noNumerableIcon :: Maybe NumerableIcon
noNumerableIcon = Nothing
foreign import ccall "gtk_numerable_icon_get_type"
c_gtk_numerable_icon_get_type :: IO GType
type instance ParentTypes NumerableIcon = '[Gio.EmblemedIcon, GObject.Object, Gio.Icon]
instance GObject NumerableIcon where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_numerable_icon_get_type
class GObject o => NumerableIconK o
instance (GObject o, IsDescendantOf NumerableIcon o) => NumerableIconK o
toNumerableIcon :: NumerableIconK o => o -> IO NumerableIcon
toNumerableIcon = unsafeCastTo NumerableIcon
-- method NumerableIcon::get_background_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_get_background_gicon" gtk_numerable_icon_get_background_gicon ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
IO (Ptr Gio.Icon)
{-# DEPRECATED numerableIconGetBackgroundGicon ["(Since version 3.14)"]#-}
numerableIconGetBackgroundGicon ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
m Gio.Icon
numerableIconGetBackgroundGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_background_gicon _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
-- method NumerableIcon::get_background_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_get_background_icon_name" gtk_numerable_icon_get_background_icon_name ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
IO CString
{-# DEPRECATED numerableIconGetBackgroundIconName ["(Since version 3.14)"]#-}
numerableIconGetBackgroundIconName ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
m T.Text
numerableIconGetBackgroundIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_background_icon_name _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method NumerableIcon::get_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_get_count" gtk_numerable_icon_get_count ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
IO Int32
{-# DEPRECATED numerableIconGetCount ["(Since version 3.14)"]#-}
numerableIconGetCount ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
m Int32
numerableIconGetCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_count _obj'
touchManagedPtr _obj
return result
-- method NumerableIcon::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_get_label" gtk_numerable_icon_get_label ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
IO CString
{-# DEPRECATED numerableIconGetLabel ["(Since version 3.14)"]#-}
numerableIconGetLabel ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
m T.Text
numerableIconGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_label _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method NumerableIcon::get_style_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StyleContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_get_style_context" gtk_numerable_icon_get_style_context ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
IO (Ptr StyleContext)
{-# DEPRECATED numerableIconGetStyleContext ["(Since version 3.14)"]#-}
numerableIconGetStyleContext ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
m StyleContext
numerableIconGetStyleContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_style_context _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_style_context" result
result' <- (newObject StyleContext) result
touchManagedPtr _obj
return result'
-- method NumerableIcon::set_background_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_set_background_gicon" gtk_numerable_icon_set_background_gicon ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
{-# DEPRECATED numerableIconSetBackgroundGicon ["(Since version 3.14)"]#-}
numerableIconSetBackgroundGicon ::
(MonadIO m, NumerableIconK a, Gio.IconK b) =>
a -> -- _obj
Maybe (b) -> -- icon
m ()
numerableIconSetBackgroundGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
let jIcon' = unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_numerable_icon_set_background_gicon _obj' maybeIcon
touchManagedPtr _obj
whenJust icon touchManagedPtr
return ()
-- method NumerableIcon::set_background_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_set_background_icon_name" gtk_numerable_icon_set_background_icon_name ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
CString -> -- icon_name : TBasicType TUTF8
IO ()
{-# DEPRECATED numerableIconSetBackgroundIconName ["(Since version 3.14)"]#-}
numerableIconSetBackgroundIconName ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
Maybe (T.Text) -> -- icon_name
m ()
numerableIconSetBackgroundIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_numerable_icon_set_background_icon_name _obj' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method NumerableIcon::set_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
Int32 -> -- count : TBasicType TInt32
IO ()
{-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-}
numerableIconSetCount ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
Int32 -> -- count
m ()
numerableIconSetCount _obj count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_numerable_icon_set_count _obj' count
touchManagedPtr _obj
return ()
-- method NumerableIcon::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_set_label" gtk_numerable_icon_set_label ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
CString -> -- label : TBasicType TUTF8
IO ()
{-# DEPRECATED numerableIconSetLabel ["(Since version 3.14)"]#-}
numerableIconSetLabel ::
(MonadIO m, NumerableIconK a) =>
a -> -- _obj
Maybe (T.Text) -> -- label
m ()
numerableIconSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_numerable_icon_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
-- method NumerableIcon::set_style_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_set_style_context" gtk_numerable_icon_set_style_context ::
Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon"
Ptr StyleContext -> -- style : TInterface "Gtk" "StyleContext"
IO ()
{-# DEPRECATED numerableIconSetStyleContext ["(Since version 3.14)"]#-}
numerableIconSetStyleContext ::
(MonadIO m, NumerableIconK a, StyleContextK b) =>
a -> -- _obj
b -> -- style
m ()
numerableIconSetStyleContext _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = unsafeManagedPtrCastPtr style
gtk_numerable_icon_set_style_context _obj' style'
touchManagedPtr _obj
touchManagedPtr style
return ()
-- method NumerableIcon::new
-- method type : MemberFunction
-- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_new" gtk_numerable_icon_new ::
Ptr Gio.Icon -> -- base_icon : TInterface "Gio" "Icon"
IO (Ptr Gio.Icon)
{-# DEPRECATED numerableIconNew ["(Since version 3.14)"]#-}
numerableIconNew ::
(MonadIO m, Gio.IconK a) =>
a -> -- base_icon
m Gio.Icon
numerableIconNew base_icon = liftIO $ do
let base_icon' = unsafeManagedPtrCastPtr base_icon
result <- gtk_numerable_icon_new base_icon'
checkUnexpectedReturnNULL "gtk_numerable_icon_new" result
result' <- (wrapObject Gio.Icon) result
touchManagedPtr base_icon
return result'
-- method NumerableIcon::new_with_style_context
-- method type : MemberFunction
-- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_numerable_icon_new_with_style_context" gtk_numerable_icon_new_with_style_context ::
Ptr Gio.Icon -> -- base_icon : TInterface "Gio" "Icon"
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
IO (Ptr Gio.Icon)
{-# DEPRECATED numerableIconNewWithStyleContext ["(Since version 3.14)"]#-}
numerableIconNewWithStyleContext ::
(MonadIO m, Gio.IconK a, StyleContextK b) =>
a -> -- base_icon
b -> -- context
m Gio.Icon
numerableIconNewWithStyleContext base_icon context = liftIO $ do
let base_icon' = unsafeManagedPtrCastPtr base_icon
let context' = unsafeManagedPtrCastPtr context
result <- gtk_numerable_icon_new_with_style_context base_icon' context'
checkUnexpectedReturnNULL "gtk_numerable_icon_new_with_style_context" result
result' <- (wrapObject Gio.Icon) result
touchManagedPtr base_icon
touchManagedPtr context
return result'
-- object OffscreenWindow
newtype OffscreenWindow = OffscreenWindow (ForeignPtr OffscreenWindow)
noOffscreenWindow :: Maybe OffscreenWindow
noOffscreenWindow = Nothing
foreign import ccall "gtk_offscreen_window_get_type"
c_gtk_offscreen_window_get_type :: IO GType
type instance ParentTypes OffscreenWindow = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject OffscreenWindow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_offscreen_window_get_type
class GObject o => OffscreenWindowK o
instance (GObject o, IsDescendantOf OffscreenWindow o) => OffscreenWindowK o
toOffscreenWindow :: OffscreenWindowK o => o -> IO OffscreenWindow
toOffscreenWindow = unsafeCastTo OffscreenWindow
-- method OffscreenWindow::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "OffscreenWindow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_offscreen_window_new" gtk_offscreen_window_new ::
IO (Ptr OffscreenWindow)
offscreenWindowNew ::
(MonadIO m) =>
m OffscreenWindow
offscreenWindowNew = liftIO $ do
result <- gtk_offscreen_window_new
checkUnexpectedReturnNULL "gtk_offscreen_window_new" result
result' <- (newObject OffscreenWindow) result
return result'
-- method OffscreenWindow::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_offscreen_window_get_pixbuf" gtk_offscreen_window_get_pixbuf ::
Ptr OffscreenWindow -> -- _obj : TInterface "Gtk" "OffscreenWindow"
IO (Ptr GdkPixbuf.Pixbuf)
offscreenWindowGetPixbuf ::
(MonadIO m, OffscreenWindowK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
offscreenWindowGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_offscreen_window_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_offscreen_window_get_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method OffscreenWindow::get_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_offscreen_window_get_surface" gtk_offscreen_window_get_surface ::
Ptr OffscreenWindow -> -- _obj : TInterface "Gtk" "OffscreenWindow"
IO (Ptr Cairo.Surface)
offscreenWindowGetSurface ::
(MonadIO m, OffscreenWindowK a) =>
a -> -- _obj
m Cairo.Surface
offscreenWindowGetSurface _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_offscreen_window_get_surface _obj'
checkUnexpectedReturnNULL "gtk_offscreen_window_get_surface" result
result' <- (newBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
-- interface Orientable
newtype Orientable = Orientable (ForeignPtr Orientable)
noOrientable :: Maybe Orientable
noOrientable = Nothing
foreign import ccall "gtk_orientable_get_type"
c_gtk_orientable_get_type :: IO GType
type instance ParentTypes Orientable = '[GObject.Object]
instance GObject Orientable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_orientable_get_type
class GObject o => OrientableK o
instance (GObject o, IsDescendantOf Orientable o) => OrientableK o
toOrientable :: OrientableK o => o -> IO Orientable
toOrientable = unsafeCastTo Orientable
-- method Orientable::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_orientable_get_orientation" gtk_orientable_get_orientation ::
Ptr Orientable -> -- _obj : TInterface "Gtk" "Orientable"
IO CUInt
orientableGetOrientation ::
(MonadIO m, OrientableK a) =>
a -> -- _obj
m Orientation
orientableGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_orientable_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Orientable::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_orientable_set_orientation" gtk_orientable_set_orientation ::
Ptr Orientable -> -- _obj : TInterface "Gtk" "Orientable"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
orientableSetOrientation ::
(MonadIO m, OrientableK a) =>
a -> -- _obj
Orientation -> -- orientation
m ()
orientableSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_orientable_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- Enum Orientation
data Orientation =
OrientationHorizontal
| OrientationVertical
| AnotherOrientation Int
deriving (Show, Eq)
instance Enum Orientation where
fromEnum OrientationHorizontal = 0
fromEnum OrientationVertical = 1
fromEnum (AnotherOrientation k) = k
toEnum 0 = OrientationHorizontal
toEnum 1 = OrientationVertical
toEnum k = AnotherOrientation k
foreign import ccall "gtk_orientation_get_type" c_gtk_orientation_get_type ::
IO GType
instance BoxedEnum Orientation where
boxedEnumType _ = c_gtk_orientation_get_type
-- object Overlay
newtype Overlay = Overlay (ForeignPtr Overlay)
noOverlay :: Maybe Overlay
noOverlay = Nothing
foreign import ccall "gtk_overlay_get_type"
c_gtk_overlay_get_type :: IO GType
type instance ParentTypes Overlay = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Overlay where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_overlay_get_type
class GObject o => OverlayK o
instance (GObject o, IsDescendantOf Overlay o) => OverlayK o
toOverlay :: OverlayK o => o -> IO Overlay
toOverlay = unsafeCastTo Overlay
-- method Overlay::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Overlay"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_overlay_new" gtk_overlay_new ::
IO (Ptr Overlay)
overlayNew ::
(MonadIO m) =>
m Overlay
overlayNew = liftIO $ do
result <- gtk_overlay_new
checkUnexpectedReturnNULL "gtk_overlay_new" result
result' <- (newObject Overlay) result
return result'
-- method Overlay::add_overlay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_overlay_add_overlay" gtk_overlay_add_overlay ::
Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
overlayAddOverlay ::
(MonadIO m, OverlayK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m ()
overlayAddOverlay _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_overlay_add_overlay _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Overlay::get_overlay_pass_through
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_overlay_get_overlay_pass_through" gtk_overlay_get_overlay_pass_through ::
Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO CInt
overlayGetOverlayPassThrough ::
(MonadIO m, OverlayK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m Bool
overlayGetOverlayPassThrough _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_overlay_get_overlay_pass_through _obj' widget'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr widget
return result'
-- method Overlay::reorder_overlay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_overlay_reorder_overlay" gtk_overlay_reorder_overlay ::
Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
overlayReorderOverlay ::
(MonadIO m, OverlayK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
overlayReorderOverlay _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_overlay_reorder_overlay _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Overlay::set_overlay_pass_through
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_overlay_set_overlay_pass_through" gtk_overlay_set_overlay_pass_through ::
Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CInt -> -- pass_through : TBasicType TBoolean
IO ()
overlaySetOverlayPassThrough ::
(MonadIO m, OverlayK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Bool -> -- pass_through
m ()
overlaySetOverlayPassThrough _obj widget pass_through = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let pass_through' = (fromIntegral . fromEnum) pass_through
gtk_overlay_set_overlay_pass_through _obj' widget' pass_through'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- Enum PackDirection
data PackDirection =
PackDirectionLtr
| PackDirectionRtl
| PackDirectionTtb
| PackDirectionBtt
| AnotherPackDirection Int
deriving (Show, Eq)
instance Enum PackDirection where
fromEnum PackDirectionLtr = 0
fromEnum PackDirectionRtl = 1
fromEnum PackDirectionTtb = 2
fromEnum PackDirectionBtt = 3
fromEnum (AnotherPackDirection k) = k
toEnum 0 = PackDirectionLtr
toEnum 1 = PackDirectionRtl
toEnum 2 = PackDirectionTtb
toEnum 3 = PackDirectionBtt
toEnum k = AnotherPackDirection k
foreign import ccall "gtk_pack_direction_get_type" c_gtk_pack_direction_get_type ::
IO GType
instance BoxedEnum PackDirection where
boxedEnumType _ = c_gtk_pack_direction_get_type
-- Enum PackType
data PackType =
PackTypeStart
| PackTypeEnd
| AnotherPackType Int
deriving (Show, Eq)
instance Enum PackType where
fromEnum PackTypeStart = 0
fromEnum PackTypeEnd = 1
fromEnum (AnotherPackType k) = k
toEnum 0 = PackTypeStart
toEnum 1 = PackTypeEnd
toEnum k = AnotherPackType k
foreign import ccall "gtk_pack_type_get_type" c_gtk_pack_type_get_type ::
IO GType
instance BoxedEnum PackType where
boxedEnumType _ = c_gtk_pack_type_get_type
-- Enum PageOrientation
data PageOrientation =
PageOrientationPortrait
| PageOrientationLandscape
| PageOrientationReversePortrait
| PageOrientationReverseLandscape
| AnotherPageOrientation Int
deriving (Show, Eq)
instance Enum PageOrientation where
fromEnum PageOrientationPortrait = 0
fromEnum PageOrientationLandscape = 1
fromEnum PageOrientationReversePortrait = 2
fromEnum PageOrientationReverseLandscape = 3
fromEnum (AnotherPageOrientation k) = k
toEnum 0 = PageOrientationPortrait
toEnum 1 = PageOrientationLandscape
toEnum 2 = PageOrientationReversePortrait
toEnum 3 = PageOrientationReverseLandscape
toEnum k = AnotherPageOrientation k
foreign import ccall "gtk_page_orientation_get_type" c_gtk_page_orientation_get_type ::
IO GType
instance BoxedEnum PageOrientation where
boxedEnumType _ = c_gtk_page_orientation_get_type
-- struct PageRange
newtype PageRange = PageRange (ForeignPtr PageRange)
noPageRange :: Maybe PageRange
noPageRange = Nothing
pageRangeReadStart :: PageRange -> IO Int32
pageRangeReadStart s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
pageRangeReadEnd :: PageRange -> IO Int32
pageRangeReadEnd s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int32
return val
-- Enum PageSet
data PageSet =
PageSetAll
| PageSetEven
| PageSetOdd
| AnotherPageSet Int
deriving (Show, Eq)
instance Enum PageSet where
fromEnum PageSetAll = 0
fromEnum PageSetEven = 1
fromEnum PageSetOdd = 2
fromEnum (AnotherPageSet k) = k
toEnum 0 = PageSetAll
toEnum 1 = PageSetEven
toEnum 2 = PageSetOdd
toEnum k = AnotherPageSet k
foreign import ccall "gtk_page_set_get_type" c_gtk_page_set_get_type ::
IO GType
instance BoxedEnum PageSet where
boxedEnumType _ = c_gtk_page_set_get_type
-- object PageSetup
newtype PageSetup = PageSetup (ForeignPtr PageSetup)
noPageSetup :: Maybe PageSetup
noPageSetup = Nothing
foreign import ccall "gtk_page_setup_get_type"
c_gtk_page_setup_get_type :: IO GType
type instance ParentTypes PageSetup = '[GObject.Object]
instance GObject PageSetup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_page_setup_get_type
class GObject o => PageSetupK o
instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o
toPageSetup :: PageSetupK o => o -> IO PageSetup
toPageSetup = unsafeCastTo PageSetup
-- method PageSetup::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_new" gtk_page_setup_new ::
IO (Ptr PageSetup)
pageSetupNew ::
(MonadIO m) =>
m PageSetup
pageSetupNew = liftIO $ do
result <- gtk_page_setup_new
checkUnexpectedReturnNULL "gtk_page_setup_new" result
result' <- (wrapObject PageSetup) result
return result'
-- method PageSetup::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_new_from_file" gtk_page_setup_new_from_file ::
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO (Ptr PageSetup)
pageSetupNewFromFile ::
(MonadIO m) =>
[Char] -> -- file_name
m PageSetup
pageSetupNewFromFile file_name = liftIO $ do
file_name' <- stringToCString file_name
onException (do
result <- propagateGError $ gtk_page_setup_new_from_file file_name'
checkUnexpectedReturnNULL "gtk_page_setup_new_from_file" result
result' <- (wrapObject PageSetup) result
freeMem file_name'
return result'
) (do
freeMem file_name'
)
-- method PageSetup::new_from_key_file
-- method type : Constructor
-- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_new_from_key_file" gtk_page_setup_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PageSetup)
pageSetupNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m PageSetup
pageSetupNewFromKeyFile key_file group_name = liftIO $ do
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
result <- propagateGError $ gtk_page_setup_new_from_key_file key_file' maybeGroup_name
checkUnexpectedReturnNULL "gtk_page_setup_new_from_key_file" result
result' <- (wrapObject PageSetup) result
touchManagedPtr key_file
freeMem maybeGroup_name
return result'
) (do
freeMem maybeGroup_name
)
-- method PageSetup::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_copy" gtk_page_setup_copy ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO (Ptr PageSetup)
pageSetupCopy ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PageSetup
pageSetupCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_copy _obj'
checkUnexpectedReturnNULL "gtk_page_setup_copy" result
result' <- (wrapObject PageSetup) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_bottom_margin" gtk_page_setup_get_bottom_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetBottomMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetBottomMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_bottom_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_left_margin" gtk_page_setup_get_left_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetLeftMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetLeftMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_left_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageOrientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_orientation" gtk_page_setup_get_orientation ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO CUInt
pageSetupGetOrientation ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PageOrientation
pageSetupGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_page_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_page_height" gtk_page_setup_get_page_height ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPageHeight ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPageHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_page_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_page_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_page_width" gtk_page_setup_get_page_width ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPageWidth ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPageWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_page_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_height" gtk_page_setup_get_paper_height ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPaperHeight ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPaperHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_paper_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_size" gtk_page_setup_get_paper_size ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO (Ptr PaperSize)
pageSetupGetPaperSize ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PaperSize
pageSetupGetPaperSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_get_paper_size _obj'
checkUnexpectedReturnNULL "gtk_page_setup_get_paper_size" result
result' <- (newBoxed PaperSize) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_width" gtk_page_setup_get_paper_width ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPaperWidth ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPaperWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_paper_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_right_margin" gtk_page_setup_get_right_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetRightMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetRightMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_right_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_top_margin" gtk_page_setup_get_top_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetTopMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetTopMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_top_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::load_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_load_file" gtk_page_setup_load_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupLoadFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
pageSetupLoadFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_page_setup_load_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PageSetup::load_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_load_key_file" gtk_page_setup_load_key_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupLoadKeyFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m ()
pageSetupLoadKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
_ <- propagateGError $ gtk_page_setup_load_key_file _obj' key_file' maybeGroup_name
touchManagedPtr _obj
touchManagedPtr key_file
freeMem maybeGroup_name
return ()
) (do
freeMem maybeGroup_name
)
-- method PageSetup::set_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_bottom_margin" gtk_page_setup_set_bottom_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetBottomMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetBottomMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_bottom_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_left_margin" gtk_page_setup_set_left_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetLeftMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetLeftMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_left_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_orientation" gtk_page_setup_set_orientation ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- orientation : TInterface "Gtk" "PageOrientation"
IO ()
pageSetupSetOrientation ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PageOrientation -> -- orientation
m ()
pageSetupSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_page_setup_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- method PageSetup::set_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_paper_size" gtk_page_setup_set_paper_size ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize"
IO ()
pageSetupSetPaperSize ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PaperSize -> -- size
m ()
pageSetupSetPaperSize _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size' = unsafeManagedPtrGetPtr size
gtk_page_setup_set_paper_size _obj' size'
touchManagedPtr _obj
touchManagedPtr size
return ()
-- method PageSetup::set_paper_size_and_default_margins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_paper_size_and_default_margins" gtk_page_setup_set_paper_size_and_default_margins ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize"
IO ()
pageSetupSetPaperSizeAndDefaultMargins ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PaperSize -> -- size
m ()
pageSetupSetPaperSizeAndDefaultMargins _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size' = unsafeManagedPtrGetPtr size
gtk_page_setup_set_paper_size_and_default_margins _obj' size'
touchManagedPtr _obj
touchManagedPtr size
return ()
-- method PageSetup::set_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_right_margin" gtk_page_setup_set_right_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetRightMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetRightMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_right_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_top_margin" gtk_page_setup_set_top_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetTopMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetTopMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_top_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::to_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_to_file" gtk_page_setup_to_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupToFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
pageSetupToFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_page_setup_to_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PageSetup::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_to_key_file" gtk_page_setup_to_key_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
pageSetupToKeyFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m ()
pageSetupToKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
gtk_page_setup_to_key_file _obj' key_file' group_name'
touchManagedPtr _obj
touchManagedPtr key_file
freeMem group_name'
return ()
-- callback PageSetupDoneFunc
pageSetupDoneFuncClosure :: PageSetupDoneFunc -> IO Closure
pageSetupDoneFuncClosure cb = newCClosure =<< mkPageSetupDoneFunc wrapped
where wrapped = pageSetupDoneFuncWrapper Nothing cb
type PageSetupDoneFuncC =
Ptr PageSetup ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkPageSetupDoneFunc :: PageSetupDoneFuncC -> IO (FunPtr PageSetupDoneFuncC)
type PageSetupDoneFunc =
PageSetup ->
IO ()
noPageSetupDoneFunc :: Maybe PageSetupDoneFunc
noPageSetupDoneFunc = Nothing
pageSetupDoneFuncWrapper ::
Maybe (Ptr (FunPtr (PageSetupDoneFuncC))) ->
PageSetupDoneFunc ->
Ptr PageSetup ->
Ptr () ->
IO ()
pageSetupDoneFuncWrapper funptrptr _cb page_setup _ = do
page_setup' <- (newObject PageSetup) page_setup
_cb page_setup'
maybeReleaseFunPtr funptrptr
-- Enum PanDirection
data PanDirection =
PanDirectionLeft
| PanDirectionRight
| PanDirectionUp
| PanDirectionDown
| AnotherPanDirection Int
deriving (Show, Eq)
instance Enum PanDirection where
fromEnum PanDirectionLeft = 0
fromEnum PanDirectionRight = 1
fromEnum PanDirectionUp = 2
fromEnum PanDirectionDown = 3
fromEnum (AnotherPanDirection k) = k
toEnum 0 = PanDirectionLeft
toEnum 1 = PanDirectionRight
toEnum 2 = PanDirectionUp
toEnum 3 = PanDirectionDown
toEnum k = AnotherPanDirection k
foreign import ccall "gtk_pan_direction_get_type" c_gtk_pan_direction_get_type ::
IO GType
instance BoxedEnum PanDirection where
boxedEnumType _ = c_gtk_pan_direction_get_type
-- object Paned
newtype Paned = Paned (ForeignPtr Paned)
noPaned :: Maybe Paned
noPaned = Nothing
foreign import ccall "gtk_paned_get_type"
c_gtk_paned_get_type :: IO GType
type instance ParentTypes Paned = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Paned where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_paned_get_type
class GObject o => PanedK o
instance (GObject o, IsDescendantOf Paned o) => PanedK o
toPaned :: PanedK o => o -> IO Paned
toPaned = unsafeCastTo Paned
-- method Paned::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Paned"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_new" gtk_paned_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO (Ptr Paned)
panedNew ::
(MonadIO m) =>
Orientation -> -- orientation
m Paned
panedNew orientation = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_paned_new orientation'
checkUnexpectedReturnNULL "gtk_paned_new" result
result' <- (newObject Paned) result
return result'
-- method Paned::add1
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_add1" gtk_paned_add1 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
panedAdd1 ::
(MonadIO m, PanedK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
panedAdd1 _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_paned_add1 _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Paned::add2
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_add2" gtk_paned_add2 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
panedAdd2 ::
(MonadIO m, PanedK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
panedAdd2 _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_paned_add2 _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Paned::get_child1
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_get_child1" gtk_paned_get_child1 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
IO (Ptr Widget)
panedGetChild1 ::
(MonadIO m, PanedK a) =>
a -> -- _obj
m Widget
panedGetChild1 _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_child1 _obj'
checkUnexpectedReturnNULL "gtk_paned_get_child1" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Paned::get_child2
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_get_child2" gtk_paned_get_child2 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
IO (Ptr Widget)
panedGetChild2 ::
(MonadIO m, PanedK a) =>
a -> -- _obj
m Widget
panedGetChild2 _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_child2 _obj'
checkUnexpectedReturnNULL "gtk_paned_get_child2" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Paned::get_handle_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_get_handle_window" gtk_paned_get_handle_window ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
IO (Ptr Gdk.Window)
panedGetHandleWindow ::
(MonadIO m, PanedK a) =>
a -> -- _obj
m Gdk.Window
panedGetHandleWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_handle_window _obj'
checkUnexpectedReturnNULL "gtk_paned_get_handle_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Paned::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_get_position" gtk_paned_get_position ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
IO Int32
panedGetPosition ::
(MonadIO m, PanedK a) =>
a -> -- _obj
m Int32
panedGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_position _obj'
touchManagedPtr _obj
return result
-- method Paned::get_wide_handle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_get_wide_handle" gtk_paned_get_wide_handle ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
IO CInt
panedGetWideHandle ::
(MonadIO m, PanedK a) =>
a -> -- _obj
m Bool
panedGetWideHandle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_wide_handle _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Paned::pack1
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_pack1" gtk_paned_pack1 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- resize : TBasicType TBoolean
CInt -> -- shrink : TBasicType TBoolean
IO ()
panedPack1 ::
(MonadIO m, PanedK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- resize
Bool -> -- shrink
m ()
panedPack1 _obj child resize shrink = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let resize' = (fromIntegral . fromEnum) resize
let shrink' = (fromIntegral . fromEnum) shrink
gtk_paned_pack1 _obj' child' resize' shrink'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Paned::pack2
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_pack2" gtk_paned_pack2 ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- resize : TBasicType TBoolean
CInt -> -- shrink : TBasicType TBoolean
IO ()
panedPack2 ::
(MonadIO m, PanedK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- resize
Bool -> -- shrink
m ()
panedPack2 _obj child resize shrink = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let resize' = (fromIntegral . fromEnum) resize
let shrink' = (fromIntegral . fromEnum) shrink
gtk_paned_pack2 _obj' child' resize' shrink'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Paned::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_set_position" gtk_paned_set_position ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
Int32 -> -- position : TBasicType TInt32
IO ()
panedSetPosition ::
(MonadIO m, PanedK a) =>
a -> -- _obj
Int32 -> -- position
m ()
panedSetPosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_paned_set_position _obj' position
touchManagedPtr _obj
return ()
-- method Paned::set_wide_handle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paned_set_wide_handle" gtk_paned_set_wide_handle ::
Ptr Paned -> -- _obj : TInterface "Gtk" "Paned"
CInt -> -- wide : TBasicType TBoolean
IO ()
panedSetWideHandle ::
(MonadIO m, PanedK a) =>
a -> -- _obj
Bool -> -- wide
m ()
panedSetWideHandle _obj wide = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wide' = (fromIntegral . fromEnum) wide
gtk_paned_set_wide_handle _obj' wide'
touchManagedPtr _obj
return ()
-- signal Paned::accept-position
type PanedAcceptPositionCallback =
IO Bool
noPanedAcceptPositionCallback :: Maybe PanedAcceptPositionCallback
noPanedAcceptPositionCallback = Nothing
type PanedAcceptPositionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedAcceptPositionCallback :: PanedAcceptPositionCallbackC -> IO (FunPtr PanedAcceptPositionCallbackC)
panedAcceptPositionClosure :: PanedAcceptPositionCallback -> IO Closure
panedAcceptPositionClosure cb = newCClosure =<< mkPanedAcceptPositionCallback wrapped
where wrapped = panedAcceptPositionCallbackWrapper cb
panedAcceptPositionCallbackWrapper ::
PanedAcceptPositionCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedAcceptPositionCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedAcceptPosition obj cb = liftIO $ connectPanedAcceptPosition obj cb SignalConnectBefore
afterPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedAcceptPosition obj cb = connectPanedAcceptPosition obj cb SignalConnectAfter
connectPanedAcceptPosition :: (GObject a, MonadIO m) =>
a -> PanedAcceptPositionCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedAcceptPosition obj cb after = liftIO $ do
cb' <- mkPanedAcceptPositionCallback (panedAcceptPositionCallbackWrapper cb)
connectSignalFunPtr obj "accept-position" cb' after
-- signal Paned::cancel-position
type PanedCancelPositionCallback =
IO Bool
noPanedCancelPositionCallback :: Maybe PanedCancelPositionCallback
noPanedCancelPositionCallback = Nothing
type PanedCancelPositionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedCancelPositionCallback :: PanedCancelPositionCallbackC -> IO (FunPtr PanedCancelPositionCallbackC)
panedCancelPositionClosure :: PanedCancelPositionCallback -> IO Closure
panedCancelPositionClosure cb = newCClosure =<< mkPanedCancelPositionCallback wrapped
where wrapped = panedCancelPositionCallbackWrapper cb
panedCancelPositionCallbackWrapper ::
PanedCancelPositionCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedCancelPositionCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
onPanedCancelPosition obj cb = liftIO $ connectPanedCancelPosition obj cb SignalConnectBefore
afterPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
afterPanedCancelPosition obj cb = connectPanedCancelPosition obj cb SignalConnectAfter
connectPanedCancelPosition :: (GObject a, MonadIO m) =>
a -> PanedCancelPositionCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCancelPosition obj cb after = liftIO $ do
cb' <- mkPanedCancelPositionCallback (panedCancelPositionCallbackWrapper cb)
connectSignalFunPtr obj "cancel-position" cb' after
-- signal Paned::cycle-child-focus
type PanedCycleChildFocusCallback =
Bool ->
IO Bool
noPanedCycleChildFocusCallback :: Maybe PanedCycleChildFocusCallback
noPanedCycleChildFocusCallback = Nothing
type PanedCycleChildFocusCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedCycleChildFocusCallback :: PanedCycleChildFocusCallbackC -> IO (FunPtr PanedCycleChildFocusCallbackC)
panedCycleChildFocusClosure :: PanedCycleChildFocusCallback -> IO Closure
panedCycleChildFocusClosure cb = newCClosure =<< mkPanedCycleChildFocusCallback wrapped
where wrapped = panedCycleChildFocusCallbackWrapper cb
panedCycleChildFocusCallbackWrapper ::
PanedCycleChildFocusCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
panedCycleChildFocusCallbackWrapper _cb _ reversed _ = do
let reversed' = (/= 0) reversed
result <- _cb reversed'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
onPanedCycleChildFocus obj cb = liftIO $ connectPanedCycleChildFocus obj cb SignalConnectBefore
afterPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
afterPanedCycleChildFocus obj cb = connectPanedCycleChildFocus obj cb SignalConnectAfter
connectPanedCycleChildFocus :: (GObject a, MonadIO m) =>
a -> PanedCycleChildFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCycleChildFocus obj cb after = liftIO $ do
cb' <- mkPanedCycleChildFocusCallback (panedCycleChildFocusCallbackWrapper cb)
connectSignalFunPtr obj "cycle-child-focus" cb' after
-- signal Paned::cycle-handle-focus
type PanedCycleHandleFocusCallback =
Bool ->
IO Bool
noPanedCycleHandleFocusCallback :: Maybe PanedCycleHandleFocusCallback
noPanedCycleHandleFocusCallback = Nothing
type PanedCycleHandleFocusCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedCycleHandleFocusCallback :: PanedCycleHandleFocusCallbackC -> IO (FunPtr PanedCycleHandleFocusCallbackC)
panedCycleHandleFocusClosure :: PanedCycleHandleFocusCallback -> IO Closure
panedCycleHandleFocusClosure cb = newCClosure =<< mkPanedCycleHandleFocusCallback wrapped
where wrapped = panedCycleHandleFocusCallbackWrapper cb
panedCycleHandleFocusCallbackWrapper ::
PanedCycleHandleFocusCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
panedCycleHandleFocusCallbackWrapper _cb _ reversed _ = do
let reversed' = (/= 0) reversed
result <- _cb reversed'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
onPanedCycleHandleFocus obj cb = liftIO $ connectPanedCycleHandleFocus obj cb SignalConnectBefore
afterPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
afterPanedCycleHandleFocus obj cb = connectPanedCycleHandleFocus obj cb SignalConnectAfter
connectPanedCycleHandleFocus :: (GObject a, MonadIO m) =>
a -> PanedCycleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCycleHandleFocus obj cb after = liftIO $ do
cb' <- mkPanedCycleHandleFocusCallback (panedCycleHandleFocusCallbackWrapper cb)
connectSignalFunPtr obj "cycle-handle-focus" cb' after
-- signal Paned::move-handle
type PanedMoveHandleCallback =
ScrollType ->
IO Bool
noPanedMoveHandleCallback :: Maybe PanedMoveHandleCallback
noPanedMoveHandleCallback = Nothing
type PanedMoveHandleCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedMoveHandleCallback :: PanedMoveHandleCallbackC -> IO (FunPtr PanedMoveHandleCallbackC)
panedMoveHandleClosure :: PanedMoveHandleCallback -> IO Closure
panedMoveHandleClosure cb = newCClosure =<< mkPanedMoveHandleCallback wrapped
where wrapped = panedMoveHandleCallbackWrapper cb
panedMoveHandleCallbackWrapper ::
PanedMoveHandleCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
panedMoveHandleCallbackWrapper _cb _ scroll_type _ = do
let scroll_type' = (toEnum . fromIntegral) scroll_type
result <- _cb scroll_type'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
onPanedMoveHandle obj cb = liftIO $ connectPanedMoveHandle obj cb SignalConnectBefore
afterPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
afterPanedMoveHandle obj cb = connectPanedMoveHandle obj cb SignalConnectAfter
connectPanedMoveHandle :: (GObject a, MonadIO m) =>
a -> PanedMoveHandleCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedMoveHandle obj cb after = liftIO $ do
cb' <- mkPanedMoveHandleCallback (panedMoveHandleCallbackWrapper cb)
connectSignalFunPtr obj "move-handle" cb' after
-- signal Paned::toggle-handle-focus
type PanedToggleHandleFocusCallback =
IO Bool
noPanedToggleHandleFocusCallback :: Maybe PanedToggleHandleFocusCallback
noPanedToggleHandleFocusCallback = Nothing
type PanedToggleHandleFocusCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPanedToggleHandleFocusCallback :: PanedToggleHandleFocusCallbackC -> IO (FunPtr PanedToggleHandleFocusCallbackC)
panedToggleHandleFocusClosure :: PanedToggleHandleFocusCallback -> IO Closure
panedToggleHandleFocusClosure cb = newCClosure =<< mkPanedToggleHandleFocusCallback wrapped
where wrapped = panedToggleHandleFocusCallbackWrapper cb
panedToggleHandleFocusCallbackWrapper ::
PanedToggleHandleFocusCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedToggleHandleFocusCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
onPanedToggleHandleFocus obj cb = liftIO $ connectPanedToggleHandleFocus obj cb SignalConnectBefore
afterPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
afterPanedToggleHandleFocus obj cb = connectPanedToggleHandleFocus obj cb SignalConnectAfter
connectPanedToggleHandleFocus :: (GObject a, MonadIO m) =>
a -> PanedToggleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedToggleHandleFocus obj cb after = liftIO $ do
cb' <- mkPanedToggleHandleFocusCallback (panedToggleHandleFocusCallbackWrapper cb)
connectSignalFunPtr obj "toggle-handle-focus" cb' after
-- object PanedAccessible
newtype PanedAccessible = PanedAccessible (ForeignPtr PanedAccessible)
noPanedAccessible :: Maybe PanedAccessible
noPanedAccessible = Nothing
foreign import ccall "gtk_paned_accessible_get_type"
c_gtk_paned_accessible_get_type :: IO GType
type instance ParentTypes PanedAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value]
instance GObject PanedAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_paned_accessible_get_type
class GObject o => PanedAccessibleK o
instance (GObject o, IsDescendantOf PanedAccessible o) => PanedAccessibleK o
toPanedAccessible :: PanedAccessibleK o => o -> IO PanedAccessible
toPanedAccessible = unsafeCastTo PanedAccessible
-- struct PaperSize
newtype PaperSize = PaperSize (ForeignPtr PaperSize)
noPaperSize :: Maybe PaperSize
noPaperSize = Nothing
foreign import ccall "gtk_paper_size_get_type" c_gtk_paper_size_get_type ::
IO GType
instance BoxedObject PaperSize where
boxedType _ = c_gtk_paper_size_get_type
-- method PaperSize::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new" gtk_paper_size_new ::
CString -> -- name : TBasicType TUTF8
IO (Ptr PaperSize)
paperSizeNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- name
m PaperSize
paperSizeNew name = liftIO $ do
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
result <- gtk_paper_size_new maybeName
checkUnexpectedReturnNULL "gtk_paper_size_new" result
result' <- (wrapBoxed PaperSize) result
freeMem maybeName
return result'
-- method PaperSize::new_custom
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new_custom" gtk_paper_size_new_custom ::
CString -> -- name : TBasicType TUTF8
CString -> -- display_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO (Ptr PaperSize)
paperSizeNewCustom ::
(MonadIO m) =>
T.Text -> -- name
T.Text -> -- display_name
Double -> -- width
Double -> -- height
Unit -> -- unit
m PaperSize
paperSizeNewCustom name display_name width height unit = liftIO $ do
name' <- textToCString name
display_name' <- textToCString display_name
let width' = realToFrac width
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_new_custom name' display_name' width' height' unit'
checkUnexpectedReturnNULL "gtk_paper_size_new_custom" result
result' <- (wrapBoxed PaperSize) result
freeMem name'
freeMem display_name'
return result'
-- method PaperSize::new_from_ipp
-- method type : Constructor
-- Args : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new_from_ipp" gtk_paper_size_new_from_ipp ::
CString -> -- ipp_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO (Ptr PaperSize)
paperSizeNewFromIpp ::
(MonadIO m) =>
T.Text -> -- ipp_name
Double -> -- width
Double -> -- height
m PaperSize
paperSizeNewFromIpp ipp_name width height = liftIO $ do
ipp_name' <- textToCString ipp_name
let width' = realToFrac width
let height' = realToFrac height
result <- gtk_paper_size_new_from_ipp ipp_name' width' height'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_ipp" result
result' <- (wrapBoxed PaperSize) result
freeMem ipp_name'
return result'
-- method PaperSize::new_from_key_file
-- method type : Constructor
-- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_paper_size_new_from_key_file" gtk_paper_size_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PaperSize)
paperSizeNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m PaperSize
paperSizeNewFromKeyFile key_file group_name = liftIO $ do
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
onException (do
result <- propagateGError $ gtk_paper_size_new_from_key_file key_file' group_name'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_key_file" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr key_file
freeMem group_name'
return result'
) (do
freeMem group_name'
)
-- method PaperSize::new_from_ppd
-- method type : Constructor
-- Args : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new_from_ppd" gtk_paper_size_new_from_ppd ::
CString -> -- ppd_name : TBasicType TUTF8
CString -> -- ppd_display_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO (Ptr PaperSize)
paperSizeNewFromPpd ::
(MonadIO m) =>
T.Text -> -- ppd_name
T.Text -> -- ppd_display_name
Double -> -- width
Double -> -- height
m PaperSize
paperSizeNewFromPpd ppd_name ppd_display_name width height = liftIO $ do
ppd_name' <- textToCString ppd_name
ppd_display_name' <- textToCString ppd_display_name
let width' = realToFrac width
let height' = realToFrac height
result <- gtk_paper_size_new_from_ppd ppd_name' ppd_display_name' width' height'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_ppd" result
result' <- (wrapBoxed PaperSize) result
freeMem ppd_name'
freeMem ppd_display_name'
return result'
-- method PaperSize::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_copy" gtk_paper_size_copy ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO (Ptr PaperSize)
paperSizeCopy ::
(MonadIO m) =>
PaperSize -> -- _obj
m PaperSize
paperSizeCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_copy _obj'
checkUnexpectedReturnNULL "gtk_paper_size_copy" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr _obj
return result'
-- method PaperSize::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_free" gtk_paper_size_free ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO ()
paperSizeFree ::
(MonadIO m) =>
PaperSize -> -- _obj
m ()
paperSizeFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_paper_size_free _obj'
touchManagedPtr _obj
return ()
-- method PaperSize::get_default_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default_bottom_margin" gtk_paper_size_get_default_bottom_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultBottomMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultBottomMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_bottom_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default_left_margin" gtk_paper_size_get_default_left_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultLeftMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultLeftMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_left_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default_right_margin" gtk_paper_size_get_default_right_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultRightMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultRightMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_right_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default_top_margin" gtk_paper_size_get_default_top_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultTopMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultTopMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_top_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_display_name" gtk_paper_size_get_display_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetDisplayName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_display_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_display_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_height" gtk_paper_size_get_height ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetHeight ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_name" gtk_paper_size_get_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_ppd_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_ppd_name" gtk_paper_size_get_ppd_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetPpdName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetPpdName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_ppd_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_ppd_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_width" gtk_paper_size_get_width ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetWidth ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::is_custom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_custom" gtk_paper_size_is_custom ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsCustom ::
(MonadIO m) =>
PaperSize -> -- _obj
m Bool
paperSizeIsCustom _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_is_custom _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PaperSize::is_equal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_equal" gtk_paper_size_is_equal ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
Ptr PaperSize -> -- size2 : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsEqual ::
(MonadIO m) =>
PaperSize -> -- _obj
PaperSize -> -- size2
m Bool
paperSizeIsEqual _obj size2 = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let size2' = unsafeManagedPtrGetPtr size2
result <- gtk_paper_size_is_equal _obj' size2'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr size2
return result'
-- method PaperSize::is_ipp
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_ipp" gtk_paper_size_is_ipp ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsIpp ::
(MonadIO m) =>
PaperSize -> -- _obj
m Bool
paperSizeIsIpp _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_is_ipp _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PaperSize::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_set_size" gtk_paper_size_set_size ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
paperSizeSetSize ::
(MonadIO m) =>
PaperSize -> -- _obj
Double -> -- width
Double -> -- height
Unit -> -- unit
m ()
paperSizeSetSize _obj width height unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let width' = realToFrac width
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
gtk_paper_size_set_size _obj' width' height' unit'
touchManagedPtr _obj
return ()
-- method PaperSize::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_to_key_file" gtk_paper_size_to_key_file ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
paperSizeToKeyFile ::
(MonadIO m) =>
PaperSize -> -- _obj
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m ()
paperSizeToKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
gtk_paper_size_to_key_file _obj' key_file' group_name'
touchManagedPtr _obj
touchManagedPtr key_file
freeMem group_name'
return ()
-- Enum PathPriorityType
{-# DEPRECATED PathPriorityType ["(Since version 3.0)"]#-}
data PathPriorityType =
PathPriorityTypeLowest
| PathPriorityTypeGtk
| PathPriorityTypeApplication
| PathPriorityTypeTheme
| PathPriorityTypeRc
| PathPriorityTypeHighest
| AnotherPathPriorityType Int
deriving (Show, Eq)
instance Enum PathPriorityType where
fromEnum PathPriorityTypeLowest = 0
fromEnum PathPriorityTypeGtk = 4
fromEnum PathPriorityTypeApplication = 8
fromEnum PathPriorityTypeTheme = 10
fromEnum PathPriorityTypeRc = 12
fromEnum PathPriorityTypeHighest = 15
fromEnum (AnotherPathPriorityType k) = k
toEnum 0 = PathPriorityTypeLowest
toEnum 4 = PathPriorityTypeGtk
toEnum 8 = PathPriorityTypeApplication
toEnum 10 = PathPriorityTypeTheme
toEnum 12 = PathPriorityTypeRc
toEnum 15 = PathPriorityTypeHighest
toEnum k = AnotherPathPriorityType k
foreign import ccall "gtk_path_priority_type_get_type" c_gtk_path_priority_type_get_type ::
IO GType
instance BoxedEnum PathPriorityType where
boxedEnumType _ = c_gtk_path_priority_type_get_type
-- Enum PathType
{-# DEPRECATED PathType ["(Since version 3.0)"]#-}
data PathType =
PathTypeWidget
| PathTypeWidgetClass
| PathTypeClass
| AnotherPathType Int
deriving (Show, Eq)
instance Enum PathType where
fromEnum PathTypeWidget = 0
fromEnum PathTypeWidgetClass = 1
fromEnum PathTypeClass = 2
fromEnum (AnotherPathType k) = k
toEnum 0 = PathTypeWidget
toEnum 1 = PathTypeWidgetClass
toEnum 2 = PathTypeClass
toEnum k = AnotherPathType k
foreign import ccall "gtk_path_type_get_type" c_gtk_path_type_get_type ::
IO GType
instance BoxedEnum PathType where
boxedEnumType _ = c_gtk_path_type_get_type
-- Flags PlacesOpenFlags
data PlacesOpenFlags =
PlacesOpenFlagsNormal
| PlacesOpenFlagsNewTab
| PlacesOpenFlagsNewWindow
| AnotherPlacesOpenFlags Int
deriving (Show, Eq)
instance Enum PlacesOpenFlags where
fromEnum PlacesOpenFlagsNormal = 1
fromEnum PlacesOpenFlagsNewTab = 2
fromEnum PlacesOpenFlagsNewWindow = 4
fromEnum (AnotherPlacesOpenFlags k) = k
toEnum 1 = PlacesOpenFlagsNormal
toEnum 2 = PlacesOpenFlagsNewTab
toEnum 4 = PlacesOpenFlagsNewWindow
toEnum k = AnotherPlacesOpenFlags k
foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type ::
IO GType
instance BoxedEnum PlacesOpenFlags where
boxedEnumType _ = c_gtk_places_open_flags_get_type
instance IsGFlag PlacesOpenFlags
-- object PlacesSidebar
newtype PlacesSidebar = PlacesSidebar (ForeignPtr PlacesSidebar)
noPlacesSidebar :: Maybe PlacesSidebar
noPlacesSidebar = Nothing
foreign import ccall "gtk_places_sidebar_get_type"
c_gtk_places_sidebar_get_type :: IO GType
type instance ParentTypes PlacesSidebar = '[ScrolledWindow, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject PlacesSidebar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_places_sidebar_get_type
class GObject o => PlacesSidebarK o
instance (GObject o, IsDescendantOf PlacesSidebar o) => PlacesSidebarK o
toPlacesSidebar :: PlacesSidebarK o => o -> IO PlacesSidebar
toPlacesSidebar = unsafeCastTo PlacesSidebar
-- method PlacesSidebar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PlacesSidebar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_new" gtk_places_sidebar_new ::
IO (Ptr PlacesSidebar)
placesSidebarNew ::
(MonadIO m) =>
m PlacesSidebar
placesSidebarNew = liftIO $ do
result <- gtk_places_sidebar_new
checkUnexpectedReturnNULL "gtk_places_sidebar_new" result
result' <- (newObject PlacesSidebar) result
return result'
-- method PlacesSidebar::add_shortcut
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_add_shortcut" gtk_places_sidebar_add_shortcut ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
Ptr Gio.File -> -- location : TInterface "Gio" "File"
IO ()
placesSidebarAddShortcut ::
(MonadIO m, PlacesSidebarK a, Gio.FileK b) =>
a -> -- _obj
b -> -- location
m ()
placesSidebarAddShortcut _obj location = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let location' = unsafeManagedPtrCastPtr location
gtk_places_sidebar_add_shortcut _obj' location'
touchManagedPtr _obj
touchManagedPtr location
return ()
-- method PlacesSidebar::get_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_local_only" gtk_places_sidebar_get_local_only ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetLocalOnly ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetLocalOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_local_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_location" gtk_places_sidebar_get_location ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO (Ptr Gio.File)
placesSidebarGetLocation ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Gio.File
placesSidebarGetLocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_location _obj'
checkUnexpectedReturnNULL "gtk_places_sidebar_get_location" result
result' <- (wrapObject Gio.File) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_nth_bookmark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "File"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_nth_bookmark" gtk_places_sidebar_get_nth_bookmark ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
Int32 -> -- n : TBasicType TInt32
IO (Ptr Gio.File)
placesSidebarGetNthBookmark ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Int32 -> -- n
m Gio.File
placesSidebarGetNthBookmark _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_nth_bookmark _obj' n
checkUnexpectedReturnNULL "gtk_places_sidebar_get_nth_bookmark" result
result' <- (wrapObject Gio.File) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_open_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PlacesOpenFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_open_flags" gtk_places_sidebar_get_open_flags ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CUInt
placesSidebarGetOpenFlags ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m [PlacesOpenFlags]
placesSidebarGetOpenFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_open_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_connect_to_server
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_connect_to_server" gtk_places_sidebar_get_show_connect_to_server ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
{-# DEPRECATED placesSidebarGetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-}
placesSidebarGetShowConnectToServer ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowConnectToServer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_connect_to_server _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_desktop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_desktop" gtk_places_sidebar_get_show_desktop ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetShowDesktop ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowDesktop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_desktop _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_enter_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_enter_location" gtk_places_sidebar_get_show_enter_location ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetShowEnterLocation ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowEnterLocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_enter_location _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_other_locations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_other_locations" gtk_places_sidebar_get_show_other_locations ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetShowOtherLocations ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowOtherLocations _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_other_locations _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_recent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_recent" gtk_places_sidebar_get_show_recent ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetShowRecent ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowRecent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_recent _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::get_show_trash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_get_show_trash" gtk_places_sidebar_get_show_trash ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO CInt
placesSidebarGetShowTrash ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m Bool
placesSidebarGetShowTrash _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_get_show_trash _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PlacesSidebar::list_shortcuts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gio" "File")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_list_shortcuts" gtk_places_sidebar_list_shortcuts ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
IO (Ptr (GSList (Ptr Gio.File)))
placesSidebarListShortcuts ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
m [Gio.File]
placesSidebarListShortcuts _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_places_sidebar_list_shortcuts _obj'
checkUnexpectedReturnNULL "gtk_places_sidebar_list_shortcuts" result
result' <- unpackGSList result
result'' <- mapM (wrapObject Gio.File) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method PlacesSidebar::remove_shortcut
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_remove_shortcut" gtk_places_sidebar_remove_shortcut ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
Ptr Gio.File -> -- location : TInterface "Gio" "File"
IO ()
placesSidebarRemoveShortcut ::
(MonadIO m, PlacesSidebarK a, Gio.FileK b) =>
a -> -- _obj
b -> -- location
m ()
placesSidebarRemoveShortcut _obj location = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let location' = unsafeManagedPtrCastPtr location
gtk_places_sidebar_remove_shortcut _obj' location'
touchManagedPtr _obj
touchManagedPtr location
return ()
-- method PlacesSidebar::set_drop_targets_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_drop_targets_visible" gtk_places_sidebar_set_drop_targets_visible ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- visible : TBasicType TBoolean
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO ()
placesSidebarSetDropTargetsVisible ::
(MonadIO m, PlacesSidebarK a, Gdk.DragContextK b) =>
a -> -- _obj
Bool -> -- visible
b -> -- context
m ()
placesSidebarSetDropTargetsVisible _obj visible context = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
let context' = unsafeManagedPtrCastPtr context
gtk_places_sidebar_set_drop_targets_visible _obj' visible' context'
touchManagedPtr _obj
touchManagedPtr context
return ()
-- method PlacesSidebar::set_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_local_only" gtk_places_sidebar_set_local_only ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- local_only : TBasicType TBoolean
IO ()
placesSidebarSetLocalOnly ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- local_only
m ()
placesSidebarSetLocalOnly _obj local_only = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let local_only' = (fromIntegral . fromEnum) local_only
gtk_places_sidebar_set_local_only _obj' local_only'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_location" gtk_places_sidebar_set_location ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
Ptr Gio.File -> -- location : TInterface "Gio" "File"
IO ()
placesSidebarSetLocation ::
(MonadIO m, PlacesSidebarK a, Gio.FileK b) =>
a -> -- _obj
Maybe (b) -> -- location
m ()
placesSidebarSetLocation _obj location = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLocation <- case location of
Nothing -> return nullPtr
Just jLocation -> do
let jLocation' = unsafeManagedPtrCastPtr jLocation
return jLocation'
gtk_places_sidebar_set_location _obj' maybeLocation
touchManagedPtr _obj
whenJust location touchManagedPtr
return ()
-- method PlacesSidebar::set_open_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_open_flags" gtk_places_sidebar_set_open_flags ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CUInt -> -- flags : TInterface "Gtk" "PlacesOpenFlags"
IO ()
placesSidebarSetOpenFlags ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
[PlacesOpenFlags] -> -- flags
m ()
placesSidebarSetOpenFlags _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_places_sidebar_set_open_flags _obj' flags'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_connect_to_server
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_connect_to_server" gtk_places_sidebar_set_show_connect_to_server ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_connect_to_server : TBasicType TBoolean
IO ()
{-# DEPRECATED placesSidebarSetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-}
placesSidebarSetShowConnectToServer ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_connect_to_server
m ()
placesSidebarSetShowConnectToServer _obj show_connect_to_server = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_connect_to_server' = (fromIntegral . fromEnum) show_connect_to_server
gtk_places_sidebar_set_show_connect_to_server _obj' show_connect_to_server'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_desktop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_desktop" gtk_places_sidebar_set_show_desktop ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_desktop : TBasicType TBoolean
IO ()
placesSidebarSetShowDesktop ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_desktop
m ()
placesSidebarSetShowDesktop _obj show_desktop = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_desktop' = (fromIntegral . fromEnum) show_desktop
gtk_places_sidebar_set_show_desktop _obj' show_desktop'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_enter_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_enter_location" gtk_places_sidebar_set_show_enter_location ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_enter_location : TBasicType TBoolean
IO ()
placesSidebarSetShowEnterLocation ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_enter_location
m ()
placesSidebarSetShowEnterLocation _obj show_enter_location = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_enter_location' = (fromIntegral . fromEnum) show_enter_location
gtk_places_sidebar_set_show_enter_location _obj' show_enter_location'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_other_locations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_other_locations" gtk_places_sidebar_set_show_other_locations ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_other_locations : TBasicType TBoolean
IO ()
placesSidebarSetShowOtherLocations ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_other_locations
m ()
placesSidebarSetShowOtherLocations _obj show_other_locations = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_other_locations' = (fromIntegral . fromEnum) show_other_locations
gtk_places_sidebar_set_show_other_locations _obj' show_other_locations'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_recent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_recent" gtk_places_sidebar_set_show_recent ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_recent : TBasicType TBoolean
IO ()
placesSidebarSetShowRecent ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_recent
m ()
placesSidebarSetShowRecent _obj show_recent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_recent' = (fromIntegral . fromEnum) show_recent
gtk_places_sidebar_set_show_recent _obj' show_recent'
touchManagedPtr _obj
return ()
-- method PlacesSidebar::set_show_trash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_places_sidebar_set_show_trash" gtk_places_sidebar_set_show_trash ::
Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar"
CInt -> -- show_trash : TBasicType TBoolean
IO ()
placesSidebarSetShowTrash ::
(MonadIO m, PlacesSidebarK a) =>
a -> -- _obj
Bool -> -- show_trash
m ()
placesSidebarSetShowTrash _obj show_trash = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_trash' = (fromIntegral . fromEnum) show_trash
gtk_places_sidebar_set_show_trash _obj' show_trash'
touchManagedPtr _obj
return ()
-- signal PlacesSidebar::drag-action-ask
type PlacesSidebarDragActionAskCallback =
Int32 ->
IO Int32
noPlacesSidebarDragActionAskCallback :: Maybe PlacesSidebarDragActionAskCallback
noPlacesSidebarDragActionAskCallback = Nothing
type PlacesSidebarDragActionAskCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO Int32
foreign import ccall "wrapper"
mkPlacesSidebarDragActionAskCallback :: PlacesSidebarDragActionAskCallbackC -> IO (FunPtr PlacesSidebarDragActionAskCallbackC)
placesSidebarDragActionAskClosure :: PlacesSidebarDragActionAskCallback -> IO Closure
placesSidebarDragActionAskClosure cb = newCClosure =<< mkPlacesSidebarDragActionAskCallback wrapped
where wrapped = placesSidebarDragActionAskCallbackWrapper cb
placesSidebarDragActionAskCallbackWrapper ::
PlacesSidebarDragActionAskCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO Int32
placesSidebarDragActionAskCallbackWrapper _cb _ actions _ = do
result <- _cb actions
return result
onPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId
onPlacesSidebarDragActionAsk obj cb = liftIO $ connectPlacesSidebarDragActionAsk obj cb SignalConnectBefore
afterPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId
afterPlacesSidebarDragActionAsk obj cb = connectPlacesSidebarDragActionAsk obj cb SignalConnectAfter
connectPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) =>
a -> PlacesSidebarDragActionAskCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarDragActionAsk obj cb after = liftIO $ do
cb' <- mkPlacesSidebarDragActionAskCallback (placesSidebarDragActionAskCallbackWrapper cb)
connectSignalFunPtr obj "drag-action-ask" cb' after
-- signal PlacesSidebar::drag-action-requested
type PlacesSidebarDragActionRequestedCallback =
Gdk.DragContext ->
Gio.File ->
[Gio.File] ->
IO Int32
noPlacesSidebarDragActionRequestedCallback :: Maybe PlacesSidebarDragActionRequestedCallback
noPlacesSidebarDragActionRequestedCallback = Nothing
type PlacesSidebarDragActionRequestedCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Ptr Gio.File ->
Ptr (GList (Ptr Gio.File)) ->
Ptr () -> -- user_data
IO Int32
foreign import ccall "wrapper"
mkPlacesSidebarDragActionRequestedCallback :: PlacesSidebarDragActionRequestedCallbackC -> IO (FunPtr PlacesSidebarDragActionRequestedCallbackC)
placesSidebarDragActionRequestedClosure :: PlacesSidebarDragActionRequestedCallback -> IO Closure
placesSidebarDragActionRequestedClosure cb = newCClosure =<< mkPlacesSidebarDragActionRequestedCallback wrapped
where wrapped = placesSidebarDragActionRequestedCallbackWrapper cb
placesSidebarDragActionRequestedCallbackWrapper ::
PlacesSidebarDragActionRequestedCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr Gio.File ->
Ptr (GList (Ptr Gio.File)) ->
Ptr () ->
IO Int32
placesSidebarDragActionRequestedCallbackWrapper _cb _ context dest_file source_file_list _ = do
context' <- (newObject Gdk.DragContext) context
dest_file' <- (newObject Gio.File) dest_file
source_file_list' <- unpackGList source_file_list
source_file_list'' <- mapM (newObject Gio.File) source_file_list'
result <- _cb context' dest_file' source_file_list''
return result
onPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId
onPlacesSidebarDragActionRequested obj cb = liftIO $ connectPlacesSidebarDragActionRequested obj cb SignalConnectBefore
afterPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId
afterPlacesSidebarDragActionRequested obj cb = connectPlacesSidebarDragActionRequested obj cb SignalConnectAfter
connectPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) =>
a -> PlacesSidebarDragActionRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarDragActionRequested obj cb after = liftIO $ do
cb' <- mkPlacesSidebarDragActionRequestedCallback (placesSidebarDragActionRequestedCallbackWrapper cb)
connectSignalFunPtr obj "drag-action-requested" cb' after
-- signal PlacesSidebar::drag-perform-drop
type PlacesSidebarDragPerformDropCallback =
Gio.File ->
[Gio.File] ->
Int32 ->
IO ()
noPlacesSidebarDragPerformDropCallback :: Maybe PlacesSidebarDragPerformDropCallback
noPlacesSidebarDragPerformDropCallback = Nothing
type PlacesSidebarDragPerformDropCallbackC =
Ptr () -> -- object
Ptr Gio.File ->
Ptr (GList (Ptr Gio.File)) ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarDragPerformDropCallback :: PlacesSidebarDragPerformDropCallbackC -> IO (FunPtr PlacesSidebarDragPerformDropCallbackC)
placesSidebarDragPerformDropClosure :: PlacesSidebarDragPerformDropCallback -> IO Closure
placesSidebarDragPerformDropClosure cb = newCClosure =<< mkPlacesSidebarDragPerformDropCallback wrapped
where wrapped = placesSidebarDragPerformDropCallbackWrapper cb
placesSidebarDragPerformDropCallbackWrapper ::
PlacesSidebarDragPerformDropCallback ->
Ptr () ->
Ptr Gio.File ->
Ptr (GList (Ptr Gio.File)) ->
Int32 ->
Ptr () ->
IO ()
placesSidebarDragPerformDropCallbackWrapper _cb _ dest_file source_file_list action _ = do
dest_file' <- (newObject Gio.File) dest_file
source_file_list' <- unpackGList source_file_list
source_file_list'' <- mapM (newObject Gio.File) source_file_list'
_cb dest_file' source_file_list'' action
onPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId
onPlacesSidebarDragPerformDrop obj cb = liftIO $ connectPlacesSidebarDragPerformDrop obj cb SignalConnectBefore
afterPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId
afterPlacesSidebarDragPerformDrop obj cb = connectPlacesSidebarDragPerformDrop obj cb SignalConnectAfter
connectPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) =>
a -> PlacesSidebarDragPerformDropCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarDragPerformDrop obj cb after = liftIO $ do
cb' <- mkPlacesSidebarDragPerformDropCallback (placesSidebarDragPerformDropCallbackWrapper cb)
connectSignalFunPtr obj "drag-perform-drop" cb' after
-- signal PlacesSidebar::open-location
type PlacesSidebarOpenLocationCallback =
Gio.File ->
[PlacesOpenFlags] ->
IO ()
noPlacesSidebarOpenLocationCallback :: Maybe PlacesSidebarOpenLocationCallback
noPlacesSidebarOpenLocationCallback = Nothing
type PlacesSidebarOpenLocationCallbackC =
Ptr () -> -- object
Ptr Gio.File ->
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarOpenLocationCallback :: PlacesSidebarOpenLocationCallbackC -> IO (FunPtr PlacesSidebarOpenLocationCallbackC)
placesSidebarOpenLocationClosure :: PlacesSidebarOpenLocationCallback -> IO Closure
placesSidebarOpenLocationClosure cb = newCClosure =<< mkPlacesSidebarOpenLocationCallback wrapped
where wrapped = placesSidebarOpenLocationCallbackWrapper cb
placesSidebarOpenLocationCallbackWrapper ::
PlacesSidebarOpenLocationCallback ->
Ptr () ->
Ptr Gio.File ->
CUInt ->
Ptr () ->
IO ()
placesSidebarOpenLocationCallbackWrapper _cb _ location open_flags _ = do
location' <- (newObject Gio.File) location
let open_flags' = wordToGFlags open_flags
_cb location' open_flags'
onPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId
onPlacesSidebarOpenLocation obj cb = liftIO $ connectPlacesSidebarOpenLocation obj cb SignalConnectBefore
afterPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId
afterPlacesSidebarOpenLocation obj cb = connectPlacesSidebarOpenLocation obj cb SignalConnectAfter
connectPlacesSidebarOpenLocation :: (GObject a, MonadIO m) =>
a -> PlacesSidebarOpenLocationCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarOpenLocation obj cb after = liftIO $ do
cb' <- mkPlacesSidebarOpenLocationCallback (placesSidebarOpenLocationCallbackWrapper cb)
connectSignalFunPtr obj "open-location" cb' after
-- signal PlacesSidebar::populate-popup
type PlacesSidebarPopulatePopupCallback =
Widget ->
Maybe Gio.File ->
Maybe Gio.Volume ->
IO ()
noPlacesSidebarPopulatePopupCallback :: Maybe PlacesSidebarPopulatePopupCallback
noPlacesSidebarPopulatePopupCallback = Nothing
type PlacesSidebarPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr Gio.File ->
Ptr Gio.Volume ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarPopulatePopupCallback :: PlacesSidebarPopulatePopupCallbackC -> IO (FunPtr PlacesSidebarPopulatePopupCallbackC)
placesSidebarPopulatePopupClosure :: PlacesSidebarPopulatePopupCallback -> IO Closure
placesSidebarPopulatePopupClosure cb = newCClosure =<< mkPlacesSidebarPopulatePopupCallback wrapped
where wrapped = placesSidebarPopulatePopupCallbackWrapper cb
placesSidebarPopulatePopupCallbackWrapper ::
PlacesSidebarPopulatePopupCallback ->
Ptr () ->
Ptr Widget ->
Ptr Gio.File ->
Ptr Gio.Volume ->
Ptr () ->
IO ()
placesSidebarPopulatePopupCallbackWrapper _cb _ container selected_item selected_volume _ = do
container' <- (newObject Widget) container
maybeSelected_item <-
if selected_item == nullPtr
then return Nothing
else do
selected_item' <- (newObject Gio.File) selected_item
return $ Just selected_item'
maybeSelected_volume <-
if selected_volume == nullPtr
then return Nothing
else do
selected_volume' <- (newObject Gio.Volume) selected_volume
return $ Just selected_volume'
_cb container' maybeSelected_item maybeSelected_volume
onPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId
onPlacesSidebarPopulatePopup obj cb = liftIO $ connectPlacesSidebarPopulatePopup obj cb SignalConnectBefore
afterPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId
afterPlacesSidebarPopulatePopup obj cb = connectPlacesSidebarPopulatePopup obj cb SignalConnectAfter
connectPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) =>
a -> PlacesSidebarPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarPopulatePopup obj cb after = liftIO $ do
cb' <- mkPlacesSidebarPopulatePopupCallback (placesSidebarPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- signal PlacesSidebar::show-connect-to-server
type PlacesSidebarShowConnectToServerCallback =
IO ()
noPlacesSidebarShowConnectToServerCallback :: Maybe PlacesSidebarShowConnectToServerCallback
noPlacesSidebarShowConnectToServerCallback = Nothing
type PlacesSidebarShowConnectToServerCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarShowConnectToServerCallback :: PlacesSidebarShowConnectToServerCallbackC -> IO (FunPtr PlacesSidebarShowConnectToServerCallbackC)
placesSidebarShowConnectToServerClosure :: PlacesSidebarShowConnectToServerCallback -> IO Closure
placesSidebarShowConnectToServerClosure cb = newCClosure =<< mkPlacesSidebarShowConnectToServerCallback wrapped
where wrapped = placesSidebarShowConnectToServerCallbackWrapper cb
placesSidebarShowConnectToServerCallbackWrapper ::
PlacesSidebarShowConnectToServerCallback ->
Ptr () ->
Ptr () ->
IO ()
placesSidebarShowConnectToServerCallbackWrapper _cb _ _ = do
_cb
onPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId
onPlacesSidebarShowConnectToServer obj cb = liftIO $ connectPlacesSidebarShowConnectToServer obj cb SignalConnectBefore
afterPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId
afterPlacesSidebarShowConnectToServer obj cb = connectPlacesSidebarShowConnectToServer obj cb SignalConnectAfter
connectPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) =>
a -> PlacesSidebarShowConnectToServerCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarShowConnectToServer obj cb after = liftIO $ do
cb' <- mkPlacesSidebarShowConnectToServerCallback (placesSidebarShowConnectToServerCallbackWrapper cb)
connectSignalFunPtr obj "show-connect-to-server" cb' after
-- signal PlacesSidebar::show-enter-location
type PlacesSidebarShowEnterLocationCallback =
IO ()
noPlacesSidebarShowEnterLocationCallback :: Maybe PlacesSidebarShowEnterLocationCallback
noPlacesSidebarShowEnterLocationCallback = Nothing
type PlacesSidebarShowEnterLocationCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarShowEnterLocationCallback :: PlacesSidebarShowEnterLocationCallbackC -> IO (FunPtr PlacesSidebarShowEnterLocationCallbackC)
placesSidebarShowEnterLocationClosure :: PlacesSidebarShowEnterLocationCallback -> IO Closure
placesSidebarShowEnterLocationClosure cb = newCClosure =<< mkPlacesSidebarShowEnterLocationCallback wrapped
where wrapped = placesSidebarShowEnterLocationCallbackWrapper cb
placesSidebarShowEnterLocationCallbackWrapper ::
PlacesSidebarShowEnterLocationCallback ->
Ptr () ->
Ptr () ->
IO ()
placesSidebarShowEnterLocationCallbackWrapper _cb _ _ = do
_cb
onPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId
onPlacesSidebarShowEnterLocation obj cb = liftIO $ connectPlacesSidebarShowEnterLocation obj cb SignalConnectBefore
afterPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId
afterPlacesSidebarShowEnterLocation obj cb = connectPlacesSidebarShowEnterLocation obj cb SignalConnectAfter
connectPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) =>
a -> PlacesSidebarShowEnterLocationCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarShowEnterLocation obj cb after = liftIO $ do
cb' <- mkPlacesSidebarShowEnterLocationCallback (placesSidebarShowEnterLocationCallbackWrapper cb)
connectSignalFunPtr obj "show-enter-location" cb' after
-- signal PlacesSidebar::show-error-message
type PlacesSidebarShowErrorMessageCallback =
T.Text ->
T.Text ->
IO ()
noPlacesSidebarShowErrorMessageCallback :: Maybe PlacesSidebarShowErrorMessageCallback
noPlacesSidebarShowErrorMessageCallback = Nothing
type PlacesSidebarShowErrorMessageCallbackC =
Ptr () -> -- object
CString ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarShowErrorMessageCallback :: PlacesSidebarShowErrorMessageCallbackC -> IO (FunPtr PlacesSidebarShowErrorMessageCallbackC)
placesSidebarShowErrorMessageClosure :: PlacesSidebarShowErrorMessageCallback -> IO Closure
placesSidebarShowErrorMessageClosure cb = newCClosure =<< mkPlacesSidebarShowErrorMessageCallback wrapped
where wrapped = placesSidebarShowErrorMessageCallbackWrapper cb
placesSidebarShowErrorMessageCallbackWrapper ::
PlacesSidebarShowErrorMessageCallback ->
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
placesSidebarShowErrorMessageCallbackWrapper _cb _ primary secondary _ = do
primary' <- cstringToText primary
secondary' <- cstringToText secondary
_cb primary' secondary'
onPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId
onPlacesSidebarShowErrorMessage obj cb = liftIO $ connectPlacesSidebarShowErrorMessage obj cb SignalConnectBefore
afterPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId
afterPlacesSidebarShowErrorMessage obj cb = connectPlacesSidebarShowErrorMessage obj cb SignalConnectAfter
connectPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) =>
a -> PlacesSidebarShowErrorMessageCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarShowErrorMessage obj cb after = liftIO $ do
cb' <- mkPlacesSidebarShowErrorMessageCallback (placesSidebarShowErrorMessageCallbackWrapper cb)
connectSignalFunPtr obj "show-error-message" cb' after
-- signal PlacesSidebar::show-other-locations
type PlacesSidebarShowOtherLocationsCallback =
IO ()
noPlacesSidebarShowOtherLocationsCallback :: Maybe PlacesSidebarShowOtherLocationsCallback
noPlacesSidebarShowOtherLocationsCallback = Nothing
type PlacesSidebarShowOtherLocationsCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlacesSidebarShowOtherLocationsCallback :: PlacesSidebarShowOtherLocationsCallbackC -> IO (FunPtr PlacesSidebarShowOtherLocationsCallbackC)
placesSidebarShowOtherLocationsClosure :: PlacesSidebarShowOtherLocationsCallback -> IO Closure
placesSidebarShowOtherLocationsClosure cb = newCClosure =<< mkPlacesSidebarShowOtherLocationsCallback wrapped
where wrapped = placesSidebarShowOtherLocationsCallbackWrapper cb
placesSidebarShowOtherLocationsCallbackWrapper ::
PlacesSidebarShowOtherLocationsCallback ->
Ptr () ->
Ptr () ->
IO ()
placesSidebarShowOtherLocationsCallbackWrapper _cb _ _ = do
_cb
onPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId
onPlacesSidebarShowOtherLocations obj cb = liftIO $ connectPlacesSidebarShowOtherLocations obj cb SignalConnectBefore
afterPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId
afterPlacesSidebarShowOtherLocations obj cb = connectPlacesSidebarShowOtherLocations obj cb SignalConnectAfter
connectPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) =>
a -> PlacesSidebarShowOtherLocationsCallback -> SignalConnectMode -> m SignalHandlerId
connectPlacesSidebarShowOtherLocations obj cb after = liftIO $ do
cb' <- mkPlacesSidebarShowOtherLocationsCallback (placesSidebarShowOtherLocationsCallbackWrapper cb)
connectSignalFunPtr obj "show-other-locations" cb' after
-- object Plug
newtype Plug = Plug (ForeignPtr Plug)
noPlug :: Maybe Plug
noPlug = Nothing
foreign import ccall "gtk_plug_get_type"
c_gtk_plug_get_type :: IO GType
type instance ParentTypes Plug = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Plug where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_plug_get_type
class GObject o => PlugK o
instance (GObject o, IsDescendantOf Plug o) => PlugK o
toPlug :: PlugK o => o -> IO Plug
toPlug = unsafeCastTo Plug
-- method Plug::new
-- method type : Constructor
-- Args : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Plug"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_new" gtk_plug_new ::
Word64 -> -- socket_id : TBasicType TUInt64
IO (Ptr Plug)
plugNew ::
(MonadIO m) =>
Word64 -> -- socket_id
m Plug
plugNew socket_id = liftIO $ do
result <- gtk_plug_new socket_id
checkUnexpectedReturnNULL "gtk_plug_new" result
result' <- (newObject Plug) result
return result'
-- method Plug::new_for_display
-- method type : Constructor
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Plug"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_new_for_display" gtk_plug_new_for_display ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word64 -> -- socket_id : TBasicType TUInt64
IO (Ptr Plug)
plugNewForDisplay ::
(MonadIO m, Gdk.DisplayK a) =>
a -> -- display
Word64 -> -- socket_id
m Plug
plugNewForDisplay display socket_id = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
result <- gtk_plug_new_for_display display' socket_id
checkUnexpectedReturnNULL "gtk_plug_new_for_display" result
result' <- (newObject Plug) result
touchManagedPtr display
return result'
-- method Plug::construct
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_construct" gtk_plug_construct ::
Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"
Word64 -> -- socket_id : TBasicType TUInt64
IO ()
plugConstruct ::
(MonadIO m, PlugK a) =>
a -> -- _obj
Word64 -> -- socket_id
m ()
plugConstruct _obj socket_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_plug_construct _obj' socket_id
touchManagedPtr _obj
return ()
-- method Plug::construct_for_display
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_construct_for_display" gtk_plug_construct_for_display ::
Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word64 -> -- socket_id : TBasicType TUInt64
IO ()
plugConstructForDisplay ::
(MonadIO m, PlugK a, Gdk.DisplayK b) =>
a -> -- _obj
b -> -- display
Word64 -> -- socket_id
m ()
plugConstructForDisplay _obj display socket_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let display' = unsafeManagedPtrCastPtr display
gtk_plug_construct_for_display _obj' display' socket_id
touchManagedPtr _obj
touchManagedPtr display
return ()
-- method Plug::get_embedded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_get_embedded" gtk_plug_get_embedded ::
Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"
IO CInt
plugGetEmbedded ::
(MonadIO m, PlugK a) =>
a -> -- _obj
m Bool
plugGetEmbedded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_plug_get_embedded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Plug::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_get_id" gtk_plug_get_id ::
Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"
IO Word64
plugGetId ::
(MonadIO m, PlugK a) =>
a -> -- _obj
m Word64
plugGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_plug_get_id _obj'
touchManagedPtr _obj
return result
-- method Plug::get_socket_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_plug_get_socket_window" gtk_plug_get_socket_window ::
Ptr Plug -> -- _obj : TInterface "Gtk" "Plug"
IO (Ptr Gdk.Window)
plugGetSocketWindow ::
(MonadIO m, PlugK a) =>
a -> -- _obj
m Gdk.Window
plugGetSocketWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_plug_get_socket_window _obj'
checkUnexpectedReturnNULL "gtk_plug_get_socket_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- signal Plug::embedded
type PlugEmbeddedCallback =
IO ()
noPlugEmbeddedCallback :: Maybe PlugEmbeddedCallback
noPlugEmbeddedCallback = Nothing
type PlugEmbeddedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPlugEmbeddedCallback :: PlugEmbeddedCallbackC -> IO (FunPtr PlugEmbeddedCallbackC)
plugEmbeddedClosure :: PlugEmbeddedCallback -> IO Closure
plugEmbeddedClosure cb = newCClosure =<< mkPlugEmbeddedCallback wrapped
where wrapped = plugEmbeddedCallbackWrapper cb
plugEmbeddedCallbackWrapper ::
PlugEmbeddedCallback ->
Ptr () ->
Ptr () ->
IO ()
plugEmbeddedCallbackWrapper _cb _ _ = do
_cb
onPlugEmbedded :: (GObject a, MonadIO m) => a -> PlugEmbeddedCallback -> m SignalHandlerId
onPlugEmbedded obj cb = liftIO $ connectPlugEmbedded obj cb SignalConnectBefore
afterPlugEmbedded :: (GObject a, MonadIO m) => a -> PlugEmbeddedCallback -> m SignalHandlerId
afterPlugEmbedded obj cb = connectPlugEmbedded obj cb SignalConnectAfter
connectPlugEmbedded :: (GObject a, MonadIO m) =>
a -> PlugEmbeddedCallback -> SignalConnectMode -> m SignalHandlerId
connectPlugEmbedded obj cb after = liftIO $ do
cb' <- mkPlugEmbeddedCallback (plugEmbeddedCallbackWrapper cb)
connectSignalFunPtr obj "embedded" cb' after
-- Enum PolicyType
data PolicyType =
PolicyTypeAlways
| PolicyTypeAutomatic
| PolicyTypeNever
| PolicyTypeExternal
| AnotherPolicyType Int
deriving (Show, Eq)
instance Enum PolicyType where
fromEnum PolicyTypeAlways = 0
fromEnum PolicyTypeAutomatic = 1
fromEnum PolicyTypeNever = 2
fromEnum PolicyTypeExternal = 3
fromEnum (AnotherPolicyType k) = k
toEnum 0 = PolicyTypeAlways
toEnum 1 = PolicyTypeAutomatic
toEnum 2 = PolicyTypeNever
toEnum 3 = PolicyTypeExternal
toEnum k = AnotherPolicyType k
foreign import ccall "gtk_policy_type_get_type" c_gtk_policy_type_get_type ::
IO GType
instance BoxedEnum PolicyType where
boxedEnumType _ = c_gtk_policy_type_get_type
-- object Popover
newtype Popover = Popover (ForeignPtr Popover)
noPopover :: Maybe Popover
noPopover = Nothing
foreign import ccall "gtk_popover_get_type"
c_gtk_popover_get_type :: IO GType
type instance ParentTypes Popover = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Popover where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_popover_get_type
class GObject o => PopoverK o
instance (GObject o, IsDescendantOf Popover o) => PopoverK o
toPopover :: PopoverK o => o -> IO Popover
toPopover = unsafeCastTo Popover
-- method Popover::new
-- method type : Constructor
-- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Popover"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_new" gtk_popover_new ::
Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget"
IO (Ptr Popover)
popoverNew ::
(MonadIO m, WidgetK a) =>
Maybe (a) -> -- relative_to
m Popover
popoverNew relative_to = liftIO $ do
maybeRelative_to <- case relative_to of
Nothing -> return nullPtr
Just jRelative_to -> do
let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to
return jRelative_to'
result <- gtk_popover_new maybeRelative_to
checkUnexpectedReturnNULL "gtk_popover_new" result
result' <- (newObject Popover) result
whenJust relative_to touchManagedPtr
return result'
-- method Popover::new_from_model
-- method type : Constructor
-- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Popover"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_new_from_model" gtk_popover_new_from_model ::
Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget"
Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel"
IO (Ptr Popover)
popoverNewFromModel ::
(MonadIO m, WidgetK a, Gio.MenuModelK b) =>
Maybe (a) -> -- relative_to
b -> -- model
m Popover
popoverNewFromModel relative_to model = liftIO $ do
maybeRelative_to <- case relative_to of
Nothing -> return nullPtr
Just jRelative_to -> do
let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to
return jRelative_to'
let model' = unsafeManagedPtrCastPtr model
result <- gtk_popover_new_from_model maybeRelative_to model'
checkUnexpectedReturnNULL "gtk_popover_new_from_model" result
result' <- (newObject Popover) result
whenJust relative_to touchManagedPtr
touchManagedPtr model
return result'
-- method Popover::bind_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_bind_model" gtk_popover_bind_model ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel"
CString -> -- action_namespace : TBasicType TUTF8
IO ()
popoverBindModel ::
(MonadIO m, PopoverK a, Gio.MenuModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
Maybe (T.Text) -> -- action_namespace
m ()
popoverBindModel _obj model action_namespace = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
maybeAction_namespace <- case action_namespace of
Nothing -> return nullPtr
Just jAction_namespace -> do
jAction_namespace' <- textToCString jAction_namespace
return jAction_namespace'
gtk_popover_bind_model _obj' maybeModel maybeAction_namespace
touchManagedPtr _obj
whenJust model touchManagedPtr
freeMem maybeAction_namespace
return ()
-- method Popover::get_default_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_default_widget" gtk_popover_get_default_widget ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
IO (Ptr Widget)
popoverGetDefaultWidget ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m Widget
popoverGetDefaultWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_popover_get_default_widget _obj'
checkUnexpectedReturnNULL "gtk_popover_get_default_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Popover::get_modal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_modal" gtk_popover_get_modal ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
IO CInt
popoverGetModal ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m Bool
popoverGetModal _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_popover_get_modal _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Popover::get_pointing_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_pointing_to" gtk_popover_get_pointing_to ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO CInt
popoverGetPointingTo ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m (Bool,Gdk.Rectangle)
popoverGetPointingTo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_popover_get_pointing_to _obj' rect
let result' = (/= 0) result
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
return (result', rect')
-- method Popover::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_position" gtk_popover_get_position ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
IO CUInt
popoverGetPosition ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m PositionType
popoverGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_popover_get_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Popover::get_relative_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_relative_to" gtk_popover_get_relative_to ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
IO (Ptr Widget)
popoverGetRelativeTo ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m Widget
popoverGetRelativeTo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_popover_get_relative_to _obj'
checkUnexpectedReturnNULL "gtk_popover_get_relative_to" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Popover::get_transitions_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_get_transitions_enabled" gtk_popover_get_transitions_enabled ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
IO CInt
popoverGetTransitionsEnabled ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
m Bool
popoverGetTransitionsEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_popover_get_transitions_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Popover::set_default_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_default_widget" gtk_popover_set_default_widget ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
popoverSetDefaultWidget ::
(MonadIO m, PopoverK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
popoverSetDefaultWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_popover_set_default_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- method Popover::set_modal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_modal" gtk_popover_set_modal ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
CInt -> -- modal : TBasicType TBoolean
IO ()
popoverSetModal ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
Bool -> -- modal
m ()
popoverSetModal _obj modal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let modal' = (fromIntegral . fromEnum) modal
gtk_popover_set_modal _obj' modal'
touchManagedPtr _obj
return ()
-- method Popover::set_pointing_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_pointing_to" gtk_popover_set_pointing_to ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
popoverSetPointingTo ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
Gdk.Rectangle -> -- rect
m ()
popoverSetPointingTo _obj rect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rect' = unsafeManagedPtrGetPtr rect
gtk_popover_set_pointing_to _obj' rect'
touchManagedPtr _obj
touchManagedPtr rect
return ()
-- method Popover::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_position" gtk_popover_set_position ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
CUInt -> -- position : TInterface "Gtk" "PositionType"
IO ()
popoverSetPosition ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
PositionType -> -- position
m ()
popoverSetPosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_popover_set_position _obj' position'
touchManagedPtr _obj
return ()
-- method Popover::set_relative_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_relative_to" gtk_popover_set_relative_to ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget"
IO ()
popoverSetRelativeTo ::
(MonadIO m, PopoverK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- relative_to
m ()
popoverSetRelativeTo _obj relative_to = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRelative_to <- case relative_to of
Nothing -> return nullPtr
Just jRelative_to -> do
let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to
return jRelative_to'
gtk_popover_set_relative_to _obj' maybeRelative_to
touchManagedPtr _obj
whenJust relative_to touchManagedPtr
return ()
-- method Popover::set_transitions_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_set_transitions_enabled" gtk_popover_set_transitions_enabled ::
Ptr Popover -> -- _obj : TInterface "Gtk" "Popover"
CInt -> -- transitions_enabled : TBasicType TBoolean
IO ()
popoverSetTransitionsEnabled ::
(MonadIO m, PopoverK a) =>
a -> -- _obj
Bool -> -- transitions_enabled
m ()
popoverSetTransitionsEnabled _obj transitions_enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let transitions_enabled' = (fromIntegral . fromEnum) transitions_enabled
gtk_popover_set_transitions_enabled _obj' transitions_enabled'
touchManagedPtr _obj
return ()
-- signal Popover::closed
type PopoverClosedCallback =
IO ()
noPopoverClosedCallback :: Maybe PopoverClosedCallback
noPopoverClosedCallback = Nothing
type PopoverClosedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPopoverClosedCallback :: PopoverClosedCallbackC -> IO (FunPtr PopoverClosedCallbackC)
popoverClosedClosure :: PopoverClosedCallback -> IO Closure
popoverClosedClosure cb = newCClosure =<< mkPopoverClosedCallback wrapped
where wrapped = popoverClosedCallbackWrapper cb
popoverClosedCallbackWrapper ::
PopoverClosedCallback ->
Ptr () ->
Ptr () ->
IO ()
popoverClosedCallbackWrapper _cb _ _ = do
_cb
onPopoverClosed :: (GObject a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId
onPopoverClosed obj cb = liftIO $ connectPopoverClosed obj cb SignalConnectBefore
afterPopoverClosed :: (GObject a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId
afterPopoverClosed obj cb = connectPopoverClosed obj cb SignalConnectAfter
connectPopoverClosed :: (GObject a, MonadIO m) =>
a -> PopoverClosedCallback -> SignalConnectMode -> m SignalHandlerId
connectPopoverClosed obj cb after = liftIO $ do
cb' <- mkPopoverClosedCallback (popoverClosedCallbackWrapper cb)
connectSignalFunPtr obj "closed" cb' after
-- object PopoverAccessible
newtype PopoverAccessible = PopoverAccessible (ForeignPtr PopoverAccessible)
noPopoverAccessible :: Maybe PopoverAccessible
noPopoverAccessible = Nothing
foreign import ccall "gtk_popover_accessible_get_type"
c_gtk_popover_accessible_get_type :: IO GType
type instance ParentTypes PopoverAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject PopoverAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_popover_accessible_get_type
class GObject o => PopoverAccessibleK o
instance (GObject o, IsDescendantOf PopoverAccessible o) => PopoverAccessibleK o
toPopoverAccessible :: PopoverAccessibleK o => o -> IO PopoverAccessible
toPopoverAccessible = unsafeCastTo PopoverAccessible
-- object PopoverMenu
newtype PopoverMenu = PopoverMenu (ForeignPtr PopoverMenu)
noPopoverMenu :: Maybe PopoverMenu
noPopoverMenu = Nothing
foreign import ccall "gtk_popover_menu_get_type"
c_gtk_popover_menu_get_type :: IO GType
type instance ParentTypes PopoverMenu = '[Popover, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject PopoverMenu where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_popover_menu_get_type
class GObject o => PopoverMenuK o
instance (GObject o, IsDescendantOf PopoverMenu o) => PopoverMenuK o
toPopoverMenu :: PopoverMenuK o => o -> IO PopoverMenu
toPopoverMenu = unsafeCastTo PopoverMenu
-- method PopoverMenu::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PopoverMenu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_menu_new" gtk_popover_menu_new ::
IO (Ptr PopoverMenu)
popoverMenuNew ::
(MonadIO m) =>
m PopoverMenu
popoverMenuNew = liftIO $ do
result <- gtk_popover_menu_new
checkUnexpectedReturnNULL "gtk_popover_menu_new" result
result' <- (newObject PopoverMenu) result
return result'
-- method PopoverMenu::open_submenu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_popover_menu_open_submenu" gtk_popover_menu_open_submenu ::
Ptr PopoverMenu -> -- _obj : TInterface "Gtk" "PopoverMenu"
CString -> -- name : TBasicType TUTF8
IO ()
popoverMenuOpenSubmenu ::
(MonadIO m, PopoverMenuK a) =>
a -> -- _obj
T.Text -> -- name
m ()
popoverMenuOpenSubmenu _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_popover_menu_open_submenu _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- Enum PositionType
data PositionType =
PositionTypeLeft
| PositionTypeRight
| PositionTypeTop
| PositionTypeBottom
| AnotherPositionType Int
deriving (Show, Eq)
instance Enum PositionType where
fromEnum PositionTypeLeft = 0
fromEnum PositionTypeRight = 1
fromEnum PositionTypeTop = 2
fromEnum PositionTypeBottom = 3
fromEnum (AnotherPositionType k) = k
toEnum 0 = PositionTypeLeft
toEnum 1 = PositionTypeRight
toEnum 2 = PositionTypeTop
toEnum 3 = PositionTypeBottom
toEnum k = AnotherPositionType k
foreign import ccall "gtk_position_type_get_type" c_gtk_position_type_get_type ::
IO GType
instance BoxedEnum PositionType where
boxedEnumType _ = c_gtk_position_type_get_type
-- object PrintContext
newtype PrintContext = PrintContext (ForeignPtr PrintContext)
noPrintContext :: Maybe PrintContext
noPrintContext = Nothing
foreign import ccall "gtk_print_context_get_type"
c_gtk_print_context_get_type :: IO GType
type instance ParentTypes PrintContext = '[GObject.Object]
instance GObject PrintContext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_context_get_type
class GObject o => PrintContextK o
instance (GObject o, IsDescendantOf PrintContext o) => PrintContextK o
toPrintContext :: PrintContextK o => o -> IO PrintContext
toPrintContext = unsafeCastTo PrintContext
-- method PrintContext::create_pango_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Context"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_create_pango_context" gtk_print_context_create_pango_context ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO (Ptr Pango.Context)
printContextCreatePangoContext ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Pango.Context
printContextCreatePangoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_create_pango_context _obj'
checkUnexpectedReturnNULL "gtk_print_context_create_pango_context" result
result' <- (wrapObject Pango.Context) result
touchManagedPtr _obj
return result'
-- method PrintContext::create_pango_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_create_pango_layout" gtk_print_context_create_pango_layout ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO (Ptr Pango.Layout)
printContextCreatePangoLayout ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Pango.Layout
printContextCreatePangoLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_create_pango_layout _obj'
checkUnexpectedReturnNULL "gtk_print_context_create_pango_layout" result
result' <- (wrapObject Pango.Layout) result
touchManagedPtr _obj
return result'
-- method PrintContext::get_cairo_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Context"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_cairo_context" gtk_print_context_get_cairo_context ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO (Ptr Cairo.Context)
printContextGetCairoContext ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Cairo.Context
printContextGetCairoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_cairo_context _obj'
checkUnexpectedReturnNULL "gtk_print_context_get_cairo_context" result
result' <- (newBoxed Cairo.Context) result
touchManagedPtr _obj
return result'
-- method PrintContext::get_dpi_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_dpi_x" gtk_print_context_get_dpi_x ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO CDouble
printContextGetDpiX ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Double
printContextGetDpiX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_dpi_x _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintContext::get_dpi_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_dpi_y" gtk_print_context_get_dpi_y ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO CDouble
printContextGetDpiY ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Double
printContextGetDpiY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_dpi_y _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintContext::get_hard_margins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_hard_margins" gtk_print_context_get_hard_margins ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
Ptr CDouble -> -- top : TBasicType TDouble
Ptr CDouble -> -- bottom : TBasicType TDouble
Ptr CDouble -> -- left : TBasicType TDouble
Ptr CDouble -> -- right : TBasicType TDouble
IO CInt
printContextGetHardMargins ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m (Bool,Double,Double,Double,Double)
printContextGetHardMargins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
top <- allocMem :: IO (Ptr CDouble)
bottom <- allocMem :: IO (Ptr CDouble)
left <- allocMem :: IO (Ptr CDouble)
right <- allocMem :: IO (Ptr CDouble)
result <- gtk_print_context_get_hard_margins _obj' top bottom left right
let result' = (/= 0) result
top' <- peek top
let top'' = realToFrac top'
bottom' <- peek bottom
let bottom'' = realToFrac bottom'
left' <- peek left
let left'' = realToFrac left'
right' <- peek right
let right'' = realToFrac right'
touchManagedPtr _obj
freeMem top
freeMem bottom
freeMem left
freeMem right
return (result', top'', bottom'', left'', right'')
-- method PrintContext::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_height" gtk_print_context_get_height ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO CDouble
printContextGetHeight ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Double
printContextGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_height _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintContext::get_page_setup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_page_setup" gtk_print_context_get_page_setup ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO (Ptr PageSetup)
printContextGetPageSetup ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m PageSetup
printContextGetPageSetup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_page_setup _obj'
checkUnexpectedReturnNULL "gtk_print_context_get_page_setup" result
result' <- (newObject PageSetup) result
touchManagedPtr _obj
return result'
-- method PrintContext::get_pango_fontmap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontMap"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_pango_fontmap" gtk_print_context_get_pango_fontmap ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO (Ptr Pango.FontMap)
printContextGetPangoFontmap ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Pango.FontMap
printContextGetPangoFontmap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_pango_fontmap _obj'
checkUnexpectedReturnNULL "gtk_print_context_get_pango_fontmap" result
result' <- (newObject Pango.FontMap) result
touchManagedPtr _obj
return result'
-- method PrintContext::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_get_width" gtk_print_context_get_width ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
IO CDouble
printContextGetWidth ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
m Double
printContextGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_context_get_width _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintContext::set_cairo_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_context_set_cairo_context" gtk_print_context_set_cairo_context ::
Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- dpi_x : TBasicType TDouble
CDouble -> -- dpi_y : TBasicType TDouble
IO ()
printContextSetCairoContext ::
(MonadIO m, PrintContextK a) =>
a -> -- _obj
Cairo.Context -> -- cr
Double -> -- dpi_x
Double -> -- dpi_y
m ()
printContextSetCairoContext _obj cr dpi_x dpi_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
let dpi_x' = realToFrac dpi_x
let dpi_y' = realToFrac dpi_y
gtk_print_context_set_cairo_context _obj' cr' dpi_x' dpi_y'
touchManagedPtr _obj
touchManagedPtr cr
return ()
-- Enum PrintDuplex
data PrintDuplex =
PrintDuplexSimplex
| PrintDuplexHorizontal
| PrintDuplexVertical
| AnotherPrintDuplex Int
deriving (Show, Eq)
instance Enum PrintDuplex where
fromEnum PrintDuplexSimplex = 0
fromEnum PrintDuplexHorizontal = 1
fromEnum PrintDuplexVertical = 2
fromEnum (AnotherPrintDuplex k) = k
toEnum 0 = PrintDuplexSimplex
toEnum 1 = PrintDuplexHorizontal
toEnum 2 = PrintDuplexVertical
toEnum k = AnotherPrintDuplex k
foreign import ccall "gtk_print_duplex_get_type" c_gtk_print_duplex_get_type ::
IO GType
instance BoxedEnum PrintDuplex where
boxedEnumType _ = c_gtk_print_duplex_get_type
-- Enum PrintError
data PrintError =
PrintErrorGeneral
| PrintErrorInternalError
| PrintErrorNomem
| PrintErrorInvalidFile
| AnotherPrintError Int
deriving (Show, Eq)
instance Enum PrintError where
fromEnum PrintErrorGeneral = 0
fromEnum PrintErrorInternalError = 1
fromEnum PrintErrorNomem = 2
fromEnum PrintErrorInvalidFile = 3
fromEnum (AnotherPrintError k) = k
toEnum 0 = PrintErrorGeneral
toEnum 1 = PrintErrorInternalError
toEnum 2 = PrintErrorNomem
toEnum 3 = PrintErrorInvalidFile
toEnum k = AnotherPrintError k
instance GErrorClass PrintError where
gerrorClassDomain _ = "gtk-print-error-quark"
catchPrintError ::
IO a ->
(PrintError -> GErrorMessage -> IO a) ->
IO a
catchPrintError = catchGErrorJustDomain
handlePrintError ::
(PrintError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handlePrintError = handleGErrorJustDomain
foreign import ccall "gtk_print_error_get_type" c_gtk_print_error_get_type ::
IO GType
instance BoxedEnum PrintError where
boxedEnumType _ = c_gtk_print_error_get_type
-- object PrintOperation
newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)
noPrintOperation :: Maybe PrintOperation
noPrintOperation = Nothing
foreign import ccall "gtk_print_operation_get_type"
c_gtk_print_operation_get_type :: IO GType
type instance ParentTypes PrintOperation = '[GObject.Object, PrintOperationPreview]
instance GObject PrintOperation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_operation_get_type
class GObject o => PrintOperationK o
instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o
toPrintOperation :: PrintOperationK o => o -> IO PrintOperation
toPrintOperation = unsafeCastTo PrintOperation
-- method PrintOperation::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PrintOperation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_new" gtk_print_operation_new ::
IO (Ptr PrintOperation)
printOperationNew ::
(MonadIO m) =>
m PrintOperation
printOperationNew = liftIO $ do
result <- gtk_print_operation_new
checkUnexpectedReturnNULL "gtk_print_operation_new" result
result' <- (wrapObject PrintOperation) result
return result'
-- method PrintOperation::cancel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_cancel" gtk_print_operation_cancel ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO ()
printOperationCancel ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m ()
printOperationCancel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_cancel _obj'
touchManagedPtr _obj
return ()
-- method PrintOperation::draw_page_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_draw_page_finish" gtk_print_operation_draw_page_finish ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO ()
printOperationDrawPageFinish ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m ()
printOperationDrawPageFinish _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_draw_page_finish _obj'
touchManagedPtr _obj
return ()
-- method PrintOperation::get_default_page_setup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_default_page_setup" gtk_print_operation_get_default_page_setup ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO (Ptr PageSetup)
printOperationGetDefaultPageSetup ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m PageSetup
printOperationGetDefaultPageSetup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_default_page_setup _obj'
checkUnexpectedReturnNULL "gtk_print_operation_get_default_page_setup" result
result' <- (newObject PageSetup) result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_embed_page_setup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_embed_page_setup" gtk_print_operation_get_embed_page_setup ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CInt
printOperationGetEmbedPageSetup ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m Bool
printOperationGetEmbedPageSetup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_embed_page_setup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_error
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_operation_get_error" gtk_print_operation_get_error ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
Ptr (Ptr GError) -> -- error
IO ()
printOperationGetError ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m ()
printOperationGetError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ gtk_print_operation_get_error _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method PrintOperation::get_has_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_has_selection" gtk_print_operation_get_has_selection ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CInt
printOperationGetHasSelection ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m Bool
printOperationGetHasSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_has_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_n_pages_to_print
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_n_pages_to_print" gtk_print_operation_get_n_pages_to_print ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO Int32
printOperationGetNPagesToPrint ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m Int32
printOperationGetNPagesToPrint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_n_pages_to_print _obj'
touchManagedPtr _obj
return result
-- method PrintOperation::get_print_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_print_settings" gtk_print_operation_get_print_settings ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO (Ptr PrintSettings)
printOperationGetPrintSettings ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m PrintSettings
printOperationGetPrintSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_print_settings _obj'
checkUnexpectedReturnNULL "gtk_print_operation_get_print_settings" result
result' <- (newObject PrintSettings) result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintStatus"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_status" gtk_print_operation_get_status ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CUInt
printOperationGetStatus ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m PrintStatus
printOperationGetStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_status _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_status_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_status_string" gtk_print_operation_get_status_string ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CString
printOperationGetStatusString ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m T.Text
printOperationGetStatusString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_status_string _obj'
checkUnexpectedReturnNULL "gtk_print_operation_get_status_string" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintOperation::get_support_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_get_support_selection" gtk_print_operation_get_support_selection ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CInt
printOperationGetSupportSelection ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m Bool
printOperationGetSupportSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_get_support_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintOperation::is_finished
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_is_finished" gtk_print_operation_is_finished ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO CInt
printOperationIsFinished ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m Bool
printOperationIsFinished _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_is_finished _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintOperation::run
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintOperationResult"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_operation_run" gtk_print_operation_run ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CUInt -> -- action : TInterface "Gtk" "PrintOperationAction"
Ptr Window -> -- parent : TInterface "Gtk" "Window"
Ptr (Ptr GError) -> -- error
IO CUInt
printOperationRun ::
(MonadIO m, PrintOperationK a, WindowK b) =>
a -> -- _obj
PrintOperationAction -> -- action
Maybe (b) -> -- parent
m PrintOperationResult
printOperationRun _obj action parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action' = (fromIntegral . fromEnum) action
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
onException (do
result <- propagateGError $ gtk_print_operation_run _obj' action' maybeParent
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
whenJust parent touchManagedPtr
return result'
) (do
return ()
)
-- method PrintOperation::set_allow_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_allow_async" gtk_print_operation_set_allow_async ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- allow_async : TBasicType TBoolean
IO ()
printOperationSetAllowAsync ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- allow_async
m ()
printOperationSetAllowAsync _obj allow_async = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allow_async' = (fromIntegral . fromEnum) allow_async
gtk_print_operation_set_allow_async _obj' allow_async'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_current_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
Int32 -> -- current_page : TBasicType TInt32
IO ()
printOperationSetCurrentPage ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Int32 -> -- current_page
m ()
printOperationSetCurrentPage _obj current_page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_set_current_page _obj' current_page
touchManagedPtr _obj
return ()
-- method PrintOperation::set_custom_tab_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_custom_tab_label" gtk_print_operation_set_custom_tab_label ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CString -> -- label : TBasicType TUTF8
IO ()
printOperationSetCustomTabLabel ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Maybe (T.Text) -> -- label
m ()
printOperationSetCustomTabLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_print_operation_set_custom_tab_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
-- method PrintOperation::set_default_page_setup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_default_page_setup" gtk_print_operation_set_default_page_setup ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
Ptr PageSetup -> -- default_page_setup : TInterface "Gtk" "PageSetup"
IO ()
printOperationSetDefaultPageSetup ::
(MonadIO m, PrintOperationK a, PageSetupK b) =>
a -> -- _obj
Maybe (b) -> -- default_page_setup
m ()
printOperationSetDefaultPageSetup _obj default_page_setup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeDefault_page_setup <- case default_page_setup of
Nothing -> return nullPtr
Just jDefault_page_setup -> do
let jDefault_page_setup' = unsafeManagedPtrCastPtr jDefault_page_setup
return jDefault_page_setup'
gtk_print_operation_set_default_page_setup _obj' maybeDefault_page_setup
touchManagedPtr _obj
whenJust default_page_setup touchManagedPtr
return ()
-- method PrintOperation::set_defer_drawing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_defer_drawing" gtk_print_operation_set_defer_drawing ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
IO ()
printOperationSetDeferDrawing ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
m ()
printOperationSetDeferDrawing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_set_defer_drawing _obj'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_embed_page_setup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_embed_page_setup" gtk_print_operation_set_embed_page_setup ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- embed : TBasicType TBoolean
IO ()
printOperationSetEmbedPageSetup ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- embed
m ()
printOperationSetEmbedPageSetup _obj embed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let embed' = (fromIntegral . fromEnum) embed
gtk_print_operation_set_embed_page_setup _obj' embed'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_export_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_export_filename" gtk_print_operation_set_export_filename ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CString -> -- filename : TBasicType TFileName
IO ()
printOperationSetExportFilename ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
[Char] -> -- filename
m ()
printOperationSetExportFilename _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
gtk_print_operation_set_export_filename _obj' filename'
touchManagedPtr _obj
freeMem filename'
return ()
-- method PrintOperation::set_has_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_has_selection" gtk_print_operation_set_has_selection ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- has_selection : TBasicType TBoolean
IO ()
printOperationSetHasSelection ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- has_selection
m ()
printOperationSetHasSelection _obj has_selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_selection' = (fromIntegral . fromEnum) has_selection
gtk_print_operation_set_has_selection _obj' has_selection'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_job_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_job_name" gtk_print_operation_set_job_name ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CString -> -- job_name : TBasicType TUTF8
IO ()
printOperationSetJobName ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
T.Text -> -- job_name
m ()
printOperationSetJobName _obj job_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
job_name' <- textToCString job_name
gtk_print_operation_set_job_name _obj' job_name'
touchManagedPtr _obj
freeMem job_name'
return ()
-- method PrintOperation::set_n_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
Int32 -> -- n_pages : TBasicType TInt32
IO ()
printOperationSetNPages ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Int32 -> -- n_pages
m ()
printOperationSetNPages _obj n_pages = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_set_n_pages _obj' n_pages
touchManagedPtr _obj
return ()
-- method PrintOperation::set_print_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_print_settings" gtk_print_operation_set_print_settings ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
Ptr PrintSettings -> -- print_settings : TInterface "Gtk" "PrintSettings"
IO ()
printOperationSetPrintSettings ::
(MonadIO m, PrintOperationK a, PrintSettingsK b) =>
a -> -- _obj
Maybe (b) -> -- print_settings
m ()
printOperationSetPrintSettings _obj print_settings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePrint_settings <- case print_settings of
Nothing -> return nullPtr
Just jPrint_settings -> do
let jPrint_settings' = unsafeManagedPtrCastPtr jPrint_settings
return jPrint_settings'
gtk_print_operation_set_print_settings _obj' maybePrint_settings
touchManagedPtr _obj
whenJust print_settings touchManagedPtr
return ()
-- method PrintOperation::set_show_progress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_show_progress" gtk_print_operation_set_show_progress ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- show_progress : TBasicType TBoolean
IO ()
printOperationSetShowProgress ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- show_progress
m ()
printOperationSetShowProgress _obj show_progress = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_progress' = (fromIntegral . fromEnum) show_progress
gtk_print_operation_set_show_progress _obj' show_progress'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_support_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_support_selection" gtk_print_operation_set_support_selection ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- support_selection : TBasicType TBoolean
IO ()
printOperationSetSupportSelection ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- support_selection
m ()
printOperationSetSupportSelection _obj support_selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let support_selection' = (fromIntegral . fromEnum) support_selection
gtk_print_operation_set_support_selection _obj' support_selection'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_track_print_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_track_print_status" gtk_print_operation_set_track_print_status ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- track_status : TBasicType TBoolean
IO ()
printOperationSetTrackPrintStatus ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- track_status
m ()
printOperationSetTrackPrintStatus _obj track_status = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let track_status' = (fromIntegral . fromEnum) track_status
gtk_print_operation_set_track_print_status _obj' track_status'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_unit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_unit" gtk_print_operation_set_unit ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printOperationSetUnit ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Unit -> -- unit
m ()
printOperationSetUnit _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
gtk_print_operation_set_unit _obj' unit'
touchManagedPtr _obj
return ()
-- method PrintOperation::set_use_full_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_set_use_full_page" gtk_print_operation_set_use_full_page ::
Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation"
CInt -> -- full_page : TBasicType TBoolean
IO ()
printOperationSetUseFullPage ::
(MonadIO m, PrintOperationK a) =>
a -> -- _obj
Bool -> -- full_page
m ()
printOperationSetUseFullPage _obj full_page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let full_page' = (fromIntegral . fromEnum) full_page
gtk_print_operation_set_use_full_page _obj' full_page'
touchManagedPtr _obj
return ()
-- signal PrintOperation::begin-print
type PrintOperationBeginPrintCallback =
PrintContext ->
IO ()
noPrintOperationBeginPrintCallback :: Maybe PrintOperationBeginPrintCallback
noPrintOperationBeginPrintCallback = Nothing
type PrintOperationBeginPrintCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationBeginPrintCallback :: PrintOperationBeginPrintCallbackC -> IO (FunPtr PrintOperationBeginPrintCallbackC)
printOperationBeginPrintClosure :: PrintOperationBeginPrintCallback -> IO Closure
printOperationBeginPrintClosure cb = newCClosure =<< mkPrintOperationBeginPrintCallback wrapped
where wrapped = printOperationBeginPrintCallbackWrapper cb
printOperationBeginPrintCallbackWrapper ::
PrintOperationBeginPrintCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO ()
printOperationBeginPrintCallbackWrapper _cb _ context _ = do
context' <- (newObject PrintContext) context
_cb context'
onPrintOperationBeginPrint :: (GObject a, MonadIO m) => a -> PrintOperationBeginPrintCallback -> m SignalHandlerId
onPrintOperationBeginPrint obj cb = liftIO $ connectPrintOperationBeginPrint obj cb SignalConnectBefore
afterPrintOperationBeginPrint :: (GObject a, MonadIO m) => a -> PrintOperationBeginPrintCallback -> m SignalHandlerId
afterPrintOperationBeginPrint obj cb = connectPrintOperationBeginPrint obj cb SignalConnectAfter
connectPrintOperationBeginPrint :: (GObject a, MonadIO m) =>
a -> PrintOperationBeginPrintCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationBeginPrint obj cb after = liftIO $ do
cb' <- mkPrintOperationBeginPrintCallback (printOperationBeginPrintCallbackWrapper cb)
connectSignalFunPtr obj "begin-print" cb' after
-- signal PrintOperation::create-custom-widget
type PrintOperationCreateCustomWidgetCallback =
IO GObject.Object
noPrintOperationCreateCustomWidgetCallback :: Maybe PrintOperationCreateCustomWidgetCallback
noPrintOperationCreateCustomWidgetCallback = Nothing
type PrintOperationCreateCustomWidgetCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO (Ptr GObject.Object)
foreign import ccall "wrapper"
mkPrintOperationCreateCustomWidgetCallback :: PrintOperationCreateCustomWidgetCallbackC -> IO (FunPtr PrintOperationCreateCustomWidgetCallbackC)
printOperationCreateCustomWidgetClosure :: PrintOperationCreateCustomWidgetCallback -> IO Closure
printOperationCreateCustomWidgetClosure cb = newCClosure =<< mkPrintOperationCreateCustomWidgetCallback wrapped
where wrapped = printOperationCreateCustomWidgetCallbackWrapper cb
printOperationCreateCustomWidgetCallbackWrapper ::
PrintOperationCreateCustomWidgetCallback ->
Ptr () ->
Ptr () ->
IO (Ptr GObject.Object)
printOperationCreateCustomWidgetCallbackWrapper _cb _ _ = do
result <- _cb
let result' = unsafeManagedPtrCastPtr result
return result'
onPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId
onPrintOperationCreateCustomWidget obj cb = liftIO $ connectPrintOperationCreateCustomWidget obj cb SignalConnectBefore
afterPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId
afterPrintOperationCreateCustomWidget obj cb = connectPrintOperationCreateCustomWidget obj cb SignalConnectAfter
connectPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) =>
a -> PrintOperationCreateCustomWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationCreateCustomWidget obj cb after = liftIO $ do
cb' <- mkPrintOperationCreateCustomWidgetCallback (printOperationCreateCustomWidgetCallbackWrapper cb)
connectSignalFunPtr obj "create-custom-widget" cb' after
-- signal PrintOperation::custom-widget-apply
type PrintOperationCustomWidgetApplyCallback =
Widget ->
IO ()
noPrintOperationCustomWidgetApplyCallback :: Maybe PrintOperationCustomWidgetApplyCallback
noPrintOperationCustomWidgetApplyCallback = Nothing
type PrintOperationCustomWidgetApplyCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationCustomWidgetApplyCallback :: PrintOperationCustomWidgetApplyCallbackC -> IO (FunPtr PrintOperationCustomWidgetApplyCallbackC)
printOperationCustomWidgetApplyClosure :: PrintOperationCustomWidgetApplyCallback -> IO Closure
printOperationCustomWidgetApplyClosure cb = newCClosure =<< mkPrintOperationCustomWidgetApplyCallback wrapped
where wrapped = printOperationCustomWidgetApplyCallbackWrapper cb
printOperationCustomWidgetApplyCallbackWrapper ::
PrintOperationCustomWidgetApplyCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
printOperationCustomWidgetApplyCallbackWrapper _cb _ widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
onPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) => a -> PrintOperationCustomWidgetApplyCallback -> m SignalHandlerId
onPrintOperationCustomWidgetApply obj cb = liftIO $ connectPrintOperationCustomWidgetApply obj cb SignalConnectBefore
afterPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) => a -> PrintOperationCustomWidgetApplyCallback -> m SignalHandlerId
afterPrintOperationCustomWidgetApply obj cb = connectPrintOperationCustomWidgetApply obj cb SignalConnectAfter
connectPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) =>
a -> PrintOperationCustomWidgetApplyCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationCustomWidgetApply obj cb after = liftIO $ do
cb' <- mkPrintOperationCustomWidgetApplyCallback (printOperationCustomWidgetApplyCallbackWrapper cb)
connectSignalFunPtr obj "custom-widget-apply" cb' after
-- signal PrintOperation::done
type PrintOperationDoneCallback =
PrintOperationResult ->
IO ()
noPrintOperationDoneCallback :: Maybe PrintOperationDoneCallback
noPrintOperationDoneCallback = Nothing
type PrintOperationDoneCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationDoneCallback :: PrintOperationDoneCallbackC -> IO (FunPtr PrintOperationDoneCallbackC)
printOperationDoneClosure :: PrintOperationDoneCallback -> IO Closure
printOperationDoneClosure cb = newCClosure =<< mkPrintOperationDoneCallback wrapped
where wrapped = printOperationDoneCallbackWrapper cb
printOperationDoneCallbackWrapper ::
PrintOperationDoneCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
printOperationDoneCallbackWrapper _cb _ result_ _ = do
let result_' = (toEnum . fromIntegral) result_
_cb result_'
onPrintOperationDone :: (GObject a, MonadIO m) => a -> PrintOperationDoneCallback -> m SignalHandlerId
onPrintOperationDone obj cb = liftIO $ connectPrintOperationDone obj cb SignalConnectBefore
afterPrintOperationDone :: (GObject a, MonadIO m) => a -> PrintOperationDoneCallback -> m SignalHandlerId
afterPrintOperationDone obj cb = connectPrintOperationDone obj cb SignalConnectAfter
connectPrintOperationDone :: (GObject a, MonadIO m) =>
a -> PrintOperationDoneCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationDone obj cb after = liftIO $ do
cb' <- mkPrintOperationDoneCallback (printOperationDoneCallbackWrapper cb)
connectSignalFunPtr obj "done" cb' after
-- signal PrintOperation::draw-page
type PrintOperationDrawPageCallback =
PrintContext ->
Int32 ->
IO ()
noPrintOperationDrawPageCallback :: Maybe PrintOperationDrawPageCallback
noPrintOperationDrawPageCallback = Nothing
type PrintOperationDrawPageCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationDrawPageCallback :: PrintOperationDrawPageCallbackC -> IO (FunPtr PrintOperationDrawPageCallbackC)
printOperationDrawPageClosure :: PrintOperationDrawPageCallback -> IO Closure
printOperationDrawPageClosure cb = newCClosure =<< mkPrintOperationDrawPageCallback wrapped
where wrapped = printOperationDrawPageCallbackWrapper cb
printOperationDrawPageCallbackWrapper ::
PrintOperationDrawPageCallback ->
Ptr () ->
Ptr PrintContext ->
Int32 ->
Ptr () ->
IO ()
printOperationDrawPageCallbackWrapper _cb _ context page_nr _ = do
context' <- (newObject PrintContext) context
_cb context' page_nr
onPrintOperationDrawPage :: (GObject a, MonadIO m) => a -> PrintOperationDrawPageCallback -> m SignalHandlerId
onPrintOperationDrawPage obj cb = liftIO $ connectPrintOperationDrawPage obj cb SignalConnectBefore
afterPrintOperationDrawPage :: (GObject a, MonadIO m) => a -> PrintOperationDrawPageCallback -> m SignalHandlerId
afterPrintOperationDrawPage obj cb = connectPrintOperationDrawPage obj cb SignalConnectAfter
connectPrintOperationDrawPage :: (GObject a, MonadIO m) =>
a -> PrintOperationDrawPageCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationDrawPage obj cb after = liftIO $ do
cb' <- mkPrintOperationDrawPageCallback (printOperationDrawPageCallbackWrapper cb)
connectSignalFunPtr obj "draw-page" cb' after
-- signal PrintOperation::end-print
type PrintOperationEndPrintCallback =
PrintContext ->
IO ()
noPrintOperationEndPrintCallback :: Maybe PrintOperationEndPrintCallback
noPrintOperationEndPrintCallback = Nothing
type PrintOperationEndPrintCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationEndPrintCallback :: PrintOperationEndPrintCallbackC -> IO (FunPtr PrintOperationEndPrintCallbackC)
printOperationEndPrintClosure :: PrintOperationEndPrintCallback -> IO Closure
printOperationEndPrintClosure cb = newCClosure =<< mkPrintOperationEndPrintCallback wrapped
where wrapped = printOperationEndPrintCallbackWrapper cb
printOperationEndPrintCallbackWrapper ::
PrintOperationEndPrintCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO ()
printOperationEndPrintCallbackWrapper _cb _ context _ = do
context' <- (newObject PrintContext) context
_cb context'
onPrintOperationEndPrint :: (GObject a, MonadIO m) => a -> PrintOperationEndPrintCallback -> m SignalHandlerId
onPrintOperationEndPrint obj cb = liftIO $ connectPrintOperationEndPrint obj cb SignalConnectBefore
afterPrintOperationEndPrint :: (GObject a, MonadIO m) => a -> PrintOperationEndPrintCallback -> m SignalHandlerId
afterPrintOperationEndPrint obj cb = connectPrintOperationEndPrint obj cb SignalConnectAfter
connectPrintOperationEndPrint :: (GObject a, MonadIO m) =>
a -> PrintOperationEndPrintCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationEndPrint obj cb after = liftIO $ do
cb' <- mkPrintOperationEndPrintCallback (printOperationEndPrintCallbackWrapper cb)
connectSignalFunPtr obj "end-print" cb' after
-- signal PrintOperation::paginate
type PrintOperationPaginateCallback =
PrintContext ->
IO Bool
noPrintOperationPaginateCallback :: Maybe PrintOperationPaginateCallback
noPrintOperationPaginateCallback = Nothing
type PrintOperationPaginateCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPrintOperationPaginateCallback :: PrintOperationPaginateCallbackC -> IO (FunPtr PrintOperationPaginateCallbackC)
printOperationPaginateClosure :: PrintOperationPaginateCallback -> IO Closure
printOperationPaginateClosure cb = newCClosure =<< mkPrintOperationPaginateCallback wrapped
where wrapped = printOperationPaginateCallbackWrapper cb
printOperationPaginateCallbackWrapper ::
PrintOperationPaginateCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO CInt
printOperationPaginateCallbackWrapper _cb _ context _ = do
context' <- (newObject PrintContext) context
result <- _cb context'
let result' = (fromIntegral . fromEnum) result
return result'
onPrintOperationPaginate :: (GObject a, MonadIO m) => a -> PrintOperationPaginateCallback -> m SignalHandlerId
onPrintOperationPaginate obj cb = liftIO $ connectPrintOperationPaginate obj cb SignalConnectBefore
afterPrintOperationPaginate :: (GObject a, MonadIO m) => a -> PrintOperationPaginateCallback -> m SignalHandlerId
afterPrintOperationPaginate obj cb = connectPrintOperationPaginate obj cb SignalConnectAfter
connectPrintOperationPaginate :: (GObject a, MonadIO m) =>
a -> PrintOperationPaginateCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPaginate obj cb after = liftIO $ do
cb' <- mkPrintOperationPaginateCallback (printOperationPaginateCallbackWrapper cb)
connectSignalFunPtr obj "paginate" cb' after
-- signal PrintOperation::preview
type PrintOperationPreviewCallback =
PrintOperationPreview ->
PrintContext ->
Maybe Window ->
IO Bool
noPrintOperationPreviewCallback :: Maybe PrintOperationPreviewCallback
noPrintOperationPreviewCallback = Nothing
type PrintOperationPreviewCallbackC =
Ptr () -> -- object
Ptr PrintOperationPreview ->
Ptr PrintContext ->
Ptr Window ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkPrintOperationPreviewCallback :: PrintOperationPreviewCallbackC -> IO (FunPtr PrintOperationPreviewCallbackC)
printOperationPreviewClosure :: PrintOperationPreviewCallback -> IO Closure
printOperationPreviewClosure cb = newCClosure =<< mkPrintOperationPreviewCallback wrapped
where wrapped = printOperationPreviewCallbackWrapper cb
printOperationPreviewCallbackWrapper ::
PrintOperationPreviewCallback ->
Ptr () ->
Ptr PrintOperationPreview ->
Ptr PrintContext ->
Ptr Window ->
Ptr () ->
IO CInt
printOperationPreviewCallbackWrapper _cb _ preview context parent _ = do
preview' <- (newObject PrintOperationPreview) preview
context' <- (newObject PrintContext) context
maybeParent <-
if parent == nullPtr
then return Nothing
else do
parent' <- (newObject Window) parent
return $ Just parent'
result <- _cb preview' context' maybeParent
let result' = (fromIntegral . fromEnum) result
return result'
onPrintOperationPreview :: (GObject a, MonadIO m) => a -> PrintOperationPreviewCallback -> m SignalHandlerId
onPrintOperationPreview obj cb = liftIO $ connectPrintOperationPreview obj cb SignalConnectBefore
afterPrintOperationPreview :: (GObject a, MonadIO m) => a -> PrintOperationPreviewCallback -> m SignalHandlerId
afterPrintOperationPreview obj cb = connectPrintOperationPreview obj cb SignalConnectAfter
connectPrintOperationPreview :: (GObject a, MonadIO m) =>
a -> PrintOperationPreviewCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPreview obj cb after = liftIO $ do
cb' <- mkPrintOperationPreviewCallback (printOperationPreviewCallbackWrapper cb)
connectSignalFunPtr obj "preview" cb' after
-- signal PrintOperation::request-page-setup
type PrintOperationRequestPageSetupCallback =
PrintContext ->
Int32 ->
PageSetup ->
IO ()
noPrintOperationRequestPageSetupCallback :: Maybe PrintOperationRequestPageSetupCallback
noPrintOperationRequestPageSetupCallback = Nothing
type PrintOperationRequestPageSetupCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Int32 ->
Ptr PageSetup ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationRequestPageSetupCallback :: PrintOperationRequestPageSetupCallbackC -> IO (FunPtr PrintOperationRequestPageSetupCallbackC)
printOperationRequestPageSetupClosure :: PrintOperationRequestPageSetupCallback -> IO Closure
printOperationRequestPageSetupClosure cb = newCClosure =<< mkPrintOperationRequestPageSetupCallback wrapped
where wrapped = printOperationRequestPageSetupCallbackWrapper cb
printOperationRequestPageSetupCallbackWrapper ::
PrintOperationRequestPageSetupCallback ->
Ptr () ->
Ptr PrintContext ->
Int32 ->
Ptr PageSetup ->
Ptr () ->
IO ()
printOperationRequestPageSetupCallbackWrapper _cb _ context page_nr setup _ = do
context' <- (newObject PrintContext) context
setup' <- (newObject PageSetup) setup
_cb context' page_nr setup'
onPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => a -> PrintOperationRequestPageSetupCallback -> m SignalHandlerId
onPrintOperationRequestPageSetup obj cb = liftIO $ connectPrintOperationRequestPageSetup obj cb SignalConnectBefore
afterPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => a -> PrintOperationRequestPageSetupCallback -> m SignalHandlerId
afterPrintOperationRequestPageSetup obj cb = connectPrintOperationRequestPageSetup obj cb SignalConnectAfter
connectPrintOperationRequestPageSetup :: (GObject a, MonadIO m) =>
a -> PrintOperationRequestPageSetupCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationRequestPageSetup obj cb after = liftIO $ do
cb' <- mkPrintOperationRequestPageSetupCallback (printOperationRequestPageSetupCallbackWrapper cb)
connectSignalFunPtr obj "request-page-setup" cb' after
-- signal PrintOperation::status-changed
type PrintOperationStatusChangedCallback =
IO ()
noPrintOperationStatusChangedCallback :: Maybe PrintOperationStatusChangedCallback
noPrintOperationStatusChangedCallback = Nothing
type PrintOperationStatusChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationStatusChangedCallback :: PrintOperationStatusChangedCallbackC -> IO (FunPtr PrintOperationStatusChangedCallbackC)
printOperationStatusChangedClosure :: PrintOperationStatusChangedCallback -> IO Closure
printOperationStatusChangedClosure cb = newCClosure =<< mkPrintOperationStatusChangedCallback wrapped
where wrapped = printOperationStatusChangedCallbackWrapper cb
printOperationStatusChangedCallbackWrapper ::
PrintOperationStatusChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
printOperationStatusChangedCallbackWrapper _cb _ _ = do
_cb
onPrintOperationStatusChanged :: (GObject a, MonadIO m) => a -> PrintOperationStatusChangedCallback -> m SignalHandlerId
onPrintOperationStatusChanged obj cb = liftIO $ connectPrintOperationStatusChanged obj cb SignalConnectBefore
afterPrintOperationStatusChanged :: (GObject a, MonadIO m) => a -> PrintOperationStatusChangedCallback -> m SignalHandlerId
afterPrintOperationStatusChanged obj cb = connectPrintOperationStatusChanged obj cb SignalConnectAfter
connectPrintOperationStatusChanged :: (GObject a, MonadIO m) =>
a -> PrintOperationStatusChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationStatusChanged obj cb after = liftIO $ do
cb' <- mkPrintOperationStatusChangedCallback (printOperationStatusChangedCallbackWrapper cb)
connectSignalFunPtr obj "status-changed" cb' after
-- signal PrintOperation::update-custom-widget
type PrintOperationUpdateCustomWidgetCallback =
Widget ->
PageSetup ->
PrintSettings ->
IO ()
noPrintOperationUpdateCustomWidgetCallback :: Maybe PrintOperationUpdateCustomWidgetCallback
noPrintOperationUpdateCustomWidgetCallback = Nothing
type PrintOperationUpdateCustomWidgetCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr PageSetup ->
Ptr PrintSettings ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationUpdateCustomWidgetCallback :: PrintOperationUpdateCustomWidgetCallbackC -> IO (FunPtr PrintOperationUpdateCustomWidgetCallbackC)
printOperationUpdateCustomWidgetClosure :: PrintOperationUpdateCustomWidgetCallback -> IO Closure
printOperationUpdateCustomWidgetClosure cb = newCClosure =<< mkPrintOperationUpdateCustomWidgetCallback wrapped
where wrapped = printOperationUpdateCustomWidgetCallbackWrapper cb
printOperationUpdateCustomWidgetCallbackWrapper ::
PrintOperationUpdateCustomWidgetCallback ->
Ptr () ->
Ptr Widget ->
Ptr PageSetup ->
Ptr PrintSettings ->
Ptr () ->
IO ()
printOperationUpdateCustomWidgetCallbackWrapper _cb _ widget setup settings _ = do
widget' <- (newObject Widget) widget
setup' <- (newObject PageSetup) setup
settings' <- (newObject PrintSettings) settings
_cb widget' setup' settings'
onPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationUpdateCustomWidgetCallback -> m SignalHandlerId
onPrintOperationUpdateCustomWidget obj cb = liftIO $ connectPrintOperationUpdateCustomWidget obj cb SignalConnectBefore
afterPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationUpdateCustomWidgetCallback -> m SignalHandlerId
afterPrintOperationUpdateCustomWidget obj cb = connectPrintOperationUpdateCustomWidget obj cb SignalConnectAfter
connectPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) =>
a -> PrintOperationUpdateCustomWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationUpdateCustomWidget obj cb after = liftIO $ do
cb' <- mkPrintOperationUpdateCustomWidgetCallback (printOperationUpdateCustomWidgetCallbackWrapper cb)
connectSignalFunPtr obj "update-custom-widget" cb' after
-- Enum PrintOperationAction
data PrintOperationAction =
PrintOperationActionPrintDialog
| PrintOperationActionPrint
| PrintOperationActionPreview
| PrintOperationActionExport
| AnotherPrintOperationAction Int
deriving (Show, Eq)
instance Enum PrintOperationAction where
fromEnum PrintOperationActionPrintDialog = 0
fromEnum PrintOperationActionPrint = 1
fromEnum PrintOperationActionPreview = 2
fromEnum PrintOperationActionExport = 3
fromEnum (AnotherPrintOperationAction k) = k
toEnum 0 = PrintOperationActionPrintDialog
toEnum 1 = PrintOperationActionPrint
toEnum 2 = PrintOperationActionPreview
toEnum 3 = PrintOperationActionExport
toEnum k = AnotherPrintOperationAction k
foreign import ccall "gtk_print_operation_action_get_type" c_gtk_print_operation_action_get_type ::
IO GType
instance BoxedEnum PrintOperationAction where
boxedEnumType _ = c_gtk_print_operation_action_get_type
-- interface PrintOperationPreview
newtype PrintOperationPreview = PrintOperationPreview (ForeignPtr PrintOperationPreview)
noPrintOperationPreview :: Maybe PrintOperationPreview
noPrintOperationPreview = Nothing
foreign import ccall "gtk_print_operation_preview_get_type"
c_gtk_print_operation_preview_get_type :: IO GType
type instance ParentTypes PrintOperationPreview = '[GObject.Object]
instance GObject PrintOperationPreview where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_operation_preview_get_type
class GObject o => PrintOperationPreviewK o
instance (GObject o, IsDescendantOf PrintOperationPreview o) => PrintOperationPreviewK o
toPrintOperationPreview :: PrintOperationPreviewK o => o -> IO PrintOperationPreview
toPrintOperationPreview = unsafeCastTo PrintOperationPreview
-- method PrintOperationPreview::end_preview
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_preview_end_preview" gtk_print_operation_preview_end_preview ::
Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview"
IO ()
printOperationPreviewEndPreview ::
(MonadIO m, PrintOperationPreviewK a) =>
a -> -- _obj
m ()
printOperationPreviewEndPreview _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_preview_end_preview _obj'
touchManagedPtr _obj
return ()
-- method PrintOperationPreview::is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected ::
Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview"
Int32 -> -- page_nr : TBasicType TInt32
IO CInt
printOperationPreviewIsSelected ::
(MonadIO m, PrintOperationPreviewK a) =>
a -> -- _obj
Int32 -> -- page_nr
m Bool
printOperationPreviewIsSelected _obj page_nr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_preview_is_selected _obj' page_nr
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintOperationPreview::render_page
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page ::
Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview"
Int32 -> -- page_nr : TBasicType TInt32
IO ()
printOperationPreviewRenderPage ::
(MonadIO m, PrintOperationPreviewK a) =>
a -> -- _obj
Int32 -> -- page_nr
m ()
printOperationPreviewRenderPage _obj page_nr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_preview_render_page _obj' page_nr
touchManagedPtr _obj
return ()
-- signal PrintOperationPreview::got-page-size
type PrintOperationPreviewGotPageSizeCallback =
PrintContext ->
PageSetup ->
IO ()
noPrintOperationPreviewGotPageSizeCallback :: Maybe PrintOperationPreviewGotPageSizeCallback
noPrintOperationPreviewGotPageSizeCallback = Nothing
type PrintOperationPreviewGotPageSizeCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Ptr PageSetup ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationPreviewGotPageSizeCallback :: PrintOperationPreviewGotPageSizeCallbackC -> IO (FunPtr PrintOperationPreviewGotPageSizeCallbackC)
printOperationPreviewGotPageSizeClosure :: PrintOperationPreviewGotPageSizeCallback -> IO Closure
printOperationPreviewGotPageSizeClosure cb = newCClosure =<< mkPrintOperationPreviewGotPageSizeCallback wrapped
where wrapped = printOperationPreviewGotPageSizeCallbackWrapper cb
printOperationPreviewGotPageSizeCallbackWrapper ::
PrintOperationPreviewGotPageSizeCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr PageSetup ->
Ptr () ->
IO ()
printOperationPreviewGotPageSizeCallbackWrapper _cb _ context page_setup _ = do
context' <- (newObject PrintContext) context
page_setup' <- (newObject PageSetup) page_setup
_cb context' page_setup'
onPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId
onPrintOperationPreviewGotPageSize obj cb = liftIO $ connectPrintOperationPreviewGotPageSize obj cb SignalConnectBefore
afterPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId
afterPrintOperationPreviewGotPageSize obj cb = connectPrintOperationPreviewGotPageSize obj cb SignalConnectAfter
connectPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) =>
a -> PrintOperationPreviewGotPageSizeCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPreviewGotPageSize obj cb after = liftIO $ do
cb' <- mkPrintOperationPreviewGotPageSizeCallback (printOperationPreviewGotPageSizeCallbackWrapper cb)
connectSignalFunPtr obj "got-page-size" cb' after
-- signal PrintOperationPreview::ready
type PrintOperationPreviewReadyCallback =
PrintContext ->
IO ()
noPrintOperationPreviewReadyCallback :: Maybe PrintOperationPreviewReadyCallback
noPrintOperationPreviewReadyCallback = Nothing
type PrintOperationPreviewReadyCallbackC =
Ptr () -> -- object
Ptr PrintContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkPrintOperationPreviewReadyCallback :: PrintOperationPreviewReadyCallbackC -> IO (FunPtr PrintOperationPreviewReadyCallbackC)
printOperationPreviewReadyClosure :: PrintOperationPreviewReadyCallback -> IO Closure
printOperationPreviewReadyClosure cb = newCClosure =<< mkPrintOperationPreviewReadyCallback wrapped
where wrapped = printOperationPreviewReadyCallbackWrapper cb
printOperationPreviewReadyCallbackWrapper ::
PrintOperationPreviewReadyCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO ()
printOperationPreviewReadyCallbackWrapper _cb _ context _ = do
context' <- (newObject PrintContext) context
_cb context'
onPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId
onPrintOperationPreviewReady obj cb = liftIO $ connectPrintOperationPreviewReady obj cb SignalConnectBefore
afterPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId
afterPrintOperationPreviewReady obj cb = connectPrintOperationPreviewReady obj cb SignalConnectAfter
connectPrintOperationPreviewReady :: (GObject a, MonadIO m) =>
a -> PrintOperationPreviewReadyCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPreviewReady obj cb after = liftIO $ do
cb' <- mkPrintOperationPreviewReadyCallback (printOperationPreviewReadyCallbackWrapper cb)
connectSignalFunPtr obj "ready" cb' after
-- Enum PrintOperationResult
data PrintOperationResult =
PrintOperationResultError
| PrintOperationResultApply
| PrintOperationResultCancel
| PrintOperationResultInProgress
| AnotherPrintOperationResult Int
deriving (Show, Eq)
instance Enum PrintOperationResult where
fromEnum PrintOperationResultError = 0
fromEnum PrintOperationResultApply = 1
fromEnum PrintOperationResultCancel = 2
fromEnum PrintOperationResultInProgress = 3
fromEnum (AnotherPrintOperationResult k) = k
toEnum 0 = PrintOperationResultError
toEnum 1 = PrintOperationResultApply
toEnum 2 = PrintOperationResultCancel
toEnum 3 = PrintOperationResultInProgress
toEnum k = AnotherPrintOperationResult k
foreign import ccall "gtk_print_operation_result_get_type" c_gtk_print_operation_result_get_type ::
IO GType
instance BoxedEnum PrintOperationResult where
boxedEnumType _ = c_gtk_print_operation_result_get_type
-- Enum PrintPages
data PrintPages =
PrintPagesAll
| PrintPagesCurrent
| PrintPagesRanges
| PrintPagesSelection
| AnotherPrintPages Int
deriving (Show, Eq)
instance Enum PrintPages where
fromEnum PrintPagesAll = 0
fromEnum PrintPagesCurrent = 1
fromEnum PrintPagesRanges = 2
fromEnum PrintPagesSelection = 3
fromEnum (AnotherPrintPages k) = k
toEnum 0 = PrintPagesAll
toEnum 1 = PrintPagesCurrent
toEnum 2 = PrintPagesRanges
toEnum 3 = PrintPagesSelection
toEnum k = AnotherPrintPages k
foreign import ccall "gtk_print_pages_get_type" c_gtk_print_pages_get_type ::
IO GType
instance BoxedEnum PrintPages where
boxedEnumType _ = c_gtk_print_pages_get_type
-- Enum PrintQuality
data PrintQuality =
PrintQualityLow
| PrintQualityNormal
| PrintQualityHigh
| PrintQualityDraft
| AnotherPrintQuality Int
deriving (Show, Eq)
instance Enum PrintQuality where
fromEnum PrintQualityLow = 0
fromEnum PrintQualityNormal = 1
fromEnum PrintQualityHigh = 2
fromEnum PrintQualityDraft = 3
fromEnum (AnotherPrintQuality k) = k
toEnum 0 = PrintQualityLow
toEnum 1 = PrintQualityNormal
toEnum 2 = PrintQualityHigh
toEnum 3 = PrintQualityDraft
toEnum k = AnotherPrintQuality k
foreign import ccall "gtk_print_quality_get_type" c_gtk_print_quality_get_type ::
IO GType
instance BoxedEnum PrintQuality where
boxedEnumType _ = c_gtk_print_quality_get_type
-- object PrintSettings
newtype PrintSettings = PrintSettings (ForeignPtr PrintSettings)
noPrintSettings :: Maybe PrintSettings
noPrintSettings = Nothing
foreign import ccall "gtk_print_settings_get_type"
c_gtk_print_settings_get_type :: IO GType
type instance ParentTypes PrintSettings = '[GObject.Object]
instance GObject PrintSettings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_settings_get_type
class GObject o => PrintSettingsK o
instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o
toPrintSettings :: PrintSettingsK o => o -> IO PrintSettings
toPrintSettings = unsafeCastTo PrintSettings
-- method PrintSettings::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_new" gtk_print_settings_new ::
IO (Ptr PrintSettings)
printSettingsNew ::
(MonadIO m) =>
m PrintSettings
printSettingsNew = liftIO $ do
result <- gtk_print_settings_new
checkUnexpectedReturnNULL "gtk_print_settings_new" result
result' <- (wrapObject PrintSettings) result
return result'
-- method PrintSettings::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_new_from_file" gtk_print_settings_new_from_file ::
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO (Ptr PrintSettings)
printSettingsNewFromFile ::
(MonadIO m) =>
[Char] -> -- file_name
m PrintSettings
printSettingsNewFromFile file_name = liftIO $ do
file_name' <- stringToCString file_name
onException (do
result <- propagateGError $ gtk_print_settings_new_from_file file_name'
checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result
result' <- (wrapObject PrintSettings) result
freeMem file_name'
return result'
) (do
freeMem file_name'
)
-- method PrintSettings::new_from_key_file
-- method type : Constructor
-- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_new_from_key_file" gtk_print_settings_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PrintSettings)
printSettingsNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m PrintSettings
printSettingsNewFromKeyFile key_file group_name = liftIO $ do
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
result <- propagateGError $ gtk_print_settings_new_from_key_file key_file' maybeGroup_name
checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result
result' <- (wrapObject PrintSettings) result
touchManagedPtr key_file
freeMem maybeGroup_name
return result'
) (do
freeMem maybeGroup_name
)
-- method PrintSettings::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_copy" gtk_print_settings_copy ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO (Ptr PrintSettings)
printSettingsCopy ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PrintSettings
printSettingsCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_copy _obj'
checkUnexpectedReturnNULL "gtk_print_settings_copy" result
result' <- (wrapObject PrintSettings) result
touchManagedPtr _obj
return result'
-- method PrintSettings::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
printSettingsForeach ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PrintSettingsFunc -> -- func
m ()
printSettingsForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func)
let user_data = nullPtr
gtk_print_settings_foreach _obj' func' user_data
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method PrintSettings::get
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get" gtk_print_settings_get ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CString
printSettingsGet ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m T.Text
printSettingsGet _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get _obj' key'
checkUnexpectedReturnNULL "gtk_print_settings_get" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::get_bool
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_bool" gtk_print_settings_get_bool ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CInt
printSettingsGetBool ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Bool
printSettingsGetBool _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_bool _obj' key'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::get_collate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_collate" gtk_print_settings_get_collate ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetCollate ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Bool
printSettingsGetCollate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_collate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_default_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_default_source" gtk_print_settings_get_default_source ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetDefaultSource ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetDefaultSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_default_source _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_default_source" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_dither
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_dither" gtk_print_settings_get_dither ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetDither ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetDither _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_dither _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_dither" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_double
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_double" gtk_print_settings_get_double ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CDouble
printSettingsGetDouble ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Double
printSettingsGetDouble _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_double _obj' key'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::get_double_with_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_double_with_default" gtk_print_settings_get_double_with_default ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- def : TBasicType TDouble
IO CDouble
printSettingsGetDoubleWithDefault ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Double -> -- def
m Double
printSettingsGetDoubleWithDefault _obj key def = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let def' = realToFrac def
result <- gtk_print_settings_get_double_with_default _obj' key' def'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::get_duplex
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintDuplex"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_duplex" gtk_print_settings_get_duplex ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetDuplex ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PrintDuplex
printSettingsGetDuplex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_duplex _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_finishings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_finishings" gtk_print_settings_get_finishings ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetFinishings ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetFinishings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_finishings _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_finishings" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_int
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_int" gtk_print_settings_get_int ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO Int32
printSettingsGetInt ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Int32
printSettingsGetInt _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_int _obj' key'
touchManagedPtr _obj
freeMem key'
return result
-- method PrintSettings::get_int_with_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- def : TBasicType TInt32
IO Int32
printSettingsGetIntWithDefault ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Int32 -> -- def
m Int32
printSettingsGetIntWithDefault _obj key def = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_int_with_default _obj' key' def
touchManagedPtr _obj
freeMem key'
return result
-- method PrintSettings::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_length" gtk_print_settings_get_length ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetLength ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Unit -> -- unit
m Double
printSettingsGetLength _obj key unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_length _obj' key' unit'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::get_media_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_media_type" gtk_print_settings_get_media_type ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetMediaType ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetMediaType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_media_type _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_media_type" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_n_copies
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_n_copies" gtk_print_settings_get_n_copies ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetNCopies ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Int32
printSettingsGetNCopies _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_n_copies _obj'
touchManagedPtr _obj
return result
-- method PrintSettings::get_number_up
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_number_up" gtk_print_settings_get_number_up ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetNumberUp ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Int32
printSettingsGetNumberUp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_number_up _obj'
touchManagedPtr _obj
return result
-- method PrintSettings::get_number_up_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "NumberUpLayout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_number_up_layout" gtk_print_settings_get_number_up_layout ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetNumberUpLayout ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m NumberUpLayout
printSettingsGetNumberUpLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_number_up_layout _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageOrientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_orientation" gtk_print_settings_get_orientation ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetOrientation ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PageOrientation
printSettingsGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_output_bin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_output_bin" gtk_print_settings_get_output_bin ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetOutputBin ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetOutputBin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_output_bin _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_output_bin" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_page_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr Int32 -> -- num_ranges : TBasicType TInt32
IO (Ptr PageRange)
printSettingsGetPageRanges ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m [PageRange]
printSettingsGetPageRanges _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
num_ranges <- allocMem :: IO (Ptr Int32)
result <- gtk_print_settings_get_page_ranges _obj' num_ranges
num_ranges' <- peek num_ranges
checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result
result' <- (unpackBlockArrayWithLength 8 num_ranges') result
result'' <- mapM (wrapPtr PageRange) result'
freeMem result
touchManagedPtr _obj
freeMem num_ranges
return result''
-- method PrintSettings::get_page_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_page_set" gtk_print_settings_get_page_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetPageSet ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PageSet
printSettingsGetPageSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_page_set _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_height" gtk_print_settings_get_paper_height ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetPaperHeight ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Unit -> -- unit
m Double
printSettingsGetPaperHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_paper_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_size" gtk_print_settings_get_paper_size ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO (Ptr PaperSize)
printSettingsGetPaperSize ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PaperSize
printSettingsGetPaperSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_paper_size _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_paper_size" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_width" gtk_print_settings_get_paper_width ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetPaperWidth ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Unit -> -- unit
m Double
printSettingsGetPaperWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_paper_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_print_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintPages"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_print_pages" gtk_print_settings_get_print_pages ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetPrintPages ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PrintPages
printSettingsGetPrintPages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_print_pages _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_printer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_printer" gtk_print_settings_get_printer ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetPrinter ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m T.Text
printSettingsGetPrinter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_printer _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_printer" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_printer_lpi
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_printer_lpi" gtk_print_settings_get_printer_lpi ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CDouble
printSettingsGetPrinterLpi ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Double
printSettingsGetPrinterLpi _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_printer_lpi _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_quality
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintQuality"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_quality" gtk_print_settings_get_quality ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetQuality ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m PrintQuality
printSettingsGetQuality _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_quality _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_resolution
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution" gtk_print_settings_get_resolution ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolution ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Int32
printSettingsGetResolution _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution _obj'
touchManagedPtr _obj
return result
-- method PrintSettings::get_resolution_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution_x" gtk_print_settings_get_resolution_x ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolutionX ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Int32
printSettingsGetResolutionX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution_x _obj'
touchManagedPtr _obj
return result
-- method PrintSettings::get_resolution_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution_y" gtk_print_settings_get_resolution_y ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolutionY ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Int32
printSettingsGetResolutionY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution_y _obj'
touchManagedPtr _obj
return result
-- method PrintSettings::get_reverse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_reverse" gtk_print_settings_get_reverse ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetReverse ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Bool
printSettingsGetReverse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_reverse _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_scale" gtk_print_settings_get_scale ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CDouble
printSettingsGetScale ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Double
printSettingsGetScale _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_scale _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PrintSettings::get_use_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_use_color" gtk_print_settings_get_use_color ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetUseColor ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
m Bool
printSettingsGetUseColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_use_color _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PrintSettings::has_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_has_key" gtk_print_settings_has_key ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CInt
printSettingsHasKey ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m Bool
printSettingsHasKey _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_has_key _obj' key'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
-- method PrintSettings::load_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_load_file" gtk_print_settings_load_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsLoadFile ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
printSettingsLoadFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_print_settings_load_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PrintSettings::load_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_load_key_file" gtk_print_settings_load_key_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsLoadKeyFile ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m ()
printSettingsLoadKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
_ <- propagateGError $ gtk_print_settings_load_key_file _obj' key_file' maybeGroup_name
touchManagedPtr _obj
touchManagedPtr key_file
freeMem maybeGroup_name
return ()
) (do
freeMem maybeGroup_name
)
-- method PrintSettings::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set" gtk_print_settings_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO ()
printSettingsSet ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Maybe (T.Text) -> -- value
m ()
printSettingsSet _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
maybeValue <- case value of
Nothing -> return nullPtr
Just jValue -> do
jValue' <- textToCString jValue
return jValue'
gtk_print_settings_set _obj' key' maybeValue
touchManagedPtr _obj
freeMem key'
freeMem maybeValue
return ()
-- method PrintSettings::set_bool
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_bool" gtk_print_settings_set_bool ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CInt -> -- value : TBasicType TBoolean
IO ()
printSettingsSetBool ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Bool -> -- value
m ()
printSettingsSetBool _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = (fromIntegral . fromEnum) value
gtk_print_settings_set_bool _obj' key' value'
touchManagedPtr _obj
freeMem key'
return ()
-- method PrintSettings::set_collate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_collate" gtk_print_settings_set_collate ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- collate : TBasicType TBoolean
IO ()
printSettingsSetCollate ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Bool -> -- collate
m ()
printSettingsSetCollate _obj collate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let collate' = (fromIntegral . fromEnum) collate
gtk_print_settings_set_collate _obj' collate'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_default_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_default_source" gtk_print_settings_set_default_source ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- default_source : TBasicType TUTF8
IO ()
printSettingsSetDefaultSource ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- default_source
m ()
printSettingsSetDefaultSource _obj default_source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
default_source' <- textToCString default_source
gtk_print_settings_set_default_source _obj' default_source'
touchManagedPtr _obj
freeMem default_source'
return ()
-- method PrintSettings::set_dither
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_dither" gtk_print_settings_set_dither ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- dither : TBasicType TUTF8
IO ()
printSettingsSetDither ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- dither
m ()
printSettingsSetDither _obj dither = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
dither' <- textToCString dither
gtk_print_settings_set_dither _obj' dither'
touchManagedPtr _obj
freeMem dither'
return ()
-- method PrintSettings::set_double
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_double" gtk_print_settings_set_double ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
IO ()
printSettingsSetDouble ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Double -> -- value
m ()
printSettingsSetDouble _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = realToFrac value
gtk_print_settings_set_double _obj' key' value'
touchManagedPtr _obj
freeMem key'
return ()
-- method PrintSettings::set_duplex
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_duplex" gtk_print_settings_set_duplex ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- duplex : TInterface "Gtk" "PrintDuplex"
IO ()
printSettingsSetDuplex ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PrintDuplex -> -- duplex
m ()
printSettingsSetDuplex _obj duplex = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let duplex' = (fromIntegral . fromEnum) duplex
gtk_print_settings_set_duplex _obj' duplex'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_finishings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_finishings" gtk_print_settings_set_finishings ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- finishings : TBasicType TUTF8
IO ()
printSettingsSetFinishings ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- finishings
m ()
printSettingsSetFinishings _obj finishings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
finishings' <- textToCString finishings
gtk_print_settings_set_finishings _obj' finishings'
touchManagedPtr _obj
freeMem finishings'
return ()
-- method PrintSettings::set_int
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO ()
printSettingsSetInt ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Int32 -> -- value
m ()
printSettingsSetInt _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
gtk_print_settings_set_int _obj' key' value
touchManagedPtr _obj
freeMem key'
return ()
-- method PrintSettings::set_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_length" gtk_print_settings_set_length ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetLength ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
Double -> -- value
Unit -> -- unit
m ()
printSettingsSetLength _obj key value unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = realToFrac value
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_length _obj' key' value' unit'
touchManagedPtr _obj
freeMem key'
return ()
-- method PrintSettings::set_media_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_media_type" gtk_print_settings_set_media_type ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- media_type : TBasicType TUTF8
IO ()
printSettingsSetMediaType ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- media_type
m ()
printSettingsSetMediaType _obj media_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
media_type' <- textToCString media_type
gtk_print_settings_set_media_type _obj' media_type'
touchManagedPtr _obj
freeMem media_type'
return ()
-- method PrintSettings::set_n_copies
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- num_copies : TBasicType TInt32
IO ()
printSettingsSetNCopies ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Int32 -> -- num_copies
m ()
printSettingsSetNCopies _obj num_copies = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_n_copies _obj' num_copies
touchManagedPtr _obj
return ()
-- method PrintSettings::set_number_up
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- number_up : TBasicType TInt32
IO ()
printSettingsSetNumberUp ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Int32 -> -- number_up
m ()
printSettingsSetNumberUp _obj number_up = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_number_up _obj' number_up
touchManagedPtr _obj
return ()
-- method PrintSettings::set_number_up_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_number_up_layout" gtk_print_settings_set_number_up_layout ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- number_up_layout : TInterface "Gtk" "NumberUpLayout"
IO ()
printSettingsSetNumberUpLayout ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
NumberUpLayout -> -- number_up_layout
m ()
printSettingsSetNumberUpLayout _obj number_up_layout = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let number_up_layout' = (fromIntegral . fromEnum) number_up_layout
gtk_print_settings_set_number_up_layout _obj' number_up_layout'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_orientation" gtk_print_settings_set_orientation ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- orientation : TInterface "Gtk" "PageOrientation"
IO ()
printSettingsSetOrientation ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PageOrientation -> -- orientation
m ()
printSettingsSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_print_settings_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_output_bin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_output_bin" gtk_print_settings_set_output_bin ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- output_bin : TBasicType TUTF8
IO ()
printSettingsSetOutputBin ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- output_bin
m ()
printSettingsSetOutputBin _obj output_bin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
output_bin' <- textToCString output_bin
gtk_print_settings_set_output_bin _obj' output_bin'
touchManagedPtr _obj
freeMem output_bin'
return ()
-- method PrintSettings::set_page_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange")
Int32 -> -- num_ranges : TBasicType TInt32
IO ()
printSettingsSetPageRanges ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
[PageRange] -> -- page_ranges
m ()
printSettingsSetPageRanges _obj page_ranges = liftIO $ do
let num_ranges = fromIntegral $ length page_ranges
let _obj' = unsafeManagedPtrCastPtr _obj
let page_ranges' = map unsafeManagedPtrGetPtr page_ranges
page_ranges'' <- packBlockArray 8 page_ranges'
gtk_print_settings_set_page_ranges _obj' page_ranges'' num_ranges
touchManagedPtr _obj
mapM_ touchManagedPtr page_ranges
freeMem page_ranges''
return ()
-- method PrintSettings::set_page_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_page_set" gtk_print_settings_set_page_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- page_set : TInterface "Gtk" "PageSet"
IO ()
printSettingsSetPageSet ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PageSet -> -- page_set
m ()
printSettingsSetPageSet _obj page_set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page_set' = (fromIntegral . fromEnum) page_set
gtk_print_settings_set_page_set _obj' page_set'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_height" gtk_print_settings_set_paper_height ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetPaperHeight ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Double -> -- height
Unit -> -- unit
m ()
printSettingsSetPaperHeight _obj height unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_paper_height _obj' height' unit'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_size" gtk_print_settings_set_paper_size ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr PaperSize -> -- paper_size : TInterface "Gtk" "PaperSize"
IO ()
printSettingsSetPaperSize ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PaperSize -> -- paper_size
m ()
printSettingsSetPaperSize _obj paper_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let paper_size' = unsafeManagedPtrGetPtr paper_size
gtk_print_settings_set_paper_size _obj' paper_size'
touchManagedPtr _obj
touchManagedPtr paper_size
return ()
-- method PrintSettings::set_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_width" gtk_print_settings_set_paper_width ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- width : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetPaperWidth ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Double -> -- width
Unit -> -- unit
m ()
printSettingsSetPaperWidth _obj width unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let width' = realToFrac width
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_paper_width _obj' width' unit'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_print_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_print_pages" gtk_print_settings_set_print_pages ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- pages : TInterface "Gtk" "PrintPages"
IO ()
printSettingsSetPrintPages ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PrintPages -> -- pages
m ()
printSettingsSetPrintPages _obj pages = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pages' = (fromIntegral . fromEnum) pages
gtk_print_settings_set_print_pages _obj' pages'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_printer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_printer" gtk_print_settings_set_printer ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- printer : TBasicType TUTF8
IO ()
printSettingsSetPrinter ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- printer
m ()
printSettingsSetPrinter _obj printer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
printer' <- textToCString printer
gtk_print_settings_set_printer _obj' printer'
touchManagedPtr _obj
freeMem printer'
return ()
-- method PrintSettings::set_printer_lpi
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_printer_lpi" gtk_print_settings_set_printer_lpi ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- lpi : TBasicType TDouble
IO ()
printSettingsSetPrinterLpi ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Double -> -- lpi
m ()
printSettingsSetPrinterLpi _obj lpi = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let lpi' = realToFrac lpi
gtk_print_settings_set_printer_lpi _obj' lpi'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_quality
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_quality" gtk_print_settings_set_quality ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- quality : TInterface "Gtk" "PrintQuality"
IO ()
printSettingsSetQuality ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
PrintQuality -> -- quality
m ()
printSettingsSetQuality _obj quality = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let quality' = (fromIntegral . fromEnum) quality
gtk_print_settings_set_quality _obj' quality'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_resolution
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- resolution : TBasicType TInt32
IO ()
printSettingsSetResolution ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Int32 -> -- resolution
m ()
printSettingsSetResolution _obj resolution = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_resolution _obj' resolution
touchManagedPtr _obj
return ()
-- method PrintSettings::set_resolution_xy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- resolution_x : TBasicType TInt32
Int32 -> -- resolution_y : TBasicType TInt32
IO ()
printSettingsSetResolutionXy ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Int32 -> -- resolution_x
Int32 -> -- resolution_y
m ()
printSettingsSetResolutionXy _obj resolution_x resolution_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_resolution_xy _obj' resolution_x resolution_y
touchManagedPtr _obj
return ()
-- method PrintSettings::set_reverse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_reverse" gtk_print_settings_set_reverse ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- reverse : TBasicType TBoolean
IO ()
printSettingsSetReverse ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Bool -> -- reverse
m ()
printSettingsSetReverse _obj reverse = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reverse' = (fromIntegral . fromEnum) reverse
gtk_print_settings_set_reverse _obj' reverse'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_scale" gtk_print_settings_set_scale ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- scale : TBasicType TDouble
IO ()
printSettingsSetScale ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Double -> -- scale
m ()
printSettingsSetScale _obj scale = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let scale' = realToFrac scale
gtk_print_settings_set_scale _obj' scale'
touchManagedPtr _obj
return ()
-- method PrintSettings::set_use_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_use_color" gtk_print_settings_set_use_color ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- use_color : TBasicType TBoolean
IO ()
printSettingsSetUseColor ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
Bool -> -- use_color
m ()
printSettingsSetUseColor _obj use_color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_color' = (fromIntegral . fromEnum) use_color
gtk_print_settings_set_use_color _obj' use_color'
touchManagedPtr _obj
return ()
-- method PrintSettings::to_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_to_file" gtk_print_settings_to_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsToFile ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
printSettingsToFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_print_settings_to_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PrintSettings::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_to_key_file" gtk_print_settings_to_key_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
printSettingsToKeyFile ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m ()
printSettingsToKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
gtk_print_settings_to_key_file _obj' key_file' group_name'
touchManagedPtr _obj
touchManagedPtr key_file
freeMem group_name'
return ()
-- method PrintSettings::unset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_unset" gtk_print_settings_unset ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO ()
printSettingsUnset ::
(MonadIO m, PrintSettingsK a) =>
a -> -- _obj
T.Text -> -- key
m ()
printSettingsUnset _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
gtk_print_settings_unset _obj' key'
touchManagedPtr _obj
freeMem key'
return ()
-- callback PrintSettingsFunc
printSettingsFuncClosure :: PrintSettingsFunc -> IO Closure
printSettingsFuncClosure cb = newCClosure =<< mkPrintSettingsFunc wrapped
where wrapped = printSettingsFuncWrapper Nothing cb
type PrintSettingsFuncC =
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkPrintSettingsFunc :: PrintSettingsFuncC -> IO (FunPtr PrintSettingsFuncC)
type PrintSettingsFunc =
T.Text ->
T.Text ->
IO ()
noPrintSettingsFunc :: Maybe PrintSettingsFunc
noPrintSettingsFunc = Nothing
printSettingsFuncWrapper ::
Maybe (Ptr (FunPtr (PrintSettingsFuncC))) ->
PrintSettingsFunc ->
CString ->
CString ->
Ptr () ->
IO ()
printSettingsFuncWrapper funptrptr _cb key value _ = do
key' <- cstringToText key
value' <- cstringToText value
_cb key' value'
maybeReleaseFunPtr funptrptr
-- Enum PrintStatus
data PrintStatus =
PrintStatusInitial
| PrintStatusPreparing
| PrintStatusGeneratingData
| PrintStatusSendingData
| PrintStatusPending
| PrintStatusPendingIssue
| PrintStatusPrinting
| PrintStatusFinished
| PrintStatusFinishedAborted
| AnotherPrintStatus Int
deriving (Show, Eq)
instance Enum PrintStatus where
fromEnum PrintStatusInitial = 0
fromEnum PrintStatusPreparing = 1
fromEnum PrintStatusGeneratingData = 2
fromEnum PrintStatusSendingData = 3
fromEnum PrintStatusPending = 4
fromEnum PrintStatusPendingIssue = 5
fromEnum PrintStatusPrinting = 6
fromEnum PrintStatusFinished = 7
fromEnum PrintStatusFinishedAborted = 8
fromEnum (AnotherPrintStatus k) = k
toEnum 0 = PrintStatusInitial
toEnum 1 = PrintStatusPreparing
toEnum 2 = PrintStatusGeneratingData
toEnum 3 = PrintStatusSendingData
toEnum 4 = PrintStatusPending
toEnum 5 = PrintStatusPendingIssue
toEnum 6 = PrintStatusPrinting
toEnum 7 = PrintStatusFinished
toEnum 8 = PrintStatusFinishedAborted
toEnum k = AnotherPrintStatus k
foreign import ccall "gtk_print_status_get_type" c_gtk_print_status_get_type ::
IO GType
instance BoxedEnum PrintStatus where
boxedEnumType _ = c_gtk_print_status_get_type
-- object ProgressBar
newtype ProgressBar = ProgressBar (ForeignPtr ProgressBar)
noProgressBar :: Maybe ProgressBar
noProgressBar = Nothing
foreign import ccall "gtk_progress_bar_get_type"
c_gtk_progress_bar_get_type :: IO GType
type instance ParentTypes ProgressBar = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject ProgressBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_progress_bar_get_type
class GObject o => ProgressBarK o
instance (GObject o, IsDescendantOf ProgressBar o) => ProgressBarK o
toProgressBar :: ProgressBarK o => o -> IO ProgressBar
toProgressBar = unsafeCastTo ProgressBar
-- method ProgressBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ProgressBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_new" gtk_progress_bar_new ::
IO (Ptr ProgressBar)
progressBarNew ::
(MonadIO m) =>
m ProgressBar
progressBarNew = liftIO $ do
result <- gtk_progress_bar_new
checkUnexpectedReturnNULL "gtk_progress_bar_new" result
result' <- (newObject ProgressBar) result
return result'
-- method ProgressBar::get_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "EllipsizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_ellipsize" gtk_progress_bar_get_ellipsize ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CUInt
progressBarGetEllipsize ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m Pango.EllipsizeMode
progressBarGetEllipsize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_ellipsize _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ProgressBar::get_fraction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_fraction" gtk_progress_bar_get_fraction ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CDouble
progressBarGetFraction ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m Double
progressBarGetFraction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_fraction _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method ProgressBar::get_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_inverted" gtk_progress_bar_get_inverted ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CInt
progressBarGetInverted ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m Bool
progressBarGetInverted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_inverted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ProgressBar::get_pulse_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_pulse_step" gtk_progress_bar_get_pulse_step ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CDouble
progressBarGetPulseStep ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m Double
progressBarGetPulseStep _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_pulse_step _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method ProgressBar::get_show_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_show_text" gtk_progress_bar_get_show_text ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CInt
progressBarGetShowText ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m Bool
progressBarGetShowText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_show_text _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ProgressBar::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_get_text" gtk_progress_bar_get_text ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO CString
progressBarGetText ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m T.Text
progressBarGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_progress_bar_get_text _obj'
checkUnexpectedReturnNULL "gtk_progress_bar_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ProgressBar::pulse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_pulse" gtk_progress_bar_pulse ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
IO ()
progressBarPulse ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
m ()
progressBarPulse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_progress_bar_pulse _obj'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_ellipsize" gtk_progress_bar_set_ellipsize ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CUInt -> -- mode : TInterface "Pango" "EllipsizeMode"
IO ()
progressBarSetEllipsize ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Pango.EllipsizeMode -> -- mode
m ()
progressBarSetEllipsize _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_progress_bar_set_ellipsize _obj' mode'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_fraction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_fraction" gtk_progress_bar_set_fraction ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CDouble -> -- fraction : TBasicType TDouble
IO ()
progressBarSetFraction ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Double -> -- fraction
m ()
progressBarSetFraction _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_progress_bar_set_fraction _obj' fraction'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_inverted" gtk_progress_bar_set_inverted ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CInt -> -- inverted : TBasicType TBoolean
IO ()
progressBarSetInverted ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Bool -> -- inverted
m ()
progressBarSetInverted _obj inverted = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let inverted' = (fromIntegral . fromEnum) inverted
gtk_progress_bar_set_inverted _obj' inverted'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_pulse_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_pulse_step" gtk_progress_bar_set_pulse_step ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CDouble -> -- fraction : TBasicType TDouble
IO ()
progressBarSetPulseStep ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Double -> -- fraction
m ()
progressBarSetPulseStep _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_progress_bar_set_pulse_step _obj' fraction'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_show_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_show_text" gtk_progress_bar_set_show_text ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CInt -> -- show_text : TBasicType TBoolean
IO ()
progressBarSetShowText ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Bool -> -- show_text
m ()
progressBarSetShowText _obj show_text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_text' = (fromIntegral . fromEnum) show_text
gtk_progress_bar_set_show_text _obj' show_text'
touchManagedPtr _obj
return ()
-- method ProgressBar::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_progress_bar_set_text" gtk_progress_bar_set_text ::
Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar"
CString -> -- text : TBasicType TUTF8
IO ()
progressBarSetText ::
(MonadIO m, ProgressBarK a) =>
a -> -- _obj
Maybe (T.Text) -> -- text
m ()
progressBarSetText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
gtk_progress_bar_set_text _obj' maybeText
touchManagedPtr _obj
freeMem maybeText
return ()
-- object ProgressBarAccessible
newtype ProgressBarAccessible = ProgressBarAccessible (ForeignPtr ProgressBarAccessible)
noProgressBarAccessible :: Maybe ProgressBarAccessible
noProgressBarAccessible = Nothing
foreign import ccall "gtk_progress_bar_accessible_get_type"
c_gtk_progress_bar_accessible_get_type :: IO GType
type instance ParentTypes ProgressBarAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value]
instance GObject ProgressBarAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_progress_bar_accessible_get_type
class GObject o => ProgressBarAccessibleK o
instance (GObject o, IsDescendantOf ProgressBarAccessible o) => ProgressBarAccessibleK o
toProgressBarAccessible :: ProgressBarAccessibleK o => o -> IO ProgressBarAccessible
toProgressBarAccessible = unsafeCastTo ProgressBarAccessible
-- Enum PropagationPhase
data PropagationPhase =
PropagationPhaseNone
| PropagationPhaseCapture
| PropagationPhaseBubble
| PropagationPhaseTarget
| AnotherPropagationPhase Int
deriving (Show, Eq)
instance Enum PropagationPhase where
fromEnum PropagationPhaseNone = 0
fromEnum PropagationPhaseCapture = 1
fromEnum PropagationPhaseBubble = 2
fromEnum PropagationPhaseTarget = 3
fromEnum (AnotherPropagationPhase k) = k
toEnum 0 = PropagationPhaseNone
toEnum 1 = PropagationPhaseCapture
toEnum 2 = PropagationPhaseBubble
toEnum 3 = PropagationPhaseTarget
toEnum k = AnotherPropagationPhase k
foreign import ccall "gtk_propagation_phase_get_type" c_gtk_propagation_phase_get_type ::
IO GType
instance BoxedEnum PropagationPhase where
boxedEnumType _ = c_gtk_propagation_phase_get_type
-- object RadioAction
newtype RadioAction = RadioAction (ForeignPtr RadioAction)
noRadioAction :: Maybe RadioAction
noRadioAction = Nothing
foreign import ccall "gtk_radio_action_get_type"
c_gtk_radio_action_get_type :: IO GType
type instance ParentTypes RadioAction = '[ToggleAction, Action, GObject.Object, Buildable]
instance GObject RadioAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_radio_action_get_type
class GObject o => RadioActionK o
instance (GObject o, IsDescendantOf RadioAction o) => RadioActionK o
toRadioAction :: RadioActionK o => o -> IO RadioAction
toRadioAction = unsafeCastTo RadioAction
-- method RadioAction::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_new" gtk_radio_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO (Ptr RadioAction)
{-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-}
radioActionNew ::
(MonadIO m) =>
T.Text -> -- name
Maybe (T.Text) -> -- label
Maybe (T.Text) -> -- tooltip
Maybe (T.Text) -> -- stock_id
Int32 -> -- value
m RadioAction
radioActionNew name label tooltip stock_id value = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStock_id value
checkUnexpectedReturnNULL "gtk_radio_action_new" result
result' <- (wrapObject RadioAction) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStock_id
return result'
-- method RadioAction::get_current_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_get_current_value" gtk_radio_action_get_current_value ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
IO Int32
{-# DEPRECATED radioActionGetCurrentValue ["(Since version 3.10)"]#-}
radioActionGetCurrentValue ::
(MonadIO m, RadioActionK a) =>
a -> -- _obj
m Int32
radioActionGetCurrentValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_action_get_current_value _obj'
touchManagedPtr _obj
return result
-- method RadioAction::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "RadioAction")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_get_group" gtk_radio_action_get_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
IO (Ptr (GSList (Ptr RadioAction)))
{-# DEPRECATED radioActionGetGroup ["(Since version 3.10)"]#-}
radioActionGetGroup ::
(MonadIO m, RadioActionK a) =>
a -> -- _obj
m [RadioAction]
radioActionGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_action_get_group _obj'
checkUnexpectedReturnNULL "gtk_radio_action_get_group" result
result' <- unpackGSList result
result'' <- mapM (newObject RadioAction) result'
touchManagedPtr _obj
return result''
-- method RadioAction::join_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_join_group" gtk_radio_action_join_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Ptr RadioAction -> -- group_source : TInterface "Gtk" "RadioAction"
IO ()
{-# DEPRECATED radioActionJoinGroup ["(Since version 3.10)"]#-}
radioActionJoinGroup ::
(MonadIO m, RadioActionK a, RadioActionK b) =>
a -> -- _obj
Maybe (b) -> -- group_source
m ()
radioActionJoinGroup _obj group_source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGroup_source <- case group_source of
Nothing -> return nullPtr
Just jGroup_source -> do
let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source
return jGroup_source'
gtk_radio_action_join_group _obj' maybeGroup_source
touchManagedPtr _obj
whenJust group_source touchManagedPtr
return ()
-- method RadioAction::set_current_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Int32 -> -- current_value : TBasicType TInt32
IO ()
{-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-}
radioActionSetCurrentValue ::
(MonadIO m, RadioActionK a) =>
a -> -- _obj
Int32 -> -- current_value
m ()
radioActionSetCurrentValue _obj current_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_radio_action_set_current_value _obj' current_value
touchManagedPtr _obj
return ()
-- method RadioAction::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_set_group" gtk_radio_action_set_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Ptr (GSList (Ptr RadioAction)) -> -- group : TGSList (TInterface "Gtk" "RadioAction")
IO ()
{-# DEPRECATED radioActionSetGroup ["(Since version 3.10)"]#-}
radioActionSetGroup ::
(MonadIO m, RadioActionK a, RadioActionK b) =>
a -> -- _obj
[b] -> -- group
m ()
radioActionSetGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
gtk_radio_action_set_group _obj' group''
touchManagedPtr _obj
mapM_ touchManagedPtr group
g_slist_free group''
return ()
-- signal RadioAction::changed
type RadioActionChangedCallback =
RadioAction ->
IO ()
noRadioActionChangedCallback :: Maybe RadioActionChangedCallback
noRadioActionChangedCallback = Nothing
type RadioActionChangedCallbackC =
Ptr () -> -- object
Ptr RadioAction ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRadioActionChangedCallback :: RadioActionChangedCallbackC -> IO (FunPtr RadioActionChangedCallbackC)
radioActionChangedClosure :: RadioActionChangedCallback -> IO Closure
radioActionChangedClosure cb = newCClosure =<< mkRadioActionChangedCallback wrapped
where wrapped = radioActionChangedCallbackWrapper cb
radioActionChangedCallbackWrapper ::
RadioActionChangedCallback ->
Ptr () ->
Ptr RadioAction ->
Ptr () ->
IO ()
radioActionChangedCallbackWrapper _cb _ current _ = do
current' <- (newObject RadioAction) current
_cb current'
onRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId
onRadioActionChanged obj cb = liftIO $ connectRadioActionChanged obj cb SignalConnectBefore
afterRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId
afterRadioActionChanged obj cb = connectRadioActionChanged obj cb SignalConnectAfter
connectRadioActionChanged :: (GObject a, MonadIO m) =>
a -> RadioActionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRadioActionChanged obj cb after = liftIO $ do
cb' <- mkRadioActionChangedCallback (radioActionChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- struct RadioActionEntry
newtype RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry)
noRadioActionEntry :: Maybe RadioActionEntry
noRadioActionEntry = Nothing
radioActionEntryReadName :: RadioActionEntry -> IO T.Text
radioActionEntryReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
radioActionEntryReadStockId :: RadioActionEntry -> IO T.Text
radioActionEntryReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
radioActionEntryReadLabel :: RadioActionEntry -> IO T.Text
radioActionEntryReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
radioActionEntryReadAccelerator :: RadioActionEntry -> IO T.Text
radioActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
radioActionEntryReadTooltip :: RadioActionEntry -> IO T.Text
radioActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
radioActionEntryReadValue :: RadioActionEntry -> IO Int32
radioActionEntryReadValue s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO Int32
return val
-- object RadioButton
newtype RadioButton = RadioButton (ForeignPtr RadioButton)
noRadioButton :: Maybe RadioButton
noRadioButton = Nothing
foreign import ccall "gtk_radio_button_get_type"
c_gtk_radio_button_get_type :: IO GType
type instance ParentTypes RadioButton = '[CheckButton, ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject RadioButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_radio_button_get_type
class GObject o => RadioButtonK o
instance (GObject o, IsDescendantOf RadioButton o) => RadioButtonK o
toRadioButton :: RadioButtonK o => o -> IO RadioButton
toRadioButton = unsafeCastTo RadioButton
-- method RadioButton::new
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new" gtk_radio_button_new ::
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
IO (Ptr RadioButton)
radioButtonNew ::
(MonadIO m, RadioButtonK a) =>
[a] -> -- group
m RadioButton
radioButtonNew group = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
result <- gtk_radio_button_new group''
checkUnexpectedReturnNULL "gtk_radio_button_new" result
result' <- (newObject RadioButton) result
mapM_ touchManagedPtr group
g_slist_free group''
return result'
-- method RadioButton::new_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new_from_widget" gtk_radio_button_new_from_widget ::
Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton"
IO (Ptr RadioButton)
radioButtonNewFromWidget ::
(MonadIO m, RadioButtonK a) =>
Maybe (a) -> -- radio_group_member
m RadioButton
radioButtonNewFromWidget radio_group_member = liftIO $ do
maybeRadio_group_member <- case radio_group_member of
Nothing -> return nullPtr
Just jRadio_group_member -> do
let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member
return jRadio_group_member'
result <- gtk_radio_button_new_from_widget maybeRadio_group_member
checkUnexpectedReturnNULL "gtk_radio_button_new_from_widget" result
result' <- (newObject RadioButton) result
whenJust radio_group_member touchManagedPtr
return result'
-- method RadioButton::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new_with_label" gtk_radio_button_new_with_label ::
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioButton)
radioButtonNewWithLabel ::
(MonadIO m, RadioButtonK a) =>
[a] -> -- group
T.Text -> -- label
m RadioButton
radioButtonNewWithLabel group label = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
label' <- textToCString label
result <- gtk_radio_button_new_with_label group'' label'
checkUnexpectedReturnNULL "gtk_radio_button_new_with_label" result
result' <- (newObject RadioButton) result
mapM_ touchManagedPtr group
g_slist_free group''
freeMem label'
return result'
-- method RadioButton::new_with_label_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new_with_label_from_widget" gtk_radio_button_new_with_label_from_widget ::
Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton"
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioButton)
radioButtonNewWithLabelFromWidget ::
(MonadIO m, RadioButtonK a) =>
Maybe (a) -> -- radio_group_member
T.Text -> -- label
m RadioButton
radioButtonNewWithLabelFromWidget radio_group_member label = liftIO $ do
maybeRadio_group_member <- case radio_group_member of
Nothing -> return nullPtr
Just jRadio_group_member -> do
let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member
return jRadio_group_member'
label' <- textToCString label
result <- gtk_radio_button_new_with_label_from_widget maybeRadio_group_member label'
checkUnexpectedReturnNULL "gtk_radio_button_new_with_label_from_widget" result
result' <- (newObject RadioButton) result
whenJust radio_group_member touchManagedPtr
freeMem label'
return result'
-- method RadioButton::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new_with_mnemonic" gtk_radio_button_new_with_mnemonic ::
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioButton)
radioButtonNewWithMnemonic ::
(MonadIO m, RadioButtonK a) =>
[a] -> -- group
T.Text -> -- label
m RadioButton
radioButtonNewWithMnemonic group label = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
label' <- textToCString label
result <- gtk_radio_button_new_with_mnemonic group'' label'
checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic" result
result' <- (newObject RadioButton) result
mapM_ touchManagedPtr group
g_slist_free group''
freeMem label'
return result'
-- method RadioButton::new_with_mnemonic_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_new_with_mnemonic_from_widget" gtk_radio_button_new_with_mnemonic_from_widget ::
Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton"
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioButton)
radioButtonNewWithMnemonicFromWidget ::
(MonadIO m, RadioButtonK a) =>
Maybe (a) -> -- radio_group_member
T.Text -> -- label
m RadioButton
radioButtonNewWithMnemonicFromWidget radio_group_member label = liftIO $ do
maybeRadio_group_member <- case radio_group_member of
Nothing -> return nullPtr
Just jRadio_group_member -> do
let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member
return jRadio_group_member'
label' <- textToCString label
result <- gtk_radio_button_new_with_mnemonic_from_widget maybeRadio_group_member label'
checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic_from_widget" result
result' <- (newObject RadioButton) result
whenJust radio_group_member touchManagedPtr
freeMem label'
return result'
-- method RadioButton::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "RadioButton")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_get_group" gtk_radio_button_get_group ::
Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton"
IO (Ptr (GSList (Ptr RadioButton)))
radioButtonGetGroup ::
(MonadIO m, RadioButtonK a) =>
a -> -- _obj
m [RadioButton]
radioButtonGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_button_get_group _obj'
checkUnexpectedReturnNULL "gtk_radio_button_get_group" result
result' <- unpackGSList result
result'' <- mapM (newObject RadioButton) result'
touchManagedPtr _obj
return result''
-- method RadioButton::join_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_join_group" gtk_radio_button_join_group ::
Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton"
Ptr RadioButton -> -- group_source : TInterface "Gtk" "RadioButton"
IO ()
radioButtonJoinGroup ::
(MonadIO m, RadioButtonK a, RadioButtonK b) =>
a -> -- _obj
Maybe (b) -> -- group_source
m ()
radioButtonJoinGroup _obj group_source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGroup_source <- case group_source of
Nothing -> return nullPtr
Just jGroup_source -> do
let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source
return jGroup_source'
gtk_radio_button_join_group _obj' maybeGroup_source
touchManagedPtr _obj
whenJust group_source touchManagedPtr
return ()
-- method RadioButton::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_button_set_group" gtk_radio_button_set_group ::
Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton"
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
IO ()
radioButtonSetGroup ::
(MonadIO m, RadioButtonK a, RadioButtonK b) =>
a -> -- _obj
[b] -> -- group
m ()
radioButtonSetGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
gtk_radio_button_set_group _obj' group''
touchManagedPtr _obj
mapM_ touchManagedPtr group
g_slist_free group''
return ()
-- signal RadioButton::group-changed
type RadioButtonGroupChangedCallback =
IO ()
noRadioButtonGroupChangedCallback :: Maybe RadioButtonGroupChangedCallback
noRadioButtonGroupChangedCallback = Nothing
type RadioButtonGroupChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRadioButtonGroupChangedCallback :: RadioButtonGroupChangedCallbackC -> IO (FunPtr RadioButtonGroupChangedCallbackC)
radioButtonGroupChangedClosure :: RadioButtonGroupChangedCallback -> IO Closure
radioButtonGroupChangedClosure cb = newCClosure =<< mkRadioButtonGroupChangedCallback wrapped
where wrapped = radioButtonGroupChangedCallbackWrapper cb
radioButtonGroupChangedCallbackWrapper ::
RadioButtonGroupChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
radioButtonGroupChangedCallbackWrapper _cb _ _ = do
_cb
onRadioButtonGroupChanged :: (GObject a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId
onRadioButtonGroupChanged obj cb = liftIO $ connectRadioButtonGroupChanged obj cb SignalConnectBefore
afterRadioButtonGroupChanged :: (GObject a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId
afterRadioButtonGroupChanged obj cb = connectRadioButtonGroupChanged obj cb SignalConnectAfter
connectRadioButtonGroupChanged :: (GObject a, MonadIO m) =>
a -> RadioButtonGroupChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRadioButtonGroupChanged obj cb after = liftIO $ do
cb' <- mkRadioButtonGroupChangedCallback (radioButtonGroupChangedCallbackWrapper cb)
connectSignalFunPtr obj "group-changed" cb' after
-- object RadioButtonAccessible
newtype RadioButtonAccessible = RadioButtonAccessible (ForeignPtr RadioButtonAccessible)
noRadioButtonAccessible :: Maybe RadioButtonAccessible
noRadioButtonAccessible = Nothing
foreign import ccall "gtk_radio_button_accessible_get_type"
c_gtk_radio_button_accessible_get_type :: IO GType
type instance ParentTypes RadioButtonAccessible = '[ToggleButtonAccessible, ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject RadioButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_radio_button_accessible_get_type
class GObject o => RadioButtonAccessibleK o
instance (GObject o, IsDescendantOf RadioButtonAccessible o) => RadioButtonAccessibleK o
toRadioButtonAccessible :: RadioButtonAccessibleK o => o -> IO RadioButtonAccessible
toRadioButtonAccessible = unsafeCastTo RadioButtonAccessible
-- object RadioMenuItem
newtype RadioMenuItem = RadioMenuItem (ForeignPtr RadioMenuItem)
noRadioMenuItem :: Maybe RadioMenuItem
noRadioMenuItem = Nothing
foreign import ccall "gtk_radio_menu_item_get_type"
c_gtk_radio_menu_item_get_type :: IO GType
type instance ParentTypes RadioMenuItem = '[CheckMenuItem, MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject RadioMenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_radio_menu_item_get_type
class GObject o => RadioMenuItemK o
instance (GObject o, IsDescendantOf RadioMenuItem o) => RadioMenuItemK o
toRadioMenuItem :: RadioMenuItemK o => o -> IO RadioMenuItem
toRadioMenuItem = unsafeCastTo RadioMenuItem
-- method RadioMenuItem::new
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new" gtk_radio_menu_item_new ::
Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem")
IO (Ptr RadioMenuItem)
radioMenuItemNew ::
(MonadIO m, RadioMenuItemK a) =>
[a] -> -- group
m RadioMenuItem
radioMenuItemNew group = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
result <- gtk_radio_menu_item_new group''
checkUnexpectedReturnNULL "gtk_radio_menu_item_new" result
result' <- (newObject RadioMenuItem) result
mapM_ touchManagedPtr group
g_slist_free group''
return result'
-- method RadioMenuItem::new_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new_from_widget" gtk_radio_menu_item_new_from_widget ::
Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem"
IO (Ptr RadioMenuItem)
radioMenuItemNewFromWidget ::
(MonadIO m, RadioMenuItemK a) =>
Maybe (a) -> -- group
m RadioMenuItem
radioMenuItemNewFromWidget group = liftIO $ do
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
result <- gtk_radio_menu_item_new_from_widget maybeGroup
checkUnexpectedReturnNULL "gtk_radio_menu_item_new_from_widget" result
result' <- (newObject RadioMenuItem) result
whenJust group touchManagedPtr
return result'
-- method RadioMenuItem::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new_with_label" gtk_radio_menu_item_new_with_label ::
Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem")
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioMenuItem)
radioMenuItemNewWithLabel ::
(MonadIO m, RadioMenuItemK a) =>
[a] -> -- group
T.Text -> -- label
m RadioMenuItem
radioMenuItemNewWithLabel group label = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
label' <- textToCString label
result <- gtk_radio_menu_item_new_with_label group'' label'
checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_label" result
result' <- (newObject RadioMenuItem) result
mapM_ touchManagedPtr group
g_slist_free group''
freeMem label'
return result'
-- method RadioMenuItem::new_with_label_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new_with_label_from_widget" gtk_radio_menu_item_new_with_label_from_widget ::
Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem"
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioMenuItem)
radioMenuItemNewWithLabelFromWidget ::
(MonadIO m, RadioMenuItemK a) =>
Maybe (a) -> -- group
Maybe (T.Text) -> -- label
m RadioMenuItem
radioMenuItemNewWithLabelFromWidget group label = liftIO $ do
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_radio_menu_item_new_with_label_from_widget maybeGroup maybeLabel
checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_label_from_widget" result
result' <- (newObject RadioMenuItem) result
whenJust group touchManagedPtr
freeMem maybeLabel
return result'
-- method RadioMenuItem::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new_with_mnemonic" gtk_radio_menu_item_new_with_mnemonic ::
Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem")
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioMenuItem)
radioMenuItemNewWithMnemonic ::
(MonadIO m, RadioMenuItemK a) =>
[a] -> -- group
T.Text -> -- label
m RadioMenuItem
radioMenuItemNewWithMnemonic group label = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
label' <- textToCString label
result <- gtk_radio_menu_item_new_with_mnemonic group'' label'
checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_mnemonic" result
result' <- (newObject RadioMenuItem) result
mapM_ touchManagedPtr group
g_slist_free group''
freeMem label'
return result'
-- method RadioMenuItem::new_with_mnemonic_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_new_with_mnemonic_from_widget" gtk_radio_menu_item_new_with_mnemonic_from_widget ::
Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem"
CString -> -- label : TBasicType TUTF8
IO (Ptr RadioMenuItem)
radioMenuItemNewWithMnemonicFromWidget ::
(MonadIO m, RadioMenuItemK a) =>
Maybe (a) -> -- group
Maybe (T.Text) -> -- label
m RadioMenuItem
radioMenuItemNewWithMnemonicFromWidget group label = liftIO $ do
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_radio_menu_item_new_with_mnemonic_from_widget maybeGroup maybeLabel
checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_mnemonic_from_widget" result
result' <- (newObject RadioMenuItem) result
whenJust group touchManagedPtr
freeMem maybeLabel
return result'
-- method RadioMenuItem::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "RadioMenuItem")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_get_group" gtk_radio_menu_item_get_group ::
Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem"
IO (Ptr (GSList (Ptr RadioMenuItem)))
radioMenuItemGetGroup ::
(MonadIO m, RadioMenuItemK a) =>
a -> -- _obj
m [RadioMenuItem]
radioMenuItemGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_menu_item_get_group _obj'
checkUnexpectedReturnNULL "gtk_radio_menu_item_get_group" result
result' <- unpackGSList result
result'' <- mapM (newObject RadioMenuItem) result'
touchManagedPtr _obj
return result''
-- method RadioMenuItem::join_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_join_group" gtk_radio_menu_item_join_group ::
Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem"
Ptr RadioMenuItem -> -- group_source : TInterface "Gtk" "RadioMenuItem"
IO ()
radioMenuItemJoinGroup ::
(MonadIO m, RadioMenuItemK a, RadioMenuItemK b) =>
a -> -- _obj
Maybe (b) -> -- group_source
m ()
radioMenuItemJoinGroup _obj group_source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGroup_source <- case group_source of
Nothing -> return nullPtr
Just jGroup_source -> do
let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source
return jGroup_source'
gtk_radio_menu_item_join_group _obj' maybeGroup_source
touchManagedPtr _obj
whenJust group_source touchManagedPtr
return ()
-- method RadioMenuItem::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_menu_item_set_group" gtk_radio_menu_item_set_group ::
Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem"
Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem")
IO ()
radioMenuItemSetGroup ::
(MonadIO m, RadioMenuItemK a, RadioMenuItemK b) =>
a -> -- _obj
[b] -> -- group
m ()
radioMenuItemSetGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
gtk_radio_menu_item_set_group _obj' group''
touchManagedPtr _obj
mapM_ touchManagedPtr group
g_slist_free group''
return ()
-- signal RadioMenuItem::group-changed
type RadioMenuItemGroupChangedCallback =
IO ()
noRadioMenuItemGroupChangedCallback :: Maybe RadioMenuItemGroupChangedCallback
noRadioMenuItemGroupChangedCallback = Nothing
type RadioMenuItemGroupChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRadioMenuItemGroupChangedCallback :: RadioMenuItemGroupChangedCallbackC -> IO (FunPtr RadioMenuItemGroupChangedCallbackC)
radioMenuItemGroupChangedClosure :: RadioMenuItemGroupChangedCallback -> IO Closure
radioMenuItemGroupChangedClosure cb = newCClosure =<< mkRadioMenuItemGroupChangedCallback wrapped
where wrapped = radioMenuItemGroupChangedCallbackWrapper cb
radioMenuItemGroupChangedCallbackWrapper ::
RadioMenuItemGroupChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
radioMenuItemGroupChangedCallbackWrapper _cb _ _ = do
_cb
onRadioMenuItemGroupChanged :: (GObject a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId
onRadioMenuItemGroupChanged obj cb = liftIO $ connectRadioMenuItemGroupChanged obj cb SignalConnectBefore
afterRadioMenuItemGroupChanged :: (GObject a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId
afterRadioMenuItemGroupChanged obj cb = connectRadioMenuItemGroupChanged obj cb SignalConnectAfter
connectRadioMenuItemGroupChanged :: (GObject a, MonadIO m) =>
a -> RadioMenuItemGroupChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRadioMenuItemGroupChanged obj cb after = liftIO $ do
cb' <- mkRadioMenuItemGroupChangedCallback (radioMenuItemGroupChangedCallbackWrapper cb)
connectSignalFunPtr obj "group-changed" cb' after
-- object RadioMenuItemAccessible
newtype RadioMenuItemAccessible = RadioMenuItemAccessible (ForeignPtr RadioMenuItemAccessible)
noRadioMenuItemAccessible :: Maybe RadioMenuItemAccessible
noRadioMenuItemAccessible = Nothing
foreign import ccall "gtk_radio_menu_item_accessible_get_type"
c_gtk_radio_menu_item_accessible_get_type :: IO GType
type instance ParentTypes RadioMenuItemAccessible = '[CheckMenuItemAccessible, MenuItemAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection]
instance GObject RadioMenuItemAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_radio_menu_item_accessible_get_type
class GObject o => RadioMenuItemAccessibleK o
instance (GObject o, IsDescendantOf RadioMenuItemAccessible o) => RadioMenuItemAccessibleK o
toRadioMenuItemAccessible :: RadioMenuItemAccessibleK o => o -> IO RadioMenuItemAccessible
toRadioMenuItemAccessible = unsafeCastTo RadioMenuItemAccessible
-- object RadioToolButton
newtype RadioToolButton = RadioToolButton (ForeignPtr RadioToolButton)
noRadioToolButton :: Maybe RadioToolButton
noRadioToolButton = Nothing
foreign import ccall "gtk_radio_tool_button_get_type"
c_gtk_radio_tool_button_get_type :: IO GType
type instance ParentTypes RadioToolButton = '[ToggleToolButton, ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject RadioToolButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_radio_tool_button_get_type
class GObject o => RadioToolButtonK o
instance (GObject o, IsDescendantOf RadioToolButton o) => RadioToolButtonK o
toRadioToolButton :: RadioToolButtonK o => o -> IO RadioToolButton
toRadioToolButton = unsafeCastTo RadioToolButton
-- method RadioToolButton::new
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_new" gtk_radio_tool_button_new ::
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
IO (Ptr RadioToolButton)
radioToolButtonNew ::
(MonadIO m, RadioButtonK a) =>
[a] -> -- group
m RadioToolButton
radioToolButtonNew group = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
result <- gtk_radio_tool_button_new group''
checkUnexpectedReturnNULL "gtk_radio_tool_button_new" result
result' <- (newObject RadioToolButton) result
mapM_ touchManagedPtr group
g_slist_free group''
return result'
-- method RadioToolButton::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_new_from_stock" gtk_radio_tool_button_new_from_stock ::
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr RadioToolButton)
{-# DEPRECATED radioToolButtonNewFromStock ["(Since version 3.10)","Use gtk_radio_tool_button_new() instead."]#-}
radioToolButtonNewFromStock ::
(MonadIO m, RadioButtonK a) =>
[a] -> -- group
T.Text -> -- stock_id
m RadioToolButton
radioToolButtonNewFromStock group stock_id = liftIO $ do
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
stock_id' <- textToCString stock_id
result <- gtk_radio_tool_button_new_from_stock group'' stock_id'
checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_stock" result
result' <- (newObject RadioToolButton) result
mapM_ touchManagedPtr group
g_slist_free group''
freeMem stock_id'
return result'
-- method RadioToolButton::new_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_new_from_widget" gtk_radio_tool_button_new_from_widget ::
Ptr RadioToolButton -> -- group : TInterface "Gtk" "RadioToolButton"
IO (Ptr RadioToolButton)
radioToolButtonNewFromWidget ::
(MonadIO m, RadioToolButtonK a) =>
Maybe (a) -> -- group
m RadioToolButton
radioToolButtonNewFromWidget group = liftIO $ do
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
result <- gtk_radio_tool_button_new_from_widget maybeGroup
checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_widget" result
result' <- (newObject RadioToolButton) result
whenJust group touchManagedPtr
return result'
-- method RadioToolButton::new_with_stock_from_widget
-- method type : Constructor
-- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RadioToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_new_with_stock_from_widget" gtk_radio_tool_button_new_with_stock_from_widget ::
Ptr RadioToolButton -> -- group : TInterface "Gtk" "RadioToolButton"
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr RadioToolButton)
{-# DEPRECATED radioToolButtonNewWithStockFromWidget ["(Since version 3.10)","gtk_radio_tool_button_new_from_widget"]#-}
radioToolButtonNewWithStockFromWidget ::
(MonadIO m, RadioToolButtonK a) =>
Maybe (a) -> -- group
T.Text -> -- stock_id
m RadioToolButton
radioToolButtonNewWithStockFromWidget group stock_id = liftIO $ do
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
stock_id' <- textToCString stock_id
result <- gtk_radio_tool_button_new_with_stock_from_widget maybeGroup stock_id'
checkUnexpectedReturnNULL "gtk_radio_tool_button_new_with_stock_from_widget" result
result' <- (newObject RadioToolButton) result
whenJust group touchManagedPtr
freeMem stock_id'
return result'
-- method RadioToolButton::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "RadioButton")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_get_group" gtk_radio_tool_button_get_group ::
Ptr RadioToolButton -> -- _obj : TInterface "Gtk" "RadioToolButton"
IO (Ptr (GSList (Ptr RadioButton)))
radioToolButtonGetGroup ::
(MonadIO m, RadioToolButtonK a) =>
a -> -- _obj
m [RadioButton]
radioToolButtonGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_tool_button_get_group _obj'
checkUnexpectedReturnNULL "gtk_radio_tool_button_get_group" result
result' <- unpackGSList result
result'' <- mapM (newObject RadioButton) result'
touchManagedPtr _obj
return result''
-- method RadioToolButton::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_tool_button_set_group" gtk_radio_tool_button_set_group ::
Ptr RadioToolButton -> -- _obj : TInterface "Gtk" "RadioToolButton"
Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton")
IO ()
radioToolButtonSetGroup ::
(MonadIO m, RadioToolButtonK a, RadioButtonK b) =>
a -> -- _obj
[b] -> -- group
m ()
radioToolButtonSetGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
gtk_radio_tool_button_set_group _obj' group''
touchManagedPtr _obj
mapM_ touchManagedPtr group
g_slist_free group''
return ()
-- object Range
newtype Range = Range (ForeignPtr Range)
noRange :: Maybe Range
noRange = Nothing
foreign import ccall "gtk_range_get_type"
c_gtk_range_get_type :: IO GType
type instance ParentTypes Range = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Range where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_range_get_type
class GObject o => RangeK o
instance (GObject o, IsDescendantOf Range o) => RangeK o
toRange :: RangeK o => o -> IO Range
toRange = unsafeCastTo Range
-- method Range::get_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_adjustment" gtk_range_get_adjustment ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO (Ptr Adjustment)
rangeGetAdjustment ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Adjustment
rangeGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_range_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Range::get_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_fill_level" gtk_range_get_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CDouble
rangeGetFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Double
rangeGetFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_fill_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Range::get_flippable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_flippable" gtk_range_get_flippable ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetFlippable ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Bool
rangeGetFlippable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_flippable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Range::get_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_inverted" gtk_range_get_inverted ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetInverted ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Bool
rangeGetInverted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_inverted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Range::get_lower_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SensitivityType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_lower_stepper_sensitivity" gtk_range_get_lower_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CUInt
rangeGetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m SensitivityType
rangeGetLowerStepperSensitivity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_lower_stepper_sensitivity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Range::get_min_slider_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_min_slider_size" gtk_range_get_min_slider_size ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO Int32
rangeGetMinSliderSize ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Int32
rangeGetMinSliderSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_min_slider_size _obj'
touchManagedPtr _obj
return result
-- method Range::get_range_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_range_rect" gtk_range_get_range_rect ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Gdk.Rectangle -> -- range_rect : TInterface "Gdk" "Rectangle"
IO ()
rangeGetRangeRect ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m (Gdk.Rectangle)
rangeGetRangeRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
range_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_range_get_range_rect _obj' range_rect
range_rect' <- (wrapBoxed Gdk.Rectangle) range_rect
touchManagedPtr _obj
return range_rect'
-- method Range::get_restrict_to_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Bool
rangeGetRestrictToFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_restrict_to_fill_level _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Range::get_round_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_round_digits" gtk_range_get_round_digits ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO Int32
rangeGetRoundDigits ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Int32
rangeGetRoundDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_round_digits _obj'
touchManagedPtr _obj
return result
-- method Range::get_show_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetShowFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Bool
rangeGetShowFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_show_fill_level _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Range::get_slider_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Int32 -> -- slider_start : TBasicType TInt32
Ptr Int32 -> -- slider_end : TBasicType TInt32
IO ()
rangeGetSliderRange ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m (Int32,Int32)
rangeGetSliderRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
slider_start <- allocMem :: IO (Ptr Int32)
slider_end <- allocMem :: IO (Ptr Int32)
gtk_range_get_slider_range _obj' slider_start slider_end
slider_start' <- peek slider_start
slider_end' <- peek slider_end
touchManagedPtr _obj
freeMem slider_start
freeMem slider_end
return (slider_start', slider_end')
-- method Range::get_slider_size_fixed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Bool
rangeGetSliderSizeFixed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_slider_size_fixed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Range::get_upper_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SensitivityType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_upper_stepper_sensitivity" gtk_range_get_upper_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CUInt
rangeGetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m SensitivityType
rangeGetUpperStepperSensitivity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_upper_stepper_sensitivity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Range::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_value" gtk_range_get_value ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CDouble
rangeGetValue ::
(MonadIO m, RangeK a) =>
a -> -- _obj
m Double
rangeGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Range::set_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_adjustment" gtk_range_set_adjustment ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
rangeSetAdjustment ::
(MonadIO m, RangeK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
rangeSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_range_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method Range::set_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_fill_level" gtk_range_set_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- fill_level : TBasicType TDouble
IO ()
rangeSetFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Double -> -- fill_level
m ()
rangeSetFillLevel _obj fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fill_level' = realToFrac fill_level
gtk_range_set_fill_level _obj' fill_level'
touchManagedPtr _obj
return ()
-- method Range::set_flippable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_flippable" gtk_range_set_flippable ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- flippable : TBasicType TBoolean
IO ()
rangeSetFlippable ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Bool -> -- flippable
m ()
rangeSetFlippable _obj flippable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flippable' = (fromIntegral . fromEnum) flippable
gtk_range_set_flippable _obj' flippable'
touchManagedPtr _obj
return ()
-- method Range::set_increments
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_increments" gtk_range_set_increments ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- step : TBasicType TDouble
CDouble -> -- page : TBasicType TDouble
IO ()
rangeSetIncrements ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Double -> -- step
Double -> -- page
m ()
rangeSetIncrements _obj step page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step' = realToFrac step
let page' = realToFrac page
gtk_range_set_increments _obj' step' page'
touchManagedPtr _obj
return ()
-- method Range::set_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_inverted" gtk_range_set_inverted ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- setting : TBasicType TBoolean
IO ()
rangeSetInverted ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Bool -> -- setting
m ()
rangeSetInverted _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_range_set_inverted _obj' setting'
touchManagedPtr _obj
return ()
-- method Range::set_lower_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_lower_stepper_sensitivity" gtk_range_set_lower_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType"
IO ()
rangeSetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -> -- _obj
SensitivityType -> -- sensitivity
m ()
rangeSetLowerStepperSensitivity _obj sensitivity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_lower_stepper_sensitivity _obj' sensitivity'
touchManagedPtr _obj
return ()
-- method Range::set_min_slider_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Int32 -> -- min_size : TBasicType TInt32
IO ()
rangeSetMinSliderSize ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Int32 -> -- min_size
m ()
rangeSetMinSliderSize _obj min_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_min_slider_size _obj' min_size
touchManagedPtr _obj
return ()
-- method Range::set_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_range" gtk_range_set_range ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
IO ()
rangeSetRange ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Double -> -- min
Double -> -- max
m ()
rangeSetRange _obj min max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let min' = realToFrac min
let max' = realToFrac max
gtk_range_set_range _obj' min' max'
touchManagedPtr _obj
return ()
-- method Range::set_restrict_to_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- restrict_to_fill_level : TBasicType TBoolean
IO ()
rangeSetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Bool -> -- restrict_to_fill_level
m ()
rangeSetRestrictToFillLevel _obj restrict_to_fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let restrict_to_fill_level' = (fromIntegral . fromEnum) restrict_to_fill_level
gtk_range_set_restrict_to_fill_level _obj' restrict_to_fill_level'
touchManagedPtr _obj
return ()
-- method Range::set_round_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Int32 -> -- round_digits : TBasicType TInt32
IO ()
rangeSetRoundDigits ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Int32 -> -- round_digits
m ()
rangeSetRoundDigits _obj round_digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_round_digits _obj' round_digits
touchManagedPtr _obj
return ()
-- method Range::set_show_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- show_fill_level : TBasicType TBoolean
IO ()
rangeSetShowFillLevel ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Bool -> -- show_fill_level
m ()
rangeSetShowFillLevel _obj show_fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_fill_level' = (fromIntegral . fromEnum) show_fill_level
gtk_range_set_show_fill_level _obj' show_fill_level'
touchManagedPtr _obj
return ()
-- method Range::set_slider_size_fixed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- size_fixed : TBasicType TBoolean
IO ()
rangeSetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Bool -> -- size_fixed
m ()
rangeSetSliderSizeFixed _obj size_fixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size_fixed' = (fromIntegral . fromEnum) size_fixed
gtk_range_set_slider_size_fixed _obj' size_fixed'
touchManagedPtr _obj
return ()
-- method Range::set_upper_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_upper_stepper_sensitivity" gtk_range_set_upper_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType"
IO ()
rangeSetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -> -- _obj
SensitivityType -> -- sensitivity
m ()
rangeSetUpperStepperSensitivity _obj sensitivity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_upper_stepper_sensitivity _obj' sensitivity'
touchManagedPtr _obj
return ()
-- method Range::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_value" gtk_range_set_value ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- value : TBasicType TDouble
IO ()
rangeSetValue ::
(MonadIO m, RangeK a) =>
a -> -- _obj
Double -> -- value
m ()
rangeSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_range_set_value _obj' value'
touchManagedPtr _obj
return ()
-- signal Range::adjust-bounds
type RangeAdjustBoundsCallback =
Double ->
IO ()
noRangeAdjustBoundsCallback :: Maybe RangeAdjustBoundsCallback
noRangeAdjustBoundsCallback = Nothing
type RangeAdjustBoundsCallbackC =
Ptr () -> -- object
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeAdjustBoundsCallback :: RangeAdjustBoundsCallbackC -> IO (FunPtr RangeAdjustBoundsCallbackC)
rangeAdjustBoundsClosure :: RangeAdjustBoundsCallback -> IO Closure
rangeAdjustBoundsClosure cb = newCClosure =<< mkRangeAdjustBoundsCallback wrapped
where wrapped = rangeAdjustBoundsCallbackWrapper cb
rangeAdjustBoundsCallbackWrapper ::
RangeAdjustBoundsCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO ()
rangeAdjustBoundsCallbackWrapper _cb _ value _ = do
let value' = realToFrac value
_cb value'
onRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
onRangeAdjustBounds obj cb = liftIO $ connectRangeAdjustBounds obj cb SignalConnectBefore
afterRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
afterRangeAdjustBounds obj cb = connectRangeAdjustBounds obj cb SignalConnectAfter
connectRangeAdjustBounds :: (GObject a, MonadIO m) =>
a -> RangeAdjustBoundsCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeAdjustBounds obj cb after = liftIO $ do
cb' <- mkRangeAdjustBoundsCallback (rangeAdjustBoundsCallbackWrapper cb)
connectSignalFunPtr obj "adjust-bounds" cb' after
-- signal Range::change-value
type RangeChangeValueCallback =
ScrollType ->
Double ->
IO Bool
noRangeChangeValueCallback :: Maybe RangeChangeValueCallback
noRangeChangeValueCallback = Nothing
type RangeChangeValueCallbackC =
Ptr () -> -- object
CUInt ->
CDouble ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkRangeChangeValueCallback :: RangeChangeValueCallbackC -> IO (FunPtr RangeChangeValueCallbackC)
rangeChangeValueClosure :: RangeChangeValueCallback -> IO Closure
rangeChangeValueClosure cb = newCClosure =<< mkRangeChangeValueCallback wrapped
where wrapped = rangeChangeValueCallbackWrapper cb
rangeChangeValueCallbackWrapper ::
RangeChangeValueCallback ->
Ptr () ->
CUInt ->
CDouble ->
Ptr () ->
IO CInt
rangeChangeValueCallbackWrapper _cb _ scroll value _ = do
let scroll' = (toEnum . fromIntegral) scroll
let value' = realToFrac value
result <- _cb scroll' value'
let result' = (fromIntegral . fromEnum) result
return result'
onRangeChangeValue :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
onRangeChangeValue obj cb = liftIO $ connectRangeChangeValue obj cb SignalConnectBefore
afterRangeChangeValue :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
afterRangeChangeValue obj cb = connectRangeChangeValue obj cb SignalConnectAfter
connectRangeChangeValue :: (GObject a, MonadIO m) =>
a -> RangeChangeValueCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeChangeValue obj cb after = liftIO $ do
cb' <- mkRangeChangeValueCallback (rangeChangeValueCallbackWrapper cb)
connectSignalFunPtr obj "change-value" cb' after
-- signal Range::move-slider
type RangeMoveSliderCallback =
ScrollType ->
IO ()
noRangeMoveSliderCallback :: Maybe RangeMoveSliderCallback
noRangeMoveSliderCallback = Nothing
type RangeMoveSliderCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeMoveSliderCallback :: RangeMoveSliderCallbackC -> IO (FunPtr RangeMoveSliderCallbackC)
rangeMoveSliderClosure :: RangeMoveSliderCallback -> IO Closure
rangeMoveSliderClosure cb = newCClosure =<< mkRangeMoveSliderCallback wrapped
where wrapped = rangeMoveSliderCallbackWrapper cb
rangeMoveSliderCallbackWrapper ::
RangeMoveSliderCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
rangeMoveSliderCallbackWrapper _cb _ step _ = do
let step' = (toEnum . fromIntegral) step
_cb step'
onRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
onRangeMoveSlider obj cb = liftIO $ connectRangeMoveSlider obj cb SignalConnectBefore
afterRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
afterRangeMoveSlider obj cb = connectRangeMoveSlider obj cb SignalConnectAfter
connectRangeMoveSlider :: (GObject a, MonadIO m) =>
a -> RangeMoveSliderCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeMoveSlider obj cb after = liftIO $ do
cb' <- mkRangeMoveSliderCallback (rangeMoveSliderCallbackWrapper cb)
connectSignalFunPtr obj "move-slider" cb' after
-- signal Range::value-changed
type RangeValueChangedCallback =
IO ()
noRangeValueChangedCallback :: Maybe RangeValueChangedCallback
noRangeValueChangedCallback = Nothing
type RangeValueChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeValueChangedCallback :: RangeValueChangedCallbackC -> IO (FunPtr RangeValueChangedCallbackC)
rangeValueChangedClosure :: RangeValueChangedCallback -> IO Closure
rangeValueChangedClosure cb = newCClosure =<< mkRangeValueChangedCallback wrapped
where wrapped = rangeValueChangedCallbackWrapper cb
rangeValueChangedCallbackWrapper ::
RangeValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
rangeValueChangedCallbackWrapper _cb _ _ = do
_cb
onRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
onRangeValueChanged obj cb = liftIO $ connectRangeValueChanged obj cb SignalConnectBefore
afterRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
afterRangeValueChanged obj cb = connectRangeValueChanged obj cb SignalConnectAfter
connectRangeValueChanged :: (GObject a, MonadIO m) =>
a -> RangeValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeValueChanged obj cb after = liftIO $ do
cb' <- mkRangeValueChangedCallback (rangeValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
-- object RangeAccessible
newtype RangeAccessible = RangeAccessible (ForeignPtr RangeAccessible)
noRangeAccessible :: Maybe RangeAccessible
noRangeAccessible = Nothing
foreign import ccall "gtk_range_accessible_get_type"
c_gtk_range_accessible_get_type :: IO GType
type instance ParentTypes RangeAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value]
instance GObject RangeAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_range_accessible_get_type
class GObject o => RangeAccessibleK o
instance (GObject o, IsDescendantOf RangeAccessible o) => RangeAccessibleK o
toRangeAccessible :: RangeAccessibleK o => o -> IO RangeAccessible
toRangeAccessible = unsafeCastTo RangeAccessible
-- struct RcContext
newtype RcContext = RcContext (ForeignPtr RcContext)
noRcContext :: Maybe RcContext
noRcContext = Nothing
-- Flags RcFlags
data RcFlags =
RcFlagsFg
| RcFlagsBg
| RcFlagsText
| RcFlagsBase
| AnotherRcFlags Int
deriving (Show, Eq)
instance Enum RcFlags where
fromEnum RcFlagsFg = 1
fromEnum RcFlagsBg = 2
fromEnum RcFlagsText = 4
fromEnum RcFlagsBase = 8
fromEnum (AnotherRcFlags k) = k
toEnum 1 = RcFlagsFg
toEnum 2 = RcFlagsBg
toEnum 4 = RcFlagsText
toEnum 8 = RcFlagsBase
toEnum k = AnotherRcFlags k
foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type ::
IO GType
instance BoxedEnum RcFlags where
boxedEnumType _ = c_gtk_rc_flags_get_type
instance IsGFlag RcFlags
-- struct RcProperty
newtype RcProperty = RcProperty (ForeignPtr RcProperty)
noRcProperty :: Maybe RcProperty
noRcProperty = Nothing
rcPropertyReadTypeName :: RcProperty -> IO Word32
rcPropertyReadTypeName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word32
return val
rcPropertyReadPropertyName :: RcProperty -> IO Word32
rcPropertyReadPropertyName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Word32
return val
rcPropertyReadOrigin :: RcProperty -> IO T.Text
rcPropertyReadOrigin s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
rcPropertyReadValue :: RcProperty -> IO GValue
rcPropertyReadValue s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr GValue)
val' <- (newBoxed GValue) val
return val'
-- callback RcPropertyParser
rcPropertyParserClosure :: RcPropertyParser -> IO Closure
rcPropertyParserClosure cb = newCClosure =<< mkRcPropertyParser wrapped
where wrapped = rcPropertyParserWrapper Nothing cb
type RcPropertyParserC =
Ptr GParamSpec ->
Ptr GLib.String ->
Ptr GValue ->
IO CInt
foreign import ccall "wrapper"
mkRcPropertyParser :: RcPropertyParserC -> IO (FunPtr RcPropertyParserC)
type RcPropertyParser =
GParamSpec ->
GLib.String ->
GValue ->
IO Bool
noRcPropertyParser :: Maybe RcPropertyParser
noRcPropertyParser = Nothing
rcPropertyParserWrapper ::
Maybe (Ptr (FunPtr (RcPropertyParserC))) ->
RcPropertyParser ->
Ptr GParamSpec ->
Ptr GLib.String ->
Ptr GValue ->
IO CInt
rcPropertyParserWrapper funptrptr _cb pspec rc_string property_value = do
pspec' <- newGParamSpecFromPtr pspec
rc_string' <- (newBoxed GLib.String) rc_string
property_value' <- (newBoxed GValue) property_value
result <- _cb pspec' rc_string' property_value'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object RcStyle
newtype RcStyle = RcStyle (ForeignPtr RcStyle)
noRcStyle :: Maybe RcStyle
noRcStyle = Nothing
foreign import ccall "gtk_rc_style_get_type"
c_gtk_rc_style_get_type :: IO GType
type instance ParentTypes RcStyle = '[GObject.Object]
instance GObject RcStyle where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_rc_style_get_type
class GObject o => RcStyleK o
instance (GObject o, IsDescendantOf RcStyle o) => RcStyleK o
toRcStyle :: RcStyleK o => o -> IO RcStyle
toRcStyle = unsafeCastTo RcStyle
-- method RcStyle::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RcStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_style_new" gtk_rc_style_new ::
IO (Ptr RcStyle)
{-# DEPRECATED rcStyleNew ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcStyleNew ::
(MonadIO m) =>
m RcStyle
rcStyleNew = liftIO $ do
result <- gtk_rc_style_new
checkUnexpectedReturnNULL "gtk_rc_style_new" result
result' <- (wrapObject RcStyle) result
return result'
-- method RcStyle::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RcStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_style_copy" gtk_rc_style_copy ::
Ptr RcStyle -> -- _obj : TInterface "Gtk" "RcStyle"
IO (Ptr RcStyle)
{-# DEPRECATED rcStyleCopy ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcStyleCopy ::
(MonadIO m, RcStyleK a) =>
a -> -- _obj
m RcStyle
rcStyleCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_rc_style_copy _obj'
checkUnexpectedReturnNULL "gtk_rc_style_copy" result
result' <- (wrapObject RcStyle) result
touchManagedPtr _obj
return result'
-- Enum RcTokenType
{-# DEPRECATED RcTokenType ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
data RcTokenType =
RcTokenTypeInvalid
| RcTokenTypeInclude
| RcTokenTypeNormal
| RcTokenTypeActive
| RcTokenTypePrelight
| RcTokenTypeSelected
| RcTokenTypeInsensitive
| RcTokenTypeFg
| RcTokenTypeBg
| RcTokenTypeText
| RcTokenTypeBase
| RcTokenTypeXthickness
| RcTokenTypeYthickness
| RcTokenTypeFont
| RcTokenTypeFontset
| RcTokenTypeFontName
| RcTokenTypeBgPixmap
| RcTokenTypePixmapPath
| RcTokenTypeStyle
| RcTokenTypeBinding
| RcTokenTypeBind
| RcTokenTypeWidget
| RcTokenTypeWidgetClass
| RcTokenTypeClass
| RcTokenTypeLowest
| RcTokenTypeGtk
| RcTokenTypeApplication
| RcTokenTypeTheme
| RcTokenTypeRc
| RcTokenTypeHighest
| RcTokenTypeEngine
| RcTokenTypeModulePath
| RcTokenTypeImModulePath
| RcTokenTypeImModuleFile
| RcTokenTypeStock
| RcTokenTypeLtr
| RcTokenTypeRtl
| RcTokenTypeColor
| RcTokenTypeUnbind
| RcTokenTypeLast
| AnotherRcTokenType Int
deriving (Show, Eq)
instance Enum RcTokenType where
fromEnum RcTokenTypeInvalid = 270
fromEnum RcTokenTypeInclude = 271
fromEnum RcTokenTypeNormal = 272
fromEnum RcTokenTypeActive = 273
fromEnum RcTokenTypePrelight = 274
fromEnum RcTokenTypeSelected = 275
fromEnum RcTokenTypeInsensitive = 276
fromEnum RcTokenTypeFg = 277
fromEnum RcTokenTypeBg = 278
fromEnum RcTokenTypeText = 279
fromEnum RcTokenTypeBase = 280
fromEnum RcTokenTypeXthickness = 281
fromEnum RcTokenTypeYthickness = 282
fromEnum RcTokenTypeFont = 283
fromEnum RcTokenTypeFontset = 284
fromEnum RcTokenTypeFontName = 285
fromEnum RcTokenTypeBgPixmap = 286
fromEnum RcTokenTypePixmapPath = 287
fromEnum RcTokenTypeStyle = 288
fromEnum RcTokenTypeBinding = 289
fromEnum RcTokenTypeBind = 290
fromEnum RcTokenTypeWidget = 291
fromEnum RcTokenTypeWidgetClass = 292
fromEnum RcTokenTypeClass = 293
fromEnum RcTokenTypeLowest = 294
fromEnum RcTokenTypeGtk = 295
fromEnum RcTokenTypeApplication = 296
fromEnum RcTokenTypeTheme = 297
fromEnum RcTokenTypeRc = 298
fromEnum RcTokenTypeHighest = 299
fromEnum RcTokenTypeEngine = 300
fromEnum RcTokenTypeModulePath = 301
fromEnum RcTokenTypeImModulePath = 302
fromEnum RcTokenTypeImModuleFile = 303
fromEnum RcTokenTypeStock = 304
fromEnum RcTokenTypeLtr = 305
fromEnum RcTokenTypeRtl = 306
fromEnum RcTokenTypeColor = 307
fromEnum RcTokenTypeUnbind = 308
fromEnum RcTokenTypeLast = 309
fromEnum (AnotherRcTokenType k) = k
toEnum 270 = RcTokenTypeInvalid
toEnum 271 = RcTokenTypeInclude
toEnum 272 = RcTokenTypeNormal
toEnum 273 = RcTokenTypeActive
toEnum 274 = RcTokenTypePrelight
toEnum 275 = RcTokenTypeSelected
toEnum 276 = RcTokenTypeInsensitive
toEnum 277 = RcTokenTypeFg
toEnum 278 = RcTokenTypeBg
toEnum 279 = RcTokenTypeText
toEnum 280 = RcTokenTypeBase
toEnum 281 = RcTokenTypeXthickness
toEnum 282 = RcTokenTypeYthickness
toEnum 283 = RcTokenTypeFont
toEnum 284 = RcTokenTypeFontset
toEnum 285 = RcTokenTypeFontName
toEnum 286 = RcTokenTypeBgPixmap
toEnum 287 = RcTokenTypePixmapPath
toEnum 288 = RcTokenTypeStyle
toEnum 289 = RcTokenTypeBinding
toEnum 290 = RcTokenTypeBind
toEnum 291 = RcTokenTypeWidget
toEnum 292 = RcTokenTypeWidgetClass
toEnum 293 = RcTokenTypeClass
toEnum 294 = RcTokenTypeLowest
toEnum 295 = RcTokenTypeGtk
toEnum 296 = RcTokenTypeApplication
toEnum 297 = RcTokenTypeTheme
toEnum 298 = RcTokenTypeRc
toEnum 299 = RcTokenTypeHighest
toEnum 300 = RcTokenTypeEngine
toEnum 301 = RcTokenTypeModulePath
toEnum 302 = RcTokenTypeImModulePath
toEnum 303 = RcTokenTypeImModuleFile
toEnum 304 = RcTokenTypeStock
toEnum 305 = RcTokenTypeLtr
toEnum 306 = RcTokenTypeRtl
toEnum 307 = RcTokenTypeColor
toEnum 308 = RcTokenTypeUnbind
toEnum 309 = RcTokenTypeLast
toEnum k = AnotherRcTokenType k
foreign import ccall "gtk_rc_token_type_get_type" c_gtk_rc_token_type_get_type ::
IO GType
instance BoxedEnum RcTokenType where
boxedEnumType _ = c_gtk_rc_token_type_get_type
-- object RecentAction
newtype RecentAction = RecentAction (ForeignPtr RecentAction)
noRecentAction :: Maybe RecentAction
noRecentAction = Nothing
foreign import ccall "gtk_recent_action_get_type"
c_gtk_recent_action_get_type :: IO GType
type instance ParentTypes RecentAction = '[Action, GObject.Object, Buildable, RecentChooser]
instance GObject RecentAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_recent_action_get_type
class GObject o => RecentActionK o
instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o
toRecentAction :: RecentActionK o => o -> IO RecentAction
toRecentAction = unsafeCastTo RecentAction
-- method RecentAction::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_action_new" gtk_recent_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr RecentAction)
{-# DEPRECATED recentActionNew ["(Since version 3.10)"]#-}
recentActionNew ::
(MonadIO m) =>
T.Text -> -- name
Maybe (T.Text) -> -- label
Maybe (T.Text) -> -- tooltip
Maybe (T.Text) -> -- stock_id
m RecentAction
recentActionNew name label tooltip stock_id = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
result <- gtk_recent_action_new name' maybeLabel maybeTooltip maybeStock_id
checkUnexpectedReturnNULL "gtk_recent_action_new" result
result' <- (wrapObject RecentAction) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStock_id
return result'
-- method RecentAction::new_for_manager
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_action_new_for_manager" gtk_recent_action_new_for_manager ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager"
IO (Ptr RecentAction)
{-# DEPRECATED recentActionNewForManager ["(Since version 3.10)"]#-}
recentActionNewForManager ::
(MonadIO m, RecentManagerK a) =>
T.Text -> -- name
Maybe (T.Text) -> -- label
Maybe (T.Text) -> -- tooltip
Maybe (T.Text) -> -- stock_id
Maybe (a) -> -- manager
m RecentAction
recentActionNewForManager name label tooltip stock_id manager = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
maybeManager <- case manager of
Nothing -> return nullPtr
Just jManager -> do
let jManager' = unsafeManagedPtrCastPtr jManager
return jManager'
result <- gtk_recent_action_new_for_manager name' maybeLabel maybeTooltip maybeStock_id maybeManager
checkUnexpectedReturnNULL "gtk_recent_action_new_for_manager" result
result' <- (wrapObject RecentAction) result
whenJust manager touchManagedPtr
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStock_id
return result'
-- method RecentAction::get_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_action_get_show_numbers" gtk_recent_action_get_show_numbers ::
Ptr RecentAction -> -- _obj : TInterface "Gtk" "RecentAction"
IO CInt
{-# DEPRECATED recentActionGetShowNumbers ["(Since version 3.10)"]#-}
recentActionGetShowNumbers ::
(MonadIO m, RecentActionK a) =>
a -> -- _obj
m Bool
recentActionGetShowNumbers _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_action_get_show_numbers _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentAction::set_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_action_set_show_numbers" gtk_recent_action_set_show_numbers ::
Ptr RecentAction -> -- _obj : TInterface "Gtk" "RecentAction"
CInt -> -- show_numbers : TBasicType TBoolean
IO ()
{-# DEPRECATED recentActionSetShowNumbers ["(Since version 3.10)"]#-}
recentActionSetShowNumbers ::
(MonadIO m, RecentActionK a) =>
a -> -- _obj
Bool -> -- show_numbers
m ()
recentActionSetShowNumbers _obj show_numbers = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_numbers' = (fromIntegral . fromEnum) show_numbers
gtk_recent_action_set_show_numbers _obj' show_numbers'
touchManagedPtr _obj
return ()
-- interface RecentChooser
newtype RecentChooser = RecentChooser (ForeignPtr RecentChooser)
noRecentChooser :: Maybe RecentChooser
noRecentChooser = Nothing
foreign import ccall "gtk_recent_chooser_get_type"
c_gtk_recent_chooser_get_type :: IO GType
type instance ParentTypes RecentChooser = '[GObject.Object]
instance GObject RecentChooser where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_recent_chooser_get_type
class GObject o => RecentChooserK o
instance (GObject o, IsDescendantOf RecentChooser o) => RecentChooserK o
toRecentChooser :: RecentChooserK o => o -> IO RecentChooser
toRecentChooser = unsafeCastTo RecentChooser
-- method RecentChooser::add_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_add_filter" gtk_recent_chooser_add_filter ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter"
IO ()
recentChooserAddFilter ::
(MonadIO m, RecentChooserK a, RecentFilterK b) =>
a -> -- _obj
b -> -- filter
m ()
recentChooserAddFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter' = unsafeManagedPtrCastPtr filter
gtk_recent_chooser_add_filter _obj' filter'
touchManagedPtr _obj
touchManagedPtr filter
return ()
-- method RecentChooser::get_current_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_current_item" gtk_recent_chooser_get_current_item ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO (Ptr RecentInfo)
recentChooserGetCurrentItem ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m RecentInfo
recentChooserGetCurrentItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_current_item _obj'
checkUnexpectedReturnNULL "gtk_recent_chooser_get_current_item" result
result' <- (wrapBoxed RecentInfo) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_current_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_current_uri" gtk_recent_chooser_get_current_uri ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CString
recentChooserGetCurrentUri ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m T.Text
recentChooserGetCurrentUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_current_uri _obj'
checkUnexpectedReturnNULL "gtk_recent_chooser_get_current_uri" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentFilter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_filter" gtk_recent_chooser_get_filter ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO (Ptr RecentFilter)
recentChooserGetFilter ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m RecentFilter
recentChooserGetFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_filter _obj'
checkUnexpectedReturnNULL "gtk_recent_chooser_get_filter" result
result' <- (newObject RecentFilter) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "RecentInfo")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_items" gtk_recent_chooser_get_items ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO (Ptr (GList (Ptr RecentInfo)))
recentChooserGetItems ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m [RecentInfo]
recentChooserGetItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_items _obj'
checkUnexpectedReturnNULL "gtk_recent_chooser_get_items" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed RecentInfo) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method RecentChooser::get_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_limit" gtk_recent_chooser_get_limit ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO Int32
recentChooserGetLimit ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Int32
recentChooserGetLimit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_limit _obj'
touchManagedPtr _obj
return result
-- method RecentChooser::get_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_local_only" gtk_recent_chooser_get_local_only ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetLocalOnly ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetLocalOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_local_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_select_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_select_multiple" gtk_recent_chooser_get_select_multiple ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetSelectMultiple ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetSelectMultiple _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_select_multiple _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_show_icons
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_show_icons" gtk_recent_chooser_get_show_icons ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetShowIcons ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetShowIcons _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_show_icons _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_show_not_found
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_show_not_found" gtk_recent_chooser_get_show_not_found ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetShowNotFound ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetShowNotFound _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_show_not_found _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_show_private
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_show_private" gtk_recent_chooser_get_show_private ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetShowPrivate ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetShowPrivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_show_private _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_show_tips
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_show_tips" gtk_recent_chooser_get_show_tips ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CInt
recentChooserGetShowTips ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m Bool
recentChooserGetShowTips _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_show_tips _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_sort_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentSortType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_sort_type" gtk_recent_chooser_get_sort_type ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO CUInt
recentChooserGetSortType ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m RecentSortType
recentChooserGetSortType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_get_sort_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method RecentChooser::get_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) 1 (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_get_uris" gtk_recent_chooser_get_uris ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr CString)
recentChooserGetUris ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m ([T.Text],Word64)
recentChooserGetUris _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_recent_chooser_get_uris _obj' length_
checkUnexpectedReturnNULL "gtk_recent_chooser_get_uris" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
length_' <- peek length_
touchManagedPtr _obj
freeMem length_
return (result', length_')
-- method RecentChooser::list_filters
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "RecentFilter")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_list_filters" gtk_recent_chooser_list_filters ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO (Ptr (GSList (Ptr RecentFilter)))
recentChooserListFilters ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m [RecentFilter]
recentChooserListFilters _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_list_filters _obj'
checkUnexpectedReturnNULL "gtk_recent_chooser_list_filters" result
result' <- unpackGSList result
result'' <- mapM (newObject RecentFilter) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method RecentChooser::remove_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_remove_filter" gtk_recent_chooser_remove_filter ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter"
IO ()
recentChooserRemoveFilter ::
(MonadIO m, RecentChooserK a, RecentFilterK b) =>
a -> -- _obj
b -> -- filter
m ()
recentChooserRemoveFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter' = unsafeManagedPtrCastPtr filter
gtk_recent_chooser_remove_filter _obj' filter'
touchManagedPtr _obj
touchManagedPtr filter
return ()
-- method RecentChooser::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_select_all" gtk_recent_chooser_select_all ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO ()
recentChooserSelectAll ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m ()
recentChooserSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_recent_chooser_select_all _obj'
touchManagedPtr _obj
return ()
-- method RecentChooser::select_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_chooser_select_uri" gtk_recent_chooser_select_uri ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
recentChooserSelectUri ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
recentChooserSelectUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_recent_chooser_select_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
-- method RecentChooser::set_current_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_current_uri" gtk_recent_chooser_set_current_uri ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
recentChooserSetCurrentUri ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
recentChooserSetCurrentUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_recent_chooser_set_current_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
-- method RecentChooser::set_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_filter" gtk_recent_chooser_set_filter ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter"
IO ()
recentChooserSetFilter ::
(MonadIO m, RecentChooserK a, RecentFilterK b) =>
a -> -- _obj
Maybe (b) -> -- filter
m ()
recentChooserSetFilter _obj filter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFilter <- case filter of
Nothing -> return nullPtr
Just jFilter -> do
let jFilter' = unsafeManagedPtrCastPtr jFilter
return jFilter'
gtk_recent_chooser_set_filter _obj' maybeFilter
touchManagedPtr _obj
whenJust filter touchManagedPtr
return ()
-- method RecentChooser::set_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
Int32 -> -- limit : TBasicType TInt32
IO ()
recentChooserSetLimit ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Int32 -> -- limit
m ()
recentChooserSetLimit _obj limit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_recent_chooser_set_limit _obj' limit
touchManagedPtr _obj
return ()
-- method RecentChooser::set_local_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_local_only" gtk_recent_chooser_set_local_only ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- local_only : TBasicType TBoolean
IO ()
recentChooserSetLocalOnly ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- local_only
m ()
recentChooserSetLocalOnly _obj local_only = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let local_only' = (fromIntegral . fromEnum) local_only
gtk_recent_chooser_set_local_only _obj' local_only'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_select_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_select_multiple" gtk_recent_chooser_set_select_multiple ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- select_multiple : TBasicType TBoolean
IO ()
recentChooserSetSelectMultiple ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- select_multiple
m ()
recentChooserSetSelectMultiple _obj select_multiple = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let select_multiple' = (fromIntegral . fromEnum) select_multiple
gtk_recent_chooser_set_select_multiple _obj' select_multiple'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_show_icons
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_show_icons" gtk_recent_chooser_set_show_icons ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- show_icons : TBasicType TBoolean
IO ()
recentChooserSetShowIcons ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- show_icons
m ()
recentChooserSetShowIcons _obj show_icons = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_icons' = (fromIntegral . fromEnum) show_icons
gtk_recent_chooser_set_show_icons _obj' show_icons'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_show_not_found
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_show_not_found" gtk_recent_chooser_set_show_not_found ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- show_not_found : TBasicType TBoolean
IO ()
recentChooserSetShowNotFound ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- show_not_found
m ()
recentChooserSetShowNotFound _obj show_not_found = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_not_found' = (fromIntegral . fromEnum) show_not_found
gtk_recent_chooser_set_show_not_found _obj' show_not_found'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_show_private
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_show_private" gtk_recent_chooser_set_show_private ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- show_private : TBasicType TBoolean
IO ()
recentChooserSetShowPrivate ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- show_private
m ()
recentChooserSetShowPrivate _obj show_private = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_private' = (fromIntegral . fromEnum) show_private
gtk_recent_chooser_set_show_private _obj' show_private'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_show_tips
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_show_tips" gtk_recent_chooser_set_show_tips ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CInt -> -- show_tips : TBasicType TBoolean
IO ()
recentChooserSetShowTips ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
Bool -> -- show_tips
m ()
recentChooserSetShowTips _obj show_tips = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_tips' = (fromIntegral . fromEnum) show_tips
gtk_recent_chooser_set_show_tips _obj' show_tips'
touchManagedPtr _obj
return ()
-- method RecentChooser::set_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_sort_func" gtk_recent_chooser_set_sort_func ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
FunPtr RecentSortFuncC -> -- sort_func : TInterface "Gtk" "RecentSortFunc"
Ptr () -> -- sort_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify"
IO ()
recentChooserSetSortFunc ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
RecentSortFunc -> -- sort_func
m ()
recentChooserSetSortFunc _obj sort_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sort_func' <- mkRecentSortFunc (recentSortFuncWrapper Nothing sort_func)
let sort_data = castFunPtrToPtr sort_func'
let data_destroy = safeFreeFunPtrPtr
gtk_recent_chooser_set_sort_func _obj' sort_func' sort_data data_destroy
touchManagedPtr _obj
return ()
-- method RecentChooser::set_sort_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_set_sort_type" gtk_recent_chooser_set_sort_type ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CUInt -> -- sort_type : TInterface "Gtk" "RecentSortType"
IO ()
recentChooserSetSortType ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
RecentSortType -> -- sort_type
m ()
recentChooserSetSortType _obj sort_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sort_type' = (fromIntegral . fromEnum) sort_type
gtk_recent_chooser_set_sort_type _obj' sort_type'
touchManagedPtr _obj
return ()
-- method RecentChooser::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_unselect_all" gtk_recent_chooser_unselect_all ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
IO ()
recentChooserUnselectAll ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
m ()
recentChooserUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_recent_chooser_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method RecentChooser::unselect_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_unselect_uri" gtk_recent_chooser_unselect_uri ::
Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser"
CString -> -- uri : TBasicType TUTF8
IO ()
recentChooserUnselectUri ::
(MonadIO m, RecentChooserK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
recentChooserUnselectUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
gtk_recent_chooser_unselect_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- signal RecentChooser::item-activated
type RecentChooserItemActivatedCallback =
IO ()
noRecentChooserItemActivatedCallback :: Maybe RecentChooserItemActivatedCallback
noRecentChooserItemActivatedCallback = Nothing
type RecentChooserItemActivatedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRecentChooserItemActivatedCallback :: RecentChooserItemActivatedCallbackC -> IO (FunPtr RecentChooserItemActivatedCallbackC)
recentChooserItemActivatedClosure :: RecentChooserItemActivatedCallback -> IO Closure
recentChooserItemActivatedClosure cb = newCClosure =<< mkRecentChooserItemActivatedCallback wrapped
where wrapped = recentChooserItemActivatedCallbackWrapper cb
recentChooserItemActivatedCallbackWrapper ::
RecentChooserItemActivatedCallback ->
Ptr () ->
Ptr () ->
IO ()
recentChooserItemActivatedCallbackWrapper _cb _ _ = do
_cb
onRecentChooserItemActivated :: (GObject a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId
onRecentChooserItemActivated obj cb = liftIO $ connectRecentChooserItemActivated obj cb SignalConnectBefore
afterRecentChooserItemActivated :: (GObject a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId
afterRecentChooserItemActivated obj cb = connectRecentChooserItemActivated obj cb SignalConnectAfter
connectRecentChooserItemActivated :: (GObject a, MonadIO m) =>
a -> RecentChooserItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectRecentChooserItemActivated obj cb after = liftIO $ do
cb' <- mkRecentChooserItemActivatedCallback (recentChooserItemActivatedCallbackWrapper cb)
connectSignalFunPtr obj "item-activated" cb' after
-- signal RecentChooser::selection-changed
type RecentChooserSelectionChangedCallback =
IO ()
noRecentChooserSelectionChangedCallback :: Maybe RecentChooserSelectionChangedCallback
noRecentChooserSelectionChangedCallback = Nothing
type RecentChooserSelectionChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRecentChooserSelectionChangedCallback :: RecentChooserSelectionChangedCallbackC -> IO (FunPtr RecentChooserSelectionChangedCallbackC)
recentChooserSelectionChangedClosure :: RecentChooserSelectionChangedCallback -> IO Closure
recentChooserSelectionChangedClosure cb = newCClosure =<< mkRecentChooserSelectionChangedCallback wrapped
where wrapped = recentChooserSelectionChangedCallbackWrapper cb
recentChooserSelectionChangedCallbackWrapper ::
RecentChooserSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
recentChooserSelectionChangedCallbackWrapper _cb _ _ = do
_cb
onRecentChooserSelectionChanged :: (GObject a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId
onRecentChooserSelectionChanged obj cb = liftIO $ connectRecentChooserSelectionChanged obj cb SignalConnectBefore
afterRecentChooserSelectionChanged :: (GObject a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId
afterRecentChooserSelectionChanged obj cb = connectRecentChooserSelectionChanged obj cb SignalConnectAfter
connectRecentChooserSelectionChanged :: (GObject a, MonadIO m) =>
a -> RecentChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRecentChooserSelectionChanged obj cb after = liftIO $ do
cb' <- mkRecentChooserSelectionChangedCallback (recentChooserSelectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "selection-changed" cb' after
-- object RecentChooserDialog
newtype RecentChooserDialog = RecentChooserDialog (ForeignPtr RecentChooserDialog)
noRecentChooserDialog :: Maybe RecentChooserDialog
noRecentChooserDialog = Nothing
foreign import ccall "gtk_recent_chooser_dialog_get_type"
c_gtk_recent_chooser_dialog_get_type :: IO GType
type instance ParentTypes RecentChooserDialog = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, RecentChooser]
instance GObject RecentChooserDialog where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_recent_chooser_dialog_get_type
class GObject o => RecentChooserDialogK o
instance (GObject o, IsDescendantOf RecentChooserDialog o) => RecentChooserDialogK o
toRecentChooserDialog :: RecentChooserDialogK o => o -> IO RecentChooserDialog
toRecentChooserDialog = unsafeCastTo RecentChooserDialog
-- Enum RecentChooserError
data RecentChooserError =
RecentChooserErrorNotFound
| RecentChooserErrorInvalidUri
| AnotherRecentChooserError Int
deriving (Show, Eq)
instance Enum RecentChooserError where
fromEnum RecentChooserErrorNotFound = 0
fromEnum RecentChooserErrorInvalidUri = 1
fromEnum (AnotherRecentChooserError k) = k
toEnum 0 = RecentChooserErrorNotFound
toEnum 1 = RecentChooserErrorInvalidUri
toEnum k = AnotherRecentChooserError k
instance GErrorClass RecentChooserError where
gerrorClassDomain _ = "gtk-recent-chooser-error-quark"
catchRecentChooserError ::
IO a ->
(RecentChooserError -> GErrorMessage -> IO a) ->
IO a
catchRecentChooserError = catchGErrorJustDomain
handleRecentChooserError ::
(RecentChooserError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleRecentChooserError = handleGErrorJustDomain
foreign import ccall "gtk_recent_chooser_error_get_type" c_gtk_recent_chooser_error_get_type ::
IO GType
instance BoxedEnum RecentChooserError where
boxedEnumType _ = c_gtk_recent_chooser_error_get_type
-- object RecentChooserMenu
newtype RecentChooserMenu = RecentChooserMenu (ForeignPtr RecentChooserMenu)
noRecentChooserMenu :: Maybe RecentChooserMenu
noRecentChooserMenu = Nothing
foreign import ccall "gtk_recent_chooser_menu_get_type"
c_gtk_recent_chooser_menu_get_type :: IO GType
type instance ParentTypes RecentChooserMenu = '[Menu, MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable, RecentChooser]
instance GObject RecentChooserMenu where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_recent_chooser_menu_get_type
class GObject o => RecentChooserMenuK o
instance (GObject o, IsDescendantOf RecentChooserMenu o) => RecentChooserMenuK o
toRecentChooserMenu :: RecentChooserMenuK o => o -> IO RecentChooserMenu
toRecentChooserMenu = unsafeCastTo RecentChooserMenu
-- method RecentChooserMenu::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RecentChooserMenu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_menu_new" gtk_recent_chooser_menu_new ::
IO (Ptr RecentChooserMenu)
recentChooserMenuNew ::
(MonadIO m) =>
m RecentChooserMenu
recentChooserMenuNew = liftIO $ do
result <- gtk_recent_chooser_menu_new
checkUnexpectedReturnNULL "gtk_recent_chooser_menu_new" result
result' <- (newObject RecentChooserMenu) result
return result'
-- method RecentChooserMenu::new_for_manager
-- method type : Constructor
-- Args : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentChooserMenu"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_menu_new_for_manager" gtk_recent_chooser_menu_new_for_manager ::
Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager"
IO (Ptr RecentChooserMenu)
recentChooserMenuNewForManager ::
(MonadIO m, RecentManagerK a) =>
a -> -- manager
m RecentChooserMenu
recentChooserMenuNewForManager manager = liftIO $ do
let manager' = unsafeManagedPtrCastPtr manager
result <- gtk_recent_chooser_menu_new_for_manager manager'
checkUnexpectedReturnNULL "gtk_recent_chooser_menu_new_for_manager" result
result' <- (newObject RecentChooserMenu) result
touchManagedPtr manager
return result'
-- method RecentChooserMenu::get_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_menu_get_show_numbers" gtk_recent_chooser_menu_get_show_numbers ::
Ptr RecentChooserMenu -> -- _obj : TInterface "Gtk" "RecentChooserMenu"
IO CInt
recentChooserMenuGetShowNumbers ::
(MonadIO m, RecentChooserMenuK a) =>
a -> -- _obj
m Bool
recentChooserMenuGetShowNumbers _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_chooser_menu_get_show_numbers _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentChooserMenu::set_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_menu_set_show_numbers" gtk_recent_chooser_menu_set_show_numbers ::
Ptr RecentChooserMenu -> -- _obj : TInterface "Gtk" "RecentChooserMenu"
CInt -> -- show_numbers : TBasicType TBoolean
IO ()
recentChooserMenuSetShowNumbers ::
(MonadIO m, RecentChooserMenuK a) =>
a -> -- _obj
Bool -> -- show_numbers
m ()
recentChooserMenuSetShowNumbers _obj show_numbers = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_numbers' = (fromIntegral . fromEnum) show_numbers
gtk_recent_chooser_menu_set_show_numbers _obj' show_numbers'
touchManagedPtr _obj
return ()
-- object RecentChooserWidget
newtype RecentChooserWidget = RecentChooserWidget (ForeignPtr RecentChooserWidget)
noRecentChooserWidget :: Maybe RecentChooserWidget
noRecentChooserWidget = Nothing
foreign import ccall "gtk_recent_chooser_widget_get_type"
c_gtk_recent_chooser_widget_get_type :: IO GType
type instance ParentTypes RecentChooserWidget = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, RecentChooser]
instance GObject RecentChooserWidget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_recent_chooser_widget_get_type
class GObject o => RecentChooserWidgetK o
instance (GObject o, IsDescendantOf RecentChooserWidget o) => RecentChooserWidgetK o
toRecentChooserWidget :: RecentChooserWidgetK o => o -> IO RecentChooserWidget
toRecentChooserWidget = unsafeCastTo RecentChooserWidget
-- method RecentChooserWidget::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RecentChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_widget_new" gtk_recent_chooser_widget_new ::
IO (Ptr RecentChooserWidget)
recentChooserWidgetNew ::
(MonadIO m) =>
m RecentChooserWidget
recentChooserWidgetNew = liftIO $ do
result <- gtk_recent_chooser_widget_new
checkUnexpectedReturnNULL "gtk_recent_chooser_widget_new" result
result' <- (newObject RecentChooserWidget) result
return result'
-- method RecentChooserWidget::new_for_manager
-- method type : Constructor
-- Args : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentChooserWidget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_widget_new_for_manager" gtk_recent_chooser_widget_new_for_manager ::
Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager"
IO (Ptr RecentChooserWidget)
recentChooserWidgetNewForManager ::
(MonadIO m, RecentManagerK a) =>
a -> -- manager
m RecentChooserWidget
recentChooserWidgetNewForManager manager = liftIO $ do
let manager' = unsafeManagedPtrCastPtr manager
result <- gtk_recent_chooser_widget_new_for_manager manager'
checkUnexpectedReturnNULL "gtk_recent_chooser_widget_new_for_manager" result
result' <- (newObject RecentChooserWidget) result
touchManagedPtr manager
return result'
-- struct RecentData
newtype RecentData = RecentData (ForeignPtr RecentData)
noRecentData :: Maybe RecentData
noRecentData = Nothing
recentDataReadDisplayName :: RecentData -> IO T.Text
recentDataReadDisplayName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
recentDataReadDescription :: RecentData -> IO T.Text
recentDataReadDescription s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
recentDataReadMimeType :: RecentData -> IO T.Text
recentDataReadMimeType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
recentDataReadAppName :: RecentData -> IO T.Text
recentDataReadAppName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
recentDataReadAppExec :: RecentData -> IO T.Text
recentDataReadAppExec s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
recentDataReadGroups :: RecentData -> IO [T.Text]
recentDataReadGroups s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString)
val' <- unpackZeroTerminatedUTF8CArray val
return val'
recentDataReadIsPrivate :: RecentData -> IO Bool
recentDataReadIsPrivate s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CInt
let val' = (/= 0) val
return val'
-- object RecentFilter
newtype RecentFilter = RecentFilter (ForeignPtr RecentFilter)
noRecentFilter :: Maybe RecentFilter
noRecentFilter = Nothing
foreign import ccall "gtk_recent_filter_get_type"
c_gtk_recent_filter_get_type :: IO GType
type instance ParentTypes RecentFilter = '[GObject.Object, Buildable]
instance GObject RecentFilter where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_recent_filter_get_type
class GObject o => RecentFilterK o
instance (GObject o, IsDescendantOf RecentFilter o) => RecentFilterK o
toRecentFilter :: RecentFilterK o => o -> IO RecentFilter
toRecentFilter = unsafeCastTo RecentFilter
-- method RecentFilter::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RecentFilter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_new" gtk_recent_filter_new ::
IO (Ptr RecentFilter)
recentFilterNew ::
(MonadIO m) =>
m RecentFilter
recentFilterNew = liftIO $ do
result <- gtk_recent_filter_new
checkUnexpectedReturnNULL "gtk_recent_filter_new" result
result' <- (newObject RecentFilter) result
return result'
-- method RecentFilter::add_age
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_age" gtk_recent_filter_add_age ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
Int32 -> -- days : TBasicType TInt32
IO ()
recentFilterAddAge ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
Int32 -> -- days
m ()
recentFilterAddAge _obj days = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_recent_filter_add_age _obj' days
touchManagedPtr _obj
return ()
-- method RecentFilter::add_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_application" gtk_recent_filter_add_application ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CString -> -- application : TBasicType TUTF8
IO ()
recentFilterAddApplication ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
T.Text -> -- application
m ()
recentFilterAddApplication _obj application = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
application' <- textToCString application
gtk_recent_filter_add_application _obj' application'
touchManagedPtr _obj
freeMem application'
return ()
-- method RecentFilter::add_custom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_custom" gtk_recent_filter_add_custom ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CUInt -> -- needed : TInterface "Gtk" "RecentFilterFlags"
FunPtr RecentFilterFuncC -> -- func : TInterface "Gtk" "RecentFilterFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify"
IO ()
recentFilterAddCustom ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
[RecentFilterFlags] -> -- needed
RecentFilterFunc -> -- func
m ()
recentFilterAddCustom _obj needed func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let needed' = gflagsToWord needed
func' <- mkRecentFilterFunc (recentFilterFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let data_destroy = safeFreeFunPtrPtr
gtk_recent_filter_add_custom _obj' needed' func' data_ data_destroy
touchManagedPtr _obj
return ()
-- method RecentFilter::add_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_group" gtk_recent_filter_add_group ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CString -> -- group : TBasicType TUTF8
IO ()
recentFilterAddGroup ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
T.Text -> -- group
m ()
recentFilterAddGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
group' <- textToCString group
gtk_recent_filter_add_group _obj' group'
touchManagedPtr _obj
freeMem group'
return ()
-- method RecentFilter::add_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_mime_type" gtk_recent_filter_add_mime_type ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CString -> -- mime_type : TBasicType TUTF8
IO ()
recentFilterAddMimeType ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
T.Text -> -- mime_type
m ()
recentFilterAddMimeType _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
gtk_recent_filter_add_mime_type _obj' mime_type'
touchManagedPtr _obj
freeMem mime_type'
return ()
-- method RecentFilter::add_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_pattern" gtk_recent_filter_add_pattern ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CString -> -- pattern : TBasicType TUTF8
IO ()
recentFilterAddPattern ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
T.Text -> -- pattern
m ()
recentFilterAddPattern _obj pattern = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pattern' <- textToCString pattern
gtk_recent_filter_add_pattern _obj' pattern'
touchManagedPtr _obj
freeMem pattern'
return ()
-- method RecentFilter::add_pixbuf_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_add_pixbuf_formats" gtk_recent_filter_add_pixbuf_formats ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
IO ()
recentFilterAddPixbufFormats ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
m ()
recentFilterAddPixbufFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_recent_filter_add_pixbuf_formats _obj'
touchManagedPtr _obj
return ()
-- method RecentFilter::filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_filter" gtk_recent_filter_filter ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
Ptr RecentFilterInfo -> -- filter_info : TInterface "Gtk" "RecentFilterInfo"
IO CInt
recentFilterFilter ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
RecentFilterInfo -> -- filter_info
m Bool
recentFilterFilter _obj filter_info = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter_info' = unsafeManagedPtrGetPtr filter_info
result <- gtk_recent_filter_filter _obj' filter_info'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr filter_info
return result'
-- method RecentFilter::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_get_name" gtk_recent_filter_get_name ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
IO CString
recentFilterGetName ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
m T.Text
recentFilterGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_filter_get_name _obj'
checkUnexpectedReturnNULL "gtk_recent_filter_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method RecentFilter::get_needed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentFilterFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_get_needed" gtk_recent_filter_get_needed ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
IO CUInt
recentFilterGetNeeded ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
m [RecentFilterFlags]
recentFilterGetNeeded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_filter_get_needed _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method RecentFilter::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_filter_set_name" gtk_recent_filter_set_name ::
Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter"
CString -> -- name : TBasicType TUTF8
IO ()
recentFilterSetName ::
(MonadIO m, RecentFilterK a) =>
a -> -- _obj
T.Text -> -- name
m ()
recentFilterSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_recent_filter_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- Flags RecentFilterFlags
data RecentFilterFlags =
RecentFilterFlagsUri
| RecentFilterFlagsDisplayName
| RecentFilterFlagsMimeType
| RecentFilterFlagsApplication
| RecentFilterFlagsGroup
| RecentFilterFlagsAge
| AnotherRecentFilterFlags Int
deriving (Show, Eq)
instance Enum RecentFilterFlags where
fromEnum RecentFilterFlagsUri = 1
fromEnum RecentFilterFlagsDisplayName = 2
fromEnum RecentFilterFlagsMimeType = 4
fromEnum RecentFilterFlagsApplication = 8
fromEnum RecentFilterFlagsGroup = 16
fromEnum RecentFilterFlagsAge = 32
fromEnum (AnotherRecentFilterFlags k) = k
toEnum 1 = RecentFilterFlagsUri
toEnum 2 = RecentFilterFlagsDisplayName
toEnum 4 = RecentFilterFlagsMimeType
toEnum 8 = RecentFilterFlagsApplication
toEnum 16 = RecentFilterFlagsGroup
toEnum 32 = RecentFilterFlagsAge
toEnum k = AnotherRecentFilterFlags k
foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type ::
IO GType
instance BoxedEnum RecentFilterFlags where
boxedEnumType _ = c_gtk_recent_filter_flags_get_type
instance IsGFlag RecentFilterFlags
-- callback RecentFilterFunc
recentFilterFuncClosure :: RecentFilterFunc -> IO Closure
recentFilterFuncClosure cb = newCClosure =<< mkRecentFilterFunc wrapped
where wrapped = recentFilterFuncWrapper Nothing cb
type RecentFilterFuncC =
Ptr RecentFilterInfo ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkRecentFilterFunc :: RecentFilterFuncC -> IO (FunPtr RecentFilterFuncC)
type RecentFilterFunc =
RecentFilterInfo ->
IO Bool
noRecentFilterFunc :: Maybe RecentFilterFunc
noRecentFilterFunc = Nothing
recentFilterFuncWrapper ::
Maybe (Ptr (FunPtr (RecentFilterFuncC))) ->
RecentFilterFunc ->
Ptr RecentFilterInfo ->
Ptr () ->
IO CInt
recentFilterFuncWrapper funptrptr _cb filter_info _ = do
filter_info' <- (newPtr 56 RecentFilterInfo) filter_info
result <- _cb filter_info'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- struct RecentFilterInfo
newtype RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo)
noRecentFilterInfo :: Maybe RecentFilterInfo
noRecentFilterInfo = Nothing
recentFilterInfoReadContains :: RecentFilterInfo -> IO [RecentFilterFlags]
recentFilterInfoReadContains s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = wordToGFlags val
return val'
recentFilterInfoReadUri :: RecentFilterInfo -> IO T.Text
recentFilterInfoReadUri s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
recentFilterInfoReadDisplayName :: RecentFilterInfo -> IO T.Text
recentFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
recentFilterInfoReadMimeType :: RecentFilterInfo -> IO T.Text
recentFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
recentFilterInfoReadApplications :: RecentFilterInfo -> IO [T.Text]
recentFilterInfoReadApplications s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr CString)
val' <- unpackZeroTerminatedUTF8CArray val
return val'
recentFilterInfoReadGroups :: RecentFilterInfo -> IO [T.Text]
recentFilterInfoReadGroups s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString)
val' <- unpackZeroTerminatedUTF8CArray val
return val'
recentFilterInfoReadAge :: RecentFilterInfo -> IO Int32
recentFilterInfoReadAge s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO Int32
return val
-- struct RecentInfo
newtype RecentInfo = RecentInfo (ForeignPtr RecentInfo)
noRecentInfo :: Maybe RecentInfo
noRecentInfo = Nothing
foreign import ccall "gtk_recent_info_get_type" c_gtk_recent_info_get_type ::
IO GType
instance BoxedObject RecentInfo where
boxedType _ = c_gtk_recent_info_get_type
-- method RecentInfo::create_app_info
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "AppInfo"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_info_create_app_info" gtk_recent_info_create_app_info ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
CString -> -- app_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr Gio.AppInfo)
recentInfoCreateAppInfo ::
(MonadIO m) =>
RecentInfo -> -- _obj
Maybe (T.Text) -> -- app_name
m Gio.AppInfo
recentInfoCreateAppInfo _obj app_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeApp_name <- case app_name of
Nothing -> return nullPtr
Just jApp_name -> do
jApp_name' <- textToCString jApp_name
return jApp_name'
onException (do
result <- propagateGError $ gtk_recent_info_create_app_info _obj' maybeApp_name
checkUnexpectedReturnNULL "gtk_recent_info_create_app_info" result
result' <- (wrapObject Gio.AppInfo) result
touchManagedPtr _obj
freeMem maybeApp_name
return result'
) (do
freeMem maybeApp_name
)
-- method RecentInfo::exists
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_exists" gtk_recent_info_exists ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CInt
recentInfoExists ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Bool
recentInfoExists _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_exists _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_added
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_added" gtk_recent_info_get_added ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO Int64
recentInfoGetAdded ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Int64
recentInfoGetAdded _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_added _obj'
touchManagedPtr _obj
return result
-- method RecentInfo::get_age
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_age" gtk_recent_info_get_age ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO Int32
recentInfoGetAge ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Int32
recentInfoGetAge _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_age _obj'
touchManagedPtr _obj
return result
-- method RecentInfo::get_application_info
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_application_info" gtk_recent_info_get_application_info ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
CString -> -- app_name : TBasicType TUTF8
Ptr CString -> -- app_exec : TBasicType TUTF8
Ptr Word32 -> -- count : TBasicType TUInt32
Ptr Int64 -> -- time_ : TBasicType TInt64
IO CInt
recentInfoGetApplicationInfo ::
(MonadIO m) =>
RecentInfo -> -- _obj
T.Text -> -- app_name
m (Bool,T.Text,Word32,Int64)
recentInfoGetApplicationInfo _obj app_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
app_name' <- textToCString app_name
app_exec <- allocMem :: IO (Ptr CString)
count <- allocMem :: IO (Ptr Word32)
time_ <- allocMem :: IO (Ptr Int64)
result <- gtk_recent_info_get_application_info _obj' app_name' app_exec count time_
let result' = (/= 0) result
app_exec' <- peek app_exec
app_exec'' <- cstringToText app_exec'
count' <- peek count
time_' <- peek time_
touchManagedPtr _obj
freeMem app_name'
freeMem app_exec
freeMem count
freeMem time_
return (result', app_exec'', count', time_')
-- method RecentInfo::get_applications
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) 1 (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_applications" gtk_recent_info_get_applications ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr CString)
recentInfoGetApplications ::
(MonadIO m) =>
RecentInfo -> -- _obj
m ([T.Text],Word64)
recentInfoGetApplications _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_recent_info_get_applications _obj' length_
checkUnexpectedReturnNULL "gtk_recent_info_get_applications" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
length_' <- peek length_
touchManagedPtr _obj
freeMem length_
return (result', length_')
-- method RecentInfo::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_description" gtk_recent_info_get_description ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetDescription ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_description _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_display_name" gtk_recent_info_get_display_name ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetDisplayName ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_display_name _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_display_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_gicon" gtk_recent_info_get_gicon ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO (Ptr Gio.Icon)
recentInfoGetGicon ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Gio.Icon
recentInfoGetGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_gicon _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_gicon" result
result' <- (wrapObject Gio.Icon) result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_groups
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) 1 (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_groups" gtk_recent_info_get_groups ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr CString)
recentInfoGetGroups ::
(MonadIO m) =>
RecentInfo -> -- _obj
m ([T.Text],Word64)
recentInfoGetGroups _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_recent_info_get_groups _obj' length_
checkUnexpectedReturnNULL "gtk_recent_info_get_groups" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
length_' <- peek length_
touchManagedPtr _obj
freeMem length_
return (result', length_')
-- method RecentInfo::get_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_icon" gtk_recent_info_get_icon ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
Int32 -> -- size : TBasicType TInt32
IO (Ptr GdkPixbuf.Pixbuf)
recentInfoGetIcon ::
(MonadIO m) =>
RecentInfo -> -- _obj
Int32 -> -- size
m GdkPixbuf.Pixbuf
recentInfoGetIcon _obj size = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_icon _obj' size
checkUnexpectedReturnNULL "gtk_recent_info_get_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_mime_type" gtk_recent_info_get_mime_type ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetMimeType ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetMimeType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_mime_type _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_mime_type" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_modified" gtk_recent_info_get_modified ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO Int64
recentInfoGetModified ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Int64
recentInfoGetModified _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_modified _obj'
touchManagedPtr _obj
return result
-- method RecentInfo::get_private_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_private_hint" gtk_recent_info_get_private_hint ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CInt
recentInfoGetPrivateHint ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Bool
recentInfoGetPrivateHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_private_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_short_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_short_name" gtk_recent_info_get_short_name ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetShortName ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetShortName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_short_name _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_short_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_uri" gtk_recent_info_get_uri ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetUri ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_uri _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_uri_display
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_uri_display" gtk_recent_info_get_uri_display ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoGetUriDisplay ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoGetUriDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_uri_display _obj'
checkUnexpectedReturnNULL "gtk_recent_info_get_uri_display" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method RecentInfo::get_visited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_get_visited" gtk_recent_info_get_visited ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO Int64
recentInfoGetVisited ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Int64
recentInfoGetVisited _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_get_visited _obj'
touchManagedPtr _obj
return result
-- method RecentInfo::has_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_has_application" gtk_recent_info_has_application ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
CString -> -- app_name : TBasicType TUTF8
IO CInt
recentInfoHasApplication ::
(MonadIO m) =>
RecentInfo -> -- _obj
T.Text -> -- app_name
m Bool
recentInfoHasApplication _obj app_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
app_name' <- textToCString app_name
result <- gtk_recent_info_has_application _obj' app_name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem app_name'
return result'
-- method RecentInfo::has_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_has_group" gtk_recent_info_has_group ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
CString -> -- group_name : TBasicType TUTF8
IO CInt
recentInfoHasGroup ::
(MonadIO m) =>
RecentInfo -> -- _obj
T.Text -> -- group_name
m Bool
recentInfoHasGroup _obj group_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
group_name' <- textToCString group_name
result <- gtk_recent_info_has_group _obj' group_name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem group_name'
return result'
-- method RecentInfo::is_local
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_is_local" gtk_recent_info_is_local ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CInt
recentInfoIsLocal ::
(MonadIO m) =>
RecentInfo -> -- _obj
m Bool
recentInfoIsLocal _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_is_local _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method RecentInfo::last_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_last_application" gtk_recent_info_last_application ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO CString
recentInfoLastApplication ::
(MonadIO m) =>
RecentInfo -> -- _obj
m T.Text
recentInfoLastApplication _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_last_application _obj'
checkUnexpectedReturnNULL "gtk_recent_info_last_application" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method RecentInfo::match
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_match" gtk_recent_info_match ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
Ptr RecentInfo -> -- info_b : TInterface "Gtk" "RecentInfo"
IO CInt
recentInfoMatch ::
(MonadIO m) =>
RecentInfo -> -- _obj
RecentInfo -> -- info_b
m Bool
recentInfoMatch _obj info_b = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let info_b' = unsafeManagedPtrGetPtr info_b
result <- gtk_recent_info_match _obj' info_b'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr info_b
return result'
-- method RecentInfo::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentInfo"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_ref" gtk_recent_info_ref ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO (Ptr RecentInfo)
recentInfoRef ::
(MonadIO m) =>
RecentInfo -> -- _obj
m RecentInfo
recentInfoRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_recent_info_ref _obj'
checkUnexpectedReturnNULL "gtk_recent_info_ref" result
result' <- (wrapBoxed RecentInfo) result
touchManagedPtr _obj
return result'
-- method RecentInfo::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_info_unref" gtk_recent_info_unref ::
Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo"
IO ()
recentInfoUnref ::
(MonadIO m) =>
RecentInfo -> -- _obj
m ()
recentInfoUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_recent_info_unref _obj'
touchManagedPtr _obj
return ()
-- object RecentManager
newtype RecentManager = RecentManager (ForeignPtr RecentManager)
noRecentManager :: Maybe RecentManager
noRecentManager = Nothing
foreign import ccall "gtk_recent_manager_get_type"
c_gtk_recent_manager_get_type :: IO GType
type instance ParentTypes RecentManager = '[GObject.Object]
instance GObject RecentManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_recent_manager_get_type
class GObject o => RecentManagerK o
instance (GObject o, IsDescendantOf RecentManager o) => RecentManagerK o
toRecentManager :: RecentManagerK o => o -> IO RecentManager
toRecentManager = unsafeCastTo RecentManager
-- method RecentManager::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RecentManager"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_new" gtk_recent_manager_new ::
IO (Ptr RecentManager)
recentManagerNew ::
(MonadIO m) =>
m RecentManager
recentManagerNew = liftIO $ do
result <- gtk_recent_manager_new
checkUnexpectedReturnNULL "gtk_recent_manager_new" result
result' <- (wrapObject RecentManager) result
return result'
-- method RecentManager::add_full
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_add_full" gtk_recent_manager_add_full ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
Ptr RecentData -> -- recent_data : TInterface "Gtk" "RecentData"
IO CInt
recentManagerAddFull ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
RecentData -> -- recent_data
m Bool
recentManagerAddFull _obj uri recent_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
let recent_data' = unsafeManagedPtrGetPtr recent_data
result <- gtk_recent_manager_add_full _obj' uri' recent_data'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr recent_data
freeMem uri'
return result'
-- method RecentManager::add_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_add_item" gtk_recent_manager_add_item ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
IO CInt
recentManagerAddItem ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
m Bool
recentManagerAddItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_recent_manager_add_item _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method RecentManager::get_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "RecentInfo")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_get_items" gtk_recent_manager_get_items ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
IO (Ptr (GList (Ptr RecentInfo)))
recentManagerGetItems ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
m [RecentInfo]
recentManagerGetItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_recent_manager_get_items _obj'
checkUnexpectedReturnNULL "gtk_recent_manager_get_items" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed RecentInfo) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method RecentManager::has_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_has_item" gtk_recent_manager_has_item ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
IO CInt
recentManagerHasItem ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
m Bool
recentManagerHasItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- gtk_recent_manager_has_item _obj' uri'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method RecentManager::lookup_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RecentInfo"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_manager_lookup_item" gtk_recent_manager_lookup_item ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr RecentInfo)
recentManagerLookupItem ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
m RecentInfo
recentManagerLookupItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
result <- propagateGError $ gtk_recent_manager_lookup_item _obj' uri'
checkUnexpectedReturnNULL "gtk_recent_manager_lookup_item" result
result' <- (wrapBoxed RecentInfo) result
touchManagedPtr _obj
freeMem uri'
return result'
) (do
freeMem uri'
)
-- method RecentManager::move_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_manager_move_item" gtk_recent_manager_move_item ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
CString -> -- new_uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
recentManagerMoveItem ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
Maybe (T.Text) -> -- new_uri
m ()
recentManagerMoveItem _obj uri new_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
maybeNew_uri <- case new_uri of
Nothing -> return nullPtr
Just jNew_uri -> do
jNew_uri' <- textToCString jNew_uri
return jNew_uri'
onException (do
_ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNew_uri
touchManagedPtr _obj
freeMem uri'
freeMem maybeNew_uri
return ()
) (do
freeMem uri'
freeMem maybeNew_uri
)
-- method RecentManager::purge_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_manager_purge_items" gtk_recent_manager_purge_items ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
Ptr (Ptr GError) -> -- error
IO Int32
recentManagerPurgeItems ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
m Int32
recentManagerPurgeItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ gtk_recent_manager_purge_items _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
-- method RecentManager::remove_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_recent_manager_remove_item" gtk_recent_manager_remove_item ::
Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager"
CString -> -- uri : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
recentManagerRemoveItem ::
(MonadIO m, RecentManagerK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
recentManagerRemoveItem _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_recent_manager_remove_item _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
) (do
freeMem uri'
)
-- method RecentManager::get_default
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "RecentManager"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_get_default" gtk_recent_manager_get_default ::
IO (Ptr RecentManager)
recentManagerGetDefault ::
(MonadIO m) =>
m RecentManager
recentManagerGetDefault = liftIO $ do
result <- gtk_recent_manager_get_default
checkUnexpectedReturnNULL "gtk_recent_manager_get_default" result
result' <- (newObject RecentManager) result
return result'
-- signal RecentManager::changed
type RecentManagerChangedCallback =
IO ()
noRecentManagerChangedCallback :: Maybe RecentManagerChangedCallback
noRecentManagerChangedCallback = Nothing
type RecentManagerChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRecentManagerChangedCallback :: RecentManagerChangedCallbackC -> IO (FunPtr RecentManagerChangedCallbackC)
recentManagerChangedClosure :: RecentManagerChangedCallback -> IO Closure
recentManagerChangedClosure cb = newCClosure =<< mkRecentManagerChangedCallback wrapped
where wrapped = recentManagerChangedCallbackWrapper cb
recentManagerChangedCallbackWrapper ::
RecentManagerChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
recentManagerChangedCallbackWrapper _cb _ _ = do
_cb
onRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId
onRecentManagerChanged obj cb = liftIO $ connectRecentManagerChanged obj cb SignalConnectBefore
afterRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId
afterRecentManagerChanged obj cb = connectRecentManagerChanged obj cb SignalConnectAfter
connectRecentManagerChanged :: (GObject a, MonadIO m) =>
a -> RecentManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRecentManagerChanged obj cb after = liftIO $ do
cb' <- mkRecentManagerChangedCallback (recentManagerChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- Enum RecentManagerError
data RecentManagerError =
RecentManagerErrorNotFound
| RecentManagerErrorInvalidUri
| RecentManagerErrorInvalidEncoding
| RecentManagerErrorNotRegistered
| RecentManagerErrorRead
| RecentManagerErrorWrite
| RecentManagerErrorUnknown
| AnotherRecentManagerError Int
deriving (Show, Eq)
instance Enum RecentManagerError where
fromEnum RecentManagerErrorNotFound = 0
fromEnum RecentManagerErrorInvalidUri = 1
fromEnum RecentManagerErrorInvalidEncoding = 2
fromEnum RecentManagerErrorNotRegistered = 3
fromEnum RecentManagerErrorRead = 4
fromEnum RecentManagerErrorWrite = 5
fromEnum RecentManagerErrorUnknown = 6
fromEnum (AnotherRecentManagerError k) = k
toEnum 0 = RecentManagerErrorNotFound
toEnum 1 = RecentManagerErrorInvalidUri
toEnum 2 = RecentManagerErrorInvalidEncoding
toEnum 3 = RecentManagerErrorNotRegistered
toEnum 4 = RecentManagerErrorRead
toEnum 5 = RecentManagerErrorWrite
toEnum 6 = RecentManagerErrorUnknown
toEnum k = AnotherRecentManagerError k
instance GErrorClass RecentManagerError where
gerrorClassDomain _ = "gtk-recent-manager-error-quark"
catchRecentManagerError ::
IO a ->
(RecentManagerError -> GErrorMessage -> IO a) ->
IO a
catchRecentManagerError = catchGErrorJustDomain
handleRecentManagerError ::
(RecentManagerError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleRecentManagerError = handleGErrorJustDomain
foreign import ccall "gtk_recent_manager_error_get_type" c_gtk_recent_manager_error_get_type ::
IO GType
instance BoxedEnum RecentManagerError where
boxedEnumType _ = c_gtk_recent_manager_error_get_type
-- callback RecentSortFunc
recentSortFuncClosure :: RecentSortFunc -> IO Closure
recentSortFuncClosure cb = newCClosure =<< mkRecentSortFunc wrapped
where wrapped = recentSortFuncWrapper Nothing cb
type RecentSortFuncC =
Ptr RecentInfo ->
Ptr RecentInfo ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkRecentSortFunc :: RecentSortFuncC -> IO (FunPtr RecentSortFuncC)
type RecentSortFunc =
RecentInfo ->
RecentInfo ->
IO Int32
noRecentSortFunc :: Maybe RecentSortFunc
noRecentSortFunc = Nothing
recentSortFuncWrapper ::
Maybe (Ptr (FunPtr (RecentSortFuncC))) ->
RecentSortFunc ->
Ptr RecentInfo ->
Ptr RecentInfo ->
Ptr () ->
IO Int32
recentSortFuncWrapper funptrptr _cb a b _ = do
a' <- (newBoxed RecentInfo) a
b' <- (newBoxed RecentInfo) b
result <- _cb a' b'
maybeReleaseFunPtr funptrptr
return result
-- Enum RecentSortType
data RecentSortType =
RecentSortTypeNone
| RecentSortTypeMru
| RecentSortTypeLru
| RecentSortTypeCustom
| AnotherRecentSortType Int
deriving (Show, Eq)
instance Enum RecentSortType where
fromEnum RecentSortTypeNone = 0
fromEnum RecentSortTypeMru = 1
fromEnum RecentSortTypeLru = 2
fromEnum RecentSortTypeCustom = 3
fromEnum (AnotherRecentSortType k) = k
toEnum 0 = RecentSortTypeNone
toEnum 1 = RecentSortTypeMru
toEnum 2 = RecentSortTypeLru
toEnum 3 = RecentSortTypeCustom
toEnum k = AnotherRecentSortType k
foreign import ccall "gtk_recent_sort_type_get_type" c_gtk_recent_sort_type_get_type ::
IO GType
instance BoxedEnum RecentSortType where
boxedEnumType _ = c_gtk_recent_sort_type_get_type
-- Flags RegionFlags
data RegionFlags =
RegionFlagsEven
| RegionFlagsOdd
| RegionFlagsFirst
| RegionFlagsLast
| RegionFlagsOnly
| RegionFlagsSorted
| AnotherRegionFlags Int
deriving (Show, Eq)
instance Enum RegionFlags where
fromEnum RegionFlagsEven = 1
fromEnum RegionFlagsOdd = 2
fromEnum RegionFlagsFirst = 4
fromEnum RegionFlagsLast = 8
fromEnum RegionFlagsOnly = 16
fromEnum RegionFlagsSorted = 32
fromEnum (AnotherRegionFlags k) = k
toEnum 1 = RegionFlagsEven
toEnum 2 = RegionFlagsOdd
toEnum 4 = RegionFlagsFirst
toEnum 8 = RegionFlagsLast
toEnum 16 = RegionFlagsOnly
toEnum 32 = RegionFlagsSorted
toEnum k = AnotherRegionFlags k
foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type ::
IO GType
instance BoxedEnum RegionFlags where
boxedEnumType _ = c_gtk_region_flags_get_type
instance IsGFlag RegionFlags
-- Enum ReliefStyle
data ReliefStyle =
ReliefStyleNormal
| ReliefStyleHalf
| ReliefStyleNone
| AnotherReliefStyle Int
deriving (Show, Eq)
instance Enum ReliefStyle where
fromEnum ReliefStyleNormal = 0
fromEnum ReliefStyleHalf = 1
fromEnum ReliefStyleNone = 2
fromEnum (AnotherReliefStyle k) = k
toEnum 0 = ReliefStyleNormal
toEnum 1 = ReliefStyleHalf
toEnum 2 = ReliefStyleNone
toEnum k = AnotherReliefStyle k
foreign import ccall "gtk_relief_style_get_type" c_gtk_relief_style_get_type ::
IO GType
instance BoxedEnum ReliefStyle where
boxedEnumType _ = c_gtk_relief_style_get_type
-- object RendererCellAccessible
newtype RendererCellAccessible = RendererCellAccessible (ForeignPtr RendererCellAccessible)
noRendererCellAccessible :: Maybe RendererCellAccessible
noRendererCellAccessible = Nothing
foreign import ccall "gtk_renderer_cell_accessible_get_type"
c_gtk_renderer_cell_accessible_get_type :: IO GType
type instance ParentTypes RendererCellAccessible = '[CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject RendererCellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_renderer_cell_accessible_get_type
class GObject o => RendererCellAccessibleK o
instance (GObject o, IsDescendantOf RendererCellAccessible o) => RendererCellAccessibleK o
toRendererCellAccessible :: RendererCellAccessibleK o => o -> IO RendererCellAccessible
toRendererCellAccessible = unsafeCastTo RendererCellAccessible
-- method RendererCellAccessible::new
-- method type : Constructor
-- Args : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RendererCellAccessible"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_renderer_cell_accessible_new" gtk_renderer_cell_accessible_new ::
Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer"
IO (Ptr RendererCellAccessible)
rendererCellAccessibleNew ::
(MonadIO m, CellRendererK a) =>
a -> -- renderer
m RendererCellAccessible
rendererCellAccessibleNew renderer = liftIO $ do
let renderer' = unsafeManagedPtrCastPtr renderer
result <- gtk_renderer_cell_accessible_new renderer'
checkUnexpectedReturnNULL "gtk_renderer_cell_accessible_new" result
result' <- (wrapObject RendererCellAccessible) result
touchManagedPtr renderer
return result'
-- struct RequestedSize
newtype RequestedSize = RequestedSize (ForeignPtr RequestedSize)
noRequestedSize :: Maybe RequestedSize
noRequestedSize = Nothing
requestedSizeReadData :: RequestedSize -> IO (Ptr ())
requestedSizeReadData s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())
return val
requestedSizeReadMinimumSize :: RequestedSize -> IO Int32
requestedSizeReadMinimumSize s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
requestedSizeReadNaturalSize :: RequestedSize -> IO Int32
requestedSizeReadNaturalSize s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
-- struct Requisition
newtype Requisition = Requisition (ForeignPtr Requisition)
noRequisition :: Maybe Requisition
noRequisition = Nothing
foreign import ccall "gtk_requisition_get_type" c_gtk_requisition_get_type ::
IO GType
instance BoxedObject Requisition where
boxedType _ = c_gtk_requisition_get_type
requisitionReadWidth :: Requisition -> IO Int32
requisitionReadWidth s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
requisitionReadHeight :: Requisition -> IO Int32
requisitionReadHeight s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int32
return val
-- method Requisition::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Requisition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_requisition_new" gtk_requisition_new ::
IO (Ptr Requisition)
requisitionNew ::
(MonadIO m) =>
m Requisition
requisitionNew = liftIO $ do
result <- gtk_requisition_new
checkUnexpectedReturnNULL "gtk_requisition_new" result
result' <- (wrapBoxed Requisition) result
return result'
-- method Requisition::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Requisition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_requisition_copy" gtk_requisition_copy ::
Ptr Requisition -> -- _obj : TInterface "Gtk" "Requisition"
IO (Ptr Requisition)
requisitionCopy ::
(MonadIO m) =>
Requisition -> -- _obj
m Requisition
requisitionCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_requisition_copy _obj'
checkUnexpectedReturnNULL "gtk_requisition_copy" result
result' <- (wrapBoxed Requisition) result
touchManagedPtr _obj
return result'
-- method Requisition::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_requisition_free" gtk_requisition_free ::
Ptr Requisition -> -- _obj : TInterface "Gtk" "Requisition"
IO ()
requisitionFree ::
(MonadIO m) =>
Requisition -> -- _obj
m ()
requisitionFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_requisition_free _obj'
touchManagedPtr _obj
return ()
-- Enum ResizeMode
data ResizeMode =
ResizeModeParent
| ResizeModeQueue
| ResizeModeImmediate
| AnotherResizeMode Int
deriving (Show, Eq)
instance Enum ResizeMode where
fromEnum ResizeModeParent = 0
fromEnum ResizeModeQueue = 1
fromEnum ResizeModeImmediate = 2
fromEnum (AnotherResizeMode k) = k
toEnum 0 = ResizeModeParent
toEnum 1 = ResizeModeQueue
toEnum 2 = ResizeModeImmediate
toEnum k = AnotherResizeMode k
foreign import ccall "gtk_resize_mode_get_type" c_gtk_resize_mode_get_type ::
IO GType
instance BoxedEnum ResizeMode where
boxedEnumType _ = c_gtk_resize_mode_get_type
-- Enum ResponseType
data ResponseType =
ResponseTypeNone
| ResponseTypeReject
| ResponseTypeAccept
| ResponseTypeDeleteEvent
| ResponseTypeOk
| ResponseTypeCancel
| ResponseTypeClose
| ResponseTypeYes
| ResponseTypeNo
| ResponseTypeApply
| ResponseTypeHelp
| AnotherResponseType Int
deriving (Show, Eq)
instance Enum ResponseType where
fromEnum ResponseTypeNone = -1
fromEnum ResponseTypeReject = -2
fromEnum ResponseTypeAccept = -3
fromEnum ResponseTypeDeleteEvent = -4
fromEnum ResponseTypeOk = -5
fromEnum ResponseTypeCancel = -6
fromEnum ResponseTypeClose = -7
fromEnum ResponseTypeYes = -8
fromEnum ResponseTypeNo = -9
fromEnum ResponseTypeApply = -10
fromEnum ResponseTypeHelp = -11
fromEnum (AnotherResponseType k) = k
toEnum -11 = ResponseTypeHelp
toEnum -10 = ResponseTypeApply
toEnum -9 = ResponseTypeNo
toEnum -8 = ResponseTypeYes
toEnum -7 = ResponseTypeClose
toEnum -6 = ResponseTypeCancel
toEnum -5 = ResponseTypeOk
toEnum -4 = ResponseTypeDeleteEvent
toEnum -3 = ResponseTypeAccept
toEnum -2 = ResponseTypeReject
toEnum -1 = ResponseTypeNone
toEnum k = AnotherResponseType k
foreign import ccall "gtk_response_type_get_type" c_gtk_response_type_get_type ::
IO GType
instance BoxedEnum ResponseType where
boxedEnumType _ = c_gtk_response_type_get_type
-- object Revealer
newtype Revealer = Revealer (ForeignPtr Revealer)
noRevealer :: Maybe Revealer
noRevealer = Nothing
foreign import ccall "gtk_revealer_get_type"
c_gtk_revealer_get_type :: IO GType
type instance ParentTypes Revealer = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Revealer where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_revealer_get_type
class GObject o => RevealerK o
instance (GObject o, IsDescendantOf Revealer o) => RevealerK o
toRevealer :: RevealerK o => o -> IO Revealer
toRevealer = unsafeCastTo Revealer
-- method Revealer::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Revealer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_new" gtk_revealer_new ::
IO (Ptr Revealer)
revealerNew ::
(MonadIO m) =>
m Revealer
revealerNew = liftIO $ do
result <- gtk_revealer_new
checkUnexpectedReturnNULL "gtk_revealer_new" result
result' <- (newObject Revealer) result
return result'
-- method Revealer::get_child_revealed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_get_child_revealed" gtk_revealer_get_child_revealed ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
IO CInt
revealerGetChildRevealed ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
m Bool
revealerGetChildRevealed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_revealer_get_child_revealed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Revealer::get_reveal_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_get_reveal_child" gtk_revealer_get_reveal_child ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
IO CInt
revealerGetRevealChild ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
m Bool
revealerGetRevealChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_revealer_get_reveal_child _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Revealer::get_transition_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_get_transition_duration" gtk_revealer_get_transition_duration ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
IO Word32
revealerGetTransitionDuration ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
m Word32
revealerGetTransitionDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_revealer_get_transition_duration _obj'
touchManagedPtr _obj
return result
-- method Revealer::get_transition_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RevealerTransitionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_get_transition_type" gtk_revealer_get_transition_type ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
IO CUInt
revealerGetTransitionType ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
m RevealerTransitionType
revealerGetTransitionType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_revealer_get_transition_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Revealer::set_reveal_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_set_reveal_child" gtk_revealer_set_reveal_child ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
CInt -> -- reveal_child : TBasicType TBoolean
IO ()
revealerSetRevealChild ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
Bool -> -- reveal_child
m ()
revealerSetRevealChild _obj reveal_child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reveal_child' = (fromIntegral . fromEnum) reveal_child
gtk_revealer_set_reveal_child _obj' reveal_child'
touchManagedPtr _obj
return ()
-- method Revealer::set_transition_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_set_transition_duration" gtk_revealer_set_transition_duration ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
Word32 -> -- duration : TBasicType TUInt32
IO ()
revealerSetTransitionDuration ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
Word32 -> -- duration
m ()
revealerSetTransitionDuration _obj duration = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_revealer_set_transition_duration _obj' duration
touchManagedPtr _obj
return ()
-- method Revealer::set_transition_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_revealer_set_transition_type" gtk_revealer_set_transition_type ::
Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer"
CUInt -> -- transition : TInterface "Gtk" "RevealerTransitionType"
IO ()
revealerSetTransitionType ::
(MonadIO m, RevealerK a) =>
a -> -- _obj
RevealerTransitionType -> -- transition
m ()
revealerSetTransitionType _obj transition = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let transition' = (fromIntegral . fromEnum) transition
gtk_revealer_set_transition_type _obj' transition'
touchManagedPtr _obj
return ()
-- Enum RevealerTransitionType
data RevealerTransitionType =
RevealerTransitionTypeNone
| RevealerTransitionTypeCrossfade
| RevealerTransitionTypeSlideRight
| RevealerTransitionTypeSlideLeft
| RevealerTransitionTypeSlideUp
| RevealerTransitionTypeSlideDown
| AnotherRevealerTransitionType Int
deriving (Show, Eq)
instance Enum RevealerTransitionType where
fromEnum RevealerTransitionTypeNone = 0
fromEnum RevealerTransitionTypeCrossfade = 1
fromEnum RevealerTransitionTypeSlideRight = 2
fromEnum RevealerTransitionTypeSlideLeft = 3
fromEnum RevealerTransitionTypeSlideUp = 4
fromEnum RevealerTransitionTypeSlideDown = 5
fromEnum (AnotherRevealerTransitionType k) = k
toEnum 0 = RevealerTransitionTypeNone
toEnum 1 = RevealerTransitionTypeCrossfade
toEnum 2 = RevealerTransitionTypeSlideRight
toEnum 3 = RevealerTransitionTypeSlideLeft
toEnum 4 = RevealerTransitionTypeSlideUp
toEnum 5 = RevealerTransitionTypeSlideDown
toEnum k = AnotherRevealerTransitionType k
foreign import ccall "gtk_revealer_transition_type_get_type" c_gtk_revealer_transition_type_get_type ::
IO GType
instance BoxedEnum RevealerTransitionType where
boxedEnumType _ = c_gtk_revealer_transition_type_get_type
-- object Scale
newtype Scale = Scale (ForeignPtr Scale)
noScale :: Maybe Scale
noScale = Nothing
foreign import ccall "gtk_scale_get_type"
c_gtk_scale_get_type :: IO GType
type instance ParentTypes Scale = '[Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Scale where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scale_get_type
class GObject o => ScaleK o
instance (GObject o, IsDescendantOf Scale o) => ScaleK o
toScale :: ScaleK o => o -> IO Scale
toScale = unsafeCastTo Scale
-- method Scale::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Scale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_new" gtk_scale_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr Scale)
scaleNew ::
(MonadIO m, AdjustmentK a) =>
Orientation -> -- orientation
Maybe (a) -> -- adjustment
m Scale
scaleNew orientation adjustment = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_scale_new orientation' maybeAdjustment
checkUnexpectedReturnNULL "gtk_scale_new" result
result' <- (newObject Scale) result
whenJust adjustment touchManagedPtr
return result'
-- method Scale::new_with_range
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Scale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_new_with_range" gtk_scale_new_with_range ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
CDouble -> -- step : TBasicType TDouble
IO (Ptr Scale)
scaleNewWithRange ::
(MonadIO m) =>
Orientation -> -- orientation
Double -> -- min
Double -> -- max
Double -> -- step
m Scale
scaleNewWithRange orientation min max step = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_scale_new_with_range orientation' min' max' step'
checkUnexpectedReturnNULL "gtk_scale_new_with_range" result
result' <- (newObject Scale) result
return result'
-- method Scale::add_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_add_mark" gtk_scale_add_mark ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
CDouble -> -- value : TBasicType TDouble
CUInt -> -- position : TInterface "Gtk" "PositionType"
CString -> -- markup : TBasicType TUTF8
IO ()
scaleAddMark ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
Double -> -- value
PositionType -> -- position
Maybe (T.Text) -> -- markup
m ()
scaleAddMark _obj value position markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
let position' = (fromIntegral . fromEnum) position
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_scale_add_mark _obj' value' position' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
-- method Scale::clear_marks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_clear_marks" gtk_scale_clear_marks ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO ()
scaleClearMarks ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m ()
scaleClearMarks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scale_clear_marks _obj'
touchManagedPtr _obj
return ()
-- method Scale::get_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_digits" gtk_scale_get_digits ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO Int32
scaleGetDigits ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m Int32
scaleGetDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_digits _obj'
touchManagedPtr _obj
return result
-- method Scale::get_draw_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_draw_value" gtk_scale_get_draw_value ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO CInt
scaleGetDrawValue ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m Bool
scaleGetDrawValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_draw_value _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Scale::get_has_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_has_origin" gtk_scale_get_has_origin ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO CInt
scaleGetHasOrigin ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m Bool
scaleGetHasOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_has_origin _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Scale::get_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_layout" gtk_scale_get_layout ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO (Ptr Pango.Layout)
scaleGetLayout ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m Pango.Layout
scaleGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_layout _obj'
checkUnexpectedReturnNULL "gtk_scale_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
-- method Scale::get_layout_offsets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_layout_offsets" gtk_scale_get_layout_offsets ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
scaleGetLayoutOffsets ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m (Int32,Int32)
scaleGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_scale_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
-- method Scale::get_value_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PositionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_get_value_pos" gtk_scale_get_value_pos ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
IO CUInt
scaleGetValuePos ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
m PositionType
scaleGetValuePos _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_value_pos _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Scale::set_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_set_digits" gtk_scale_set_digits ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
Int32 -> -- digits : TBasicType TInt32
IO ()
scaleSetDigits ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
Int32 -> -- digits
m ()
scaleSetDigits _obj digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scale_set_digits _obj' digits
touchManagedPtr _obj
return ()
-- method Scale::set_draw_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_set_draw_value" gtk_scale_set_draw_value ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
CInt -> -- draw_value : TBasicType TBoolean
IO ()
scaleSetDrawValue ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
Bool -> -- draw_value
m ()
scaleSetDrawValue _obj draw_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_value' = (fromIntegral . fromEnum) draw_value
gtk_scale_set_draw_value _obj' draw_value'
touchManagedPtr _obj
return ()
-- method Scale::set_has_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_set_has_origin" gtk_scale_set_has_origin ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
CInt -> -- has_origin : TBasicType TBoolean
IO ()
scaleSetHasOrigin ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
Bool -> -- has_origin
m ()
scaleSetHasOrigin _obj has_origin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_origin' = (fromIntegral . fromEnum) has_origin
gtk_scale_set_has_origin _obj' has_origin'
touchManagedPtr _obj
return ()
-- method Scale::set_value_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_set_value_pos" gtk_scale_set_value_pos ::
Ptr Scale -> -- _obj : TInterface "Gtk" "Scale"
CUInt -> -- pos : TInterface "Gtk" "PositionType"
IO ()
scaleSetValuePos ::
(MonadIO m, ScaleK a) =>
a -> -- _obj
PositionType -> -- pos
m ()
scaleSetValuePos _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pos' = (fromIntegral . fromEnum) pos
gtk_scale_set_value_pos _obj' pos'
touchManagedPtr _obj
return ()
-- signal Scale::format-value
type ScaleFormatValueCallback =
Double ->
IO T.Text
noScaleFormatValueCallback :: Maybe ScaleFormatValueCallback
noScaleFormatValueCallback = Nothing
type ScaleFormatValueCallbackC =
Ptr () -> -- object
CDouble ->
Ptr () -> -- user_data
IO CString
foreign import ccall "wrapper"
mkScaleFormatValueCallback :: ScaleFormatValueCallbackC -> IO (FunPtr ScaleFormatValueCallbackC)
scaleFormatValueClosure :: ScaleFormatValueCallback -> IO Closure
scaleFormatValueClosure cb = newCClosure =<< mkScaleFormatValueCallback wrapped
where wrapped = scaleFormatValueCallbackWrapper cb
scaleFormatValueCallbackWrapper ::
ScaleFormatValueCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO CString
scaleFormatValueCallbackWrapper _cb _ value _ = do
let value' = realToFrac value
result <- _cb value'
result' <- textToCString result
return result'
onScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId
onScaleFormatValue obj cb = liftIO $ connectScaleFormatValue obj cb SignalConnectBefore
afterScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId
afterScaleFormatValue obj cb = connectScaleFormatValue obj cb SignalConnectAfter
connectScaleFormatValue :: (GObject a, MonadIO m) =>
a -> ScaleFormatValueCallback -> SignalConnectMode -> m SignalHandlerId
connectScaleFormatValue obj cb after = liftIO $ do
cb' <- mkScaleFormatValueCallback (scaleFormatValueCallbackWrapper cb)
connectSignalFunPtr obj "format-value" cb' after
-- object ScaleAccessible
newtype ScaleAccessible = ScaleAccessible (ForeignPtr ScaleAccessible)
noScaleAccessible :: Maybe ScaleAccessible
noScaleAccessible = Nothing
foreign import ccall "gtk_scale_accessible_get_type"
c_gtk_scale_accessible_get_type :: IO GType
type instance ParentTypes ScaleAccessible = '[RangeAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value]
instance GObject ScaleAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_scale_accessible_get_type
class GObject o => ScaleAccessibleK o
instance (GObject o, IsDescendantOf ScaleAccessible o) => ScaleAccessibleK o
toScaleAccessible :: ScaleAccessibleK o => o -> IO ScaleAccessible
toScaleAccessible = unsafeCastTo ScaleAccessible
-- object ScaleButton
newtype ScaleButton = ScaleButton (ForeignPtr ScaleButton)
noScaleButton :: Maybe ScaleButton
noScaleButton = Nothing
foreign import ccall "gtk_scale_button_get_type"
c_gtk_scale_button_get_type :: IO GType
type instance ParentTypes ScaleButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, Orientable]
instance GObject ScaleButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scale_button_get_type
class GObject o => ScaleButtonK o
instance (GObject o, IsDescendantOf ScaleButton o) => ScaleButtonK o
toScaleButton :: ScaleButtonK o => o -> IO ScaleButton
toScaleButton = unsafeCastTo ScaleButton
-- method ScaleButton::new
-- method type : Constructor
-- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ScaleButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_new" gtk_scale_button_new ::
Int32 -> -- size : TBasicType TInt32
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
CDouble -> -- step : TBasicType TDouble
Ptr CString -> -- icons : TCArray True (-1) (-1) (TBasicType TUTF8)
IO (Ptr ScaleButton)
scaleButtonNew ::
(MonadIO m) =>
Int32 -> -- size
Double -> -- min
Double -> -- max
Double -> -- step
Maybe ([T.Text]) -> -- icons
m ScaleButton
scaleButtonNew size min max step icons = liftIO $ do
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
maybeIcons <- case icons of
Nothing -> return nullPtr
Just jIcons -> do
jIcons' <- packZeroTerminatedUTF8CArray jIcons
return jIcons'
result <- gtk_scale_button_new size min' max' step' maybeIcons
checkUnexpectedReturnNULL "gtk_scale_button_new" result
result' <- (newObject ScaleButton) result
mapZeroTerminatedCArray freeMem maybeIcons
freeMem maybeIcons
return result'
-- method ScaleButton::get_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_get_adjustment" gtk_scale_button_get_adjustment ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
IO (Ptr Adjustment)
scaleButtonGetAdjustment ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
m Adjustment
scaleButtonGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_button_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_scale_button_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ScaleButton::get_minus_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_get_minus_button" gtk_scale_button_get_minus_button ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
IO (Ptr Button)
scaleButtonGetMinusButton ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
m Button
scaleButtonGetMinusButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_button_get_minus_button _obj'
checkUnexpectedReturnNULL "gtk_scale_button_get_minus_button" result
result' <- (newObject Button) result
touchManagedPtr _obj
return result'
-- method ScaleButton::get_plus_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Button"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_get_plus_button" gtk_scale_button_get_plus_button ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
IO (Ptr Button)
scaleButtonGetPlusButton ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
m Button
scaleButtonGetPlusButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_button_get_plus_button _obj'
checkUnexpectedReturnNULL "gtk_scale_button_get_plus_button" result
result' <- (newObject Button) result
touchManagedPtr _obj
return result'
-- method ScaleButton::get_popup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_get_popup" gtk_scale_button_get_popup ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
IO (Ptr Widget)
scaleButtonGetPopup ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
m Widget
scaleButtonGetPopup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_button_get_popup _obj'
checkUnexpectedReturnNULL "gtk_scale_button_get_popup" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ScaleButton::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_get_value" gtk_scale_button_get_value ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
IO CDouble
scaleButtonGetValue ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
m Double
scaleButtonGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_button_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method ScaleButton::set_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_set_adjustment" gtk_scale_button_set_adjustment ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
scaleButtonSetAdjustment ::
(MonadIO m, ScaleButtonK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
scaleButtonSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_scale_button_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method ScaleButton::set_icons
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_set_icons" gtk_scale_button_set_icons ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
Ptr CString -> -- icons : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
scaleButtonSetIcons ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
[T.Text] -> -- icons
m ()
scaleButtonSetIcons _obj icons = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icons' <- packZeroTerminatedUTF8CArray icons
gtk_scale_button_set_icons _obj' icons'
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem icons'
freeMem icons'
return ()
-- method ScaleButton::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scale_button_set_value" gtk_scale_button_set_value ::
Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton"
CDouble -> -- value : TBasicType TDouble
IO ()
scaleButtonSetValue ::
(MonadIO m, ScaleButtonK a) =>
a -> -- _obj
Double -> -- value
m ()
scaleButtonSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_scale_button_set_value _obj' value'
touchManagedPtr _obj
return ()
-- signal ScaleButton::popdown
type ScaleButtonPopdownCallback =
IO ()
noScaleButtonPopdownCallback :: Maybe ScaleButtonPopdownCallback
noScaleButtonPopdownCallback = Nothing
type ScaleButtonPopdownCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScaleButtonPopdownCallback :: ScaleButtonPopdownCallbackC -> IO (FunPtr ScaleButtonPopdownCallbackC)
scaleButtonPopdownClosure :: ScaleButtonPopdownCallback -> IO Closure
scaleButtonPopdownClosure cb = newCClosure =<< mkScaleButtonPopdownCallback wrapped
where wrapped = scaleButtonPopdownCallbackWrapper cb
scaleButtonPopdownCallbackWrapper ::
ScaleButtonPopdownCallback ->
Ptr () ->
Ptr () ->
IO ()
scaleButtonPopdownCallbackWrapper _cb _ _ = do
_cb
onScaleButtonPopdown :: (GObject a, MonadIO m) => a -> ScaleButtonPopdownCallback -> m SignalHandlerId
onScaleButtonPopdown obj cb = liftIO $ connectScaleButtonPopdown obj cb SignalConnectBefore
afterScaleButtonPopdown :: (GObject a, MonadIO m) => a -> ScaleButtonPopdownCallback -> m SignalHandlerId
afterScaleButtonPopdown obj cb = connectScaleButtonPopdown obj cb SignalConnectAfter
connectScaleButtonPopdown :: (GObject a, MonadIO m) =>
a -> ScaleButtonPopdownCallback -> SignalConnectMode -> m SignalHandlerId
connectScaleButtonPopdown obj cb after = liftIO $ do
cb' <- mkScaleButtonPopdownCallback (scaleButtonPopdownCallbackWrapper cb)
connectSignalFunPtr obj "popdown" cb' after
-- signal ScaleButton::popup
type ScaleButtonPopupCallback =
IO ()
noScaleButtonPopupCallback :: Maybe ScaleButtonPopupCallback
noScaleButtonPopupCallback = Nothing
type ScaleButtonPopupCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScaleButtonPopupCallback :: ScaleButtonPopupCallbackC -> IO (FunPtr ScaleButtonPopupCallbackC)
scaleButtonPopupClosure :: ScaleButtonPopupCallback -> IO Closure
scaleButtonPopupClosure cb = newCClosure =<< mkScaleButtonPopupCallback wrapped
where wrapped = scaleButtonPopupCallbackWrapper cb
scaleButtonPopupCallbackWrapper ::
ScaleButtonPopupCallback ->
Ptr () ->
Ptr () ->
IO ()
scaleButtonPopupCallbackWrapper _cb _ _ = do
_cb
onScaleButtonPopup :: (GObject a, MonadIO m) => a -> ScaleButtonPopupCallback -> m SignalHandlerId
onScaleButtonPopup obj cb = liftIO $ connectScaleButtonPopup obj cb SignalConnectBefore
afterScaleButtonPopup :: (GObject a, MonadIO m) => a -> ScaleButtonPopupCallback -> m SignalHandlerId
afterScaleButtonPopup obj cb = connectScaleButtonPopup obj cb SignalConnectAfter
connectScaleButtonPopup :: (GObject a, MonadIO m) =>
a -> ScaleButtonPopupCallback -> SignalConnectMode -> m SignalHandlerId
connectScaleButtonPopup obj cb after = liftIO $ do
cb' <- mkScaleButtonPopupCallback (scaleButtonPopupCallbackWrapper cb)
connectSignalFunPtr obj "popup" cb' after
-- signal ScaleButton::value-changed
type ScaleButtonValueChangedCallback =
Double ->
IO ()
noScaleButtonValueChangedCallback :: Maybe ScaleButtonValueChangedCallback
noScaleButtonValueChangedCallback = Nothing
type ScaleButtonValueChangedCallbackC =
Ptr () -> -- object
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScaleButtonValueChangedCallback :: ScaleButtonValueChangedCallbackC -> IO (FunPtr ScaleButtonValueChangedCallbackC)
scaleButtonValueChangedClosure :: ScaleButtonValueChangedCallback -> IO Closure
scaleButtonValueChangedClosure cb = newCClosure =<< mkScaleButtonValueChangedCallback wrapped
where wrapped = scaleButtonValueChangedCallbackWrapper cb
scaleButtonValueChangedCallbackWrapper ::
ScaleButtonValueChangedCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO ()
scaleButtonValueChangedCallbackWrapper _cb _ value _ = do
let value' = realToFrac value
_cb value'
onScaleButtonValueChanged :: (GObject a, MonadIO m) => a -> ScaleButtonValueChangedCallback -> m SignalHandlerId
onScaleButtonValueChanged obj cb = liftIO $ connectScaleButtonValueChanged obj cb SignalConnectBefore
afterScaleButtonValueChanged :: (GObject a, MonadIO m) => a -> ScaleButtonValueChangedCallback -> m SignalHandlerId
afterScaleButtonValueChanged obj cb = connectScaleButtonValueChanged obj cb SignalConnectAfter
connectScaleButtonValueChanged :: (GObject a, MonadIO m) =>
a -> ScaleButtonValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectScaleButtonValueChanged obj cb after = liftIO $ do
cb' <- mkScaleButtonValueChangedCallback (scaleButtonValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
-- object ScaleButtonAccessible
newtype ScaleButtonAccessible = ScaleButtonAccessible (ForeignPtr ScaleButtonAccessible)
noScaleButtonAccessible :: Maybe ScaleButtonAccessible
noScaleButtonAccessible = Nothing
foreign import ccall "gtk_scale_button_accessible_get_type"
c_gtk_scale_button_accessible_get_type :: IO GType
type instance ParentTypes ScaleButtonAccessible = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image, Atk.Value]
instance GObject ScaleButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_scale_button_accessible_get_type
class GObject o => ScaleButtonAccessibleK o
instance (GObject o, IsDescendantOf ScaleButtonAccessible o) => ScaleButtonAccessibleK o
toScaleButtonAccessible :: ScaleButtonAccessibleK o => o -> IO ScaleButtonAccessible
toScaleButtonAccessible = unsafeCastTo ScaleButtonAccessible
-- Enum ScrollStep
data ScrollStep =
ScrollStepSteps
| ScrollStepPages
| ScrollStepEnds
| ScrollStepHorizontalSteps
| ScrollStepHorizontalPages
| ScrollStepHorizontalEnds
| AnotherScrollStep Int
deriving (Show, Eq)
instance Enum ScrollStep where
fromEnum ScrollStepSteps = 0
fromEnum ScrollStepPages = 1
fromEnum ScrollStepEnds = 2
fromEnum ScrollStepHorizontalSteps = 3
fromEnum ScrollStepHorizontalPages = 4
fromEnum ScrollStepHorizontalEnds = 5
fromEnum (AnotherScrollStep k) = k
toEnum 0 = ScrollStepSteps
toEnum 1 = ScrollStepPages
toEnum 2 = ScrollStepEnds
toEnum 3 = ScrollStepHorizontalSteps
toEnum 4 = ScrollStepHorizontalPages
toEnum 5 = ScrollStepHorizontalEnds
toEnum k = AnotherScrollStep k
foreign import ccall "gtk_scroll_step_get_type" c_gtk_scroll_step_get_type ::
IO GType
instance BoxedEnum ScrollStep where
boxedEnumType _ = c_gtk_scroll_step_get_type
-- Enum ScrollType
data ScrollType =
ScrollTypeNone
| ScrollTypeJump
| ScrollTypeStepBackward
| ScrollTypeStepForward
| ScrollTypePageBackward
| ScrollTypePageForward
| ScrollTypeStepUp
| ScrollTypeStepDown
| ScrollTypePageUp
| ScrollTypePageDown
| ScrollTypeStepLeft
| ScrollTypeStepRight
| ScrollTypePageLeft
| ScrollTypePageRight
| ScrollTypeStart
| ScrollTypeEnd
| AnotherScrollType Int
deriving (Show, Eq)
instance Enum ScrollType where
fromEnum ScrollTypeNone = 0
fromEnum ScrollTypeJump = 1
fromEnum ScrollTypeStepBackward = 2
fromEnum ScrollTypeStepForward = 3
fromEnum ScrollTypePageBackward = 4
fromEnum ScrollTypePageForward = 5
fromEnum ScrollTypeStepUp = 6
fromEnum ScrollTypeStepDown = 7
fromEnum ScrollTypePageUp = 8
fromEnum ScrollTypePageDown = 9
fromEnum ScrollTypeStepLeft = 10
fromEnum ScrollTypeStepRight = 11
fromEnum ScrollTypePageLeft = 12
fromEnum ScrollTypePageRight = 13
fromEnum ScrollTypeStart = 14
fromEnum ScrollTypeEnd = 15
fromEnum (AnotherScrollType k) = k
toEnum 0 = ScrollTypeNone
toEnum 1 = ScrollTypeJump
toEnum 2 = ScrollTypeStepBackward
toEnum 3 = ScrollTypeStepForward
toEnum 4 = ScrollTypePageBackward
toEnum 5 = ScrollTypePageForward
toEnum 6 = ScrollTypeStepUp
toEnum 7 = ScrollTypeStepDown
toEnum 8 = ScrollTypePageUp
toEnum 9 = ScrollTypePageDown
toEnum 10 = ScrollTypeStepLeft
toEnum 11 = ScrollTypeStepRight
toEnum 12 = ScrollTypePageLeft
toEnum 13 = ScrollTypePageRight
toEnum 14 = ScrollTypeStart
toEnum 15 = ScrollTypeEnd
toEnum k = AnotherScrollType k
foreign import ccall "gtk_scroll_type_get_type" c_gtk_scroll_type_get_type ::
IO GType
instance BoxedEnum ScrollType where
boxedEnumType _ = c_gtk_scroll_type_get_type
-- interface Scrollable
newtype Scrollable = Scrollable (ForeignPtr Scrollable)
noScrollable :: Maybe Scrollable
noScrollable = Nothing
foreign import ccall "gtk_scrollable_get_type"
c_gtk_scrollable_get_type :: IO GType
type instance ParentTypes Scrollable = '[GObject.Object]
instance GObject Scrollable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_scrollable_get_type
class GObject o => ScrollableK o
instance (GObject o, IsDescendantOf Scrollable o) => ScrollableK o
toScrollable :: ScrollableK o => o -> IO Scrollable
toScrollable = unsafeCastTo Scrollable
-- method Scrollable::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_get_border" gtk_scrollable_get_border ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
Ptr Border -> -- border : TInterface "Gtk" "Border"
IO CInt
scrollableGetBorder ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
Border -> -- border
m Bool
scrollableGetBorder _obj border = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let border' = unsafeManagedPtrGetPtr border
result <- gtk_scrollable_get_border _obj' border'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr border
return result'
-- method Scrollable::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_get_hadjustment" gtk_scrollable_get_hadjustment ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
IO (Ptr Adjustment)
scrollableGetHadjustment ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
m Adjustment
scrollableGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrollable_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrollable_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Scrollable::get_hscroll_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ScrollablePolicy"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_get_hscroll_policy" gtk_scrollable_get_hscroll_policy ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
IO CUInt
scrollableGetHscrollPolicy ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
m ScrollablePolicy
scrollableGetHscrollPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrollable_get_hscroll_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Scrollable::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_get_vadjustment" gtk_scrollable_get_vadjustment ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
IO (Ptr Adjustment)
scrollableGetVadjustment ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
m Adjustment
scrollableGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrollable_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrollable_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Scrollable::get_vscroll_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ScrollablePolicy"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_get_vscroll_policy" gtk_scrollable_get_vscroll_policy ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
IO CUInt
scrollableGetVscrollPolicy ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
m ScrollablePolicy
scrollableGetVscrollPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrollable_get_vscroll_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Scrollable::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_set_hadjustment" gtk_scrollable_set_hadjustment ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment"
IO ()
scrollableSetHadjustment ::
(MonadIO m, ScrollableK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- hadjustment
m ()
scrollableSetHadjustment _obj hadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeHadjustment <- case hadjustment of
Nothing -> return nullPtr
Just jHadjustment -> do
let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment
return jHadjustment'
gtk_scrollable_set_hadjustment _obj' maybeHadjustment
touchManagedPtr _obj
whenJust hadjustment touchManagedPtr
return ()
-- method Scrollable::set_hscroll_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_set_hscroll_policy" gtk_scrollable_set_hscroll_policy ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
CUInt -> -- policy : TInterface "Gtk" "ScrollablePolicy"
IO ()
scrollableSetHscrollPolicy ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
ScrollablePolicy -> -- policy
m ()
scrollableSetHscrollPolicy _obj policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let policy' = (fromIntegral . fromEnum) policy
gtk_scrollable_set_hscroll_policy _obj' policy'
touchManagedPtr _obj
return ()
-- method Scrollable::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_set_vadjustment" gtk_scrollable_set_vadjustment ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment"
IO ()
scrollableSetVadjustment ::
(MonadIO m, ScrollableK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- vadjustment
m ()
scrollableSetVadjustment _obj vadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeVadjustment <- case vadjustment of
Nothing -> return nullPtr
Just jVadjustment -> do
let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment
return jVadjustment'
gtk_scrollable_set_vadjustment _obj' maybeVadjustment
touchManagedPtr _obj
whenJust vadjustment touchManagedPtr
return ()
-- method Scrollable::set_vscroll_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollable_set_vscroll_policy" gtk_scrollable_set_vscroll_policy ::
Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable"
CUInt -> -- policy : TInterface "Gtk" "ScrollablePolicy"
IO ()
scrollableSetVscrollPolicy ::
(MonadIO m, ScrollableK a) =>
a -> -- _obj
ScrollablePolicy -> -- policy
m ()
scrollableSetVscrollPolicy _obj policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let policy' = (fromIntegral . fromEnum) policy
gtk_scrollable_set_vscroll_policy _obj' policy'
touchManagedPtr _obj
return ()
-- Enum ScrollablePolicy
data ScrollablePolicy =
ScrollablePolicyMinimum
| ScrollablePolicyNatural
| AnotherScrollablePolicy Int
deriving (Show, Eq)
instance Enum ScrollablePolicy where
fromEnum ScrollablePolicyMinimum = 0
fromEnum ScrollablePolicyNatural = 1
fromEnum (AnotherScrollablePolicy k) = k
toEnum 0 = ScrollablePolicyMinimum
toEnum 1 = ScrollablePolicyNatural
toEnum k = AnotherScrollablePolicy k
foreign import ccall "gtk_scrollable_policy_get_type" c_gtk_scrollable_policy_get_type ::
IO GType
instance BoxedEnum ScrollablePolicy where
boxedEnumType _ = c_gtk_scrollable_policy_get_type
-- object Scrollbar
newtype Scrollbar = Scrollbar (ForeignPtr Scrollbar)
noScrollbar :: Maybe Scrollbar
noScrollbar = Nothing
foreign import ccall "gtk_scrollbar_get_type"
c_gtk_scrollbar_get_type :: IO GType
type instance ParentTypes Scrollbar = '[Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Scrollbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scrollbar_get_type
class GObject o => ScrollbarK o
instance (GObject o, IsDescendantOf Scrollbar o) => ScrollbarK o
toScrollbar :: ScrollbarK o => o -> IO Scrollbar
toScrollbar = unsafeCastTo Scrollbar
-- method Scrollbar::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Scrollbar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrollbar_new" gtk_scrollbar_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr Scrollbar)
scrollbarNew ::
(MonadIO m, AdjustmentK a) =>
Orientation -> -- orientation
Maybe (a) -> -- adjustment
m Scrollbar
scrollbarNew orientation adjustment = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_scrollbar_new orientation' maybeAdjustment
checkUnexpectedReturnNULL "gtk_scrollbar_new" result
result' <- (newObject Scrollbar) result
whenJust adjustment touchManagedPtr
return result'
-- object ScrolledWindow
newtype ScrolledWindow = ScrolledWindow (ForeignPtr ScrolledWindow)
noScrolledWindow :: Maybe ScrolledWindow
noScrolledWindow = Nothing
foreign import ccall "gtk_scrolled_window_get_type"
c_gtk_scrolled_window_get_type :: IO GType
type instance ParentTypes ScrolledWindow = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ScrolledWindow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scrolled_window_get_type
class GObject o => ScrolledWindowK o
instance (GObject o, IsDescendantOf ScrolledWindow o) => ScrolledWindowK o
toScrolledWindow :: ScrolledWindowK o => o -> IO ScrolledWindow
toScrolledWindow = unsafeCastTo ScrolledWindow
-- method ScrolledWindow::new
-- method type : Constructor
-- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ScrolledWindow"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_new" gtk_scrolled_window_new ::
Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment"
Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment"
IO (Ptr ScrolledWindow)
scrolledWindowNew ::
(MonadIO m, AdjustmentK a, AdjustmentK b) =>
Maybe (a) -> -- hadjustment
Maybe (b) -> -- vadjustment
m ScrolledWindow
scrolledWindowNew hadjustment vadjustment = liftIO $ do
maybeHadjustment <- case hadjustment of
Nothing -> return nullPtr
Just jHadjustment -> do
let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment
return jHadjustment'
maybeVadjustment <- case vadjustment of
Nothing -> return nullPtr
Just jVadjustment -> do
let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment
return jVadjustment'
result <- gtk_scrolled_window_new maybeHadjustment maybeVadjustment
checkUnexpectedReturnNULL "gtk_scrolled_window_new" result
result' <- (newObject ScrolledWindow) result
whenJust hadjustment touchManagedPtr
whenJust vadjustment touchManagedPtr
return result'
-- method ScrolledWindow::add_with_viewport
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_add_with_viewport" gtk_scrolled_window_add_with_viewport ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED scrolledWindowAddWithViewport ["(Since version 3.8)","gtk_container_add() will automatically add","a #GtkViewport if the child doesn\8217t implement #GtkScrollable."]#-}
scrolledWindowAddWithViewport ::
(MonadIO m, ScrolledWindowK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
scrolledWindowAddWithViewport _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_scrolled_window_add_with_viewport _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method ScrolledWindow::get_capture_button_press
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_capture_button_press" gtk_scrolled_window_get_capture_button_press ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO CInt
scrolledWindowGetCaptureButtonPress ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Bool
scrolledWindowGetCaptureButtonPress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_capture_button_press _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_hadjustment" gtk_scrolled_window_get_hadjustment ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO (Ptr Adjustment)
scrolledWindowGetHadjustment ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Adjustment
scrolledWindowGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_hscrollbar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_hscrollbar" gtk_scrolled_window_get_hscrollbar ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO (Ptr Widget)
scrolledWindowGetHscrollbar ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Widget
scrolledWindowGetHscrollbar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_hscrollbar _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_hscrollbar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_kinetic_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_kinetic_scrolling" gtk_scrolled_window_get_kinetic_scrolling ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO CInt
scrolledWindowGetKineticScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Bool
scrolledWindowGetKineticScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_kinetic_scrolling _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_min_content_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_min_content_height" gtk_scrolled_window_get_min_content_height ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO Int32
scrolledWindowGetMinContentHeight ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Int32
scrolledWindowGetMinContentHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_min_content_height _obj'
touchManagedPtr _obj
return result
-- method ScrolledWindow::get_min_content_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_min_content_width" gtk_scrolled_window_get_min_content_width ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO Int32
scrolledWindowGetMinContentWidth ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Int32
scrolledWindowGetMinContentWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_min_content_width _obj'
touchManagedPtr _obj
return result
-- method ScrolledWindow::get_overlay_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_overlay_scrolling" gtk_scrolled_window_get_overlay_scrolling ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO CInt
scrolledWindowGetOverlayScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Bool
scrolledWindowGetOverlayScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_overlay_scrolling _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_placement
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CornerType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_placement" gtk_scrolled_window_get_placement ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO CUInt
scrolledWindowGetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m CornerType
scrolledWindowGetPlacement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_placement _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_policy" gtk_scrolled_window_get_policy ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Ptr CUInt -> -- hscrollbar_policy : TInterface "Gtk" "PolicyType"
Ptr CUInt -> -- vscrollbar_policy : TInterface "Gtk" "PolicyType"
IO ()
scrolledWindowGetPolicy ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m (PolicyType,PolicyType)
scrolledWindowGetPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
hscrollbar_policy <- allocMem :: IO (Ptr CUInt)
vscrollbar_policy <- allocMem :: IO (Ptr CUInt)
gtk_scrolled_window_get_policy _obj' hscrollbar_policy vscrollbar_policy
hscrollbar_policy' <- peek hscrollbar_policy
let hscrollbar_policy'' = (toEnum . fromIntegral) hscrollbar_policy'
vscrollbar_policy' <- peek vscrollbar_policy
let vscrollbar_policy'' = (toEnum . fromIntegral) vscrollbar_policy'
touchManagedPtr _obj
freeMem hscrollbar_policy
freeMem vscrollbar_policy
return (hscrollbar_policy'', vscrollbar_policy'')
-- method ScrolledWindow::get_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ShadowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_shadow_type" gtk_scrolled_window_get_shadow_type ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO CUInt
scrolledWindowGetShadowType ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m ShadowType
scrolledWindowGetShadowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_shadow_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_vadjustment" gtk_scrolled_window_get_vadjustment ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO (Ptr Adjustment)
scrolledWindowGetVadjustment ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Adjustment
scrolledWindowGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::get_vscrollbar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_get_vscrollbar" gtk_scrolled_window_get_vscrollbar ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO (Ptr Widget)
scrolledWindowGetVscrollbar ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m Widget
scrolledWindowGetVscrollbar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_vscrollbar _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_vscrollbar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ScrolledWindow::set_capture_button_press
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_capture_button_press" gtk_scrolled_window_set_capture_button_press ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CInt -> -- capture_button_press : TBasicType TBoolean
IO ()
scrolledWindowSetCaptureButtonPress ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
Bool -> -- capture_button_press
m ()
scrolledWindowSetCaptureButtonPress _obj capture_button_press = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let capture_button_press' = (fromIntegral . fromEnum) capture_button_press
gtk_scrolled_window_set_capture_button_press _obj' capture_button_press'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_hadjustment" gtk_scrolled_window_set_hadjustment ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment"
IO ()
scrolledWindowSetHadjustment ::
(MonadIO m, ScrolledWindowK a, AdjustmentK b) =>
a -> -- _obj
b -> -- hadjustment
m ()
scrolledWindowSetHadjustment _obj hadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hadjustment' = unsafeManagedPtrCastPtr hadjustment
gtk_scrolled_window_set_hadjustment _obj' hadjustment'
touchManagedPtr _obj
touchManagedPtr hadjustment
return ()
-- method ScrolledWindow::set_kinetic_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_kinetic_scrolling" gtk_scrolled_window_set_kinetic_scrolling ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CInt -> -- kinetic_scrolling : TBasicType TBoolean
IO ()
scrolledWindowSetKineticScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
Bool -> -- kinetic_scrolling
m ()
scrolledWindowSetKineticScrolling _obj kinetic_scrolling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let kinetic_scrolling' = (fromIntegral . fromEnum) kinetic_scrolling
gtk_scrolled_window_set_kinetic_scrolling _obj' kinetic_scrolling'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_min_content_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_min_content_height" gtk_scrolled_window_set_min_content_height ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Int32 -> -- height : TBasicType TInt32
IO ()
scrolledWindowSetMinContentHeight ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
Int32 -> -- height
m ()
scrolledWindowSetMinContentHeight _obj height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_set_min_content_height _obj' height
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_min_content_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_min_content_width" gtk_scrolled_window_set_min_content_width ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Int32 -> -- width : TBasicType TInt32
IO ()
scrolledWindowSetMinContentWidth ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
Int32 -> -- width
m ()
scrolledWindowSetMinContentWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_set_min_content_width _obj' width
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_overlay_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_overlay_scrolling" gtk_scrolled_window_set_overlay_scrolling ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CInt -> -- overlay_scrolling : TBasicType TBoolean
IO ()
scrolledWindowSetOverlayScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
Bool -> -- overlay_scrolling
m ()
scrolledWindowSetOverlayScrolling _obj overlay_scrolling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overlay_scrolling' = (fromIntegral . fromEnum) overlay_scrolling
gtk_scrolled_window_set_overlay_scrolling _obj' overlay_scrolling'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_placement
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_placement" gtk_scrolled_window_set_placement ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CUInt -> -- window_placement : TInterface "Gtk" "CornerType"
IO ()
scrolledWindowSetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
CornerType -> -- window_placement
m ()
scrolledWindowSetPlacement _obj window_placement = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window_placement' = (fromIntegral . fromEnum) window_placement
gtk_scrolled_window_set_placement _obj' window_placement'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_policy" gtk_scrolled_window_set_policy ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CUInt -> -- hscrollbar_policy : TInterface "Gtk" "PolicyType"
CUInt -> -- vscrollbar_policy : TInterface "Gtk" "PolicyType"
IO ()
scrolledWindowSetPolicy ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
PolicyType -> -- hscrollbar_policy
PolicyType -> -- vscrollbar_policy
m ()
scrolledWindowSetPolicy _obj hscrollbar_policy vscrollbar_policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hscrollbar_policy' = (fromIntegral . fromEnum) hscrollbar_policy
let vscrollbar_policy' = (fromIntegral . fromEnum) vscrollbar_policy
gtk_scrolled_window_set_policy _obj' hscrollbar_policy' vscrollbar_policy'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_shadow_type" gtk_scrolled_window_set_shadow_type ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
CUInt -> -- type : TInterface "Gtk" "ShadowType"
IO ()
scrolledWindowSetShadowType ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
ShadowType -> -- type
m ()
scrolledWindowSetShadowType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_scrolled_window_set_shadow_type _obj' type_'
touchManagedPtr _obj
return ()
-- method ScrolledWindow::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_set_vadjustment" gtk_scrolled_window_set_vadjustment ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment"
IO ()
scrolledWindowSetVadjustment ::
(MonadIO m, ScrolledWindowK a, AdjustmentK b) =>
a -> -- _obj
b -> -- vadjustment
m ()
scrolledWindowSetVadjustment _obj vadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let vadjustment' = unsafeManagedPtrCastPtr vadjustment
gtk_scrolled_window_set_vadjustment _obj' vadjustment'
touchManagedPtr _obj
touchManagedPtr vadjustment
return ()
-- method ScrolledWindow::unset_placement
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_scrolled_window_unset_placement" gtk_scrolled_window_unset_placement ::
Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow"
IO ()
scrolledWindowUnsetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a -> -- _obj
m ()
scrolledWindowUnsetPlacement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_unset_placement _obj'
touchManagedPtr _obj
return ()
-- signal ScrolledWindow::edge-overshot
type ScrolledWindowEdgeOvershotCallback =
PositionType ->
IO ()
noScrolledWindowEdgeOvershotCallback :: Maybe ScrolledWindowEdgeOvershotCallback
noScrolledWindowEdgeOvershotCallback = Nothing
type ScrolledWindowEdgeOvershotCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScrolledWindowEdgeOvershotCallback :: ScrolledWindowEdgeOvershotCallbackC -> IO (FunPtr ScrolledWindowEdgeOvershotCallbackC)
scrolledWindowEdgeOvershotClosure :: ScrolledWindowEdgeOvershotCallback -> IO Closure
scrolledWindowEdgeOvershotClosure cb = newCClosure =<< mkScrolledWindowEdgeOvershotCallback wrapped
where wrapped = scrolledWindowEdgeOvershotCallbackWrapper cb
scrolledWindowEdgeOvershotCallbackWrapper ::
ScrolledWindowEdgeOvershotCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowEdgeOvershotCallbackWrapper _cb _ pos _ = do
let pos' = (toEnum . fromIntegral) pos
_cb pos'
onScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
onScrolledWindowEdgeOvershot obj cb = liftIO $ connectScrolledWindowEdgeOvershot obj cb SignalConnectBefore
afterScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
afterScrolledWindowEdgeOvershot obj cb = connectScrolledWindowEdgeOvershot obj cb SignalConnectAfter
connectScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowEdgeOvershot obj cb after = liftIO $ do
cb' <- mkScrolledWindowEdgeOvershotCallback (scrolledWindowEdgeOvershotCallbackWrapper cb)
connectSignalFunPtr obj "edge-overshot" cb' after
-- signal ScrolledWindow::edge-reached
type ScrolledWindowEdgeReachedCallback =
PositionType ->
IO ()
noScrolledWindowEdgeReachedCallback :: Maybe ScrolledWindowEdgeReachedCallback
noScrolledWindowEdgeReachedCallback = Nothing
type ScrolledWindowEdgeReachedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScrolledWindowEdgeReachedCallback :: ScrolledWindowEdgeReachedCallbackC -> IO (FunPtr ScrolledWindowEdgeReachedCallbackC)
scrolledWindowEdgeReachedClosure :: ScrolledWindowEdgeReachedCallback -> IO Closure
scrolledWindowEdgeReachedClosure cb = newCClosure =<< mkScrolledWindowEdgeReachedCallback wrapped
where wrapped = scrolledWindowEdgeReachedCallbackWrapper cb
scrolledWindowEdgeReachedCallbackWrapper ::
ScrolledWindowEdgeReachedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowEdgeReachedCallbackWrapper _cb _ pos _ = do
let pos' = (toEnum . fromIntegral) pos
_cb pos'
onScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
onScrolledWindowEdgeReached obj cb = liftIO $ connectScrolledWindowEdgeReached obj cb SignalConnectBefore
afterScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
afterScrolledWindowEdgeReached obj cb = connectScrolledWindowEdgeReached obj cb SignalConnectAfter
connectScrolledWindowEdgeReached :: (GObject a, MonadIO m) =>
a -> ScrolledWindowEdgeReachedCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowEdgeReached obj cb after = liftIO $ do
cb' <- mkScrolledWindowEdgeReachedCallback (scrolledWindowEdgeReachedCallbackWrapper cb)
connectSignalFunPtr obj "edge-reached" cb' after
-- signal ScrolledWindow::move-focus-out
type ScrolledWindowMoveFocusOutCallback =
DirectionType ->
IO ()
noScrolledWindowMoveFocusOutCallback :: Maybe ScrolledWindowMoveFocusOutCallback
noScrolledWindowMoveFocusOutCallback = Nothing
type ScrolledWindowMoveFocusOutCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkScrolledWindowMoveFocusOutCallback :: ScrolledWindowMoveFocusOutCallbackC -> IO (FunPtr ScrolledWindowMoveFocusOutCallbackC)
scrolledWindowMoveFocusOutClosure :: ScrolledWindowMoveFocusOutCallback -> IO Closure
scrolledWindowMoveFocusOutClosure cb = newCClosure =<< mkScrolledWindowMoveFocusOutCallback wrapped
where wrapped = scrolledWindowMoveFocusOutCallbackWrapper cb
scrolledWindowMoveFocusOutCallbackWrapper ::
ScrolledWindowMoveFocusOutCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowMoveFocusOutCallbackWrapper _cb _ direction_type _ = do
let direction_type' = (toEnum . fromIntegral) direction_type
_cb direction_type'
onScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
onScrolledWindowMoveFocusOut obj cb = liftIO $ connectScrolledWindowMoveFocusOut obj cb SignalConnectBefore
afterScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
afterScrolledWindowMoveFocusOut obj cb = connectScrolledWindowMoveFocusOut obj cb SignalConnectAfter
connectScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) =>
a -> ScrolledWindowMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowMoveFocusOut obj cb after = liftIO $ do
cb' <- mkScrolledWindowMoveFocusOutCallback (scrolledWindowMoveFocusOutCallbackWrapper cb)
connectSignalFunPtr obj "move-focus-out" cb' after
-- signal ScrolledWindow::scroll-child
type ScrolledWindowScrollChildCallback =
ScrollType ->
Bool ->
IO Bool
noScrolledWindowScrollChildCallback :: Maybe ScrolledWindowScrollChildCallback
noScrolledWindowScrollChildCallback = Nothing
type ScrolledWindowScrollChildCallbackC =
Ptr () -> -- object
CUInt ->
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkScrolledWindowScrollChildCallback :: ScrolledWindowScrollChildCallbackC -> IO (FunPtr ScrolledWindowScrollChildCallbackC)
scrolledWindowScrollChildClosure :: ScrolledWindowScrollChildCallback -> IO Closure
scrolledWindowScrollChildClosure cb = newCClosure =<< mkScrolledWindowScrollChildCallback wrapped
where wrapped = scrolledWindowScrollChildCallbackWrapper cb
scrolledWindowScrollChildCallbackWrapper ::
ScrolledWindowScrollChildCallback ->
Ptr () ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
scrolledWindowScrollChildCallbackWrapper _cb _ scroll horizontal _ = do
let scroll' = (toEnum . fromIntegral) scroll
let horizontal' = (/= 0) horizontal
result <- _cb scroll' horizontal'
let result' = (fromIntegral . fromEnum) result
return result'
onScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
onScrolledWindowScrollChild obj cb = liftIO $ connectScrolledWindowScrollChild obj cb SignalConnectBefore
afterScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
afterScrolledWindowScrollChild obj cb = connectScrolledWindowScrollChild obj cb SignalConnectAfter
connectScrolledWindowScrollChild :: (GObject a, MonadIO m) =>
a -> ScrolledWindowScrollChildCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowScrollChild obj cb after = liftIO $ do
cb' <- mkScrolledWindowScrollChildCallback (scrolledWindowScrollChildCallbackWrapper cb)
connectSignalFunPtr obj "scroll-child" cb' after
-- object ScrolledWindowAccessible
newtype ScrolledWindowAccessible = ScrolledWindowAccessible (ForeignPtr ScrolledWindowAccessible)
noScrolledWindowAccessible :: Maybe ScrolledWindowAccessible
noScrolledWindowAccessible = Nothing
foreign import ccall "gtk_scrolled_window_accessible_get_type"
c_gtk_scrolled_window_accessible_get_type :: IO GType
type instance ParentTypes ScrolledWindowAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject ScrolledWindowAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_scrolled_window_accessible_get_type
class GObject o => ScrolledWindowAccessibleK o
instance (GObject o, IsDescendantOf ScrolledWindowAccessible o) => ScrolledWindowAccessibleK o
toScrolledWindowAccessible :: ScrolledWindowAccessibleK o => o -> IO ScrolledWindowAccessible
toScrolledWindowAccessible = unsafeCastTo ScrolledWindowAccessible
-- object SearchBar
newtype SearchBar = SearchBar (ForeignPtr SearchBar)
noSearchBar :: Maybe SearchBar
noSearchBar = Nothing
foreign import ccall "gtk_search_bar_get_type"
c_gtk_search_bar_get_type :: IO GType
type instance ParentTypes SearchBar = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject SearchBar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_search_bar_get_type
class GObject o => SearchBarK o
instance (GObject o, IsDescendantOf SearchBar o) => SearchBarK o
toSearchBar :: SearchBarK o => o -> IO SearchBar
toSearchBar = unsafeCastTo SearchBar
-- method SearchBar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "SearchBar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_new" gtk_search_bar_new ::
IO (Ptr SearchBar)
searchBarNew ::
(MonadIO m) =>
m SearchBar
searchBarNew = liftIO $ do
result <- gtk_search_bar_new
checkUnexpectedReturnNULL "gtk_search_bar_new" result
result' <- (newObject SearchBar) result
return result'
-- method SearchBar::connect_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_connect_entry" gtk_search_bar_connect_entry ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
Ptr Entry -> -- entry : TInterface "Gtk" "Entry"
IO ()
searchBarConnectEntry ::
(MonadIO m, SearchBarK a, EntryK b) =>
a -> -- _obj
b -> -- entry
m ()
searchBarConnectEntry _obj entry = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let entry' = unsafeManagedPtrCastPtr entry
gtk_search_bar_connect_entry _obj' entry'
touchManagedPtr _obj
touchManagedPtr entry
return ()
-- method SearchBar::get_search_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_get_search_mode" gtk_search_bar_get_search_mode ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
IO CInt
searchBarGetSearchMode ::
(MonadIO m, SearchBarK a) =>
a -> -- _obj
m Bool
searchBarGetSearchMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_search_bar_get_search_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SearchBar::get_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_get_show_close_button" gtk_search_bar_get_show_close_button ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
IO CInt
searchBarGetShowCloseButton ::
(MonadIO m, SearchBarK a) =>
a -> -- _obj
m Bool
searchBarGetShowCloseButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_search_bar_get_show_close_button _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SearchBar::handle_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_handle_event" gtk_search_bar_handle_event ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO CInt
searchBarHandleEvent ::
(MonadIO m, SearchBarK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Bool
searchBarHandleEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_search_bar_handle_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method SearchBar::set_search_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_set_search_mode" gtk_search_bar_set_search_mode ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
CInt -> -- search_mode : TBasicType TBoolean
IO ()
searchBarSetSearchMode ::
(MonadIO m, SearchBarK a) =>
a -> -- _obj
Bool -> -- search_mode
m ()
searchBarSetSearchMode _obj search_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let search_mode' = (fromIntegral . fromEnum) search_mode
gtk_search_bar_set_search_mode _obj' search_mode'
touchManagedPtr _obj
return ()
-- method SearchBar::set_show_close_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_bar_set_show_close_button" gtk_search_bar_set_show_close_button ::
Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar"
CInt -> -- visible : TBasicType TBoolean
IO ()
searchBarSetShowCloseButton ::
(MonadIO m, SearchBarK a) =>
a -> -- _obj
Bool -> -- visible
m ()
searchBarSetShowCloseButton _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_search_bar_set_show_close_button _obj' visible'
touchManagedPtr _obj
return ()
-- object SearchEntry
newtype SearchEntry = SearchEntry (ForeignPtr SearchEntry)
noSearchEntry :: Maybe SearchEntry
noSearchEntry = Nothing
foreign import ccall "gtk_search_entry_get_type"
c_gtk_search_entry_get_type :: IO GType
type instance ParentTypes SearchEntry = '[Entry, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable]
instance GObject SearchEntry where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_search_entry_get_type
class GObject o => SearchEntryK o
instance (GObject o, IsDescendantOf SearchEntry o) => SearchEntryK o
toSearchEntry :: SearchEntryK o => o -> IO SearchEntry
toSearchEntry = unsafeCastTo SearchEntry
-- method SearchEntry::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "SearchEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_entry_new" gtk_search_entry_new ::
IO (Ptr SearchEntry)
searchEntryNew ::
(MonadIO m) =>
m SearchEntry
searchEntryNew = liftIO $ do
result <- gtk_search_entry_new
checkUnexpectedReturnNULL "gtk_search_entry_new" result
result' <- (newObject SearchEntry) result
return result'
-- method SearchEntry::handle_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_search_entry_handle_event" gtk_search_entry_handle_event ::
Ptr SearchEntry -> -- _obj : TInterface "Gtk" "SearchEntry"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO CInt
searchEntryHandleEvent ::
(MonadIO m, SearchEntryK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Bool
searchEntryHandleEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_search_entry_handle_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- signal SearchEntry::next-match
type SearchEntryNextMatchCallback =
IO ()
noSearchEntryNextMatchCallback :: Maybe SearchEntryNextMatchCallback
noSearchEntryNextMatchCallback = Nothing
type SearchEntryNextMatchCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSearchEntryNextMatchCallback :: SearchEntryNextMatchCallbackC -> IO (FunPtr SearchEntryNextMatchCallbackC)
searchEntryNextMatchClosure :: SearchEntryNextMatchCallback -> IO Closure
searchEntryNextMatchClosure cb = newCClosure =<< mkSearchEntryNextMatchCallback wrapped
where wrapped = searchEntryNextMatchCallbackWrapper cb
searchEntryNextMatchCallbackWrapper ::
SearchEntryNextMatchCallback ->
Ptr () ->
Ptr () ->
IO ()
searchEntryNextMatchCallbackWrapper _cb _ _ = do
_cb
onSearchEntryNextMatch :: (GObject a, MonadIO m) => a -> SearchEntryNextMatchCallback -> m SignalHandlerId
onSearchEntryNextMatch obj cb = liftIO $ connectSearchEntryNextMatch obj cb SignalConnectBefore
afterSearchEntryNextMatch :: (GObject a, MonadIO m) => a -> SearchEntryNextMatchCallback -> m SignalHandlerId
afterSearchEntryNextMatch obj cb = connectSearchEntryNextMatch obj cb SignalConnectAfter
connectSearchEntryNextMatch :: (GObject a, MonadIO m) =>
a -> SearchEntryNextMatchCallback -> SignalConnectMode -> m SignalHandlerId
connectSearchEntryNextMatch obj cb after = liftIO $ do
cb' <- mkSearchEntryNextMatchCallback (searchEntryNextMatchCallbackWrapper cb)
connectSignalFunPtr obj "next-match" cb' after
-- signal SearchEntry::previous-match
type SearchEntryPreviousMatchCallback =
IO ()
noSearchEntryPreviousMatchCallback :: Maybe SearchEntryPreviousMatchCallback
noSearchEntryPreviousMatchCallback = Nothing
type SearchEntryPreviousMatchCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSearchEntryPreviousMatchCallback :: SearchEntryPreviousMatchCallbackC -> IO (FunPtr SearchEntryPreviousMatchCallbackC)
searchEntryPreviousMatchClosure :: SearchEntryPreviousMatchCallback -> IO Closure
searchEntryPreviousMatchClosure cb = newCClosure =<< mkSearchEntryPreviousMatchCallback wrapped
where wrapped = searchEntryPreviousMatchCallbackWrapper cb
searchEntryPreviousMatchCallbackWrapper ::
SearchEntryPreviousMatchCallback ->
Ptr () ->
Ptr () ->
IO ()
searchEntryPreviousMatchCallbackWrapper _cb _ _ = do
_cb
onSearchEntryPreviousMatch :: (GObject a, MonadIO m) => a -> SearchEntryPreviousMatchCallback -> m SignalHandlerId
onSearchEntryPreviousMatch obj cb = liftIO $ connectSearchEntryPreviousMatch obj cb SignalConnectBefore
afterSearchEntryPreviousMatch :: (GObject a, MonadIO m) => a -> SearchEntryPreviousMatchCallback -> m SignalHandlerId
afterSearchEntryPreviousMatch obj cb = connectSearchEntryPreviousMatch obj cb SignalConnectAfter
connectSearchEntryPreviousMatch :: (GObject a, MonadIO m) =>
a -> SearchEntryPreviousMatchCallback -> SignalConnectMode -> m SignalHandlerId
connectSearchEntryPreviousMatch obj cb after = liftIO $ do
cb' <- mkSearchEntryPreviousMatchCallback (searchEntryPreviousMatchCallbackWrapper cb)
connectSignalFunPtr obj "previous-match" cb' after
-- signal SearchEntry::search-changed
type SearchEntrySearchChangedCallback =
IO ()
noSearchEntrySearchChangedCallback :: Maybe SearchEntrySearchChangedCallback
noSearchEntrySearchChangedCallback = Nothing
type SearchEntrySearchChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSearchEntrySearchChangedCallback :: SearchEntrySearchChangedCallbackC -> IO (FunPtr SearchEntrySearchChangedCallbackC)
searchEntrySearchChangedClosure :: SearchEntrySearchChangedCallback -> IO Closure
searchEntrySearchChangedClosure cb = newCClosure =<< mkSearchEntrySearchChangedCallback wrapped
where wrapped = searchEntrySearchChangedCallbackWrapper cb
searchEntrySearchChangedCallbackWrapper ::
SearchEntrySearchChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
searchEntrySearchChangedCallbackWrapper _cb _ _ = do
_cb
onSearchEntrySearchChanged :: (GObject a, MonadIO m) => a -> SearchEntrySearchChangedCallback -> m SignalHandlerId
onSearchEntrySearchChanged obj cb = liftIO $ connectSearchEntrySearchChanged obj cb SignalConnectBefore
afterSearchEntrySearchChanged :: (GObject a, MonadIO m) => a -> SearchEntrySearchChangedCallback -> m SignalHandlerId
afterSearchEntrySearchChanged obj cb = connectSearchEntrySearchChanged obj cb SignalConnectAfter
connectSearchEntrySearchChanged :: (GObject a, MonadIO m) =>
a -> SearchEntrySearchChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectSearchEntrySearchChanged obj cb after = liftIO $ do
cb' <- mkSearchEntrySearchChangedCallback (searchEntrySearchChangedCallbackWrapper cb)
connectSignalFunPtr obj "search-changed" cb' after
-- signal SearchEntry::stop-search
type SearchEntryStopSearchCallback =
IO ()
noSearchEntryStopSearchCallback :: Maybe SearchEntryStopSearchCallback
noSearchEntryStopSearchCallback = Nothing
type SearchEntryStopSearchCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSearchEntryStopSearchCallback :: SearchEntryStopSearchCallbackC -> IO (FunPtr SearchEntryStopSearchCallbackC)
searchEntryStopSearchClosure :: SearchEntryStopSearchCallback -> IO Closure
searchEntryStopSearchClosure cb = newCClosure =<< mkSearchEntryStopSearchCallback wrapped
where wrapped = searchEntryStopSearchCallbackWrapper cb
searchEntryStopSearchCallbackWrapper ::
SearchEntryStopSearchCallback ->
Ptr () ->
Ptr () ->
IO ()
searchEntryStopSearchCallbackWrapper _cb _ _ = do
_cb
onSearchEntryStopSearch :: (GObject a, MonadIO m) => a -> SearchEntryStopSearchCallback -> m SignalHandlerId
onSearchEntryStopSearch obj cb = liftIO $ connectSearchEntryStopSearch obj cb SignalConnectBefore
afterSearchEntryStopSearch :: (GObject a, MonadIO m) => a -> SearchEntryStopSearchCallback -> m SignalHandlerId
afterSearchEntryStopSearch obj cb = connectSearchEntryStopSearch obj cb SignalConnectAfter
connectSearchEntryStopSearch :: (GObject a, MonadIO m) =>
a -> SearchEntryStopSearchCallback -> SignalConnectMode -> m SignalHandlerId
connectSearchEntryStopSearch obj cb after = liftIO $ do
cb' <- mkSearchEntryStopSearchCallback (searchEntryStopSearchCallbackWrapper cb)
connectSignalFunPtr obj "stop-search" cb' after
-- struct SelectionData
newtype SelectionData = SelectionData (ForeignPtr SelectionData)
noSelectionData :: Maybe SelectionData
noSelectionData = Nothing
foreign import ccall "gtk_selection_data_get_type" c_gtk_selection_data_get_type ::
IO GType
instance BoxedObject SelectionData where
boxedType _ = c_gtk_selection_data_get_type
-- method SelectionData::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionData"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_copy" gtk_selection_data_copy ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr SelectionData)
selectionDataCopy ::
(MonadIO m) =>
SelectionData -> -- _obj
m SelectionData
selectionDataCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_copy _obj'
checkUnexpectedReturnNULL "gtk_selection_data_copy" result
result' <- (wrapBoxed SelectionData) result
touchManagedPtr _obj
return result'
-- method SelectionData::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_free" gtk_selection_data_free ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO ()
selectionDataFree ::
(MonadIO m) =>
SelectionData -> -- _obj
m ()
selectionDataFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_selection_data_free _obj'
touchManagedPtr _obj
return ()
-- method SelectionData::get_data_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_data_type" gtk_selection_data_get_data_type ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr Gdk.Atom)
selectionDataGetDataType ::
(MonadIO m) =>
SelectionData -> -- _obj
m Gdk.Atom
selectionDataGetDataType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_data_type _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_data_type" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method SelectionData::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TBasicType TUInt8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_data_with_length" gtk_selection_data_get_data_with_length ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr Int32 -> -- length : TBasicType TInt32
IO (Ptr Word8)
selectionDataGetData ::
(MonadIO m) =>
SelectionData -> -- _obj
m ByteString
selectionDataGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
length_ <- allocMem :: IO (Ptr Int32)
result <- gtk_selection_data_get_data_with_length _obj' length_
length_' <- peek length_
checkUnexpectedReturnNULL "gtk_selection_data_get_data_with_length" result
result' <- (unpackByteStringWithLength length_') result
touchManagedPtr _obj
freeMem length_
return result'
-- method SelectionData::get_display
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Display"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_display" gtk_selection_data_get_display ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr Gdk.Display)
selectionDataGetDisplay ::
(MonadIO m) =>
SelectionData -> -- _obj
m Gdk.Display
selectionDataGetDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_display _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_display" result
result' <- (newObject Gdk.Display) result
touchManagedPtr _obj
return result'
-- method SelectionData::get_format
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_format" gtk_selection_data_get_format ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO Int32
selectionDataGetFormat ::
(MonadIO m) =>
SelectionData -> -- _obj
m Int32
selectionDataGetFormat _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_format _obj'
touchManagedPtr _obj
return result
-- method SelectionData::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_length" gtk_selection_data_get_length ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO Int32
selectionDataGetLength ::
(MonadIO m) =>
SelectionData -> -- _obj
m Int32
selectionDataGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_length _obj'
touchManagedPtr _obj
return result
-- method SelectionData::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_pixbuf" gtk_selection_data_get_pixbuf ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr GdkPixbuf.Pixbuf)
selectionDataGetPixbuf ::
(MonadIO m) =>
SelectionData -> -- _obj
m GdkPixbuf.Pixbuf
selectionDataGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method SelectionData::get_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_selection" gtk_selection_data_get_selection ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr Gdk.Atom)
selectionDataGetSelection ::
(MonadIO m) =>
SelectionData -> -- _obj
m Gdk.Atom
selectionDataGetSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_selection _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_selection" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method SelectionData::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_target" gtk_selection_data_get_target ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr Gdk.Atom)
selectionDataGetTarget ::
(MonadIO m) =>
SelectionData -> -- _obj
m Gdk.Atom
selectionDataGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_target _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_target" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method SelectionData::get_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_targets" gtk_selection_data_get_targets ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom")
Ptr Int32 -> -- n_atoms : TBasicType TInt32
IO CInt
selectionDataGetTargets ::
(MonadIO m) =>
SelectionData -> -- _obj
m (Bool,[Gdk.Atom])
selectionDataGetTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom)))
n_atoms <- allocMem :: IO (Ptr Int32)
result <- gtk_selection_data_get_targets _obj' targets n_atoms
n_atoms' <- peek n_atoms
let result' = (/= 0) result
targets' <- peek targets
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
targets'' <- (unpackPtrArrayWithLength n_atoms') targets'
targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets''
freeMem targets'
touchManagedPtr _obj
freeMem targets
freeMem n_atoms
return (result', targets''')
-- method SelectionData::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_text" gtk_selection_data_get_text ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO CString
selectionDataGetText ::
(MonadIO m) =>
SelectionData -> -- _obj
m T.Text
selectionDataGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_text _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method SelectionData::get_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_get_uris" gtk_selection_data_get_uris ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO (Ptr CString)
selectionDataGetUris ::
(MonadIO m) =>
SelectionData -> -- _obj
m [T.Text]
selectionDataGetUris _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_get_uris _obj'
checkUnexpectedReturnNULL "gtk_selection_data_get_uris" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
-- method SelectionData::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_set" gtk_selection_data_set ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr Gdk.Atom -> -- type : TInterface "Gdk" "Atom"
Int32 -> -- format : TBasicType TInt32
Ptr Word8 -> -- data : TCArray False (-1) 4 (TBasicType TUInt8)
Int32 -> -- length : TBasicType TInt32
IO ()
selectionDataSet ::
(MonadIO m) =>
SelectionData -> -- _obj
Gdk.Atom -> -- type
Int32 -> -- format
ByteString -> -- data
m ()
selectionDataSet _obj type_ format data_ = liftIO $ do
let length_ = fromIntegral $ B.length data_
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = unsafeManagedPtrGetPtr type_
data_' <- packByteString data_
gtk_selection_data_set _obj' type_' format data_' length_
touchManagedPtr _obj
touchManagedPtr type_
freeMem data_'
return ()
-- method SelectionData::set_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_set_pixbuf" gtk_selection_data_set_pixbuf ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO CInt
selectionDataSetPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
SelectionData -> -- _obj
a -> -- pixbuf
m Bool
selectionDataSetPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
result <- gtk_selection_data_set_pixbuf _obj' pixbuf'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr pixbuf
return result'
-- method SelectionData::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_set_text" gtk_selection_data_set_text ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
CString -> -- str : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO CInt
selectionDataSetText ::
(MonadIO m) =>
SelectionData -> -- _obj
T.Text -> -- str
Int32 -> -- len
m Bool
selectionDataSetText _obj str len = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
str' <- textToCString str
result <- gtk_selection_data_set_text _obj' str' len
let result' = (/= 0) result
touchManagedPtr _obj
freeMem str'
return result'
-- method SelectionData::set_uris
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_set_uris" gtk_selection_data_set_uris ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr CString -> -- uris : TCArray True (-1) (-1) (TBasicType TUTF8)
IO CInt
selectionDataSetUris ::
(MonadIO m) =>
SelectionData -> -- _obj
[T.Text] -> -- uris
m Bool
selectionDataSetUris _obj uris = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
uris' <- packZeroTerminatedUTF8CArray uris
result <- gtk_selection_data_set_uris _obj' uris'
let result' = (/= 0) result
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem uris'
freeMem uris'
return result'
-- method SelectionData::targets_include_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_targets_include_image" gtk_selection_data_targets_include_image ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
CInt -> -- writable : TBasicType TBoolean
IO CInt
selectionDataTargetsIncludeImage ::
(MonadIO m) =>
SelectionData -> -- _obj
Bool -> -- writable
m Bool
selectionDataTargetsIncludeImage _obj writable = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let writable' = (fromIntegral . fromEnum) writable
result <- gtk_selection_data_targets_include_image _obj' writable'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SelectionData::targets_include_rich_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_targets_include_rich_text" gtk_selection_data_targets_include_rich_text ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO CInt
selectionDataTargetsIncludeRichText ::
(MonadIO m, TextBufferK a) =>
SelectionData -> -- _obj
a -> -- buffer
m Bool
selectionDataTargetsIncludeRichText _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_selection_data_targets_include_rich_text _obj' buffer'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr buffer
return result'
-- method SelectionData::targets_include_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_targets_include_text" gtk_selection_data_targets_include_text ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO CInt
selectionDataTargetsIncludeText ::
(MonadIO m) =>
SelectionData -> -- _obj
m Bool
selectionDataTargetsIncludeText _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_targets_include_text _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SelectionData::targets_include_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_data_targets_include_uri" gtk_selection_data_targets_include_uri ::
Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData"
IO CInt
selectionDataTargetsIncludeUri ::
(MonadIO m) =>
SelectionData -> -- _obj
m Bool
selectionDataTargetsIncludeUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_selection_data_targets_include_uri _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- Enum SelectionMode
data SelectionMode =
SelectionModeNone
| SelectionModeSingle
| SelectionModeBrowse
| SelectionModeMultiple
| AnotherSelectionMode Int
deriving (Show, Eq)
instance Enum SelectionMode where
fromEnum SelectionModeNone = 0
fromEnum SelectionModeSingle = 1
fromEnum SelectionModeBrowse = 2
fromEnum SelectionModeMultiple = 3
fromEnum (AnotherSelectionMode k) = k
toEnum 0 = SelectionModeNone
toEnum 1 = SelectionModeSingle
toEnum 2 = SelectionModeBrowse
toEnum 3 = SelectionModeMultiple
toEnum k = AnotherSelectionMode k
foreign import ccall "gtk_selection_mode_get_type" c_gtk_selection_mode_get_type ::
IO GType
instance BoxedEnum SelectionMode where
boxedEnumType _ = c_gtk_selection_mode_get_type
-- Enum SensitivityType
data SensitivityType =
SensitivityTypeAuto
| SensitivityTypeOn
| SensitivityTypeOff
| AnotherSensitivityType Int
deriving (Show, Eq)
instance Enum SensitivityType where
fromEnum SensitivityTypeAuto = 0
fromEnum SensitivityTypeOn = 1
fromEnum SensitivityTypeOff = 2
fromEnum (AnotherSensitivityType k) = k
toEnum 0 = SensitivityTypeAuto
toEnum 1 = SensitivityTypeOn
toEnum 2 = SensitivityTypeOff
toEnum k = AnotherSensitivityType k
foreign import ccall "gtk_sensitivity_type_get_type" c_gtk_sensitivity_type_get_type ::
IO GType
instance BoxedEnum SensitivityType where
boxedEnumType _ = c_gtk_sensitivity_type_get_type
-- object Separator
newtype Separator = Separator (ForeignPtr Separator)
noSeparator :: Maybe Separator
noSeparator = Nothing
foreign import ccall "gtk_separator_get_type"
c_gtk_separator_get_type :: IO GType
type instance ParentTypes Separator = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Separator where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_separator_get_type
class GObject o => SeparatorK o
instance (GObject o, IsDescendantOf Separator o) => SeparatorK o
toSeparator :: SeparatorK o => o -> IO Separator
toSeparator = unsafeCastTo Separator
-- method Separator::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Separator"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_separator_new" gtk_separator_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO (Ptr Separator)
separatorNew ::
(MonadIO m) =>
Orientation -> -- orientation
m Separator
separatorNew orientation = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_separator_new orientation'
checkUnexpectedReturnNULL "gtk_separator_new" result
result' <- (newObject Separator) result
return result'
-- object SeparatorMenuItem
newtype SeparatorMenuItem = SeparatorMenuItem (ForeignPtr SeparatorMenuItem)
noSeparatorMenuItem :: Maybe SeparatorMenuItem
noSeparatorMenuItem = Nothing
foreign import ccall "gtk_separator_menu_item_get_type"
c_gtk_separator_menu_item_get_type :: IO GType
type instance ParentTypes SeparatorMenuItem = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject SeparatorMenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_separator_menu_item_get_type
class GObject o => SeparatorMenuItemK o
instance (GObject o, IsDescendantOf SeparatorMenuItem o) => SeparatorMenuItemK o
toSeparatorMenuItem :: SeparatorMenuItemK o => o -> IO SeparatorMenuItem
toSeparatorMenuItem = unsafeCastTo SeparatorMenuItem
-- method SeparatorMenuItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "SeparatorMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_separator_menu_item_new" gtk_separator_menu_item_new ::
IO (Ptr SeparatorMenuItem)
separatorMenuItemNew ::
(MonadIO m) =>
m SeparatorMenuItem
separatorMenuItemNew = liftIO $ do
result <- gtk_separator_menu_item_new
checkUnexpectedReturnNULL "gtk_separator_menu_item_new" result
result' <- (newObject SeparatorMenuItem) result
return result'
-- object SeparatorToolItem
newtype SeparatorToolItem = SeparatorToolItem (ForeignPtr SeparatorToolItem)
noSeparatorToolItem :: Maybe SeparatorToolItem
noSeparatorToolItem = Nothing
foreign import ccall "gtk_separator_tool_item_get_type"
c_gtk_separator_tool_item_get_type :: IO GType
type instance ParentTypes SeparatorToolItem = '[ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable]
instance GObject SeparatorToolItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_separator_tool_item_get_type
class GObject o => SeparatorToolItemK o
instance (GObject o, IsDescendantOf SeparatorToolItem o) => SeparatorToolItemK o
toSeparatorToolItem :: SeparatorToolItemK o => o -> IO SeparatorToolItem
toSeparatorToolItem = unsafeCastTo SeparatorToolItem
-- method SeparatorToolItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "SeparatorToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_separator_tool_item_new" gtk_separator_tool_item_new ::
IO (Ptr SeparatorToolItem)
separatorToolItemNew ::
(MonadIO m) =>
m SeparatorToolItem
separatorToolItemNew = liftIO $ do
result <- gtk_separator_tool_item_new
checkUnexpectedReturnNULL "gtk_separator_tool_item_new" result
result' <- (newObject SeparatorToolItem) result
return result'
-- method SeparatorToolItem::get_draw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_separator_tool_item_get_draw" gtk_separator_tool_item_get_draw ::
Ptr SeparatorToolItem -> -- _obj : TInterface "Gtk" "SeparatorToolItem"
IO CInt
separatorToolItemGetDraw ::
(MonadIO m, SeparatorToolItemK a) =>
a -> -- _obj
m Bool
separatorToolItemGetDraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_separator_tool_item_get_draw _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SeparatorToolItem::set_draw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_separator_tool_item_set_draw" gtk_separator_tool_item_set_draw ::
Ptr SeparatorToolItem -> -- _obj : TInterface "Gtk" "SeparatorToolItem"
CInt -> -- draw : TBasicType TBoolean
IO ()
separatorToolItemSetDraw ::
(MonadIO m, SeparatorToolItemK a) =>
a -> -- _obj
Bool -> -- draw
m ()
separatorToolItemSetDraw _obj draw = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw' = (fromIntegral . fromEnum) draw
gtk_separator_tool_item_set_draw _obj' draw'
touchManagedPtr _obj
return ()
-- object Settings
newtype Settings = Settings (ForeignPtr Settings)
noSettings :: Maybe Settings
noSettings = Nothing
foreign import ccall "gtk_settings_get_type"
c_gtk_settings_get_type :: IO GType
type instance ParentTypes Settings = '[GObject.Object, StyleProvider]
instance GObject Settings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_settings_get_type
class GObject o => SettingsK o
instance (GObject o, IsDescendantOf Settings o) => SettingsK o
toSettings :: SettingsK o => o -> IO Settings
toSettings = unsafeCastTo Settings
-- method Settings::set_double_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_set_double_property" gtk_settings_set_double_property ::
Ptr Settings -> -- _obj : TInterface "Gtk" "Settings"
CString -> -- name : TBasicType TUTF8
CDouble -> -- v_double : TBasicType TDouble
CString -> -- origin : TBasicType TUTF8
IO ()
{-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use g_object_set() instead."]#-}
settingsSetDoubleProperty ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
Double -> -- v_double
T.Text -> -- origin
m ()
settingsSetDoubleProperty _obj name v_double origin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let v_double' = realToFrac v_double
origin' <- textToCString origin
gtk_settings_set_double_property _obj' name' v_double' origin'
touchManagedPtr _obj
freeMem name'
freeMem origin'
return ()
-- method Settings::set_long_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_set_long_property" gtk_settings_set_long_property ::
Ptr Settings -> -- _obj : TInterface "Gtk" "Settings"
CString -> -- name : TBasicType TUTF8
Int64 -> -- v_long : TBasicType TInt64
CString -> -- origin : TBasicType TUTF8
IO ()
{-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use g_object_set() instead."]#-}
settingsSetLongProperty ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
Int64 -> -- v_long
T.Text -> -- origin
m ()
settingsSetLongProperty _obj name v_long origin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
origin' <- textToCString origin
gtk_settings_set_long_property _obj' name' v_long origin'
touchManagedPtr _obj
freeMem name'
freeMem origin'
return ()
-- method Settings::set_property_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_set_property_value" gtk_settings_set_property_value ::
Ptr Settings -> -- _obj : TInterface "Gtk" "Settings"
CString -> -- name : TBasicType TUTF8
Ptr SettingsValue -> -- svalue : TInterface "Gtk" "SettingsValue"
IO ()
{-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use g_object_set() instead."]#-}
settingsSetPropertyValue ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
SettingsValue -> -- svalue
m ()
settingsSetPropertyValue _obj name svalue = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let svalue' = unsafeManagedPtrGetPtr svalue
gtk_settings_set_property_value _obj' name' svalue'
touchManagedPtr _obj
touchManagedPtr svalue
freeMem name'
return ()
-- method Settings::set_string_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_set_string_property" gtk_settings_set_string_property ::
Ptr Settings -> -- _obj : TInterface "Gtk" "Settings"
CString -> -- name : TBasicType TUTF8
CString -> -- v_string : TBasicType TUTF8
CString -> -- origin : TBasicType TUTF8
IO ()
{-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use g_object_set() instead."]#-}
settingsSetStringProperty ::
(MonadIO m, SettingsK a) =>
a -> -- _obj
T.Text -> -- name
T.Text -> -- v_string
T.Text -> -- origin
m ()
settingsSetStringProperty _obj name v_string origin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
v_string' <- textToCString v_string
origin' <- textToCString origin
gtk_settings_set_string_property _obj' name' v_string' origin'
touchManagedPtr _obj
freeMem name'
freeMem v_string'
freeMem origin'
return ()
-- method Settings::get_default
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_get_default" gtk_settings_get_default ::
IO (Ptr Settings)
settingsGetDefault ::
(MonadIO m) =>
m Settings
settingsGetDefault = liftIO $ do
result <- gtk_settings_get_default
checkUnexpectedReturnNULL "gtk_settings_get_default" result
result' <- (newObject Settings) result
return result'
-- method Settings::get_for_screen
-- method type : MemberFunction
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_get_for_screen" gtk_settings_get_for_screen ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO (Ptr Settings)
settingsGetForScreen ::
(MonadIO m, Gdk.ScreenK a) =>
a -> -- screen
m Settings
settingsGetForScreen screen = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
result <- gtk_settings_get_for_screen screen'
checkUnexpectedReturnNULL "gtk_settings_get_for_screen" result
result' <- (newObject Settings) result
touchManagedPtr screen
return result'
-- method Settings::install_property
-- method type : MemberFunction
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_install_property" gtk_settings_install_property ::
Ptr GParamSpec -> -- pspec : TParamSpec
IO ()
{-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."]#-}
settingsInstallProperty ::
(MonadIO m) =>
GParamSpec -> -- pspec
m ()
settingsInstallProperty pspec = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
gtk_settings_install_property pspec'
return ()
-- method Settings::install_property_parser
-- method type : MemberFunction
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_settings_install_property_parser" gtk_settings_install_property_parser ::
Ptr GParamSpec -> -- pspec : TParamSpec
FunPtr RcPropertyParserC -> -- parser : TInterface "Gtk" "RcPropertyParser"
IO ()
{-# DEPRECATED settingsInstallPropertyParser ["(Since version 3.16)","This function is not useful outside GTK+."]#-}
settingsInstallPropertyParser ::
(MonadIO m) =>
GParamSpec -> -- pspec
RcPropertyParser -> -- parser
m ()
settingsInstallPropertyParser pspec parser = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
parser' <- mkRcPropertyParser (rcPropertyParserWrapper Nothing parser)
gtk_settings_install_property_parser pspec' parser'
safeFreeFunPtr $ castFunPtrToPtr parser'
return ()
-- struct SettingsValue
newtype SettingsValue = SettingsValue (ForeignPtr SettingsValue)
noSettingsValue :: Maybe SettingsValue
noSettingsValue = Nothing
settingsValueReadOrigin :: SettingsValue -> IO T.Text
settingsValueReadOrigin s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
settingsValueReadValue :: SettingsValue -> IO GValue
settingsValueReadValue s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue)
val' <- (newBoxed GValue) val
return val'
-- Enum ShadowType
data ShadowType =
ShadowTypeNone
| ShadowTypeIn
| ShadowTypeOut
| ShadowTypeEtchedIn
| ShadowTypeEtchedOut
| AnotherShadowType Int
deriving (Show, Eq)
instance Enum ShadowType where
fromEnum ShadowTypeNone = 0
fromEnum ShadowTypeIn = 1
fromEnum ShadowTypeOut = 2
fromEnum ShadowTypeEtchedIn = 3
fromEnum ShadowTypeEtchedOut = 4
fromEnum (AnotherShadowType k) = k
toEnum 0 = ShadowTypeNone
toEnum 1 = ShadowTypeIn
toEnum 2 = ShadowTypeOut
toEnum 3 = ShadowTypeEtchedIn
toEnum 4 = ShadowTypeEtchedOut
toEnum k = AnotherShadowType k
foreign import ccall "gtk_shadow_type_get_type" c_gtk_shadow_type_get_type ::
IO GType
instance BoxedEnum ShadowType where
boxedEnumType _ = c_gtk_shadow_type_get_type
-- object SizeGroup
newtype SizeGroup = SizeGroup (ForeignPtr SizeGroup)
noSizeGroup :: Maybe SizeGroup
noSizeGroup = Nothing
foreign import ccall "gtk_size_group_get_type"
c_gtk_size_group_get_type :: IO GType
type instance ParentTypes SizeGroup = '[GObject.Object, Buildable]
instance GObject SizeGroup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_size_group_get_type
class GObject o => SizeGroupK o
instance (GObject o, IsDescendantOf SizeGroup o) => SizeGroupK o
toSizeGroup :: SizeGroupK o => o -> IO SizeGroup
toSizeGroup = unsafeCastTo SizeGroup
-- method SizeGroup::new
-- method type : Constructor
-- Args : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_new" gtk_size_group_new ::
CUInt -> -- mode : TInterface "Gtk" "SizeGroupMode"
IO (Ptr SizeGroup)
sizeGroupNew ::
(MonadIO m) =>
SizeGroupMode -> -- mode
m SizeGroup
sizeGroupNew mode = liftIO $ do
let mode' = (fromIntegral . fromEnum) mode
result <- gtk_size_group_new mode'
checkUnexpectedReturnNULL "gtk_size_group_new" result
result' <- (wrapObject SizeGroup) result
return result'
-- method SizeGroup::add_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_add_widget" gtk_size_group_add_widget ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
sizeGroupAddWidget ::
(MonadIO m, SizeGroupK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m ()
sizeGroupAddWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_size_group_add_widget _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method SizeGroup::get_ignore_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_get_ignore_hidden" gtk_size_group_get_ignore_hidden ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
IO CInt
sizeGroupGetIgnoreHidden ::
(MonadIO m, SizeGroupK a) =>
a -> -- _obj
m Bool
sizeGroupGetIgnoreHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_size_group_get_ignore_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SizeGroup::get_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeGroupMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_get_mode" gtk_size_group_get_mode ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
IO CUInt
sizeGroupGetMode ::
(MonadIO m, SizeGroupK a) =>
a -> -- _obj
m SizeGroupMode
sizeGroupGetMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_size_group_get_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method SizeGroup::get_widgets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_get_widgets" gtk_size_group_get_widgets ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
IO (Ptr (GSList (Ptr Widget)))
sizeGroupGetWidgets ::
(MonadIO m, SizeGroupK a) =>
a -> -- _obj
m [Widget]
sizeGroupGetWidgets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_size_group_get_widgets _obj'
checkUnexpectedReturnNULL "gtk_size_group_get_widgets" result
result' <- unpackGSList result
result'' <- mapM (newObject Widget) result'
touchManagedPtr _obj
return result''
-- method SizeGroup::remove_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_remove_widget" gtk_size_group_remove_widget ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
sizeGroupRemoveWidget ::
(MonadIO m, SizeGroupK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
m ()
sizeGroupRemoveWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_size_group_remove_widget _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method SizeGroup::set_ignore_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_set_ignore_hidden" gtk_size_group_set_ignore_hidden ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
CInt -> -- ignore_hidden : TBasicType TBoolean
IO ()
sizeGroupSetIgnoreHidden ::
(MonadIO m, SizeGroupK a) =>
a -> -- _obj
Bool -> -- ignore_hidden
m ()
sizeGroupSetIgnoreHidden _obj ignore_hidden = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ignore_hidden' = (fromIntegral . fromEnum) ignore_hidden
gtk_size_group_set_ignore_hidden _obj' ignore_hidden'
touchManagedPtr _obj
return ()
-- method SizeGroup::set_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_size_group_set_mode" gtk_size_group_set_mode ::
Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup"
CUInt -> -- mode : TInterface "Gtk" "SizeGroupMode"
IO ()
sizeGroupSetMode ::
(MonadIO m, SizeGroupK a) =>
a -> -- _obj
SizeGroupMode -> -- mode
m ()
sizeGroupSetMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_size_group_set_mode _obj' mode'
touchManagedPtr _obj
return ()
-- Enum SizeGroupMode
data SizeGroupMode =
SizeGroupModeNone
| SizeGroupModeHorizontal
| SizeGroupModeVertical
| SizeGroupModeBoth
| AnotherSizeGroupMode Int
deriving (Show, Eq)
instance Enum SizeGroupMode where
fromEnum SizeGroupModeNone = 0
fromEnum SizeGroupModeHorizontal = 1
fromEnum SizeGroupModeVertical = 2
fromEnum SizeGroupModeBoth = 3
fromEnum (AnotherSizeGroupMode k) = k
toEnum 0 = SizeGroupModeNone
toEnum 1 = SizeGroupModeHorizontal
toEnum 2 = SizeGroupModeVertical
toEnum 3 = SizeGroupModeBoth
toEnum k = AnotherSizeGroupMode k
foreign import ccall "gtk_size_group_mode_get_type" c_gtk_size_group_mode_get_type ::
IO GType
instance BoxedEnum SizeGroupMode where
boxedEnumType _ = c_gtk_size_group_mode_get_type
-- Enum SizeRequestMode
data SizeRequestMode =
SizeRequestModeHeightForWidth
| SizeRequestModeWidthForHeight
| SizeRequestModeConstantSize
| AnotherSizeRequestMode Int
deriving (Show, Eq)
instance Enum SizeRequestMode where
fromEnum SizeRequestModeHeightForWidth = 0
fromEnum SizeRequestModeWidthForHeight = 1
fromEnum SizeRequestModeConstantSize = 2
fromEnum (AnotherSizeRequestMode k) = k
toEnum 0 = SizeRequestModeHeightForWidth
toEnum 1 = SizeRequestModeWidthForHeight
toEnum 2 = SizeRequestModeConstantSize
toEnum k = AnotherSizeRequestMode k
foreign import ccall "gtk_size_request_mode_get_type" c_gtk_size_request_mode_get_type ::
IO GType
instance BoxedEnum SizeRequestMode where
boxedEnumType _ = c_gtk_size_request_mode_get_type
-- object Socket
newtype Socket = Socket (ForeignPtr Socket)
noSocket :: Maybe Socket
noSocket = Nothing
foreign import ccall "gtk_socket_get_type"
c_gtk_socket_get_type :: IO GType
type instance ParentTypes Socket = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Socket where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_socket_get_type
class GObject o => SocketK o
instance (GObject o, IsDescendantOf Socket o) => SocketK o
toSocket :: SocketK o => o -> IO Socket
toSocket = unsafeCastTo Socket
-- method Socket::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Socket"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_socket_new" gtk_socket_new ::
IO (Ptr Socket)
socketNew ::
(MonadIO m) =>
m Socket
socketNew = liftIO $ do
result <- gtk_socket_new
checkUnexpectedReturnNULL "gtk_socket_new" result
result' <- (newObject Socket) result
return result'
-- method Socket::add_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_socket_add_id" gtk_socket_add_id ::
Ptr Socket -> -- _obj : TInterface "Gtk" "Socket"
Word64 -> -- window : TBasicType TUInt64
IO ()
socketAddId ::
(MonadIO m, SocketK a) =>
a -> -- _obj
Word64 -> -- window
m ()
socketAddId _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_socket_add_id _obj' window
touchManagedPtr _obj
return ()
-- method Socket::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gtk_socket_get_id" gtk_socket_get_id ::
Ptr Socket -> -- _obj : TInterface "Gtk" "Socket"
IO Word64
socketGetId ::
(MonadIO m, SocketK a) =>
a -> -- _obj
m Word64
socketGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_socket_get_id _obj'
touchManagedPtr _obj
return result
-- method Socket::get_plug_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_socket_get_plug_window" gtk_socket_get_plug_window ::
Ptr Socket -> -- _obj : TInterface "Gtk" "Socket"
IO (Ptr Gdk.Window)
socketGetPlugWindow ::
(MonadIO m, SocketK a) =>
a -> -- _obj
m Gdk.Window
socketGetPlugWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_socket_get_plug_window _obj'
checkUnexpectedReturnNULL "gtk_socket_get_plug_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- signal Socket::plug-added
type SocketPlugAddedCallback =
IO ()
noSocketPlugAddedCallback :: Maybe SocketPlugAddedCallback
noSocketPlugAddedCallback = Nothing
type SocketPlugAddedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSocketPlugAddedCallback :: SocketPlugAddedCallbackC -> IO (FunPtr SocketPlugAddedCallbackC)
socketPlugAddedClosure :: SocketPlugAddedCallback -> IO Closure
socketPlugAddedClosure cb = newCClosure =<< mkSocketPlugAddedCallback wrapped
where wrapped = socketPlugAddedCallbackWrapper cb
socketPlugAddedCallbackWrapper ::
SocketPlugAddedCallback ->
Ptr () ->
Ptr () ->
IO ()
socketPlugAddedCallbackWrapper _cb _ _ = do
_cb
onSocketPlugAdded :: (GObject a, MonadIO m) => a -> SocketPlugAddedCallback -> m SignalHandlerId
onSocketPlugAdded obj cb = liftIO $ connectSocketPlugAdded obj cb SignalConnectBefore
afterSocketPlugAdded :: (GObject a, MonadIO m) => a -> SocketPlugAddedCallback -> m SignalHandlerId
afterSocketPlugAdded obj cb = connectSocketPlugAdded obj cb SignalConnectAfter
connectSocketPlugAdded :: (GObject a, MonadIO m) =>
a -> SocketPlugAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectSocketPlugAdded obj cb after = liftIO $ do
cb' <- mkSocketPlugAddedCallback (socketPlugAddedCallbackWrapper cb)
connectSignalFunPtr obj "plug-added" cb' after
-- signal Socket::plug-removed
type SocketPlugRemovedCallback =
IO Bool
noSocketPlugRemovedCallback :: Maybe SocketPlugRemovedCallback
noSocketPlugRemovedCallback = Nothing
type SocketPlugRemovedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSocketPlugRemovedCallback :: SocketPlugRemovedCallbackC -> IO (FunPtr SocketPlugRemovedCallbackC)
socketPlugRemovedClosure :: SocketPlugRemovedCallback -> IO Closure
socketPlugRemovedClosure cb = newCClosure =<< mkSocketPlugRemovedCallback wrapped
where wrapped = socketPlugRemovedCallbackWrapper cb
socketPlugRemovedCallbackWrapper ::
SocketPlugRemovedCallback ->
Ptr () ->
Ptr () ->
IO CInt
socketPlugRemovedCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onSocketPlugRemoved :: (GObject a, MonadIO m) => a -> SocketPlugRemovedCallback -> m SignalHandlerId
onSocketPlugRemoved obj cb = liftIO $ connectSocketPlugRemoved obj cb SignalConnectBefore
afterSocketPlugRemoved :: (GObject a, MonadIO m) => a -> SocketPlugRemovedCallback -> m SignalHandlerId
afterSocketPlugRemoved obj cb = connectSocketPlugRemoved obj cb SignalConnectAfter
connectSocketPlugRemoved :: (GObject a, MonadIO m) =>
a -> SocketPlugRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectSocketPlugRemoved obj cb after = liftIO $ do
cb' <- mkSocketPlugRemovedCallback (socketPlugRemovedCallbackWrapper cb)
connectSignalFunPtr obj "plug-removed" cb' after
-- Enum SortType
data SortType =
SortTypeAscending
| SortTypeDescending
| AnotherSortType Int
deriving (Show, Eq)
instance Enum SortType where
fromEnum SortTypeAscending = 0
fromEnum SortTypeDescending = 1
fromEnum (AnotherSortType k) = k
toEnum 0 = SortTypeAscending
toEnum 1 = SortTypeDescending
toEnum k = AnotherSortType k
foreign import ccall "gtk_sort_type_get_type" c_gtk_sort_type_get_type ::
IO GType
instance BoxedEnum SortType where
boxedEnumType _ = c_gtk_sort_type_get_type
-- object SpinButton
newtype SpinButton = SpinButton (ForeignPtr SpinButton)
noSpinButton :: Maybe SpinButton
noSpinButton = Nothing
foreign import ccall "gtk_spin_button_get_type"
c_gtk_spin_button_get_type :: IO GType
type instance ParentTypes SpinButton = '[Entry, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable, Orientable]
instance GObject SpinButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_spin_button_get_type
class GObject o => SpinButtonK o
instance (GObject o, IsDescendantOf SpinButton o) => SpinButtonK o
toSpinButton :: SpinButtonK o => o -> IO SpinButton
toSpinButton = unsafeCastTo SpinButton
-- method SpinButton::new
-- method type : Constructor
-- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SpinButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_new" gtk_spin_button_new ::
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
CDouble -> -- climb_rate : TBasicType TDouble
Word32 -> -- digits : TBasicType TUInt32
IO (Ptr SpinButton)
spinButtonNew ::
(MonadIO m, AdjustmentK a) =>
Maybe (a) -> -- adjustment
Double -> -- climb_rate
Word32 -> -- digits
m SpinButton
spinButtonNew adjustment climb_rate digits = liftIO $ do
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
let climb_rate' = realToFrac climb_rate
result <- gtk_spin_button_new maybeAdjustment climb_rate' digits
checkUnexpectedReturnNULL "gtk_spin_button_new" result
result' <- (newObject SpinButton) result
whenJust adjustment touchManagedPtr
return result'
-- method SpinButton::new_with_range
-- method type : Constructor
-- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SpinButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_new_with_range" gtk_spin_button_new_with_range ::
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
CDouble -> -- step : TBasicType TDouble
IO (Ptr SpinButton)
spinButtonNewWithRange ::
(MonadIO m) =>
Double -> -- min
Double -> -- max
Double -> -- step
m SpinButton
spinButtonNewWithRange min max step = liftIO $ do
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_spin_button_new_with_range min' max' step'
checkUnexpectedReturnNULL "gtk_spin_button_new_with_range" result
result' <- (newObject SpinButton) result
return result'
-- method SpinButton::configure
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_configure" gtk_spin_button_configure ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
CDouble -> -- climb_rate : TBasicType TDouble
Word32 -> -- digits : TBasicType TUInt32
IO ()
spinButtonConfigure ::
(MonadIO m, SpinButtonK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
Double -> -- climb_rate
Word32 -> -- digits
m ()
spinButtonConfigure _obj adjustment climb_rate digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
let climb_rate' = realToFrac climb_rate
gtk_spin_button_configure _obj' maybeAdjustment climb_rate' digits
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method SpinButton::get_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_adjustment" gtk_spin_button_get_adjustment ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO (Ptr Adjustment)
spinButtonGetAdjustment ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Adjustment
spinButtonGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_spin_button_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method SpinButton::get_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_digits" gtk_spin_button_get_digits ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO Word32
spinButtonGetDigits ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Word32
spinButtonGetDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_digits _obj'
touchManagedPtr _obj
return result
-- method SpinButton::get_increments
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_increments" gtk_spin_button_get_increments ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
Ptr CDouble -> -- step : TBasicType TDouble
Ptr CDouble -> -- page : TBasicType TDouble
IO ()
spinButtonGetIncrements ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m (Double,Double)
spinButtonGetIncrements _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
step <- allocMem :: IO (Ptr CDouble)
page <- allocMem :: IO (Ptr CDouble)
gtk_spin_button_get_increments _obj' step page
step' <- peek step
let step'' = realToFrac step'
page' <- peek page
let page'' = realToFrac page'
touchManagedPtr _obj
freeMem step
freeMem page
return (step'', page'')
-- method SpinButton::get_numeric
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_numeric" gtk_spin_button_get_numeric ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO CInt
spinButtonGetNumeric ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Bool
spinButtonGetNumeric _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_numeric _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SpinButton::get_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_range" gtk_spin_button_get_range ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
Ptr CDouble -> -- min : TBasicType TDouble
Ptr CDouble -> -- max : TBasicType TDouble
IO ()
spinButtonGetRange ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m (Double,Double)
spinButtonGetRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
min <- allocMem :: IO (Ptr CDouble)
max <- allocMem :: IO (Ptr CDouble)
gtk_spin_button_get_range _obj' min max
min' <- peek min
let min'' = realToFrac min'
max' <- peek max
let max'' = realToFrac max'
touchManagedPtr _obj
freeMem min
freeMem max
return (min'', max'')
-- method SpinButton::get_snap_to_ticks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_snap_to_ticks" gtk_spin_button_get_snap_to_ticks ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO CInt
spinButtonGetSnapToTicks ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Bool
spinButtonGetSnapToTicks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_snap_to_ticks _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SpinButton::get_update_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SpinButtonUpdatePolicy"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_update_policy" gtk_spin_button_get_update_policy ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO CUInt
spinButtonGetUpdatePolicy ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m SpinButtonUpdatePolicy
spinButtonGetUpdatePolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_update_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method SpinButton::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_value" gtk_spin_button_get_value ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO CDouble
spinButtonGetValue ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Double
spinButtonGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method SpinButton::get_value_as_int
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_value_as_int" gtk_spin_button_get_value_as_int ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO Int32
spinButtonGetValueAsInt ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Int32
spinButtonGetValueAsInt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_value_as_int _obj'
touchManagedPtr _obj
return result
-- method SpinButton::get_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_get_wrap" gtk_spin_button_get_wrap ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO CInt
spinButtonGetWrap ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m Bool
spinButtonGetWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method SpinButton::set_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_adjustment" gtk_spin_button_set_adjustment ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
spinButtonSetAdjustment ::
(MonadIO m, SpinButtonK a, AdjustmentK b) =>
a -> -- _obj
b -> -- adjustment
m ()
spinButtonSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_spin_button_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
-- method SpinButton::set_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_digits" gtk_spin_button_set_digits ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
Word32 -> -- digits : TBasicType TUInt32
IO ()
spinButtonSetDigits ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Word32 -> -- digits
m ()
spinButtonSetDigits _obj digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spin_button_set_digits _obj' digits
touchManagedPtr _obj
return ()
-- method SpinButton::set_increments
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_increments" gtk_spin_button_set_increments ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CDouble -> -- step : TBasicType TDouble
CDouble -> -- page : TBasicType TDouble
IO ()
spinButtonSetIncrements ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Double -> -- step
Double -> -- page
m ()
spinButtonSetIncrements _obj step page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step' = realToFrac step
let page' = realToFrac page
gtk_spin_button_set_increments _obj' step' page'
touchManagedPtr _obj
return ()
-- method SpinButton::set_numeric
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_numeric" gtk_spin_button_set_numeric ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CInt -> -- numeric : TBasicType TBoolean
IO ()
spinButtonSetNumeric ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Bool -> -- numeric
m ()
spinButtonSetNumeric _obj numeric = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let numeric' = (fromIntegral . fromEnum) numeric
gtk_spin_button_set_numeric _obj' numeric'
touchManagedPtr _obj
return ()
-- method SpinButton::set_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_range" gtk_spin_button_set_range ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
IO ()
spinButtonSetRange ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Double -> -- min
Double -> -- max
m ()
spinButtonSetRange _obj min max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let min' = realToFrac min
let max' = realToFrac max
gtk_spin_button_set_range _obj' min' max'
touchManagedPtr _obj
return ()
-- method SpinButton::set_snap_to_ticks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_snap_to_ticks" gtk_spin_button_set_snap_to_ticks ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CInt -> -- snap_to_ticks : TBasicType TBoolean
IO ()
spinButtonSetSnapToTicks ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Bool -> -- snap_to_ticks
m ()
spinButtonSetSnapToTicks _obj snap_to_ticks = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let snap_to_ticks' = (fromIntegral . fromEnum) snap_to_ticks
gtk_spin_button_set_snap_to_ticks _obj' snap_to_ticks'
touchManagedPtr _obj
return ()
-- method SpinButton::set_update_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_update_policy" gtk_spin_button_set_update_policy ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CUInt -> -- policy : TInterface "Gtk" "SpinButtonUpdatePolicy"
IO ()
spinButtonSetUpdatePolicy ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
SpinButtonUpdatePolicy -> -- policy
m ()
spinButtonSetUpdatePolicy _obj policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let policy' = (fromIntegral . fromEnum) policy
gtk_spin_button_set_update_policy _obj' policy'
touchManagedPtr _obj
return ()
-- method SpinButton::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_value" gtk_spin_button_set_value ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CDouble -> -- value : TBasicType TDouble
IO ()
spinButtonSetValue ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Double -> -- value
m ()
spinButtonSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_spin_button_set_value _obj' value'
touchManagedPtr _obj
return ()
-- method SpinButton::set_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_set_wrap" gtk_spin_button_set_wrap ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CInt -> -- wrap : TBasicType TBoolean
IO ()
spinButtonSetWrap ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
Bool -> -- wrap
m ()
spinButtonSetWrap _obj wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap' = (fromIntegral . fromEnum) wrap
gtk_spin_button_set_wrap _obj' wrap'
touchManagedPtr _obj
return ()
-- method SpinButton::spin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_spin" gtk_spin_button_spin ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
CUInt -> -- direction : TInterface "Gtk" "SpinType"
CDouble -> -- increment : TBasicType TDouble
IO ()
spinButtonSpin ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
SpinType -> -- direction
Double -> -- increment
m ()
spinButtonSpin _obj direction increment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
let increment' = realToFrac increment
gtk_spin_button_spin _obj' direction' increment'
touchManagedPtr _obj
return ()
-- method SpinButton::update
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spin_button_update" gtk_spin_button_update ::
Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton"
IO ()
spinButtonUpdate ::
(MonadIO m, SpinButtonK a) =>
a -> -- _obj
m ()
spinButtonUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spin_button_update _obj'
touchManagedPtr _obj
return ()
-- signal SpinButton::change-value
type SpinButtonChangeValueCallback =
ScrollType ->
IO ()
noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback
noSpinButtonChangeValueCallback = Nothing
type SpinButtonChangeValueCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSpinButtonChangeValueCallback :: SpinButtonChangeValueCallbackC -> IO (FunPtr SpinButtonChangeValueCallbackC)
spinButtonChangeValueClosure :: SpinButtonChangeValueCallback -> IO Closure
spinButtonChangeValueClosure cb = newCClosure =<< mkSpinButtonChangeValueCallback wrapped
where wrapped = spinButtonChangeValueCallbackWrapper cb
spinButtonChangeValueCallbackWrapper ::
SpinButtonChangeValueCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
spinButtonChangeValueCallbackWrapper _cb _ scroll _ = do
let scroll' = (toEnum . fromIntegral) scroll
_cb scroll'
onSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
onSpinButtonChangeValue obj cb = liftIO $ connectSpinButtonChangeValue obj cb SignalConnectBefore
afterSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
afterSpinButtonChangeValue obj cb = connectSpinButtonChangeValue obj cb SignalConnectAfter
connectSpinButtonChangeValue :: (GObject a, MonadIO m) =>
a -> SpinButtonChangeValueCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonChangeValue obj cb after = liftIO $ do
cb' <- mkSpinButtonChangeValueCallback (spinButtonChangeValueCallbackWrapper cb)
connectSignalFunPtr obj "change-value" cb' after
-- signal SpinButton::input
type SpinButtonInputCallback =
IO (Int32,Double)
noSpinButtonInputCallback :: Maybe SpinButtonInputCallback
noSpinButtonInputCallback = Nothing
type SpinButtonInputCallbackC =
Ptr () -> -- object
Ptr CDouble ->
Ptr () -> -- user_data
IO Int32
foreign import ccall "wrapper"
mkSpinButtonInputCallback :: SpinButtonInputCallbackC -> IO (FunPtr SpinButtonInputCallbackC)
spinButtonInputClosure :: SpinButtonInputCallback -> IO Closure
spinButtonInputClosure cb = newCClosure =<< mkSpinButtonInputCallback wrapped
where wrapped = spinButtonInputCallbackWrapper cb
spinButtonInputCallbackWrapper ::
SpinButtonInputCallback ->
Ptr () ->
Ptr CDouble ->
Ptr () ->
IO Int32
spinButtonInputCallbackWrapper _cb _ new_value _ = do
(result, outnew_value) <- _cb
let outnew_value' = realToFrac outnew_value
poke new_value outnew_value'
return result
onSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
onSpinButtonInput obj cb = liftIO $ connectSpinButtonInput obj cb SignalConnectBefore
afterSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
afterSpinButtonInput obj cb = connectSpinButtonInput obj cb SignalConnectAfter
connectSpinButtonInput :: (GObject a, MonadIO m) =>
a -> SpinButtonInputCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonInput obj cb after = liftIO $ do
cb' <- mkSpinButtonInputCallback (spinButtonInputCallbackWrapper cb)
connectSignalFunPtr obj "input" cb' after
-- signal SpinButton::output
type SpinButtonOutputCallback =
IO Bool
noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback
noSpinButtonOutputCallback = Nothing
type SpinButtonOutputCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSpinButtonOutputCallback :: SpinButtonOutputCallbackC -> IO (FunPtr SpinButtonOutputCallbackC)
spinButtonOutputClosure :: SpinButtonOutputCallback -> IO Closure
spinButtonOutputClosure cb = newCClosure =<< mkSpinButtonOutputCallback wrapped
where wrapped = spinButtonOutputCallbackWrapper cb
spinButtonOutputCallbackWrapper ::
SpinButtonOutputCallback ->
Ptr () ->
Ptr () ->
IO CInt
spinButtonOutputCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
onSpinButtonOutput obj cb = liftIO $ connectSpinButtonOutput obj cb SignalConnectBefore
afterSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
afterSpinButtonOutput obj cb = connectSpinButtonOutput obj cb SignalConnectAfter
connectSpinButtonOutput :: (GObject a, MonadIO m) =>
a -> SpinButtonOutputCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonOutput obj cb after = liftIO $ do
cb' <- mkSpinButtonOutputCallback (spinButtonOutputCallbackWrapper cb)
connectSignalFunPtr obj "output" cb' after
-- signal SpinButton::value-changed
type SpinButtonValueChangedCallback =
IO ()
noSpinButtonValueChangedCallback :: Maybe SpinButtonValueChangedCallback
noSpinButtonValueChangedCallback = Nothing
type SpinButtonValueChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSpinButtonValueChangedCallback :: SpinButtonValueChangedCallbackC -> IO (FunPtr SpinButtonValueChangedCallbackC)
spinButtonValueChangedClosure :: SpinButtonValueChangedCallback -> IO Closure
spinButtonValueChangedClosure cb = newCClosure =<< mkSpinButtonValueChangedCallback wrapped
where wrapped = spinButtonValueChangedCallbackWrapper cb
spinButtonValueChangedCallbackWrapper ::
SpinButtonValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
spinButtonValueChangedCallbackWrapper _cb _ _ = do
_cb
onSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
onSpinButtonValueChanged obj cb = liftIO $ connectSpinButtonValueChanged obj cb SignalConnectBefore
afterSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
afterSpinButtonValueChanged obj cb = connectSpinButtonValueChanged obj cb SignalConnectAfter
connectSpinButtonValueChanged :: (GObject a, MonadIO m) =>
a -> SpinButtonValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonValueChanged obj cb after = liftIO $ do
cb' <- mkSpinButtonValueChangedCallback (spinButtonValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
-- signal SpinButton::wrapped
type SpinButtonWrappedCallback =
IO ()
noSpinButtonWrappedCallback :: Maybe SpinButtonWrappedCallback
noSpinButtonWrappedCallback = Nothing
type SpinButtonWrappedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSpinButtonWrappedCallback :: SpinButtonWrappedCallbackC -> IO (FunPtr SpinButtonWrappedCallbackC)
spinButtonWrappedClosure :: SpinButtonWrappedCallback -> IO Closure
spinButtonWrappedClosure cb = newCClosure =<< mkSpinButtonWrappedCallback wrapped
where wrapped = spinButtonWrappedCallbackWrapper cb
spinButtonWrappedCallbackWrapper ::
SpinButtonWrappedCallback ->
Ptr () ->
Ptr () ->
IO ()
spinButtonWrappedCallbackWrapper _cb _ _ = do
_cb
onSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
onSpinButtonWrapped obj cb = liftIO $ connectSpinButtonWrapped obj cb SignalConnectBefore
afterSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
afterSpinButtonWrapped obj cb = connectSpinButtonWrapped obj cb SignalConnectAfter
connectSpinButtonWrapped :: (GObject a, MonadIO m) =>
a -> SpinButtonWrappedCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonWrapped obj cb after = liftIO $ do
cb' <- mkSpinButtonWrappedCallback (spinButtonWrappedCallbackWrapper cb)
connectSignalFunPtr obj "wrapped" cb' after
-- object SpinButtonAccessible
newtype SpinButtonAccessible = SpinButtonAccessible (ForeignPtr SpinButtonAccessible)
noSpinButtonAccessible :: Maybe SpinButtonAccessible
noSpinButtonAccessible = Nothing
foreign import ccall "gtk_spin_button_accessible_get_type"
c_gtk_spin_button_accessible_get_type :: IO GType
type instance ParentTypes SpinButtonAccessible = '[EntryAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.EditableText, Atk.Text, Atk.Value]
instance GObject SpinButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_spin_button_accessible_get_type
class GObject o => SpinButtonAccessibleK o
instance (GObject o, IsDescendantOf SpinButtonAccessible o) => SpinButtonAccessibleK o
toSpinButtonAccessible :: SpinButtonAccessibleK o => o -> IO SpinButtonAccessible
toSpinButtonAccessible = unsafeCastTo SpinButtonAccessible
-- Enum SpinButtonUpdatePolicy
data SpinButtonUpdatePolicy =
SpinButtonUpdatePolicyAlways
| SpinButtonUpdatePolicyIfValid
| AnotherSpinButtonUpdatePolicy Int
deriving (Show, Eq)
instance Enum SpinButtonUpdatePolicy where
fromEnum SpinButtonUpdatePolicyAlways = 0
fromEnum SpinButtonUpdatePolicyIfValid = 1
fromEnum (AnotherSpinButtonUpdatePolicy k) = k
toEnum 0 = SpinButtonUpdatePolicyAlways
toEnum 1 = SpinButtonUpdatePolicyIfValid
toEnum k = AnotherSpinButtonUpdatePolicy k
foreign import ccall "gtk_spin_button_update_policy_get_type" c_gtk_spin_button_update_policy_get_type ::
IO GType
instance BoxedEnum SpinButtonUpdatePolicy where
boxedEnumType _ = c_gtk_spin_button_update_policy_get_type
-- Enum SpinType
data SpinType =
SpinTypeStepForward
| SpinTypeStepBackward
| SpinTypePageForward
| SpinTypePageBackward
| SpinTypeHome
| SpinTypeEnd
| SpinTypeUserDefined
| AnotherSpinType Int
deriving (Show, Eq)
instance Enum SpinType where
fromEnum SpinTypeStepForward = 0
fromEnum SpinTypeStepBackward = 1
fromEnum SpinTypePageForward = 2
fromEnum SpinTypePageBackward = 3
fromEnum SpinTypeHome = 4
fromEnum SpinTypeEnd = 5
fromEnum SpinTypeUserDefined = 6
fromEnum (AnotherSpinType k) = k
toEnum 0 = SpinTypeStepForward
toEnum 1 = SpinTypeStepBackward
toEnum 2 = SpinTypePageForward
toEnum 3 = SpinTypePageBackward
toEnum 4 = SpinTypeHome
toEnum 5 = SpinTypeEnd
toEnum 6 = SpinTypeUserDefined
toEnum k = AnotherSpinType k
foreign import ccall "gtk_spin_type_get_type" c_gtk_spin_type_get_type ::
IO GType
instance BoxedEnum SpinType where
boxedEnumType _ = c_gtk_spin_type_get_type
-- object Spinner
newtype Spinner = Spinner (ForeignPtr Spinner)
noSpinner :: Maybe Spinner
noSpinner = Nothing
foreign import ccall "gtk_spinner_get_type"
c_gtk_spinner_get_type :: IO GType
type instance ParentTypes Spinner = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Spinner where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_spinner_get_type
class GObject o => SpinnerK o
instance (GObject o, IsDescendantOf Spinner o) => SpinnerK o
toSpinner :: SpinnerK o => o -> IO Spinner
toSpinner = unsafeCastTo Spinner
-- method Spinner::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Spinner"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spinner_new" gtk_spinner_new ::
IO (Ptr Spinner)
spinnerNew ::
(MonadIO m) =>
m Spinner
spinnerNew = liftIO $ do
result <- gtk_spinner_new
checkUnexpectedReturnNULL "gtk_spinner_new" result
result' <- (newObject Spinner) result
return result'
-- method Spinner::start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spinner_start" gtk_spinner_start ::
Ptr Spinner -> -- _obj : TInterface "Gtk" "Spinner"
IO ()
spinnerStart ::
(MonadIO m, SpinnerK a) =>
a -> -- _obj
m ()
spinnerStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spinner_start _obj'
touchManagedPtr _obj
return ()
-- method Spinner::stop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_spinner_stop" gtk_spinner_stop ::
Ptr Spinner -> -- _obj : TInterface "Gtk" "Spinner"
IO ()
spinnerStop ::
(MonadIO m, SpinnerK a) =>
a -> -- _obj
m ()
spinnerStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spinner_stop _obj'
touchManagedPtr _obj
return ()
-- object SpinnerAccessible
newtype SpinnerAccessible = SpinnerAccessible (ForeignPtr SpinnerAccessible)
noSpinnerAccessible :: Maybe SpinnerAccessible
noSpinnerAccessible = Nothing
foreign import ccall "gtk_spinner_accessible_get_type"
c_gtk_spinner_accessible_get_type :: IO GType
type instance ParentTypes SpinnerAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image]
instance GObject SpinnerAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_spinner_accessible_get_type
class GObject o => SpinnerAccessibleK o
instance (GObject o, IsDescendantOf SpinnerAccessible o) => SpinnerAccessibleK o
toSpinnerAccessible :: SpinnerAccessibleK o => o -> IO SpinnerAccessible
toSpinnerAccessible = unsafeCastTo SpinnerAccessible
-- object Stack
newtype Stack = Stack (ForeignPtr Stack)
noStack :: Maybe Stack
noStack = Nothing
foreign import ccall "gtk_stack_get_type"
c_gtk_stack_get_type :: IO GType
type instance ParentTypes Stack = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Stack where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_stack_get_type
class GObject o => StackK o
instance (GObject o, IsDescendantOf Stack o) => StackK o
toStack :: StackK o => o -> IO Stack
toStack = unsafeCastTo Stack
-- method Stack::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Stack"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_new" gtk_stack_new ::
IO (Ptr Stack)
stackNew ::
(MonadIO m) =>
m Stack
stackNew = liftIO $ do
result <- gtk_stack_new
checkUnexpectedReturnNULL "gtk_stack_new" result
result' <- (newObject Stack) result
return result'
-- method Stack::add_named
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_add_named" gtk_stack_add_named ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
IO ()
stackAddNamed ::
(MonadIO m, StackK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- name
m ()
stackAddNamed _obj child name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
name' <- textToCString name
gtk_stack_add_named _obj' child' name'
touchManagedPtr _obj
touchManagedPtr child
freeMem name'
return ()
-- method Stack::add_titled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_add_titled" gtk_stack_add_titled ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
CString -> -- title : TBasicType TUTF8
IO ()
stackAddTitled ::
(MonadIO m, StackK a, WidgetK b) =>
a -> -- _obj
b -> -- child
T.Text -> -- name
T.Text -> -- title
m ()
stackAddTitled _obj child name title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
name' <- textToCString name
title' <- textToCString title
gtk_stack_add_titled _obj' child' name' title'
touchManagedPtr _obj
touchManagedPtr child
freeMem name'
freeMem title'
return ()
-- method Stack::get_child_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_child_by_name" gtk_stack_get_child_by_name ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CString -> -- name : TBasicType TUTF8
IO (Ptr Widget)
stackGetChildByName ::
(MonadIO m, StackK a) =>
a -> -- _obj
T.Text -> -- name
m Widget
stackGetChildByName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_stack_get_child_by_name _obj' name'
checkUnexpectedReturnNULL "gtk_stack_get_child_by_name" result
result' <- (newObject Widget) result
touchManagedPtr _obj
freeMem name'
return result'
-- method Stack::get_hhomogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_hhomogeneous" gtk_stack_get_hhomogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CInt
stackGetHhomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Bool
stackGetHhomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_hhomogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Stack::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_homogeneous" gtk_stack_get_homogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CInt
stackGetHomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Bool
stackGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Stack::get_interpolate_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_interpolate_size" gtk_stack_get_interpolate_size ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CInt
stackGetInterpolateSize ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Bool
stackGetInterpolateSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_interpolate_size _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Stack::get_transition_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_transition_duration" gtk_stack_get_transition_duration ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO Word32
stackGetTransitionDuration ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Word32
stackGetTransitionDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_transition_duration _obj'
touchManagedPtr _obj
return result
-- method Stack::get_transition_running
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_transition_running" gtk_stack_get_transition_running ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CInt
stackGetTransitionRunning ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Bool
stackGetTransitionRunning _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_transition_running _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Stack::get_transition_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StackTransitionType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_transition_type" gtk_stack_get_transition_type ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CUInt
stackGetTransitionType ::
(MonadIO m, StackK a) =>
a -> -- _obj
m StackTransitionType
stackGetTransitionType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_transition_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Stack::get_vhomogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_vhomogeneous" gtk_stack_get_vhomogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CInt
stackGetVhomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Bool
stackGetVhomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_vhomogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Stack::get_visible_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_visible_child" gtk_stack_get_visible_child ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO (Ptr Widget)
stackGetVisibleChild ::
(MonadIO m, StackK a) =>
a -> -- _obj
m Widget
stackGetVisibleChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_visible_child _obj'
checkUnexpectedReturnNULL "gtk_stack_get_visible_child" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Stack::get_visible_child_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_get_visible_child_name" gtk_stack_get_visible_child_name ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
IO CString
stackGetVisibleChildName ::
(MonadIO m, StackK a) =>
a -> -- _obj
m T.Text
stackGetVisibleChildName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_get_visible_child_name _obj'
checkUnexpectedReturnNULL "gtk_stack_get_visible_child_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Stack::set_hhomogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_hhomogeneous" gtk_stack_set_hhomogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CInt -> -- hhomogeneous : TBasicType TBoolean
IO ()
stackSetHhomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
Bool -> -- hhomogeneous
m ()
stackSetHhomogeneous _obj hhomogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hhomogeneous' = (fromIntegral . fromEnum) hhomogeneous
gtk_stack_set_hhomogeneous _obj' hhomogeneous'
touchManagedPtr _obj
return ()
-- method Stack::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_homogeneous" gtk_stack_set_homogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
stackSetHomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
stackSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_stack_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Stack::set_interpolate_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_interpolate_size" gtk_stack_set_interpolate_size ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CInt -> -- interpolate_size : TBasicType TBoolean
IO ()
stackSetInterpolateSize ::
(MonadIO m, StackK a) =>
a -> -- _obj
Bool -> -- interpolate_size
m ()
stackSetInterpolateSize _obj interpolate_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let interpolate_size' = (fromIntegral . fromEnum) interpolate_size
gtk_stack_set_interpolate_size _obj' interpolate_size'
touchManagedPtr _obj
return ()
-- method Stack::set_transition_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_transition_duration" gtk_stack_set_transition_duration ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
Word32 -> -- duration : TBasicType TUInt32
IO ()
stackSetTransitionDuration ::
(MonadIO m, StackK a) =>
a -> -- _obj
Word32 -> -- duration
m ()
stackSetTransitionDuration _obj duration = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_stack_set_transition_duration _obj' duration
touchManagedPtr _obj
return ()
-- method Stack::set_transition_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_transition_type" gtk_stack_set_transition_type ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CUInt -> -- transition : TInterface "Gtk" "StackTransitionType"
IO ()
stackSetTransitionType ::
(MonadIO m, StackK a) =>
a -> -- _obj
StackTransitionType -> -- transition
m ()
stackSetTransitionType _obj transition = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let transition' = (fromIntegral . fromEnum) transition
gtk_stack_set_transition_type _obj' transition'
touchManagedPtr _obj
return ()
-- method Stack::set_vhomogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_vhomogeneous" gtk_stack_set_vhomogeneous ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CInt -> -- vhomogeneous : TBasicType TBoolean
IO ()
stackSetVhomogeneous ::
(MonadIO m, StackK a) =>
a -> -- _obj
Bool -> -- vhomogeneous
m ()
stackSetVhomogeneous _obj vhomogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let vhomogeneous' = (fromIntegral . fromEnum) vhomogeneous
gtk_stack_set_vhomogeneous _obj' vhomogeneous'
touchManagedPtr _obj
return ()
-- method Stack::set_visible_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_visible_child" gtk_stack_set_visible_child ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
IO ()
stackSetVisibleChild ::
(MonadIO m, StackK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m ()
stackSetVisibleChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_stack_set_visible_child _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Stack::set_visible_child_full
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_visible_child_full" gtk_stack_set_visible_child_full ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CString -> -- name : TBasicType TUTF8
CUInt -> -- transition : TInterface "Gtk" "StackTransitionType"
IO ()
stackSetVisibleChildFull ::
(MonadIO m, StackK a) =>
a -> -- _obj
T.Text -> -- name
StackTransitionType -> -- transition
m ()
stackSetVisibleChildFull _obj name transition = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let transition' = (fromIntegral . fromEnum) transition
gtk_stack_set_visible_child_full _obj' name' transition'
touchManagedPtr _obj
freeMem name'
return ()
-- method Stack::set_visible_child_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_set_visible_child_name" gtk_stack_set_visible_child_name ::
Ptr Stack -> -- _obj : TInterface "Gtk" "Stack"
CString -> -- name : TBasicType TUTF8
IO ()
stackSetVisibleChildName ::
(MonadIO m, StackK a) =>
a -> -- _obj
T.Text -> -- name
m ()
stackSetVisibleChildName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_stack_set_visible_child_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- object StackSidebar
newtype StackSidebar = StackSidebar (ForeignPtr StackSidebar)
noStackSidebar :: Maybe StackSidebar
noStackSidebar = Nothing
foreign import ccall "gtk_stack_sidebar_get_type"
c_gtk_stack_sidebar_get_type :: IO GType
type instance ParentTypes StackSidebar = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject StackSidebar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_stack_sidebar_get_type
class GObject o => StackSidebarK o
instance (GObject o, IsDescendantOf StackSidebar o) => StackSidebarK o
toStackSidebar :: StackSidebarK o => o -> IO StackSidebar
toStackSidebar = unsafeCastTo StackSidebar
-- method StackSidebar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "StackSidebar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_sidebar_new" gtk_stack_sidebar_new ::
IO (Ptr StackSidebar)
stackSidebarNew ::
(MonadIO m) =>
m StackSidebar
stackSidebarNew = liftIO $ do
result <- gtk_stack_sidebar_new
checkUnexpectedReturnNULL "gtk_stack_sidebar_new" result
result' <- (newObject StackSidebar) result
return result'
-- method StackSidebar::get_stack
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Stack"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_sidebar_get_stack" gtk_stack_sidebar_get_stack ::
Ptr StackSidebar -> -- _obj : TInterface "Gtk" "StackSidebar"
IO (Ptr Stack)
stackSidebarGetStack ::
(MonadIO m, StackSidebarK a) =>
a -> -- _obj
m Stack
stackSidebarGetStack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_sidebar_get_stack _obj'
checkUnexpectedReturnNULL "gtk_stack_sidebar_get_stack" result
result' <- (wrapObject Stack) result
touchManagedPtr _obj
return result'
-- method StackSidebar::set_stack
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_sidebar_set_stack" gtk_stack_sidebar_set_stack ::
Ptr StackSidebar -> -- _obj : TInterface "Gtk" "StackSidebar"
Ptr Stack -> -- stack : TInterface "Gtk" "Stack"
IO ()
stackSidebarSetStack ::
(MonadIO m, StackSidebarK a, StackK b) =>
a -> -- _obj
b -> -- stack
m ()
stackSidebarSetStack _obj stack = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let stack' = unsafeManagedPtrCastPtr stack
gtk_stack_sidebar_set_stack _obj' stack'
touchManagedPtr _obj
touchManagedPtr stack
return ()
-- object StackSwitcher
newtype StackSwitcher = StackSwitcher (ForeignPtr StackSwitcher)
noStackSwitcher :: Maybe StackSwitcher
noStackSwitcher = Nothing
foreign import ccall "gtk_stack_switcher_get_type"
c_gtk_stack_switcher_get_type :: IO GType
type instance ParentTypes StackSwitcher = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject StackSwitcher where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_stack_switcher_get_type
class GObject o => StackSwitcherK o
instance (GObject o, IsDescendantOf StackSwitcher o) => StackSwitcherK o
toStackSwitcher :: StackSwitcherK o => o -> IO StackSwitcher
toStackSwitcher = unsafeCastTo StackSwitcher
-- method StackSwitcher::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "StackSwitcher"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_switcher_new" gtk_stack_switcher_new ::
IO (Ptr StackSwitcher)
stackSwitcherNew ::
(MonadIO m) =>
m StackSwitcher
stackSwitcherNew = liftIO $ do
result <- gtk_stack_switcher_new
checkUnexpectedReturnNULL "gtk_stack_switcher_new" result
result' <- (newObject StackSwitcher) result
return result'
-- method StackSwitcher::get_stack
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Stack"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_switcher_get_stack" gtk_stack_switcher_get_stack ::
Ptr StackSwitcher -> -- _obj : TInterface "Gtk" "StackSwitcher"
IO (Ptr Stack)
stackSwitcherGetStack ::
(MonadIO m, StackSwitcherK a) =>
a -> -- _obj
m Stack
stackSwitcherGetStack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_stack_switcher_get_stack _obj'
checkUnexpectedReturnNULL "gtk_stack_switcher_get_stack" result
result' <- (newObject Stack) result
touchManagedPtr _obj
return result'
-- method StackSwitcher::set_stack
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stack_switcher_set_stack" gtk_stack_switcher_set_stack ::
Ptr StackSwitcher -> -- _obj : TInterface "Gtk" "StackSwitcher"
Ptr Stack -> -- stack : TInterface "Gtk" "Stack"
IO ()
stackSwitcherSetStack ::
(MonadIO m, StackSwitcherK a, StackK b) =>
a -> -- _obj
Maybe (b) -> -- stack
m ()
stackSwitcherSetStack _obj stack = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeStack <- case stack of
Nothing -> return nullPtr
Just jStack -> do
let jStack' = unsafeManagedPtrCastPtr jStack
return jStack'
gtk_stack_switcher_set_stack _obj' maybeStack
touchManagedPtr _obj
whenJust stack touchManagedPtr
return ()
-- Enum StackTransitionType
data StackTransitionType =
StackTransitionTypeNone
| StackTransitionTypeCrossfade
| StackTransitionTypeSlideRight
| StackTransitionTypeSlideLeft
| StackTransitionTypeSlideUp
| StackTransitionTypeSlideDown
| StackTransitionTypeSlideLeftRight
| StackTransitionTypeSlideUpDown
| StackTransitionTypeOverUp
| StackTransitionTypeOverDown
| StackTransitionTypeOverLeft
| StackTransitionTypeOverRight
| StackTransitionTypeUnderUp
| StackTransitionTypeUnderDown
| StackTransitionTypeUnderLeft
| StackTransitionTypeUnderRight
| StackTransitionTypeOverUpDown
| StackTransitionTypeOverDownUp
| StackTransitionTypeOverLeftRight
| StackTransitionTypeOverRightLeft
| AnotherStackTransitionType Int
deriving (Show, Eq)
instance Enum StackTransitionType where
fromEnum StackTransitionTypeNone = 0
fromEnum StackTransitionTypeCrossfade = 1
fromEnum StackTransitionTypeSlideRight = 2
fromEnum StackTransitionTypeSlideLeft = 3
fromEnum StackTransitionTypeSlideUp = 4
fromEnum StackTransitionTypeSlideDown = 5
fromEnum StackTransitionTypeSlideLeftRight = 6
fromEnum StackTransitionTypeSlideUpDown = 7
fromEnum StackTransitionTypeOverUp = 8
fromEnum StackTransitionTypeOverDown = 9
fromEnum StackTransitionTypeOverLeft = 10
fromEnum StackTransitionTypeOverRight = 11
fromEnum StackTransitionTypeUnderUp = 12
fromEnum StackTransitionTypeUnderDown = 13
fromEnum StackTransitionTypeUnderLeft = 14
fromEnum StackTransitionTypeUnderRight = 15
fromEnum StackTransitionTypeOverUpDown = 16
fromEnum StackTransitionTypeOverDownUp = 17
fromEnum StackTransitionTypeOverLeftRight = 18
fromEnum StackTransitionTypeOverRightLeft = 19
fromEnum (AnotherStackTransitionType k) = k
toEnum 0 = StackTransitionTypeNone
toEnum 1 = StackTransitionTypeCrossfade
toEnum 2 = StackTransitionTypeSlideRight
toEnum 3 = StackTransitionTypeSlideLeft
toEnum 4 = StackTransitionTypeSlideUp
toEnum 5 = StackTransitionTypeSlideDown
toEnum 6 = StackTransitionTypeSlideLeftRight
toEnum 7 = StackTransitionTypeSlideUpDown
toEnum 8 = StackTransitionTypeOverUp
toEnum 9 = StackTransitionTypeOverDown
toEnum 10 = StackTransitionTypeOverLeft
toEnum 11 = StackTransitionTypeOverRight
toEnum 12 = StackTransitionTypeUnderUp
toEnum 13 = StackTransitionTypeUnderDown
toEnum 14 = StackTransitionTypeUnderLeft
toEnum 15 = StackTransitionTypeUnderRight
toEnum 16 = StackTransitionTypeOverUpDown
toEnum 17 = StackTransitionTypeOverDownUp
toEnum 18 = StackTransitionTypeOverLeftRight
toEnum 19 = StackTransitionTypeOverRightLeft
toEnum k = AnotherStackTransitionType k
foreign import ccall "gtk_stack_transition_type_get_type" c_gtk_stack_transition_type_get_type ::
IO GType
instance BoxedEnum StackTransitionType where
boxedEnumType _ = c_gtk_stack_transition_type_get_type
-- Flags StateFlags
data StateFlags =
StateFlagsNormal
| StateFlagsActive
| StateFlagsPrelight
| StateFlagsSelected
| StateFlagsInsensitive
| StateFlagsInconsistent
| StateFlagsFocused
| StateFlagsBackdrop
| StateFlagsDirLtr
| StateFlagsDirRtl
| StateFlagsLink
| StateFlagsVisited
| StateFlagsChecked
| AnotherStateFlags Int
deriving (Show, Eq)
instance Enum StateFlags where
fromEnum StateFlagsNormal = 0
fromEnum StateFlagsActive = 1
fromEnum StateFlagsPrelight = 2
fromEnum StateFlagsSelected = 4
fromEnum StateFlagsInsensitive = 8
fromEnum StateFlagsInconsistent = 16
fromEnum StateFlagsFocused = 32
fromEnum StateFlagsBackdrop = 64
fromEnum StateFlagsDirLtr = 128
fromEnum StateFlagsDirRtl = 256
fromEnum StateFlagsLink = 512
fromEnum StateFlagsVisited = 1024
fromEnum StateFlagsChecked = 2048
fromEnum (AnotherStateFlags k) = k
toEnum 0 = StateFlagsNormal
toEnum 1 = StateFlagsActive
toEnum 2 = StateFlagsPrelight
toEnum 4 = StateFlagsSelected
toEnum 8 = StateFlagsInsensitive
toEnum 16 = StateFlagsInconsistent
toEnum 32 = StateFlagsFocused
toEnum 64 = StateFlagsBackdrop
toEnum 128 = StateFlagsDirLtr
toEnum 256 = StateFlagsDirRtl
toEnum 512 = StateFlagsLink
toEnum 1024 = StateFlagsVisited
toEnum 2048 = StateFlagsChecked
toEnum k = AnotherStateFlags k
foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type ::
IO GType
instance BoxedEnum StateFlags where
boxedEnumType _ = c_gtk_state_flags_get_type
instance IsGFlag StateFlags
-- Enum StateType
{-# DEPRECATED StateType ["(Since version 3.14)","All APIs that are using this enumeration have been deprecated"," in favor of alternatives using #GtkStateFlags."]#-}
data StateType =
StateTypeNormal
| StateTypeActive
| StateTypePrelight
| StateTypeSelected
| StateTypeInsensitive
| StateTypeInconsistent
| StateTypeFocused
| AnotherStateType Int
deriving (Show, Eq)
instance Enum StateType where
fromEnum StateTypeNormal = 0
fromEnum StateTypeActive = 1
fromEnum StateTypePrelight = 2
fromEnum StateTypeSelected = 3
fromEnum StateTypeInsensitive = 4
fromEnum StateTypeInconsistent = 5
fromEnum StateTypeFocused = 6
fromEnum (AnotherStateType k) = k
toEnum 0 = StateTypeNormal
toEnum 1 = StateTypeActive
toEnum 2 = StateTypePrelight
toEnum 3 = StateTypeSelected
toEnum 4 = StateTypeInsensitive
toEnum 5 = StateTypeInconsistent
toEnum 6 = StateTypeFocused
toEnum k = AnotherStateType k
foreign import ccall "gtk_state_type_get_type" c_gtk_state_type_get_type ::
IO GType
instance BoxedEnum StateType where
boxedEnumType _ = c_gtk_state_type_get_type
-- object StatusIcon
newtype StatusIcon = StatusIcon (ForeignPtr StatusIcon)
noStatusIcon :: Maybe StatusIcon
noStatusIcon = Nothing
foreign import ccall "gtk_status_icon_get_type"
c_gtk_status_icon_get_type :: IO GType
type instance ParentTypes StatusIcon = '[GObject.Object]
instance GObject StatusIcon where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_status_icon_get_type
class GObject o => StatusIconK o
instance (GObject o, IsDescendantOf StatusIcon o) => StatusIconK o
toStatusIcon :: StatusIconK o => o -> IO StatusIcon
toStatusIcon = unsafeCastTo StatusIcon
-- method StatusIcon::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new" gtk_status_icon_new ::
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNew ["(Since version 3.14)","Use notifications"]#-}
statusIconNew ::
(MonadIO m) =>
m StatusIcon
statusIconNew = liftIO $ do
result <- gtk_status_icon_new
checkUnexpectedReturnNULL "gtk_status_icon_new" result
result' <- (wrapObject StatusIcon) result
return result'
-- method StatusIcon::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new_from_file" gtk_status_icon_new_from_file ::
CString -> -- filename : TBasicType TFileName
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromFile ["(Since version 3.14)","Use notifications"]#-}
statusIconNewFromFile ::
(MonadIO m) =>
[Char] -> -- filename
m StatusIcon
statusIconNewFromFile filename = liftIO $ do
filename' <- stringToCString filename
result <- gtk_status_icon_new_from_file filename'
checkUnexpectedReturnNULL "gtk_status_icon_new_from_file" result
result' <- (wrapObject StatusIcon) result
freeMem filename'
return result'
-- method StatusIcon::new_from_gicon
-- method type : Constructor
-- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new_from_gicon" gtk_status_icon_new_from_gicon ::
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromGicon ["(Since version 3.14)","Use notifications"]#-}
statusIconNewFromGicon ::
(MonadIO m, Gio.IconK a) =>
a -> -- icon
m StatusIcon
statusIconNewFromGicon icon = liftIO $ do
let icon' = unsafeManagedPtrCastPtr icon
result <- gtk_status_icon_new_from_gicon icon'
checkUnexpectedReturnNULL "gtk_status_icon_new_from_gicon" result
result' <- (wrapObject StatusIcon) result
touchManagedPtr icon
return result'
-- method StatusIcon::new_from_icon_name
-- method type : Constructor
-- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new_from_icon_name" gtk_status_icon_new_from_icon_name ::
CString -> -- icon_name : TBasicType TUTF8
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromIconName ["(Since version 3.14)","Use notifications"]#-}
statusIconNewFromIconName ::
(MonadIO m) =>
T.Text -> -- icon_name
m StatusIcon
statusIconNewFromIconName icon_name = liftIO $ do
icon_name' <- textToCString icon_name
result <- gtk_status_icon_new_from_icon_name icon_name'
checkUnexpectedReturnNULL "gtk_status_icon_new_from_icon_name" result
result' <- (wrapObject StatusIcon) result
freeMem icon_name'
return result'
-- method StatusIcon::new_from_pixbuf
-- method type : Constructor
-- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new_from_pixbuf" gtk_status_icon_new_from_pixbuf ::
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromPixbuf ["(Since version 3.14)","Use notifications"]#-}
statusIconNewFromPixbuf ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
a -> -- pixbuf
m StatusIcon
statusIconNewFromPixbuf pixbuf = liftIO $ do
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
result <- gtk_status_icon_new_from_pixbuf pixbuf'
checkUnexpectedReturnNULL "gtk_status_icon_new_from_pixbuf" result
result' <- (wrapObject StatusIcon) result
touchManagedPtr pixbuf
return result'
-- method StatusIcon::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StatusIcon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_new_from_stock" gtk_status_icon_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromStock ["(Since version 3.10)","Use gtk_status_icon_new_from_icon_name() instead."]#-}
statusIconNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
m StatusIcon
statusIconNewFromStock stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_status_icon_new_from_stock stock_id'
checkUnexpectedReturnNULL "gtk_status_icon_new_from_stock" result
result' <- (wrapObject StatusIcon) result
freeMem stock_id'
return result'
-- method StatusIcon::get_geometry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_geometry" gtk_status_icon_get_geometry ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
Ptr (Ptr Gdk.Screen) -> -- screen : TInterface "Gdk" "Screen"
Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle"
Ptr CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO CInt
{-# DEPRECATED statusIconGetGeometry ["(Since version 3.14)","Use notifications"]#-}
statusIconGetGeometry ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation)
statusIconGetGeometry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
screen <- allocMem :: IO (Ptr (Ptr Gdk.Screen))
area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
orientation <- allocMem :: IO (Ptr CUInt)
result <- gtk_status_icon_get_geometry _obj' screen area orientation
let result' = (/= 0) result
screen' <- peek screen
screen'' <- (newObject Gdk.Screen) screen'
area' <- (wrapBoxed Gdk.Rectangle) area
orientation' <- peek orientation
let orientation'' = (toEnum . fromIntegral) orientation'
touchManagedPtr _obj
freeMem screen
freeMem orientation
return (result', screen'', area', orientation'')
-- method StatusIcon::get_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_gicon" gtk_status_icon_get_gicon ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO (Ptr Gio.Icon)
{-# DEPRECATED statusIconGetGicon ["(Since version 3.14)","Use notifications"]#-}
statusIconGetGicon ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Gio.Icon
statusIconGetGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_gicon _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_has_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_has_tooltip" gtk_status_icon_get_has_tooltip ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CInt
{-# DEPRECATED statusIconGetHasTooltip ["(Since version 3.14)","Use notifications"]#-}
statusIconGetHasTooltip ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Bool
statusIconGetHasTooltip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_has_tooltip _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_icon_name" gtk_status_icon_get_icon_name ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CString
{-# DEPRECATED statusIconGetIconName ["(Since version 3.14)","Use notifications"]#-}
statusIconGetIconName ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m T.Text
statusIconGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_pixbuf" gtk_status_icon_get_pixbuf ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED statusIconGetPixbuf ["(Since version 3.14)","Use notifications"]#-}
statusIconGetPixbuf ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
statusIconGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_screen" gtk_status_icon_get_screen ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO (Ptr Gdk.Screen)
{-# DEPRECATED statusIconGetScreen ["(Since version 3.14)","Use notifications"]#-}
statusIconGetScreen ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Gdk.Screen
statusIconGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_screen _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_size" gtk_status_icon_get_size ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO Int32
{-# DEPRECATED statusIconGetSize ["(Since version 3.14)","Use notifications"]#-}
statusIconGetSize ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Int32
statusIconGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_size _obj'
touchManagedPtr _obj
return result
-- method StatusIcon::get_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_stock" gtk_status_icon_get_stock ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CString
{-# DEPRECATED statusIconGetStock ["(Since version 3.10)","Use gtk_status_icon_get_icon_name() instead."]#-}
statusIconGetStock ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m T.Text
statusIconGetStock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_stock _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_stock" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_storage_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ImageType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_storage_type" gtk_status_icon_get_storage_type ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CUInt
{-# DEPRECATED statusIconGetStorageType ["(Since version 3.14)","Use notifications"]#-}
statusIconGetStorageType ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m ImageType
statusIconGetStorageType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_storage_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_title" gtk_status_icon_get_title ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CString
{-# DEPRECATED statusIconGetTitle ["(Since version 3.14)","Use notifications"]#-}
statusIconGetTitle ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m T.Text
statusIconGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_title _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_tooltip_markup" gtk_status_icon_get_tooltip_markup ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CString
{-# DEPRECATED statusIconGetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-}
statusIconGetTooltipMarkup ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m T.Text
statusIconGetTooltipMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_tooltip_markup _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_tooltip_markup" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_tooltip_text" gtk_status_icon_get_tooltip_text ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CString
{-# DEPRECATED statusIconGetTooltipText ["(Since version 3.14)","Use notifications"]#-}
statusIconGetTooltipText ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m T.Text
statusIconGetTooltipText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_tooltip_text _obj'
checkUnexpectedReturnNULL "gtk_status_icon_get_tooltip_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_visible" gtk_status_icon_get_visible ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CInt
{-# DEPRECATED statusIconGetVisible ["(Since version 3.14)","Use notifications"]#-}
statusIconGetVisible ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Bool
statusIconGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method StatusIcon::get_x11_window_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_get_x11_window_id" gtk_status_icon_get_x11_window_id ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO Word32
{-# DEPRECATED statusIconGetX11WindowId ["(Since version 3.14)","Use notifications"]#-}
statusIconGetX11WindowId ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Word32
statusIconGetX11WindowId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_get_x11_window_id _obj'
touchManagedPtr _obj
return result
-- method StatusIcon::is_embedded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_is_embedded" gtk_status_icon_is_embedded ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
IO CInt
{-# DEPRECATED statusIconIsEmbedded ["(Since version 3.14)","Use notifications"]#-}
statusIconIsEmbedded ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
m Bool
statusIconIsEmbedded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_status_icon_is_embedded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method StatusIcon::set_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_from_file" gtk_status_icon_set_from_file ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- filename : TBasicType TFileName
IO ()
{-# DEPRECATED statusIconSetFromFile ["(Since version 3.14)","Use notifications"]#-}
statusIconSetFromFile ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
[Char] -> -- filename
m ()
statusIconSetFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
gtk_status_icon_set_from_file _obj' filename'
touchManagedPtr _obj
freeMem filename'
return ()
-- method StatusIcon::set_from_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_from_gicon" gtk_status_icon_set_from_gicon ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
{-# DEPRECATED statusIconSetFromGicon ["(Since version 3.14)","Use notifications"]#-}
statusIconSetFromGicon ::
(MonadIO m, StatusIconK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
m ()
statusIconSetFromGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_status_icon_set_from_gicon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method StatusIcon::set_from_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_from_icon_name" gtk_status_icon_set_from_icon_name ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- icon_name : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetFromIconName ["(Since version 3.14)","Use notifications"]#-}
statusIconSetFromIconName ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
T.Text -> -- icon_name
m ()
statusIconSetFromIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
gtk_status_icon_set_from_icon_name _obj' icon_name'
touchManagedPtr _obj
freeMem icon_name'
return ()
-- method StatusIcon::set_from_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_from_pixbuf" gtk_status_icon_set_from_pixbuf ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
{-# DEPRECATED statusIconSetFromPixbuf ["(Since version 3.14)","Use notifications"]#-}
statusIconSetFromPixbuf ::
(MonadIO m, StatusIconK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
Maybe (b) -> -- pixbuf
m ()
statusIconSetFromPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_status_icon_set_from_pixbuf _obj' maybePixbuf
touchManagedPtr _obj
whenJust pixbuf touchManagedPtr
return ()
-- method StatusIcon::set_from_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_from_stock" gtk_status_icon_set_from_stock ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetFromStock ["(Since version 3.10)","Use gtk_status_icon_set_from_icon_name() instead."]#-}
statusIconSetFromStock ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
T.Text -> -- stock_id
m ()
statusIconSetFromStock _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
gtk_status_icon_set_from_stock _obj' stock_id'
touchManagedPtr _obj
freeMem stock_id'
return ()
-- method StatusIcon::set_has_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_has_tooltip" gtk_status_icon_set_has_tooltip ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CInt -> -- has_tooltip : TBasicType TBoolean
IO ()
{-# DEPRECATED statusIconSetHasTooltip ["(Since version 3.14)","Use notifications"]#-}
statusIconSetHasTooltip ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
Bool -> -- has_tooltip
m ()
statusIconSetHasTooltip _obj has_tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_tooltip' = (fromIntegral . fromEnum) has_tooltip
gtk_status_icon_set_has_tooltip _obj' has_tooltip'
touchManagedPtr _obj
return ()
-- method StatusIcon::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_name" gtk_status_icon_set_name ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- name : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetName ["(Since version 3.14)","Use notifications"]#-}
statusIconSetName ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
T.Text -> -- name
m ()
statusIconSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_status_icon_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method StatusIcon::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_screen" gtk_status_icon_set_screen ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
{-# DEPRECATED statusIconSetScreen ["(Since version 3.14)","Use notifications"]#-}
statusIconSetScreen ::
(MonadIO m, StatusIconK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
statusIconSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_status_icon_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- method StatusIcon::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_title" gtk_status_icon_set_title ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- title : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetTitle ["(Since version 3.14)","Use notifications"]#-}
statusIconSetTitle ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
T.Text -> -- title
m ()
statusIconSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_status_icon_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method StatusIcon::set_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_tooltip_markup" gtk_status_icon_set_tooltip_markup ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- markup : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-}
statusIconSetTooltipMarkup ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
Maybe (T.Text) -> -- markup
m ()
statusIconSetTooltipMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_status_icon_set_tooltip_markup _obj' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
-- method StatusIcon::set_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_tooltip_text" gtk_status_icon_set_tooltip_text ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CString -> -- text : TBasicType TUTF8
IO ()
{-# DEPRECATED statusIconSetTooltipText ["(Since version 3.14)","Use notifications"]#-}
statusIconSetTooltipText ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
T.Text -> -- text
m ()
statusIconSetTooltipText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_status_icon_set_tooltip_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method StatusIcon::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_set_visible" gtk_status_icon_set_visible ::
Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon"
CInt -> -- visible : TBasicType TBoolean
IO ()
{-# DEPRECATED statusIconSetVisible ["(Since version 3.14)","Use notifications"]#-}
statusIconSetVisible ::
(MonadIO m, StatusIconK a) =>
a -> -- _obj
Bool -> -- visible
m ()
statusIconSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_status_icon_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method StatusIcon::position_menu
-- method type : MemberFunction
-- Args : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_status_icon_position_menu" gtk_status_icon_position_menu ::
Ptr Menu -> -- menu : TInterface "Gtk" "Menu"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
Ptr CInt -> -- push_in : TBasicType TBoolean
Ptr StatusIcon -> -- user_data : TInterface "Gtk" "StatusIcon"
IO ()
{-# DEPRECATED statusIconPositionMenu ["(Since version 3.14)","Use notifications"]#-}
statusIconPositionMenu ::
(MonadIO m, MenuK a, StatusIconK b) =>
a -> -- menu
Int32 -> -- x
Int32 -> -- y
b -> -- user_data
m (Int32,Int32,Bool)
statusIconPositionMenu menu x y user_data = liftIO $ do
let menu' = unsafeManagedPtrCastPtr menu
x' <- allocMem :: IO (Ptr Int32)
poke x' x
y' <- allocMem :: IO (Ptr Int32)
poke y' y
push_in <- allocMem :: IO (Ptr CInt)
let user_data' = unsafeManagedPtrCastPtr user_data
gtk_status_icon_position_menu menu' x' y' push_in user_data'
x'' <- peek x'
y'' <- peek y'
push_in' <- peek push_in
let push_in'' = (/= 0) push_in'
touchManagedPtr menu
touchManagedPtr user_data
freeMem x'
freeMem y'
freeMem push_in
return (x'', y'', push_in'')
-- signal StatusIcon::activate
type StatusIconActivateCallback =
IO ()
noStatusIconActivateCallback :: Maybe StatusIconActivateCallback
noStatusIconActivateCallback = Nothing
type StatusIconActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStatusIconActivateCallback :: StatusIconActivateCallbackC -> IO (FunPtr StatusIconActivateCallbackC)
statusIconActivateClosure :: StatusIconActivateCallback -> IO Closure
statusIconActivateClosure cb = newCClosure =<< mkStatusIconActivateCallback wrapped
where wrapped = statusIconActivateCallbackWrapper cb
statusIconActivateCallbackWrapper ::
StatusIconActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
statusIconActivateCallbackWrapper _cb _ _ = do
_cb
onStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
onStatusIconActivate obj cb = liftIO $ connectStatusIconActivate obj cb SignalConnectBefore
afterStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
afterStatusIconActivate obj cb = connectStatusIconActivate obj cb SignalConnectAfter
connectStatusIconActivate :: (GObject a, MonadIO m) =>
a -> StatusIconActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconActivate obj cb after = liftIO $ do
cb' <- mkStatusIconActivateCallback (statusIconActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal StatusIcon::button-press-event
type StatusIconButtonPressEventCallback =
Gdk.EventButton ->
IO Bool
noStatusIconButtonPressEventCallback :: Maybe StatusIconButtonPressEventCallback
noStatusIconButtonPressEventCallback = Nothing
type StatusIconButtonPressEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkStatusIconButtonPressEventCallback :: StatusIconButtonPressEventCallbackC -> IO (FunPtr StatusIconButtonPressEventCallbackC)
statusIconButtonPressEventClosure :: StatusIconButtonPressEventCallback -> IO Closure
statusIconButtonPressEventClosure cb = newCClosure =<< mkStatusIconButtonPressEventCallback wrapped
where wrapped = statusIconButtonPressEventCallbackWrapper cb
statusIconButtonPressEventCallbackWrapper ::
StatusIconButtonPressEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
statusIconButtonPressEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
onStatusIconButtonPressEvent obj cb = liftIO $ connectStatusIconButtonPressEvent obj cb SignalConnectBefore
afterStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
afterStatusIconButtonPressEvent obj cb = connectStatusIconButtonPressEvent obj cb SignalConnectAfter
connectStatusIconButtonPressEvent :: (GObject a, MonadIO m) =>
a -> StatusIconButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconButtonPressEvent obj cb after = liftIO $ do
cb' <- mkStatusIconButtonPressEventCallback (statusIconButtonPressEventCallbackWrapper cb)
connectSignalFunPtr obj "button-press-event" cb' after
-- signal StatusIcon::button-release-event
type StatusIconButtonReleaseEventCallback =
Gdk.EventButton ->
IO Bool
noStatusIconButtonReleaseEventCallback :: Maybe StatusIconButtonReleaseEventCallback
noStatusIconButtonReleaseEventCallback = Nothing
type StatusIconButtonReleaseEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkStatusIconButtonReleaseEventCallback :: StatusIconButtonReleaseEventCallbackC -> IO (FunPtr StatusIconButtonReleaseEventCallbackC)
statusIconButtonReleaseEventClosure :: StatusIconButtonReleaseEventCallback -> IO Closure
statusIconButtonReleaseEventClosure cb = newCClosure =<< mkStatusIconButtonReleaseEventCallback wrapped
where wrapped = statusIconButtonReleaseEventCallbackWrapper cb
statusIconButtonReleaseEventCallbackWrapper ::
StatusIconButtonReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
statusIconButtonReleaseEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
onStatusIconButtonReleaseEvent obj cb = liftIO $ connectStatusIconButtonReleaseEvent obj cb SignalConnectBefore
afterStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
afterStatusIconButtonReleaseEvent obj cb = connectStatusIconButtonReleaseEvent obj cb SignalConnectAfter
connectStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) =>
a -> StatusIconButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconButtonReleaseEvent obj cb after = liftIO $ do
cb' <- mkStatusIconButtonReleaseEventCallback (statusIconButtonReleaseEventCallbackWrapper cb)
connectSignalFunPtr obj "button-release-event" cb' after
-- signal StatusIcon::popup-menu
type StatusIconPopupMenuCallback =
Word32 ->
Word32 ->
IO ()
noStatusIconPopupMenuCallback :: Maybe StatusIconPopupMenuCallback
noStatusIconPopupMenuCallback = Nothing
type StatusIconPopupMenuCallbackC =
Ptr () -> -- object
Word32 ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStatusIconPopupMenuCallback :: StatusIconPopupMenuCallbackC -> IO (FunPtr StatusIconPopupMenuCallbackC)
statusIconPopupMenuClosure :: StatusIconPopupMenuCallback -> IO Closure
statusIconPopupMenuClosure cb = newCClosure =<< mkStatusIconPopupMenuCallback wrapped
where wrapped = statusIconPopupMenuCallbackWrapper cb
statusIconPopupMenuCallbackWrapper ::
StatusIconPopupMenuCallback ->
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
statusIconPopupMenuCallbackWrapper _cb _ button activate_time _ = do
_cb button activate_time
onStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
onStatusIconPopupMenu obj cb = liftIO $ connectStatusIconPopupMenu obj cb SignalConnectBefore
afterStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
afterStatusIconPopupMenu obj cb = connectStatusIconPopupMenu obj cb SignalConnectAfter
connectStatusIconPopupMenu :: (GObject a, MonadIO m) =>
a -> StatusIconPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconPopupMenu obj cb after = liftIO $ do
cb' <- mkStatusIconPopupMenuCallback (statusIconPopupMenuCallbackWrapper cb)
connectSignalFunPtr obj "popup-menu" cb' after
-- signal StatusIcon::query-tooltip
type StatusIconQueryTooltipCallback =
Int32 ->
Int32 ->
Bool ->
Tooltip ->
IO Bool
noStatusIconQueryTooltipCallback :: Maybe StatusIconQueryTooltipCallback
noStatusIconQueryTooltipCallback = Nothing
type StatusIconQueryTooltipCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkStatusIconQueryTooltipCallback :: StatusIconQueryTooltipCallbackC -> IO (FunPtr StatusIconQueryTooltipCallbackC)
statusIconQueryTooltipClosure :: StatusIconQueryTooltipCallback -> IO Closure
statusIconQueryTooltipClosure cb = newCClosure =<< mkStatusIconQueryTooltipCallback wrapped
where wrapped = statusIconQueryTooltipCallbackWrapper cb
statusIconQueryTooltipCallbackWrapper ::
StatusIconQueryTooltipCallback ->
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () ->
IO CInt
statusIconQueryTooltipCallbackWrapper _cb _ x y keyboard_mode tooltip _ = do
let keyboard_mode' = (/= 0) keyboard_mode
tooltip' <- (newObject Tooltip) tooltip
result <- _cb x y keyboard_mode' tooltip'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconQueryTooltip :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
onStatusIconQueryTooltip obj cb = liftIO $ connectStatusIconQueryTooltip obj cb SignalConnectBefore
afterStatusIconQueryTooltip :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
afterStatusIconQueryTooltip obj cb = connectStatusIconQueryTooltip obj cb SignalConnectAfter
connectStatusIconQueryTooltip :: (GObject a, MonadIO m) =>
a -> StatusIconQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconQueryTooltip obj cb after = liftIO $ do
cb' <- mkStatusIconQueryTooltipCallback (statusIconQueryTooltipCallbackWrapper cb)
connectSignalFunPtr obj "query-tooltip" cb' after
-- signal StatusIcon::scroll-event
type StatusIconScrollEventCallback =
Gdk.EventScroll ->
IO Bool
noStatusIconScrollEventCallback :: Maybe StatusIconScrollEventCallback
noStatusIconScrollEventCallback = Nothing
type StatusIconScrollEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventScroll ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkStatusIconScrollEventCallback :: StatusIconScrollEventCallbackC -> IO (FunPtr StatusIconScrollEventCallbackC)
statusIconScrollEventClosure :: StatusIconScrollEventCallback -> IO Closure
statusIconScrollEventClosure cb = newCClosure =<< mkStatusIconScrollEventCallback wrapped
where wrapped = statusIconScrollEventCallbackWrapper cb
statusIconScrollEventCallbackWrapper ::
StatusIconScrollEventCallback ->
Ptr () ->
Ptr Gdk.EventScroll ->
Ptr () ->
IO CInt
statusIconScrollEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventScroll) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
onStatusIconScrollEvent obj cb = liftIO $ connectStatusIconScrollEvent obj cb SignalConnectBefore
afterStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
afterStatusIconScrollEvent obj cb = connectStatusIconScrollEvent obj cb SignalConnectAfter
connectStatusIconScrollEvent :: (GObject a, MonadIO m) =>
a -> StatusIconScrollEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconScrollEvent obj cb after = liftIO $ do
cb' <- mkStatusIconScrollEventCallback (statusIconScrollEventCallbackWrapper cb)
connectSignalFunPtr obj "scroll-event" cb' after
-- signal StatusIcon::size-changed
type StatusIconSizeChangedCallback =
Int32 ->
IO Bool
noStatusIconSizeChangedCallback :: Maybe StatusIconSizeChangedCallback
noStatusIconSizeChangedCallback = Nothing
type StatusIconSizeChangedCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkStatusIconSizeChangedCallback :: StatusIconSizeChangedCallbackC -> IO (FunPtr StatusIconSizeChangedCallbackC)
statusIconSizeChangedClosure :: StatusIconSizeChangedCallback -> IO Closure
statusIconSizeChangedClosure cb = newCClosure =<< mkStatusIconSizeChangedCallback wrapped
where wrapped = statusIconSizeChangedCallbackWrapper cb
statusIconSizeChangedCallbackWrapper ::
StatusIconSizeChangedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO CInt
statusIconSizeChangedCallbackWrapper _cb _ size _ = do
result <- _cb size
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
onStatusIconSizeChanged obj cb = liftIO $ connectStatusIconSizeChanged obj cb SignalConnectBefore
afterStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
afterStatusIconSizeChanged obj cb = connectStatusIconSizeChanged obj cb SignalConnectAfter
connectStatusIconSizeChanged :: (GObject a, MonadIO m) =>
a -> StatusIconSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconSizeChanged obj cb after = liftIO $ do
cb' <- mkStatusIconSizeChangedCallback (statusIconSizeChangedCallbackWrapper cb)
connectSignalFunPtr obj "size-changed" cb' after
-- object Statusbar
newtype Statusbar = Statusbar (ForeignPtr Statusbar)
noStatusbar :: Maybe Statusbar
noStatusbar = Nothing
foreign import ccall "gtk_statusbar_get_type"
c_gtk_statusbar_get_type :: IO GType
type instance ParentTypes Statusbar = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Statusbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_statusbar_get_type
class GObject o => StatusbarK o
instance (GObject o, IsDescendantOf Statusbar o) => StatusbarK o
toStatusbar :: StatusbarK o => o -> IO Statusbar
toStatusbar = unsafeCastTo Statusbar
-- method Statusbar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Statusbar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_new" gtk_statusbar_new ::
IO (Ptr Statusbar)
statusbarNew ::
(MonadIO m) =>
m Statusbar
statusbarNew = liftIO $ do
result <- gtk_statusbar_new
checkUnexpectedReturnNULL "gtk_statusbar_new" result
result' <- (newObject Statusbar) result
return result'
-- method Statusbar::get_context_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_get_context_id" gtk_statusbar_get_context_id ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
CString -> -- context_description : TBasicType TUTF8
IO Word32
statusbarGetContextId ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
T.Text -> -- context_description
m Word32
statusbarGetContextId _obj context_description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
context_description' <- textToCString context_description
result <- gtk_statusbar_get_context_id _obj' context_description'
touchManagedPtr _obj
freeMem context_description'
return result
-- method Statusbar::get_message_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Box"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_get_message_area" gtk_statusbar_get_message_area ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
IO (Ptr Box)
statusbarGetMessageArea ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
m Box
statusbarGetMessageArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_statusbar_get_message_area _obj'
checkUnexpectedReturnNULL "gtk_statusbar_get_message_area" result
result' <- (newObject Box) result
touchManagedPtr _obj
return result'
-- method Statusbar::pop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_pop" gtk_statusbar_pop ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
Word32 -> -- context_id : TBasicType TUInt32
IO ()
statusbarPop ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
Word32 -> -- context_id
m ()
statusbarPop _obj context_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_statusbar_pop _obj' context_id
touchManagedPtr _obj
return ()
-- method Statusbar::push
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_push" gtk_statusbar_push ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
Word32 -> -- context_id : TBasicType TUInt32
CString -> -- text : TBasicType TUTF8
IO Word32
statusbarPush ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
Word32 -> -- context_id
T.Text -> -- text
m Word32
statusbarPush _obj context_id text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
result <- gtk_statusbar_push _obj' context_id text'
touchManagedPtr _obj
freeMem text'
return result
-- method Statusbar::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_remove" gtk_statusbar_remove ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
Word32 -> -- context_id : TBasicType TUInt32
Word32 -> -- message_id : TBasicType TUInt32
IO ()
statusbarRemove ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
Word32 -> -- context_id
Word32 -> -- message_id
m ()
statusbarRemove _obj context_id message_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_statusbar_remove _obj' context_id message_id
touchManagedPtr _obj
return ()
-- method Statusbar::remove_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_statusbar_remove_all" gtk_statusbar_remove_all ::
Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar"
Word32 -> -- context_id : TBasicType TUInt32
IO ()
statusbarRemoveAll ::
(MonadIO m, StatusbarK a) =>
a -> -- _obj
Word32 -> -- context_id
m ()
statusbarRemoveAll _obj context_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_statusbar_remove_all _obj' context_id
touchManagedPtr _obj
return ()
-- signal Statusbar::text-popped
type StatusbarTextPoppedCallback =
Word32 ->
T.Text ->
IO ()
noStatusbarTextPoppedCallback :: Maybe StatusbarTextPoppedCallback
noStatusbarTextPoppedCallback = Nothing
type StatusbarTextPoppedCallbackC =
Ptr () -> -- object
Word32 ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStatusbarTextPoppedCallback :: StatusbarTextPoppedCallbackC -> IO (FunPtr StatusbarTextPoppedCallbackC)
statusbarTextPoppedClosure :: StatusbarTextPoppedCallback -> IO Closure
statusbarTextPoppedClosure cb = newCClosure =<< mkStatusbarTextPoppedCallback wrapped
where wrapped = statusbarTextPoppedCallbackWrapper cb
statusbarTextPoppedCallbackWrapper ::
StatusbarTextPoppedCallback ->
Ptr () ->
Word32 ->
CString ->
Ptr () ->
IO ()
statusbarTextPoppedCallbackWrapper _cb _ context_id text _ = do
text' <- cstringToText text
_cb context_id text'
onStatusbarTextPopped :: (GObject a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId
onStatusbarTextPopped obj cb = liftIO $ connectStatusbarTextPopped obj cb SignalConnectBefore
afterStatusbarTextPopped :: (GObject a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId
afterStatusbarTextPopped obj cb = connectStatusbarTextPopped obj cb SignalConnectAfter
connectStatusbarTextPopped :: (GObject a, MonadIO m) =>
a -> StatusbarTextPoppedCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusbarTextPopped obj cb after = liftIO $ do
cb' <- mkStatusbarTextPoppedCallback (statusbarTextPoppedCallbackWrapper cb)
connectSignalFunPtr obj "text-popped" cb' after
-- signal Statusbar::text-pushed
type StatusbarTextPushedCallback =
Word32 ->
T.Text ->
IO ()
noStatusbarTextPushedCallback :: Maybe StatusbarTextPushedCallback
noStatusbarTextPushedCallback = Nothing
type StatusbarTextPushedCallbackC =
Ptr () -> -- object
Word32 ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStatusbarTextPushedCallback :: StatusbarTextPushedCallbackC -> IO (FunPtr StatusbarTextPushedCallbackC)
statusbarTextPushedClosure :: StatusbarTextPushedCallback -> IO Closure
statusbarTextPushedClosure cb = newCClosure =<< mkStatusbarTextPushedCallback wrapped
where wrapped = statusbarTextPushedCallbackWrapper cb
statusbarTextPushedCallbackWrapper ::
StatusbarTextPushedCallback ->
Ptr () ->
Word32 ->
CString ->
Ptr () ->
IO ()
statusbarTextPushedCallbackWrapper _cb _ context_id text _ = do
text' <- cstringToText text
_cb context_id text'
onStatusbarTextPushed :: (GObject a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId
onStatusbarTextPushed obj cb = liftIO $ connectStatusbarTextPushed obj cb SignalConnectBefore
afterStatusbarTextPushed :: (GObject a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId
afterStatusbarTextPushed obj cb = connectStatusbarTextPushed obj cb SignalConnectAfter
connectStatusbarTextPushed :: (GObject a, MonadIO m) =>
a -> StatusbarTextPushedCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusbarTextPushed obj cb after = liftIO $ do
cb' <- mkStatusbarTextPushedCallback (statusbarTextPushedCallbackWrapper cb)
connectSignalFunPtr obj "text-pushed" cb' after
-- object StatusbarAccessible
newtype StatusbarAccessible = StatusbarAccessible (ForeignPtr StatusbarAccessible)
noStatusbarAccessible :: Maybe StatusbarAccessible
noStatusbarAccessible = Nothing
foreign import ccall "gtk_statusbar_accessible_get_type"
c_gtk_statusbar_accessible_get_type :: IO GType
type instance ParentTypes StatusbarAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject StatusbarAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_statusbar_accessible_get_type
class GObject o => StatusbarAccessibleK o
instance (GObject o, IsDescendantOf StatusbarAccessible o) => StatusbarAccessibleK o
toStatusbarAccessible :: StatusbarAccessibleK o => o -> IO StatusbarAccessible
toStatusbarAccessible = unsafeCastTo StatusbarAccessible
-- struct StockItem
newtype StockItem = StockItem (ForeignPtr StockItem)
noStockItem :: Maybe StockItem
noStockItem = Nothing
stockItemReadStockId :: StockItem -> IO T.Text
stockItemReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
stockItemReadLabel :: StockItem -> IO T.Text
stockItemReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
stockItemReadModifier :: StockItem -> IO [Gdk.ModifierType]
stockItemReadModifier s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CUInt
let val' = wordToGFlags val
return val'
stockItemReadKeyval :: StockItem -> IO Word32
stockItemReadKeyval s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
stockItemReadTranslationDomain :: StockItem -> IO T.Text
stockItemReadTranslationDomain s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
-- method StockItem::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_item_free" gtk_stock_item_free ::
Ptr StockItem -> -- _obj : TInterface "Gtk" "StockItem"
IO ()
{-# DEPRECATED stockItemFree ["(Since version 3.10)"]#-}
stockItemFree ::
(MonadIO m) =>
StockItem -> -- _obj
m ()
stockItemFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_stock_item_free _obj'
touchManagedPtr _obj
return ()
-- object Style
newtype Style = Style (ForeignPtr Style)
noStyle :: Maybe Style
noStyle = Nothing
foreign import ccall "gtk_style_get_type"
c_gtk_style_get_type :: IO GType
type instance ParentTypes Style = '[GObject.Object]
instance GObject Style where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_style_get_type
class GObject o => StyleK o
instance (GObject o, IsDescendantOf Style o) => StyleK o
toStyle :: StyleK o => o -> IO Style
toStyle = unsafeCastTo Style
-- method Style::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_new" gtk_style_new ::
IO (Ptr Style)
{-# DEPRECATED styleNew ["(Since version 3.0)","Use #GtkStyleContext"]#-}
styleNew ::
(MonadIO m) =>
m Style
styleNew = liftIO $ do
result <- gtk_style_new
checkUnexpectedReturnNULL "gtk_style_new" result
result' <- (wrapObject Style) result
return result'
-- method Style::apply_default_background
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_apply_default_background" gtk_style_apply_default_background ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED styleApplyDefaultBackground ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
styleApplyDefaultBackground ::
(MonadIO m, StyleK a, Gdk.WindowK b) =>
a -> -- _obj
Cairo.Context -> -- cr
b -> -- window
StateType -> -- state_type
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
styleApplyDefaultBackground _obj cr window state_type x y width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
let window' = unsafeManagedPtrCastPtr window
let state_type' = (fromIntegral . fromEnum) state_type
gtk_style_apply_default_background _obj' cr' window' state_type' x y width height
touchManagedPtr _obj
touchManagedPtr cr
touchManagedPtr window
return ()
-- method Style::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_copy" gtk_style_copy ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
IO (Ptr Style)
{-# DEPRECATED styleCopy ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
styleCopy ::
(MonadIO m, StyleK a) =>
a -> -- _obj
m Style
styleCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_copy _obj'
checkUnexpectedReturnNULL "gtk_style_copy" result
result' <- (wrapObject Style) result
touchManagedPtr _obj
return result'
-- method Style::detach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_detach" gtk_style_detach ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
IO ()
{-# DEPRECATED styleDetach ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
styleDetach ::
(MonadIO m, StyleK a) =>
a -> -- _obj
m ()
styleDetach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_detach _obj'
touchManagedPtr _obj
return ()
-- method Style::get_style_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_get_style_property" gtk_style_get_style_property ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
CGType -> -- widget_type : TBasicType TGType
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
styleGetStyleProperty ::
(MonadIO m, StyleK a) =>
a -> -- _obj
GType -> -- widget_type
T.Text -> -- property_name
m (GValue)
styleGetStyleProperty _obj widget_type property_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_type' = gtypeToCGType widget_type
property_name' <- textToCString property_name
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
gtk_style_get_style_property _obj' widget_type' property_name' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem property_name'
return value'
-- method Style::has_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_has_context" gtk_style_has_context ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
IO CInt
styleHasContext ::
(MonadIO m, StyleK a) =>
a -> -- _obj
m Bool
styleHasContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_has_context _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Style::lookup_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_lookup_color" gtk_style_lookup_color ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
CString -> -- color_name : TBasicType TUTF8
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO CInt
{-# DEPRECATED styleLookupColor ["(Since version 3.0)","Use gtk_style_context_lookup_color() instead"]#-}
styleLookupColor ::
(MonadIO m, StyleK a) =>
a -> -- _obj
T.Text -> -- color_name
m (Bool,Gdk.Color)
styleLookupColor _obj color_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color_name' <- textToCString color_name
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
result <- gtk_style_lookup_color _obj' color_name' color
let result' = (/= 0) result
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr _obj
freeMem color_name'
return (result', color')
-- method Style::lookup_icon_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_lookup_icon_set" gtk_style_lookup_icon_set ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr IconSet)
{-# DEPRECATED styleLookupIconSet ["(Since version 3.0)","Use gtk_style_context_lookup_icon_set() instead"]#-}
styleLookupIconSet ::
(MonadIO m, StyleK a) =>
a -> -- _obj
T.Text -> -- stock_id
m IconSet
styleLookupIconSet _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
result <- gtk_style_lookup_icon_set _obj' stock_id'
checkUnexpectedReturnNULL "gtk_style_lookup_icon_set" result
result' <- (newBoxed IconSet) result
touchManagedPtr _obj
freeMem stock_id'
return result'
-- method Style::render_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_render_icon" gtk_style_render_icon ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
Ptr IconSource -> -- source : TInterface "Gtk" "IconSource"
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
CUInt -> -- state : TInterface "Gtk" "StateType"
Int32 -> -- size : TBasicType TInt32
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED styleRenderIcon ["(Since version 3.0)","Use gtk_render_icon_pixbuf() instead"]#-}
styleRenderIcon ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- _obj
IconSource -> -- source
TextDirection -> -- direction
StateType -> -- state
Int32 -> -- size
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
m GdkPixbuf.Pixbuf
styleRenderIcon _obj source direction state size widget detail = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let source' = unsafeManagedPtrGetPtr source
let direction' = (fromIntegral . fromEnum) direction
let state' = (fromIntegral . fromEnum) state
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
result <- gtk_style_render_icon _obj' source' direction' state' size maybeWidget maybeDetail
checkUnexpectedReturnNULL "gtk_style_render_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr source
whenJust widget touchManagedPtr
freeMem maybeDetail
return result'
-- method Style::set_background
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_set_background" gtk_style_set_background ::
Ptr Style -> -- _obj : TInterface "Gtk" "Style"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
IO ()
{-# DEPRECATED styleSetBackground ["(Since version 3.0)","Use gtk_style_context_set_background() instead"]#-}
styleSetBackground ::
(MonadIO m, StyleK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
StateType -> -- state_type
m ()
styleSetBackground _obj window state_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
let state_type' = (fromIntegral . fromEnum) state_type
gtk_style_set_background _obj' window' state_type'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- signal Style::realize
type StyleRealizeCallback =
IO ()
noStyleRealizeCallback :: Maybe StyleRealizeCallback
noStyleRealizeCallback = Nothing
type StyleRealizeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStyleRealizeCallback :: StyleRealizeCallbackC -> IO (FunPtr StyleRealizeCallbackC)
styleRealizeClosure :: StyleRealizeCallback -> IO Closure
styleRealizeClosure cb = newCClosure =<< mkStyleRealizeCallback wrapped
where wrapped = styleRealizeCallbackWrapper cb
styleRealizeCallbackWrapper ::
StyleRealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
styleRealizeCallbackWrapper _cb _ _ = do
_cb
onStyleRealize :: (GObject a, MonadIO m) => a -> StyleRealizeCallback -> m SignalHandlerId
onStyleRealize obj cb = liftIO $ connectStyleRealize obj cb SignalConnectBefore
afterStyleRealize :: (GObject a, MonadIO m) => a -> StyleRealizeCallback -> m SignalHandlerId
afterStyleRealize obj cb = connectStyleRealize obj cb SignalConnectAfter
connectStyleRealize :: (GObject a, MonadIO m) =>
a -> StyleRealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectStyleRealize obj cb after = liftIO $ do
cb' <- mkStyleRealizeCallback (styleRealizeCallbackWrapper cb)
connectSignalFunPtr obj "realize" cb' after
-- signal Style::unrealize
type StyleUnrealizeCallback =
IO ()
noStyleUnrealizeCallback :: Maybe StyleUnrealizeCallback
noStyleUnrealizeCallback = Nothing
type StyleUnrealizeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStyleUnrealizeCallback :: StyleUnrealizeCallbackC -> IO (FunPtr StyleUnrealizeCallbackC)
styleUnrealizeClosure :: StyleUnrealizeCallback -> IO Closure
styleUnrealizeClosure cb = newCClosure =<< mkStyleUnrealizeCallback wrapped
where wrapped = styleUnrealizeCallbackWrapper cb
styleUnrealizeCallbackWrapper ::
StyleUnrealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
styleUnrealizeCallbackWrapper _cb _ _ = do
_cb
onStyleUnrealize :: (GObject a, MonadIO m) => a -> StyleUnrealizeCallback -> m SignalHandlerId
onStyleUnrealize obj cb = liftIO $ connectStyleUnrealize obj cb SignalConnectBefore
afterStyleUnrealize :: (GObject a, MonadIO m) => a -> StyleUnrealizeCallback -> m SignalHandlerId
afterStyleUnrealize obj cb = connectStyleUnrealize obj cb SignalConnectAfter
connectStyleUnrealize :: (GObject a, MonadIO m) =>
a -> StyleUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectStyleUnrealize obj cb after = liftIO $ do
cb' <- mkStyleUnrealizeCallback (styleUnrealizeCallbackWrapper cb)
connectSignalFunPtr obj "unrealize" cb' after
-- object StyleContext
newtype StyleContext = StyleContext (ForeignPtr StyleContext)
noStyleContext :: Maybe StyleContext
noStyleContext = Nothing
foreign import ccall "gtk_style_context_get_type"
c_gtk_style_context_get_type :: IO GType
type instance ParentTypes StyleContext = '[GObject.Object]
instance GObject StyleContext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_style_context_get_type
class GObject o => StyleContextK o
instance (GObject o, IsDescendantOf StyleContext o) => StyleContextK o
toStyleContext :: StyleContextK o => o -> IO StyleContext
toStyleContext = unsafeCastTo StyleContext
-- method StyleContext::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "StyleContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_new" gtk_style_context_new ::
IO (Ptr StyleContext)
styleContextNew ::
(MonadIO m) =>
m StyleContext
styleContextNew = liftIO $ do
result <- gtk_style_context_new
checkUnexpectedReturnNULL "gtk_style_context_new" result
result' <- (wrapObject StyleContext) result
return result'
-- method StyleContext::add_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_add_class" gtk_style_context_add_class ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- class_name : TBasicType TUTF8
IO ()
styleContextAddClass ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- class_name
m ()
styleContextAddClass _obj class_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
class_name' <- textToCString class_name
gtk_style_context_add_class _obj' class_name'
touchManagedPtr _obj
freeMem class_name'
return ()
-- method StyleContext::add_provider
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_add_provider" gtk_style_context_add_provider ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider"
Word32 -> -- priority : TBasicType TUInt32
IO ()
styleContextAddProvider ::
(MonadIO m, StyleContextK a, StyleProviderK b) =>
a -> -- _obj
b -> -- provider
Word32 -> -- priority
m ()
styleContextAddProvider _obj provider priority = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let provider' = unsafeManagedPtrCastPtr provider
gtk_style_context_add_provider _obj' provider' priority
touchManagedPtr _obj
touchManagedPtr provider
return ()
-- method StyleContext::add_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_add_region" gtk_style_context_add_region ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- region_name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO ()
{-# DEPRECATED styleContextAddRegion ["(Since version 3.14)"]#-}
styleContextAddRegion ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- region_name
[RegionFlags] -> -- flags
m ()
styleContextAddRegion _obj region_name flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
region_name' <- textToCString region_name
let flags' = gflagsToWord flags
gtk_style_context_add_region _obj' region_name' flags'
touchManagedPtr _obj
freeMem region_name'
return ()
-- method StyleContext::cancel_animations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_cancel_animations" gtk_style_context_cancel_animations ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr () -> -- region_id : TBasicType TVoid
IO ()
{-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."]#-}
styleContextCancelAnimations ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
Maybe (Ptr ()) -> -- region_id
m ()
styleContextCancelAnimations _obj region_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion_id <- case region_id of
Nothing -> return nullPtr
Just jRegion_id -> do
return jRegion_id
gtk_style_context_cancel_animations _obj' maybeRegion_id
touchManagedPtr _obj
return ()
-- method StyleContext::get_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_background_color" gtk_style_context_get_background_color ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED styleContextGetBackgroundColor ["(Since version 3.16)","Use gtk_render_background() instead."]#-}
styleContextGetBackgroundColor ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
styleContextGetBackgroundColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_style_context_get_background_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method StyleContext::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_border" gtk_style_context_get_border ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- border : TInterface "Gtk" "Border"
IO ()
styleContextGetBorder ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
styleContextGetBorder _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
border <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_style_context_get_border _obj' state' border
border' <- (wrapBoxed Border) border
touchManagedPtr _obj
return border'
-- method StyleContext::get_border_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_border_color" gtk_style_context_get_border_color ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED styleContextGetBorderColor ["(Since version 3.16)","Use gtk_render_border() instead."]#-}
styleContextGetBorderColor ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
styleContextGetBorderColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_style_context_get_border_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method StyleContext::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_color" gtk_style_context_get_color ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
styleContextGetColor ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
styleContextGetColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_style_context_get_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method StyleContext::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_direction" gtk_style_context_get_direction ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO CUInt
{-# DEPRECATED styleContextGetDirection ["(Since version 3.8)","Use gtk_style_context_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-}
styleContextGetDirection ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m TextDirection
styleContextGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontDescription"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_font" gtk_style_context_get_font ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
IO (Ptr Pango.FontDescription)
{-# DEPRECATED styleContextGetFont ["(Since version 3.8)","Use gtk_style_context_get() for \"font\" or"," subproperties instead."]#-}
styleContextGetFont ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m Pango.FontDescription
styleContextGetFont _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
result <- gtk_style_context_get_font _obj' state'
checkUnexpectedReturnNULL "gtk_style_context_get_font" result
result' <- (newBoxed Pango.FontDescription) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_frame_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "FrameClock"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_frame_clock" gtk_style_context_get_frame_clock ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr Gdk.FrameClock)
styleContextGetFrameClock ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m Gdk.FrameClock
styleContextGetFrameClock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_frame_clock _obj'
checkUnexpectedReturnNULL "gtk_style_context_get_frame_clock" result
result' <- (newObject Gdk.FrameClock) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_junction_sides
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "JunctionSides"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_junction_sides" gtk_style_context_get_junction_sides ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO CUInt
styleContextGetJunctionSides ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m [JunctionSides]
styleContextGetJunctionSides _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_junction_sides _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method StyleContext::get_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_margin" gtk_style_context_get_margin ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- margin : TInterface "Gtk" "Border"
IO ()
styleContextGetMargin ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
styleContextGetMargin _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
margin <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_style_context_get_margin _obj' state' margin
margin' <- (wrapBoxed Border) margin
touchManagedPtr _obj
return margin'
-- method StyleContext::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_padding" gtk_style_context_get_padding ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- padding : TInterface "Gtk" "Border"
IO ()
styleContextGetPadding ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
styleContextGetPadding _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
padding <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_style_context_get_padding _obj' state' padding
padding' <- (wrapBoxed Border) padding
touchManagedPtr _obj
return padding'
-- method StyleContext::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StyleContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_parent" gtk_style_context_get_parent ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr StyleContext)
styleContextGetParent ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m StyleContext
styleContextGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_parent _obj'
checkUnexpectedReturnNULL "gtk_style_context_get_parent" result
result' <- (newObject StyleContext) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_path" gtk_style_context_get_path ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr WidgetPath)
styleContextGetPath ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m WidgetPath
styleContextGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_path _obj'
checkUnexpectedReturnNULL "gtk_style_context_get_path" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_property" gtk_style_context_get_property ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- property : TBasicType TUTF8
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
styleContextGetProperty ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- property
[StateFlags] -> -- state
m (GValue)
styleContextGetProperty _obj property state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
let state' = gflagsToWord state
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
gtk_style_context_get_property _obj' property' state' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem property'
return value'
-- method StyleContext::get_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_scale" gtk_style_context_get_scale ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO Int32
styleContextGetScale ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m Int32
styleContextGetScale _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_scale _obj'
touchManagedPtr _obj
return result
-- method StyleContext::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_screen" gtk_style_context_get_screen ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr Gdk.Screen)
styleContextGetScreen ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m Gdk.Screen
styleContextGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_screen _obj'
checkUnexpectedReturnNULL "gtk_style_context_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method StyleContext::get_section
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "CssSection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_section" gtk_style_context_get_section ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- property : TBasicType TUTF8
IO (Ptr CssSection)
styleContextGetSection ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- property
m CssSection
styleContextGetSection _obj property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
result <- gtk_style_context_get_section _obj' property'
checkUnexpectedReturnNULL "gtk_style_context_get_section" result
result' <- (wrapBoxed CssSection) result
touchManagedPtr _obj
freeMem property'
return result'
-- method StyleContext::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_state" gtk_style_context_get_state ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO CUInt
styleContextGetState ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m [StateFlags]
styleContextGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_get_state _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method StyleContext::get_style_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_get_style_property" gtk_style_context_get_style_property ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
styleContextGetStyleProperty ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- property_name
GValue -> -- value
m ()
styleContextGetStyleProperty _obj property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_style_context_get_style_property _obj' property_name' value'
touchManagedPtr _obj
touchManagedPtr value
freeMem property_name'
return ()
-- method StyleContext::has_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_has_class" gtk_style_context_has_class ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- class_name : TBasicType TUTF8
IO CInt
styleContextHasClass ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- class_name
m Bool
styleContextHasClass _obj class_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
class_name' <- textToCString class_name
result <- gtk_style_context_has_class _obj' class_name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem class_name'
return result'
-- method StyleContext::has_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags_return", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_has_region" gtk_style_context_has_region ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- region_name : TBasicType TUTF8
Ptr CUInt -> -- flags_return : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED styleContextHasRegion ["(Since version 3.14)"]#-}
styleContextHasRegion ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- region_name
m (Bool,[RegionFlags])
styleContextHasRegion _obj region_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
region_name' <- textToCString region_name
flags_return <- allocMem :: IO (Ptr CUInt)
result <- gtk_style_context_has_region _obj' region_name' flags_return
let result' = (/= 0) result
flags_return' <- peek flags_return
let flags_return'' = wordToGFlags flags_return'
touchManagedPtr _obj
freeMem region_name'
freeMem flags_return
return (result', flags_return'')
-- method StyleContext::invalidate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_invalidate" gtk_style_context_invalidate ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO ()
{-# DEPRECATED styleContextInvalidate ["(Since version 3.12)","Style contexts are invalidated automatically."]#-}
styleContextInvalidate ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m ()
styleContextInvalidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_invalidate _obj'
touchManagedPtr _obj
return ()
-- method StyleContext::list_classes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_list_classes" gtk_style_context_list_classes ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr (GList CString))
styleContextListClasses ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m [T.Text]
styleContextListClasses _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_list_classes _obj'
checkUnexpectedReturnNULL "gtk_style_context_list_classes" result
result' <- unpackGList result
result'' <- mapM cstringToText result'
g_list_free result
touchManagedPtr _obj
return result''
-- method StyleContext::list_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_list_regions" gtk_style_context_list_regions ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO (Ptr (GList CString))
{-# DEPRECATED styleContextListRegions ["(Since version 3.14)"]#-}
styleContextListRegions ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m [T.Text]
styleContextListRegions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_style_context_list_regions _obj'
checkUnexpectedReturnNULL "gtk_style_context_list_regions" result
result' <- unpackGList result
result'' <- mapM cstringToText result'
g_list_free result
touchManagedPtr _obj
return result''
-- method StyleContext::lookup_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_lookup_color" gtk_style_context_lookup_color ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- color_name : TBasicType TUTF8
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO CInt
styleContextLookupColor ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- color_name
m (Bool,Gdk.RGBA)
styleContextLookupColor _obj color_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color_name' <- textToCString color_name
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
result <- gtk_style_context_lookup_color _obj' color_name' color
let result' = (/= 0) result
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
freeMem color_name'
return (result', color')
-- method StyleContext::lookup_icon_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_lookup_icon_set" gtk_style_context_lookup_icon_set ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr IconSet)
{-# DEPRECATED styleContextLookupIconSet ["(Since version 3.10)","Use gtk_icon_theme_lookup_icon() instead."]#-}
styleContextLookupIconSet ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- stock_id
m IconSet
styleContextLookupIconSet _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
result <- gtk_style_context_lookup_icon_set _obj' stock_id'
checkUnexpectedReturnNULL "gtk_style_context_lookup_icon_set" result
result' <- (newBoxed IconSet) result
touchManagedPtr _obj
freeMem stock_id'
return result'
-- method StyleContext::notify_state_change
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_notify_state_change" gtk_style_context_notify_state_change ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
Ptr () -> -- region_id : TBasicType TVoid
CUInt -> -- state : TInterface "Gtk" "StateType"
CInt -> -- state_value : TBasicType TBoolean
IO ()
{-# DEPRECATED styleContextNotifyStateChange ["(Since version 3.6)","This function does nothing."]#-}
styleContextNotifyStateChange ::
(MonadIO m, StyleContextK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
Maybe (Ptr ()) -> -- region_id
StateType -> -- state
Bool -> -- state_value
m ()
styleContextNotifyStateChange _obj window region_id state state_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
maybeRegion_id <- case region_id of
Nothing -> return nullPtr
Just jRegion_id -> do
return jRegion_id
let state' = (fromIntegral . fromEnum) state
let state_value' = (fromIntegral . fromEnum) state_value
gtk_style_context_notify_state_change _obj' window' maybeRegion_id state' state_value'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method StyleContext::pop_animatable_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_pop_animatable_region" gtk_style_context_pop_animatable_region ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO ()
{-# DEPRECATED styleContextPopAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-}
styleContextPopAnimatableRegion ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m ()
styleContextPopAnimatableRegion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_pop_animatable_region _obj'
touchManagedPtr _obj
return ()
-- method StyleContext::push_animatable_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_push_animatable_region" gtk_style_context_push_animatable_region ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr () -> -- region_id : TBasicType TVoid
IO ()
{-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-}
styleContextPushAnimatableRegion ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
Ptr () -> -- region_id
m ()
styleContextPushAnimatableRegion _obj region_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_push_animatable_region _obj' region_id
touchManagedPtr _obj
return ()
-- method StyleContext::remove_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_remove_class" gtk_style_context_remove_class ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- class_name : TBasicType TUTF8
IO ()
styleContextRemoveClass ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- class_name
m ()
styleContextRemoveClass _obj class_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
class_name' <- textToCString class_name
gtk_style_context_remove_class _obj' class_name'
touchManagedPtr _obj
freeMem class_name'
return ()
-- method StyleContext::remove_provider
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_remove_provider" gtk_style_context_remove_provider ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider"
IO ()
styleContextRemoveProvider ::
(MonadIO m, StyleContextK a, StyleProviderK b) =>
a -> -- _obj
b -> -- provider
m ()
styleContextRemoveProvider _obj provider = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let provider' = unsafeManagedPtrCastPtr provider
gtk_style_context_remove_provider _obj' provider'
touchManagedPtr _obj
touchManagedPtr provider
return ()
-- method StyleContext::remove_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_remove_region" gtk_style_context_remove_region ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CString -> -- region_name : TBasicType TUTF8
IO ()
{-# DEPRECATED styleContextRemoveRegion ["(Since version 3.14)"]#-}
styleContextRemoveRegion ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
T.Text -> -- region_name
m ()
styleContextRemoveRegion _obj region_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
region_name' <- textToCString region_name
gtk_style_context_remove_region _obj' region_name'
touchManagedPtr _obj
freeMem region_name'
return ()
-- method StyleContext::restore
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_restore" gtk_style_context_restore ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO ()
styleContextRestore ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m ()
styleContextRestore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_restore _obj'
touchManagedPtr _obj
return ()
-- method StyleContext::save
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_save" gtk_style_context_save ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
IO ()
styleContextSave ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
m ()
styleContextSave _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_save _obj'
touchManagedPtr _obj
return ()
-- method StyleContext::scroll_animations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_scroll_animations" gtk_style_context_scroll_animations ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
Int32 -> -- dx : TBasicType TInt32
Int32 -> -- dy : TBasicType TInt32
IO ()
{-# DEPRECATED styleContextScrollAnimations ["(Since version 3.6)","This function does nothing."]#-}
styleContextScrollAnimations ::
(MonadIO m, StyleContextK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
Int32 -> -- dx
Int32 -> -- dy
m ()
styleContextScrollAnimations _obj window dx dy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_style_context_scroll_animations _obj' window' dx dy
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method StyleContext::set_background
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_background" gtk_style_context_set_background ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED styleContextSetBackground ["(Since version 3.18)","Use gtk_render_background() instead."," Note that clients still using this function are now responsible"," for calling this function again whenever @context is invalidated."]#-}
styleContextSetBackground ::
(MonadIO m, StyleContextK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
m ()
styleContextSetBackground _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_style_context_set_background _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method StyleContext::set_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_direction" gtk_style_context_set_direction ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
IO ()
{-# DEPRECATED styleContextSetDirection ["(Since version 3.8)","Use gtk_style_context_set_state() with"," #GTK_STATE_FLAG_DIR_LTR and #GTK_STATE_FLAG_DIR_RTL"," instead."]#-}
styleContextSetDirection ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
TextDirection -> -- direction
m ()
styleContextSetDirection _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
gtk_style_context_set_direction _obj' direction'
touchManagedPtr _obj
return ()
-- method StyleContext::set_frame_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_frame_clock" gtk_style_context_set_frame_clock ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr Gdk.FrameClock -> -- frame_clock : TInterface "Gdk" "FrameClock"
IO ()
styleContextSetFrameClock ::
(MonadIO m, StyleContextK a, Gdk.FrameClockK b) =>
a -> -- _obj
b -> -- frame_clock
m ()
styleContextSetFrameClock _obj frame_clock = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let frame_clock' = unsafeManagedPtrCastPtr frame_clock
gtk_style_context_set_frame_clock _obj' frame_clock'
touchManagedPtr _obj
touchManagedPtr frame_clock
return ()
-- method StyleContext::set_junction_sides
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_junction_sides" gtk_style_context_set_junction_sides ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- sides : TInterface "Gtk" "JunctionSides"
IO ()
styleContextSetJunctionSides ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[JunctionSides] -> -- sides
m ()
styleContextSetJunctionSides _obj sides = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sides' = gflagsToWord sides
gtk_style_context_set_junction_sides _obj' sides'
touchManagedPtr _obj
return ()
-- method StyleContext::set_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_parent" gtk_style_context_set_parent ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr StyleContext -> -- parent : TInterface "Gtk" "StyleContext"
IO ()
styleContextSetParent ::
(MonadIO m, StyleContextK a, StyleContextK b) =>
a -> -- _obj
Maybe (b) -> -- parent
m ()
styleContextSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
gtk_style_context_set_parent _obj' maybeParent
touchManagedPtr _obj
whenJust parent touchManagedPtr
return ()
-- method StyleContext::set_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_path" gtk_style_context_set_path ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath"
IO ()
styleContextSetPath ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
WidgetPath -> -- path
m ()
styleContextSetPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_style_context_set_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method StyleContext::set_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_scale" gtk_style_context_set_scale ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Int32 -> -- scale : TBasicType TInt32
IO ()
styleContextSetScale ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
Int32 -> -- scale
m ()
styleContextSetScale _obj scale = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_context_set_scale _obj' scale
touchManagedPtr _obj
return ()
-- method StyleContext::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_screen" gtk_style_context_set_screen ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
styleContextSetScreen ::
(MonadIO m, StyleContextK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
styleContextSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_style_context_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- method StyleContext::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_set_state" gtk_style_context_set_state ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- flags : TInterface "Gtk" "StateFlags"
IO ()
styleContextSetState ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
[StateFlags] -> -- flags
m ()
styleContextSetState _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_style_context_set_state _obj' flags'
touchManagedPtr _obj
return ()
-- method StyleContext::state_is_running
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_state_is_running" gtk_style_context_state_is_running ::
Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr CDouble -> -- progress : TBasicType TDouble
IO CInt
{-# DEPRECATED styleContextStateIsRunning ["(Since version 3.6)","This function always returns %FALSE"]#-}
styleContextStateIsRunning ::
(MonadIO m, StyleContextK a) =>
a -> -- _obj
StateType -> -- state
m (Bool,Double)
styleContextStateIsRunning _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
progress <- allocMem :: IO (Ptr CDouble)
result <- gtk_style_context_state_is_running _obj' state' progress
let result' = (/= 0) result
progress' <- peek progress
let progress'' = realToFrac progress'
touchManagedPtr _obj
freeMem progress
return (result', progress'')
-- method StyleContext::add_provider_for_screen
-- method type : MemberFunction
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_add_provider_for_screen" gtk_style_context_add_provider_for_screen ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider"
Word32 -> -- priority : TBasicType TUInt32
IO ()
styleContextAddProviderForScreen ::
(MonadIO m, Gdk.ScreenK a, StyleProviderK b) =>
a -> -- screen
b -> -- provider
Word32 -> -- priority
m ()
styleContextAddProviderForScreen screen provider priority = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
let provider' = unsafeManagedPtrCastPtr provider
gtk_style_context_add_provider_for_screen screen' provider' priority
touchManagedPtr screen
touchManagedPtr provider
return ()
-- method StyleContext::remove_provider_for_screen
-- method type : MemberFunction
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_remove_provider_for_screen" gtk_style_context_remove_provider_for_screen ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider"
IO ()
styleContextRemoveProviderForScreen ::
(MonadIO m, Gdk.ScreenK a, StyleProviderK b) =>
a -> -- screen
b -> -- provider
m ()
styleContextRemoveProviderForScreen screen provider = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
let provider' = unsafeManagedPtrCastPtr provider
gtk_style_context_remove_provider_for_screen screen' provider'
touchManagedPtr screen
touchManagedPtr provider
return ()
-- method StyleContext::reset_widgets
-- method type : MemberFunction
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_context_reset_widgets" gtk_style_context_reset_widgets ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
styleContextResetWidgets ::
(MonadIO m, Gdk.ScreenK a) =>
a -> -- screen
m ()
styleContextResetWidgets screen = liftIO $ do
let screen' = unsafeManagedPtrCastPtr screen
gtk_style_context_reset_widgets screen'
touchManagedPtr screen
return ()
-- signal StyleContext::changed
type StyleContextChangedCallback =
IO ()
noStyleContextChangedCallback :: Maybe StyleContextChangedCallback
noStyleContextChangedCallback = Nothing
type StyleContextChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkStyleContextChangedCallback :: StyleContextChangedCallbackC -> IO (FunPtr StyleContextChangedCallbackC)
styleContextChangedClosure :: StyleContextChangedCallback -> IO Closure
styleContextChangedClosure cb = newCClosure =<< mkStyleContextChangedCallback wrapped
where wrapped = styleContextChangedCallbackWrapper cb
styleContextChangedCallbackWrapper ::
StyleContextChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
styleContextChangedCallbackWrapper _cb _ _ = do
_cb
onStyleContextChanged :: (GObject a, MonadIO m) => a -> StyleContextChangedCallback -> m SignalHandlerId
onStyleContextChanged obj cb = liftIO $ connectStyleContextChanged obj cb SignalConnectBefore
afterStyleContextChanged :: (GObject a, MonadIO m) => a -> StyleContextChangedCallback -> m SignalHandlerId
afterStyleContextChanged obj cb = connectStyleContextChanged obj cb SignalConnectAfter
connectStyleContextChanged :: (GObject a, MonadIO m) =>
a -> StyleContextChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectStyleContextChanged obj cb after = liftIO $ do
cb' <- mkStyleContextChangedCallback (styleContextChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- object StyleProperties
newtype StyleProperties = StyleProperties (ForeignPtr StyleProperties)
noStyleProperties :: Maybe StyleProperties
noStyleProperties = Nothing
foreign import ccall "gtk_style_properties_get_type"
c_gtk_style_properties_get_type :: IO GType
type instance ParentTypes StyleProperties = '[GObject.Object, StyleProvider]
instance GObject StyleProperties where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_style_properties_get_type
class GObject o => StylePropertiesK o
instance (GObject o, IsDescendantOf StyleProperties o) => StylePropertiesK o
toStyleProperties :: StylePropertiesK o => o -> IO StyleProperties
toStyleProperties = unsafeCastTo StyleProperties
-- method StyleProperties::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "StyleProperties"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_new" gtk_style_properties_new ::
IO (Ptr StyleProperties)
{-# DEPRECATED stylePropertiesNew ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesNew ::
(MonadIO m) =>
m StyleProperties
stylePropertiesNew = liftIO $ do
result <- gtk_style_properties_new
checkUnexpectedReturnNULL "gtk_style_properties_new" result
result' <- (wrapObject StyleProperties) result
return result'
-- method StyleProperties::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_clear" gtk_style_properties_clear ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
IO ()
{-# DEPRECATED stylePropertiesClear ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesClear ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
m ()
stylePropertiesClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_style_properties_clear _obj'
touchManagedPtr _obj
return ()
-- method StyleProperties::get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_get_property" gtk_style_properties_get_property ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
CString -> -- property : TBasicType TUTF8
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO CInt
{-# DEPRECATED stylePropertiesGetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesGetProperty ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
T.Text -> -- property
[StateFlags] -> -- state
m (Bool,GValue)
stylePropertiesGetProperty _obj property state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
let state' = gflagsToWord state
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
result <- gtk_style_properties_get_property _obj' property' state' value
let result' = (/= 0) result
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem property'
return (result', value')
-- method StyleProperties::lookup_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_lookup_color" gtk_style_properties_lookup_color ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
CString -> -- name : TBasicType TUTF8
IO (Ptr SymbolicColor)
{-# DEPRECATED stylePropertiesLookupColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
stylePropertiesLookupColor ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
T.Text -> -- name
m SymbolicColor
stylePropertiesLookupColor _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_style_properties_lookup_color _obj' name'
checkUnexpectedReturnNULL "gtk_style_properties_lookup_color" result
result' <- (newBoxed SymbolicColor) result
touchManagedPtr _obj
freeMem name'
return result'
-- method StyleProperties::map_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_map_color" gtk_style_properties_map_color ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
CString -> -- name : TBasicType TUTF8
Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor"
IO ()
{-# DEPRECATED stylePropertiesMapColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
stylePropertiesMapColor ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
T.Text -> -- name
SymbolicColor -> -- color
m ()
stylePropertiesMapColor _obj name color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let color' = unsafeManagedPtrGetPtr color
gtk_style_properties_map_color _obj' name' color'
touchManagedPtr _obj
touchManagedPtr color
freeMem name'
return ()
-- method StyleProperties::merge
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_merge" gtk_style_properties_merge ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
Ptr StyleProperties -> -- props_to_merge : TInterface "Gtk" "StyleProperties"
CInt -> -- replace : TBasicType TBoolean
IO ()
{-# DEPRECATED stylePropertiesMerge ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesMerge ::
(MonadIO m, StylePropertiesK a, StylePropertiesK b) =>
a -> -- _obj
b -> -- props_to_merge
Bool -> -- replace
m ()
stylePropertiesMerge _obj props_to_merge replace = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let props_to_merge' = unsafeManagedPtrCastPtr props_to_merge
let replace' = (fromIntegral . fromEnum) replace
gtk_style_properties_merge _obj' props_to_merge' replace'
touchManagedPtr _obj
touchManagedPtr props_to_merge
return ()
-- method StyleProperties::set_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_set_property" gtk_style_properties_set_property ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
CString -> -- property : TBasicType TUTF8
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
{-# DEPRECATED stylePropertiesSetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesSetProperty ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
T.Text -> -- property
[StateFlags] -> -- state
GValue -> -- value
m ()
stylePropertiesSetProperty _obj property state value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
let state' = gflagsToWord state
let value' = unsafeManagedPtrGetPtr value
gtk_style_properties_set_property _obj' property' state' value'
touchManagedPtr _obj
touchManagedPtr value
freeMem property'
return ()
-- method StyleProperties::unset_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_properties_unset_property" gtk_style_properties_unset_property ::
Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties"
CString -> -- property : TBasicType TUTF8
CUInt -> -- state : TInterface "Gtk" "StateFlags"
IO ()
{-# DEPRECATED stylePropertiesUnsetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-}
stylePropertiesUnsetProperty ::
(MonadIO m, StylePropertiesK a) =>
a -> -- _obj
T.Text -> -- property
[StateFlags] -> -- state
m ()
stylePropertiesUnsetProperty _obj property state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
let state' = gflagsToWord state
gtk_style_properties_unset_property _obj' property' state'
touchManagedPtr _obj
freeMem property'
return ()
-- callback StylePropertyParser
stylePropertyParserClosure :: StylePropertyParser -> IO Closure
stylePropertyParserClosure cb = newCClosure =<< mkStylePropertyParser wrapped
where wrapped = stylePropertyParserWrapper Nothing cb
type StylePropertyParserC =
CString ->
Ptr GValue ->
IO CInt
foreign import ccall "wrapper"
mkStylePropertyParser :: StylePropertyParserC -> IO (FunPtr StylePropertyParserC)
type StylePropertyParser =
T.Text ->
GValue ->
IO Bool
noStylePropertyParser :: Maybe StylePropertyParser
noStylePropertyParser = Nothing
stylePropertyParserWrapper ::
Maybe (Ptr (FunPtr (StylePropertyParserC))) ->
StylePropertyParser ->
CString ->
Ptr GValue ->
IO CInt
stylePropertyParserWrapper funptrptr _cb string value = do
string' <- cstringToText string
value' <- (newBoxed GValue) value
result <- _cb string' value'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- interface StyleProvider
newtype StyleProvider = StyleProvider (ForeignPtr StyleProvider)
noStyleProvider :: Maybe StyleProvider
noStyleProvider = Nothing
class ForeignPtrNewtype a => StyleProviderK a
instance (ForeignPtrNewtype o, IsDescendantOf StyleProvider o) => StyleProviderK o
type instance ParentTypes StyleProvider = '[]
-- method StyleProvider::get_icon_factory
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconFactory"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_provider_get_icon_factory" gtk_style_provider_get_icon_factory ::
Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider"
Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath"
IO (Ptr IconFactory)
{-# DEPRECATED styleProviderGetIconFactory ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers."]#-}
styleProviderGetIconFactory ::
(MonadIO m, StyleProviderK a) =>
a -> -- _obj
WidgetPath -> -- path
m IconFactory
styleProviderGetIconFactory _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_style_provider_get_icon_factory _obj' path'
checkUnexpectedReturnNULL "gtk_style_provider_get_icon_factory" result
result' <- (newObject IconFactory) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method StyleProvider::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StyleProperties"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_provider_get_style" gtk_style_provider_get_style ::
Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider"
Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath"
IO (Ptr StyleProperties)
{-# DEPRECATED styleProviderGetStyle ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers"," as the interface cannot correctly work the way CSS is specified."]#-}
styleProviderGetStyle ::
(MonadIO m, StyleProviderK a) =>
a -> -- _obj
WidgetPath -> -- path
m StyleProperties
styleProviderGetStyle _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_style_provider_get_style _obj' path'
checkUnexpectedReturnNULL "gtk_style_provider_get_style" result
result' <- (wrapObject StyleProperties) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method StyleProvider::get_style_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_style_provider_get_style_property" gtk_style_provider_get_style_property ::
Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider"
Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO CInt
styleProviderGetStyleProperty ::
(MonadIO m, StyleProviderK a) =>
a -> -- _obj
WidgetPath -> -- path
[StateFlags] -> -- state
GParamSpec -> -- pspec
m (Bool,GValue)
styleProviderGetStyleProperty _obj path state pspec = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let state' = gflagsToWord state
let pspec' = unsafeManagedPtrGetPtr pspec
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
result <- gtk_style_provider_get_style_property _obj' path' state' pspec' value
let result' = (/= 0) result
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
touchManagedPtr path
return (result', value')
-- object Switch
newtype Switch = Switch (ForeignPtr Switch)
noSwitch :: Maybe Switch
noSwitch = Nothing
foreign import ccall "gtk_switch_get_type"
c_gtk_switch_get_type :: IO GType
type instance ParentTypes Switch = '[Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject Switch where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_switch_get_type
class GObject o => SwitchK o
instance (GObject o, IsDescendantOf Switch o) => SwitchK o
toSwitch :: SwitchK o => o -> IO Switch
toSwitch = unsafeCastTo Switch
-- method Switch::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Switch"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_new" gtk_switch_new ::
IO (Ptr Switch)
switchNew ::
(MonadIO m) =>
m Switch
switchNew = liftIO $ do
result <- gtk_switch_new
checkUnexpectedReturnNULL "gtk_switch_new" result
result' <- (newObject Switch) result
return result'
-- method Switch::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_get_active" gtk_switch_get_active ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
IO CInt
switchGetActive ::
(MonadIO m, SwitchK a) =>
a -> -- _obj
m Bool
switchGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_switch_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Switch::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_get_state" gtk_switch_get_state ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
IO CInt
switchGetState ::
(MonadIO m, SwitchK a) =>
a -> -- _obj
m Bool
switchGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_switch_get_state _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Switch::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_set_active" gtk_switch_set_active ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
CInt -> -- is_active : TBasicType TBoolean
IO ()
switchSetActive ::
(MonadIO m, SwitchK a) =>
a -> -- _obj
Bool -> -- is_active
m ()
switchSetActive _obj is_active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_active' = (fromIntegral . fromEnum) is_active
gtk_switch_set_active _obj' is_active'
touchManagedPtr _obj
return ()
-- method Switch::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_set_state" gtk_switch_set_state ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
CInt -> -- state : TBasicType TBoolean
IO ()
switchSetState ::
(MonadIO m, SwitchK a) =>
a -> -- _obj
Bool -> -- state
m ()
switchSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
gtk_switch_set_state _obj' state'
touchManagedPtr _obj
return ()
-- signal Switch::activate
type SwitchActivateCallback =
IO ()
noSwitchActivateCallback :: Maybe SwitchActivateCallback
noSwitchActivateCallback = Nothing
type SwitchActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSwitchActivateCallback :: SwitchActivateCallbackC -> IO (FunPtr SwitchActivateCallbackC)
switchActivateClosure :: SwitchActivateCallback -> IO Closure
switchActivateClosure cb = newCClosure =<< mkSwitchActivateCallback wrapped
where wrapped = switchActivateCallbackWrapper cb
switchActivateCallbackWrapper ::
SwitchActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
switchActivateCallbackWrapper _cb _ _ = do
_cb
onSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId
onSwitchActivate obj cb = liftIO $ connectSwitchActivate obj cb SignalConnectBefore
afterSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId
afterSwitchActivate obj cb = connectSwitchActivate obj cb SignalConnectAfter
connectSwitchActivate :: (GObject a, MonadIO m) =>
a -> SwitchActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectSwitchActivate obj cb after = liftIO $ do
cb' <- mkSwitchActivateCallback (switchActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal Switch::state-set
type SwitchStateSetCallback =
Bool ->
IO Bool
noSwitchStateSetCallback :: Maybe SwitchStateSetCallback
noSwitchStateSetCallback = Nothing
type SwitchStateSetCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSwitchStateSetCallback :: SwitchStateSetCallbackC -> IO (FunPtr SwitchStateSetCallbackC)
switchStateSetClosure :: SwitchStateSetCallback -> IO Closure
switchStateSetClosure cb = newCClosure =<< mkSwitchStateSetCallback wrapped
where wrapped = switchStateSetCallbackWrapper cb
switchStateSetCallbackWrapper ::
SwitchStateSetCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
switchStateSetCallbackWrapper _cb _ state _ = do
let state' = (/= 0) state
result <- _cb state'
let result' = (fromIntegral . fromEnum) result
return result'
onSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId
onSwitchStateSet obj cb = liftIO $ connectSwitchStateSet obj cb SignalConnectBefore
afterSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId
afterSwitchStateSet obj cb = connectSwitchStateSet obj cb SignalConnectAfter
connectSwitchStateSet :: (GObject a, MonadIO m) =>
a -> SwitchStateSetCallback -> SignalConnectMode -> m SignalHandlerId
connectSwitchStateSet obj cb after = liftIO $ do
cb' <- mkSwitchStateSetCallback (switchStateSetCallbackWrapper cb)
connectSignalFunPtr obj "state-set" cb' after
-- object SwitchAccessible
newtype SwitchAccessible = SwitchAccessible (ForeignPtr SwitchAccessible)
noSwitchAccessible :: Maybe SwitchAccessible
noSwitchAccessible = Nothing
foreign import ccall "gtk_switch_accessible_get_type"
c_gtk_switch_accessible_get_type :: IO GType
type instance ParentTypes SwitchAccessible = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component]
instance GObject SwitchAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_switch_accessible_get_type
class GObject o => SwitchAccessibleK o
instance (GObject o, IsDescendantOf SwitchAccessible o) => SwitchAccessibleK o
toSwitchAccessible :: SwitchAccessibleK o => o -> IO SwitchAccessible
toSwitchAccessible = unsafeCastTo SwitchAccessible
-- struct SymbolicColor
newtype SymbolicColor = SymbolicColor (ForeignPtr SymbolicColor)
noSymbolicColor :: Maybe SymbolicColor
noSymbolicColor = Nothing
foreign import ccall "gtk_symbolic_color_get_type" c_gtk_symbolic_color_get_type ::
IO GType
instance BoxedObject SymbolicColor where
boxedType _ = c_gtk_symbolic_color_get_type
-- method SymbolicColor::new_alpha
-- method type : Constructor
-- Args : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_alpha" gtk_symbolic_color_new_alpha ::
Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor"
CDouble -> -- factor : TBasicType TDouble
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewAlpha ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewAlpha ::
(MonadIO m) =>
SymbolicColor -> -- color
Double -> -- factor
m SymbolicColor
symbolicColorNewAlpha color factor = liftIO $ do
let color' = unsafeManagedPtrGetPtr color
let factor' = realToFrac factor
result <- gtk_symbolic_color_new_alpha color' factor'
checkUnexpectedReturnNULL "gtk_symbolic_color_new_alpha" result
result' <- (wrapBoxed SymbolicColor) result
touchManagedPtr color
return result'
-- method SymbolicColor::new_literal
-- method type : Constructor
-- Args : [Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_literal" gtk_symbolic_color_new_literal ::
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewLiteral ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewLiteral ::
(MonadIO m) =>
Gdk.RGBA -> -- color
m SymbolicColor
symbolicColorNewLiteral color = liftIO $ do
let color' = unsafeManagedPtrGetPtr color
result <- gtk_symbolic_color_new_literal color'
checkUnexpectedReturnNULL "gtk_symbolic_color_new_literal" result
result' <- (wrapBoxed SymbolicColor) result
touchManagedPtr color
return result'
-- method SymbolicColor::new_mix
-- method type : Constructor
-- Args : [Arg {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_mix" gtk_symbolic_color_new_mix ::
Ptr SymbolicColor -> -- color1 : TInterface "Gtk" "SymbolicColor"
Ptr SymbolicColor -> -- color2 : TInterface "Gtk" "SymbolicColor"
CDouble -> -- factor : TBasicType TDouble
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewMix ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewMix ::
(MonadIO m) =>
SymbolicColor -> -- color1
SymbolicColor -> -- color2
Double -> -- factor
m SymbolicColor
symbolicColorNewMix color1 color2 factor = liftIO $ do
let color1' = unsafeManagedPtrGetPtr color1
let color2' = unsafeManagedPtrGetPtr color2
let factor' = realToFrac factor
result <- gtk_symbolic_color_new_mix color1' color2' factor'
checkUnexpectedReturnNULL "gtk_symbolic_color_new_mix" result
result' <- (wrapBoxed SymbolicColor) result
touchManagedPtr color1
touchManagedPtr color2
return result'
-- method SymbolicColor::new_name
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_name" gtk_symbolic_color_new_name ::
CString -> -- name : TBasicType TUTF8
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewName ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewName ::
(MonadIO m) =>
T.Text -> -- name
m SymbolicColor
symbolicColorNewName name = liftIO $ do
name' <- textToCString name
result <- gtk_symbolic_color_new_name name'
checkUnexpectedReturnNULL "gtk_symbolic_color_new_name" result
result' <- (wrapBoxed SymbolicColor) result
freeMem name'
return result'
-- method SymbolicColor::new_shade
-- method type : Constructor
-- Args : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_shade" gtk_symbolic_color_new_shade ::
Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor"
CDouble -> -- factor : TBasicType TDouble
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewShade ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewShade ::
(MonadIO m) =>
SymbolicColor -> -- color
Double -> -- factor
m SymbolicColor
symbolicColorNewShade color factor = liftIO $ do
let color' = unsafeManagedPtrGetPtr color
let factor' = realToFrac factor
result <- gtk_symbolic_color_new_shade color' factor'
checkUnexpectedReturnNULL "gtk_symbolic_color_new_shade" result
result' <- (wrapBoxed SymbolicColor) result
touchManagedPtr color
return result'
-- method SymbolicColor::new_win32
-- method type : Constructor
-- Args : [Arg {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_new_win32" gtk_symbolic_color_new_win32 ::
CString -> -- theme_class : TBasicType TUTF8
Int32 -> -- id : TBasicType TInt32
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorNewWin32 ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorNewWin32 ::
(MonadIO m) =>
T.Text -> -- theme_class
Int32 -> -- id
m SymbolicColor
symbolicColorNewWin32 theme_class id = liftIO $ do
theme_class' <- textToCString theme_class
result <- gtk_symbolic_color_new_win32 theme_class' id
checkUnexpectedReturnNULL "gtk_symbolic_color_new_win32" result
result' <- (wrapBoxed SymbolicColor) result
freeMem theme_class'
return result'
-- method SymbolicColor::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SymbolicColor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_ref" gtk_symbolic_color_ref ::
Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor"
IO (Ptr SymbolicColor)
{-# DEPRECATED symbolicColorRef ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorRef ::
(MonadIO m) =>
SymbolicColor -> -- _obj
m SymbolicColor
symbolicColorRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_symbolic_color_ref _obj'
checkUnexpectedReturnNULL "gtk_symbolic_color_ref" result
result' <- (wrapBoxed SymbolicColor) result
touchManagedPtr _obj
return result'
-- method SymbolicColor::resolve
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_resolve" gtk_symbolic_color_resolve ::
Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor"
Ptr StyleProperties -> -- props : TInterface "Gtk" "StyleProperties"
Ptr Gdk.RGBA -> -- resolved_color : TInterface "Gdk" "RGBA"
IO CInt
{-# DEPRECATED symbolicColorResolve ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorResolve ::
(MonadIO m, StylePropertiesK a) =>
SymbolicColor -> -- _obj
Maybe (a) -> -- props
m (Bool,Gdk.RGBA)
symbolicColorResolve _obj props = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeProps <- case props of
Nothing -> return nullPtr
Just jProps -> do
let jProps' = unsafeManagedPtrCastPtr jProps
return jProps'
resolved_color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
result <- gtk_symbolic_color_resolve _obj' maybeProps resolved_color
let result' = (/= 0) result
resolved_color' <- (wrapBoxed Gdk.RGBA) resolved_color
touchManagedPtr _obj
whenJust props touchManagedPtr
return (result', resolved_color')
-- method SymbolicColor::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_to_string" gtk_symbolic_color_to_string ::
Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor"
IO CString
{-# DEPRECATED symbolicColorToString ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorToString ::
(MonadIO m) =>
SymbolicColor -> -- _obj
m T.Text
symbolicColorToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_symbolic_color_to_string _obj'
checkUnexpectedReturnNULL "gtk_symbolic_color_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method SymbolicColor::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_symbolic_color_unref" gtk_symbolic_color_unref ::
Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor"
IO ()
{-# DEPRECATED symbolicColorUnref ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-}
symbolicColorUnref ::
(MonadIO m) =>
SymbolicColor -> -- _obj
m ()
symbolicColorUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_symbolic_color_unref _obj'
touchManagedPtr _obj
return ()
-- object Table
newtype Table = Table (ForeignPtr Table)
noTable :: Maybe Table
noTable = Nothing
foreign import ccall "gtk_table_get_type"
c_gtk_table_get_type :: IO GType
type instance ParentTypes Table = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Table where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_table_get_type
class GObject o => TableK o
instance (GObject o, IsDescendantOf Table o) => TableK o
toTable :: TableK o => o -> IO Table
toTable = unsafeCastTo Table
-- method Table::new
-- method type : Constructor
-- Args : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Table"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_new" gtk_table_new ::
Word32 -> -- rows : TBasicType TUInt32
Word32 -> -- columns : TBasicType TUInt32
CInt -> -- homogeneous : TBasicType TBoolean
IO (Ptr Table)
{-# DEPRECATED tableNew ["(Since version 3.4)","Use gtk_grid_new()."]#-}
tableNew ::
(MonadIO m) =>
Word32 -> -- rows
Word32 -> -- columns
Bool -> -- homogeneous
m Table
tableNew rows columns homogeneous = liftIO $ do
let homogeneous' = (fromIntegral . fromEnum) homogeneous
result <- gtk_table_new rows columns homogeneous'
checkUnexpectedReturnNULL "gtk_table_new" result
result' <- (newObject Table) result
return result'
-- method Table::attach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_attach" gtk_table_attach ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Word32 -> -- left_attach : TBasicType TUInt32
Word32 -> -- right_attach : TBasicType TUInt32
Word32 -> -- top_attach : TBasicType TUInt32
Word32 -> -- bottom_attach : TBasicType TUInt32
CUInt -> -- xoptions : TInterface "Gtk" "AttachOptions"
CUInt -> -- yoptions : TInterface "Gtk" "AttachOptions"
Word32 -> -- xpadding : TBasicType TUInt32
Word32 -> -- ypadding : TBasicType TUInt32
IO ()
{-# DEPRECATED tableAttach ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-}
tableAttach ::
(MonadIO m, TableK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Word32 -> -- left_attach
Word32 -> -- right_attach
Word32 -> -- top_attach
Word32 -> -- bottom_attach
[AttachOptions] -> -- xoptions
[AttachOptions] -> -- yoptions
Word32 -> -- xpadding
Word32 -> -- ypadding
m ()
tableAttach _obj child left_attach right_attach top_attach bottom_attach xoptions yoptions xpadding ypadding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let xoptions' = gflagsToWord xoptions
let yoptions' = gflagsToWord yoptions
gtk_table_attach _obj' child' left_attach right_attach top_attach bottom_attach xoptions' yoptions' xpadding ypadding
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Table::attach_defaults
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_attach_defaults" gtk_table_attach_defaults ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Word32 -> -- left_attach : TBasicType TUInt32
Word32 -> -- right_attach : TBasicType TUInt32
Word32 -> -- top_attach : TBasicType TUInt32
Word32 -> -- bottom_attach : TBasicType TUInt32
IO ()
{-# DEPRECATED tableAttachDefaults ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-}
tableAttachDefaults ::
(MonadIO m, TableK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
Word32 -> -- left_attach
Word32 -> -- right_attach
Word32 -> -- top_attach
Word32 -> -- bottom_attach
m ()
tableAttachDefaults _obj widget left_attach right_attach top_attach bottom_attach = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_table_attach_defaults _obj' widget' left_attach right_attach top_attach bottom_attach
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method Table::get_col_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_col_spacing" gtk_table_get_col_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- column : TBasicType TUInt32
IO Word32
{-# DEPRECATED tableGetColSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-}
tableGetColSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- column
m Word32
tableGetColSpacing _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_table_get_col_spacing _obj' column
touchManagedPtr _obj
return result
-- method Table::get_default_col_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_default_col_spacing" gtk_table_get_default_col_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
IO Word32
{-# DEPRECATED tableGetDefaultColSpacing ["(Since version 3.4)","Use gtk_grid_get_column_spacing() with #GtkGrid."]#-}
tableGetDefaultColSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Word32
tableGetDefaultColSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_table_get_default_col_spacing _obj'
touchManagedPtr _obj
return result
-- method Table::get_default_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_default_row_spacing" gtk_table_get_default_row_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
IO Word32
{-# DEPRECATED tableGetDefaultRowSpacing ["(Since version 3.4)","Use gtk_grid_get_row_spacing() with #GtkGrid."]#-}
tableGetDefaultRowSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Word32
tableGetDefaultRowSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_table_get_default_row_spacing _obj'
touchManagedPtr _obj
return result
-- method Table::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_homogeneous" gtk_table_get_homogeneous ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
IO CInt
{-# DEPRECATED tableGetHomogeneous ["(Since version 3.4)","Use gtk_grid_get_row_homogeneous() and"," gtk_grid_get_column_homogeneous() with #GtkGrid."]#-}
tableGetHomogeneous ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Bool
tableGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_table_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::get_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_row_spacing" gtk_table_get_row_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- row : TBasicType TUInt32
IO Word32
{-# DEPRECATED tableGetRowSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-}
tableGetRowSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- row
m Word32
tableGetRowSpacing _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_table_get_row_spacing _obj' row
touchManagedPtr _obj
return result
-- method Table::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_get_size" gtk_table_get_size ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Ptr Word32 -> -- rows : TBasicType TUInt32
Ptr Word32 -> -- columns : TBasicType TUInt32
IO ()
{-# DEPRECATED tableGetSize ["(Since version 3.4)","#GtkGrid does not expose the number of columns and"," rows."]#-}
tableGetSize ::
(MonadIO m, TableK a) =>
a -> -- _obj
m (Word32,Word32)
tableGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rows <- allocMem :: IO (Ptr Word32)
columns <- allocMem :: IO (Ptr Word32)
gtk_table_get_size _obj' rows columns
rows' <- peek rows
columns' <- peek columns
touchManagedPtr _obj
freeMem rows
freeMem columns
return (rows', columns')
-- method Table::resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_resize" gtk_table_resize ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- rows : TBasicType TUInt32
Word32 -> -- columns : TBasicType TUInt32
IO ()
{-# DEPRECATED tableResize ["(Since version 3.4)","#GtkGrid resizes automatically."]#-}
tableResize ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- rows
Word32 -> -- columns
m ()
tableResize _obj rows columns = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_table_resize _obj' rows columns
touchManagedPtr _obj
return ()
-- method Table::set_col_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_set_col_spacing" gtk_table_set_col_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- column : TBasicType TUInt32
Word32 -> -- spacing : TBasicType TUInt32
IO ()
{-# DEPRECATED tableSetColSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_start() and"," gtk_widget_set_margin_end() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-}
tableSetColSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- column
Word32 -> -- spacing
m ()
tableSetColSpacing _obj column spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_table_set_col_spacing _obj' column spacing
touchManagedPtr _obj
return ()
-- method Table::set_col_spacings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_set_col_spacings" gtk_table_set_col_spacings ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
{-# DEPRECATED tableSetColSpacings ["(Since version 3.4)","Use gtk_grid_set_column_spacing() with #GtkGrid."]#-}
tableSetColSpacings ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
tableSetColSpacings _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_table_set_col_spacings _obj' spacing
touchManagedPtr _obj
return ()
-- method Table::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_set_homogeneous" gtk_table_set_homogeneous ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
{-# DEPRECATED tableSetHomogeneous ["(Since version 3.4)","Use gtk_grid_set_row_homogeneous() and"," gtk_grid_set_column_homogeneous() with #GtkGrid."]#-}
tableSetHomogeneous ::
(MonadIO m, TableK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
tableSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_table_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Table::set_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_set_row_spacing" gtk_table_set_row_spacing ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- row : TBasicType TUInt32
Word32 -> -- spacing : TBasicType TUInt32
IO ()
{-# DEPRECATED tableSetRowSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_top() and"," gtk_widget_set_margin_bottom() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-}
tableSetRowSpacing ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- row
Word32 -> -- spacing
m ()
tableSetRowSpacing _obj row spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_table_set_row_spacing _obj' row spacing
touchManagedPtr _obj
return ()
-- method Table::set_row_spacings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_table_set_row_spacings" gtk_table_set_row_spacings ::
Ptr Table -> -- _obj : TInterface "Gtk" "Table"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
{-# DEPRECATED tableSetRowSpacings ["(Since version 3.4)","Use gtk_grid_set_row_spacing() with #GtkGrid."]#-}
tableSetRowSpacings ::
(MonadIO m, TableK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
tableSetRowSpacings _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_table_set_row_spacings _obj' spacing
touchManagedPtr _obj
return ()
-- struct TableChild
newtype TableChild = TableChild (ForeignPtr TableChild)
noTableChild :: Maybe TableChild
noTableChild = Nothing
tableChildReadWidget :: TableChild -> IO Widget
tableChildReadWidget s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget)
val' <- (newObject Widget) val
return val'
tableChildReadLeftAttach :: TableChild -> IO Word16
tableChildReadLeftAttach s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word16
return val
tableChildReadRightAttach :: TableChild -> IO Word16
tableChildReadRightAttach s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 10) :: IO Word16
return val
tableChildReadTopAttach :: TableChild -> IO Word16
tableChildReadTopAttach s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word16
return val
tableChildReadBottomAttach :: TableChild -> IO Word16
tableChildReadBottomAttach s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 14) :: IO Word16
return val
tableChildReadXpadding :: TableChild -> IO Word16
tableChildReadXpadding s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word16
return val
tableChildReadYpadding :: TableChild -> IO Word16
tableChildReadYpadding s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 18) :: IO Word16
return val
tableChildReadXexpand :: TableChild -> IO Word32
tableChildReadXexpand s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
tableChildReadYexpand :: TableChild -> IO Word32
tableChildReadYexpand s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
tableChildReadXshrink :: TableChild -> IO Word32
tableChildReadXshrink s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val
tableChildReadYshrink :: TableChild -> IO Word32
tableChildReadYshrink s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
tableChildReadXfill :: TableChild -> IO Word32
tableChildReadXfill s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO Word32
return val
tableChildReadYfill :: TableChild -> IO Word32
tableChildReadYfill s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO Word32
return val
-- struct TableRowCol
newtype TableRowCol = TableRowCol (ForeignPtr TableRowCol)
noTableRowCol :: Maybe TableRowCol
noTableRowCol = Nothing
tableRowColReadRequisition :: TableRowCol -> IO Word16
tableRowColReadRequisition s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word16
return val
tableRowColReadAllocation :: TableRowCol -> IO Word16
tableRowColReadAllocation s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 2) :: IO Word16
return val
tableRowColReadSpacing :: TableRowCol -> IO Word16
tableRowColReadSpacing s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Word16
return val
tableRowColReadNeedExpand :: TableRowCol -> IO Word32
tableRowColReadNeedExpand s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
tableRowColReadNeedShrink :: TableRowCol -> IO Word32
tableRowColReadNeedShrink s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word32
return val
tableRowColReadExpand :: TableRowCol -> IO Word32
tableRowColReadExpand s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
tableRowColReadShrink :: TableRowCol -> IO Word32
tableRowColReadShrink s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
tableRowColReadEmpty :: TableRowCol -> IO Word32
tableRowColReadEmpty s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
-- struct TargetEntry
newtype TargetEntry = TargetEntry (ForeignPtr TargetEntry)
noTargetEntry :: Maybe TargetEntry
noTargetEntry = Nothing
foreign import ccall "gtk_target_entry_get_type" c_gtk_target_entry_get_type ::
IO GType
instance BoxedObject TargetEntry where
boxedType _ = c_gtk_target_entry_get_type
targetEntryReadTarget :: TargetEntry -> IO T.Text
targetEntryReadTarget s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
targetEntryReadFlags :: TargetEntry -> IO Word32
targetEntryReadFlags s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
targetEntryReadInfo :: TargetEntry -> IO Word32
targetEntryReadInfo s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word32
return val
-- method TargetEntry::new
-- method type : Constructor
-- Args : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_entry_new" gtk_target_entry_new ::
CString -> -- target : TBasicType TUTF8
Word32 -> -- flags : TBasicType TUInt32
Word32 -> -- info : TBasicType TUInt32
IO (Ptr TargetEntry)
targetEntryNew ::
(MonadIO m) =>
T.Text -> -- target
Word32 -> -- flags
Word32 -> -- info
m TargetEntry
targetEntryNew target flags info = liftIO $ do
target' <- textToCString target
result <- gtk_target_entry_new target' flags info
checkUnexpectedReturnNULL "gtk_target_entry_new" result
result' <- (wrapBoxed TargetEntry) result
freeMem target'
return result'
-- method TargetEntry::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_entry_copy" gtk_target_entry_copy ::
Ptr TargetEntry -> -- _obj : TInterface "Gtk" "TargetEntry"
IO (Ptr TargetEntry)
targetEntryCopy ::
(MonadIO m) =>
TargetEntry -> -- _obj
m TargetEntry
targetEntryCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_target_entry_copy _obj'
checkUnexpectedReturnNULL "gtk_target_entry_copy" result
result' <- (wrapBoxed TargetEntry) result
touchManagedPtr _obj
return result'
-- method TargetEntry::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_entry_free" gtk_target_entry_free ::
Ptr TargetEntry -> -- _obj : TInterface "Gtk" "TargetEntry"
IO ()
targetEntryFree ::
(MonadIO m) =>
TargetEntry -> -- _obj
m ()
targetEntryFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_target_entry_free _obj'
touchManagedPtr _obj
return ()
-- Flags TargetFlags
data TargetFlags =
TargetFlagsSameApp
| TargetFlagsSameWidget
| TargetFlagsOtherApp
| TargetFlagsOtherWidget
| AnotherTargetFlags Int
deriving (Show, Eq)
instance Enum TargetFlags where
fromEnum TargetFlagsSameApp = 1
fromEnum TargetFlagsSameWidget = 2
fromEnum TargetFlagsOtherApp = 4
fromEnum TargetFlagsOtherWidget = 8
fromEnum (AnotherTargetFlags k) = k
toEnum 1 = TargetFlagsSameApp
toEnum 2 = TargetFlagsSameWidget
toEnum 4 = TargetFlagsOtherApp
toEnum 8 = TargetFlagsOtherWidget
toEnum k = AnotherTargetFlags k
foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type ::
IO GType
instance BoxedEnum TargetFlags where
boxedEnumType _ = c_gtk_target_flags_get_type
instance IsGFlag TargetFlags
-- struct TargetList
newtype TargetList = TargetList (ForeignPtr TargetList)
noTargetList :: Maybe TargetList
noTargetList = Nothing
foreign import ccall "gtk_target_list_get_type" c_gtk_target_list_get_type ::
IO GType
instance BoxedObject TargetList where
boxedType _ = c_gtk_target_list_get_type
-- method TargetList::new
-- method type : Constructor
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_new" gtk_target_list_new ::
Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")
Word32 -> -- ntargets : TBasicType TUInt32
IO (Ptr TargetList)
targetListNew ::
(MonadIO m) =>
Maybe ([TargetEntry]) -> -- targets
m TargetList
targetListNew targets = liftIO $ do
let ntargets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
result <- gtk_target_list_new maybeTargets ntargets
checkUnexpectedReturnNULL "gtk_target_list_new" result
result' <- (wrapBoxed TargetList) result
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return result'
-- method TargetList::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add" gtk_target_list_add ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- flags : TBasicType TUInt32
Word32 -> -- info : TBasicType TUInt32
IO ()
targetListAdd ::
(MonadIO m) =>
TargetList -> -- _obj
Gdk.Atom -> -- target
Word32 -> -- flags
Word32 -> -- info
m ()
targetListAdd _obj target flags info = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let target' = unsafeManagedPtrGetPtr target
gtk_target_list_add _obj' target' flags info
touchManagedPtr _obj
touchManagedPtr target
return ()
-- method TargetList::add_image_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add_image_targets" gtk_target_list_add_image_targets ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Word32 -> -- info : TBasicType TUInt32
CInt -> -- writable : TBasicType TBoolean
IO ()
targetListAddImageTargets ::
(MonadIO m) =>
TargetList -> -- _obj
Word32 -> -- info
Bool -> -- writable
m ()
targetListAddImageTargets _obj info writable = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let writable' = (fromIntegral . fromEnum) writable
gtk_target_list_add_image_targets _obj' info writable'
touchManagedPtr _obj
return ()
-- method TargetList::add_rich_text_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add_rich_text_targets" gtk_target_list_add_rich_text_targets ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Word32 -> -- info : TBasicType TUInt32
CInt -> -- deserializable : TBasicType TBoolean
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO ()
targetListAddRichTextTargets ::
(MonadIO m, TextBufferK a) =>
TargetList -> -- _obj
Word32 -> -- info
Bool -> -- deserializable
a -> -- buffer
m ()
targetListAddRichTextTargets _obj info deserializable buffer = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let deserializable' = (fromIntegral . fromEnum) deserializable
let buffer' = unsafeManagedPtrCastPtr buffer
gtk_target_list_add_rich_text_targets _obj' info deserializable' buffer'
touchManagedPtr _obj
touchManagedPtr buffer
return ()
-- method TargetList::add_table
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add_table" gtk_target_list_add_table ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")
Word32 -> -- ntargets : TBasicType TUInt32
IO ()
targetListAddTable ::
(MonadIO m) =>
TargetList -> -- _obj
[TargetEntry] -> -- targets
m ()
targetListAddTable _obj targets = liftIO $ do
let ntargets = fromIntegral $ length targets
let _obj' = unsafeManagedPtrGetPtr _obj
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
gtk_target_list_add_table _obj' targets'' ntargets
touchManagedPtr _obj
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- method TargetList::add_text_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add_text_targets" gtk_target_list_add_text_targets ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Word32 -> -- info : TBasicType TUInt32
IO ()
targetListAddTextTargets ::
(MonadIO m) =>
TargetList -> -- _obj
Word32 -> -- info
m ()
targetListAddTextTargets _obj info = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_target_list_add_text_targets _obj' info
touchManagedPtr _obj
return ()
-- method TargetList::add_uri_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_add_uri_targets" gtk_target_list_add_uri_targets ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Word32 -> -- info : TBasicType TUInt32
IO ()
targetListAddUriTargets ::
(MonadIO m) =>
TargetList -> -- _obj
Word32 -> -- info
m ()
targetListAddUriTargets _obj info = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_target_list_add_uri_targets _obj' info
touchManagedPtr _obj
return ()
-- method TargetList::find
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_find" gtk_target_list_find ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Ptr Word32 -> -- info : TBasicType TUInt32
IO CInt
targetListFind ::
(MonadIO m) =>
TargetList -> -- _obj
Gdk.Atom -> -- target
m (Bool,Word32)
targetListFind _obj target = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let target' = unsafeManagedPtrGetPtr target
info <- allocMem :: IO (Ptr Word32)
result <- gtk_target_list_find _obj' target' info
let result' = (/= 0) result
info' <- peek info
touchManagedPtr _obj
touchManagedPtr target
freeMem info
return (result', info')
-- method TargetList::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_ref" gtk_target_list_ref ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
IO (Ptr TargetList)
targetListRef ::
(MonadIO m) =>
TargetList -> -- _obj
m TargetList
targetListRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_target_list_ref _obj'
checkUnexpectedReturnNULL "gtk_target_list_ref" result
result' <- (wrapBoxed TargetList) result
touchManagedPtr _obj
return result'
-- method TargetList::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_remove" gtk_target_list_remove ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
IO ()
targetListRemove ::
(MonadIO m) =>
TargetList -> -- _obj
Gdk.Atom -> -- target
m ()
targetListRemove _obj target = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let target' = unsafeManagedPtrGetPtr target
gtk_target_list_remove _obj' target'
touchManagedPtr _obj
touchManagedPtr target
return ()
-- method TargetList::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_list_unref" gtk_target_list_unref ::
Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList"
IO ()
targetListUnref ::
(MonadIO m) =>
TargetList -> -- _obj
m ()
targetListUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_target_list_unref _obj'
touchManagedPtr _obj
return ()
-- struct TargetPair
newtype TargetPair = TargetPair (ForeignPtr TargetPair)
noTargetPair :: Maybe TargetPair
noTargetPair = Nothing
targetPairReadTarget :: TargetPair -> IO Gdk.Atom
targetPairReadTarget s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Atom)
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
val' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) val
return val'
targetPairReadFlags :: TargetPair -> IO Word32
targetPairReadFlags s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
targetPairReadInfo :: TargetPair -> IO Word32
targetPairReadInfo s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word32
return val
-- object TearoffMenuItem
newtype TearoffMenuItem = TearoffMenuItem (ForeignPtr TearoffMenuItem)
noTearoffMenuItem :: Maybe TearoffMenuItem
noTearoffMenuItem = Nothing
foreign import ccall "gtk_tearoff_menu_item_get_type"
c_gtk_tearoff_menu_item_get_type :: IO GType
type instance ParentTypes TearoffMenuItem = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject TearoffMenuItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tearoff_menu_item_get_type
class GObject o => TearoffMenuItemK o
instance (GObject o, IsDescendantOf TearoffMenuItem o) => TearoffMenuItemK o
toTearoffMenuItem :: TearoffMenuItemK o => o -> IO TearoffMenuItem
toTearoffMenuItem = unsafeCastTo TearoffMenuItem
-- method TearoffMenuItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TearoffMenuItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tearoff_menu_item_new" gtk_tearoff_menu_item_new ::
IO (Ptr TearoffMenuItem)
{-# DEPRECATED tearoffMenuItemNew ["(Since version 3.4)","#GtkTearoffMenuItem is deprecated and should not be"," used in newly written code."]#-}
tearoffMenuItemNew ::
(MonadIO m) =>
m TearoffMenuItem
tearoffMenuItemNew = liftIO $ do
result <- gtk_tearoff_menu_item_new
checkUnexpectedReturnNULL "gtk_tearoff_menu_item_new" result
result' <- (newObject TearoffMenuItem) result
return result'
-- struct TextAppearance
newtype TextAppearance = TextAppearance (ForeignPtr TextAppearance)
noTextAppearance :: Maybe TextAppearance
noTextAppearance = Nothing
textAppearanceReadBgColor :: TextAppearance -> IO Gdk.Color
textAppearanceReadBgColor s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Color)
val' <- (newBoxed Gdk.Color) val
return val'
textAppearanceReadFgColor :: TextAppearance -> IO Gdk.Color
textAppearanceReadFgColor s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO (Ptr Gdk.Color)
val' <- (newBoxed Gdk.Color) val
return val'
textAppearanceReadRise :: TextAppearance -> IO Int32
textAppearanceReadRise s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Int32
return val
textAppearanceReadUnderline :: TextAppearance -> IO Word32
textAppearanceReadUnderline s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val
textAppearanceReadStrikethrough :: TextAppearance -> IO Word32
textAppearanceReadStrikethrough s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
textAppearanceReadDrawBg :: TextAppearance -> IO Word32
textAppearanceReadDrawBg s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO Word32
return val
textAppearanceReadInsideSelection :: TextAppearance -> IO Word32
textAppearanceReadInsideSelection s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO Word32
return val
textAppearanceReadIsText :: TextAppearance -> IO Word32
textAppearanceReadIsText s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 44) :: IO Word32
return val
-- struct TextAttributes
newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes)
noTextAttributes :: Maybe TextAttributes
noTextAttributes = Nothing
foreign import ccall "gtk_text_attributes_get_type" c_gtk_text_attributes_get_type ::
IO GType
instance BoxedObject TextAttributes where
boxedType _ = c_gtk_text_attributes_get_type
textAttributesReadAppearance :: TextAttributes -> IO TextAppearance
textAttributesReadAppearance s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO (Ptr TextAppearance)
val' <- (newPtr 48 TextAppearance) val
return val'
textAttributesReadJustification :: TextAttributes -> IO Justification
textAttributesReadJustification s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 52) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
textAttributesReadDirection :: TextAttributes -> IO TextDirection
textAttributesReadDirection s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
textAttributesReadFont :: TextAttributes -> IO Pango.FontDescription
textAttributesReadFont s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO (Ptr Pango.FontDescription)
val' <- (newBoxed Pango.FontDescription) val
return val'
textAttributesReadFontScale :: TextAttributes -> IO Double
textAttributesReadFontScale s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO CDouble
let val' = realToFrac val
return val'
textAttributesReadLeftMargin :: TextAttributes -> IO Int32
textAttributesReadLeftMargin s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO Int32
return val
textAttributesReadRightMargin :: TextAttributes -> IO Int32
textAttributesReadRightMargin s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 84) :: IO Int32
return val
textAttributesReadIndent :: TextAttributes -> IO Int32
textAttributesReadIndent s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 88) :: IO Int32
return val
textAttributesReadPixelsAboveLines :: TextAttributes -> IO Int32
textAttributesReadPixelsAboveLines s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 92) :: IO Int32
return val
textAttributesReadPixelsBelowLines :: TextAttributes -> IO Int32
textAttributesReadPixelsBelowLines s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 96) :: IO Int32
return val
textAttributesReadPixelsInsideWrap :: TextAttributes -> IO Int32
textAttributesReadPixelsInsideWrap s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 100) :: IO Int32
return val
textAttributesReadTabs :: TextAttributes -> IO Pango.TabArray
textAttributesReadTabs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 104) :: IO (Ptr Pango.TabArray)
val' <- (newBoxed Pango.TabArray) val
return val'
textAttributesReadWrapMode :: TextAttributes -> IO WrapMode
textAttributesReadWrapMode s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 112) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
textAttributesReadLanguage :: TextAttributes -> IO Pango.Language
textAttributesReadLanguage s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 120) :: IO (Ptr Pango.Language)
val' <- (newBoxed Pango.Language) val
return val'
textAttributesReadInvisible :: TextAttributes -> IO Word32
textAttributesReadInvisible s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 136) :: IO Word32
return val
textAttributesReadBgFullHeight :: TextAttributes -> IO Word32
textAttributesReadBgFullHeight s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 140) :: IO Word32
return val
textAttributesReadEditable :: TextAttributes -> IO Word32
textAttributesReadEditable s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 144) :: IO Word32
return val
textAttributesReadNoFallback :: TextAttributes -> IO Word32
textAttributesReadNoFallback s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 148) :: IO Word32
return val
textAttributesReadLetterSpacing :: TextAttributes -> IO Int32
textAttributesReadLetterSpacing s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 160) :: IO Int32
return val
-- method TextAttributes::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextAttributes"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_attributes_new" gtk_text_attributes_new ::
IO (Ptr TextAttributes)
textAttributesNew ::
(MonadIO m) =>
m TextAttributes
textAttributesNew = liftIO $ do
result <- gtk_text_attributes_new
checkUnexpectedReturnNULL "gtk_text_attributes_new" result
result' <- (wrapBoxed TextAttributes) result
return result'
-- method TextAttributes::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextAttributes"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_attributes_copy" gtk_text_attributes_copy ::
Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes"
IO (Ptr TextAttributes)
textAttributesCopy ::
(MonadIO m) =>
TextAttributes -> -- _obj
m TextAttributes
textAttributesCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_attributes_copy _obj'
checkUnexpectedReturnNULL "gtk_text_attributes_copy" result
result' <- (wrapBoxed TextAttributes) result
touchManagedPtr _obj
return result'
-- method TextAttributes::copy_values
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_attributes_copy_values" gtk_text_attributes_copy_values ::
Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes"
Ptr TextAttributes -> -- dest : TInterface "Gtk" "TextAttributes"
IO ()
textAttributesCopyValues ::
(MonadIO m) =>
TextAttributes -> -- _obj
TextAttributes -> -- dest
m ()
textAttributesCopyValues _obj dest = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let dest' = unsafeManagedPtrGetPtr dest
gtk_text_attributes_copy_values _obj' dest'
touchManagedPtr _obj
touchManagedPtr dest
return ()
-- method TextAttributes::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextAttributes"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_attributes_ref" gtk_text_attributes_ref ::
Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes"
IO (Ptr TextAttributes)
textAttributesRef ::
(MonadIO m) =>
TextAttributes -> -- _obj
m TextAttributes
textAttributesRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_attributes_ref _obj'
checkUnexpectedReturnNULL "gtk_text_attributes_ref" result
result' <- (wrapBoxed TextAttributes) result
touchManagedPtr _obj
return result'
-- method TextAttributes::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_attributes_unref" gtk_text_attributes_unref ::
Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes"
IO ()
textAttributesUnref ::
(MonadIO m) =>
TextAttributes -> -- _obj
m ()
textAttributesUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_attributes_unref _obj'
touchManagedPtr _obj
return ()
-- struct TextBTree
newtype TextBTree = TextBTree (ForeignPtr TextBTree)
noTextBTree :: Maybe TextBTree
noTextBTree = Nothing
-- object TextBuffer
newtype TextBuffer = TextBuffer (ForeignPtr TextBuffer)
noTextBuffer :: Maybe TextBuffer
noTextBuffer = Nothing
foreign import ccall "gtk_text_buffer_get_type"
c_gtk_text_buffer_get_type :: IO GType
type instance ParentTypes TextBuffer = '[GObject.Object]
instance GObject TextBuffer where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_buffer_get_type
class GObject o => TextBufferK o
instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o
toTextBuffer :: TextBufferK o => o -> IO TextBuffer
toTextBuffer = unsafeCastTo TextBuffer
-- method TextBuffer::new
-- method type : Constructor
-- Args : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new ::
Ptr TextTagTable -> -- table : TInterface "Gtk" "TextTagTable"
IO (Ptr TextBuffer)
textBufferNew ::
(MonadIO m, TextTagTableK a) =>
Maybe (a) -> -- table
m TextBuffer
textBufferNew table = liftIO $ do
maybeTable <- case table of
Nothing -> return nullPtr
Just jTable -> do
let jTable' = unsafeManagedPtrCastPtr jTable
return jTable'
result <- gtk_text_buffer_new maybeTable
checkUnexpectedReturnNULL "gtk_text_buffer_new" result
result' <- (wrapObject TextBuffer) result
whenJust table touchManagedPtr
return result'
-- method TextBuffer::add_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferAddMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
TextIter -> -- where
m ()
textBufferAddMark _obj mark where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_add_mark _obj' mark' where_'
touchManagedPtr _obj
touchManagedPtr mark
touchManagedPtr where_
return ()
-- method TextBuffer::add_selection_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferAddSelectionClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -> -- _obj
b -> -- clipboard
m ()
textBufferAddSelectionClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_add_selection_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
-- method TextBuffer::apply_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferApplyTag ::
(MonadIO m, TextBufferK a, TextTagK b) =>
a -> -- _obj
b -> -- tag
TextIter -> -- start
TextIter -> -- end
m ()
textBufferApplyTag _obj tag start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_apply_tag _obj' tag' start' end'
touchManagedPtr _obj
touchManagedPtr tag
touchManagedPtr start
touchManagedPtr end
return ()
-- method TextBuffer::apply_tag_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferApplyTagByName ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- name
TextIter -> -- start
TextIter -> -- end
m ()
textBufferApplyTagByName _obj name start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_apply_tag_by_name _obj' name' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
freeMem name'
return ()
-- method TextBuffer::backspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_backspace" gtk_text_buffer_backspace ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CInt -> -- interactive : TBasicType TBoolean
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferBackspace ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
Bool -> -- interactive
Bool -> -- default_editable
m Bool
textBufferBackspace _obj iter interactive default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let interactive' = (fromIntegral . fromEnum) interactive
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_backspace _obj' iter' interactive' default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextBuffer::begin_user_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO ()
textBufferBeginUserAction ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m ()
textBufferBeginUserAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_buffer_begin_user_action _obj'
touchManagedPtr _obj
return ()
-- method TextBuffer::copy_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferCopyClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -> -- _obj
b -> -- clipboard
m ()
textBufferCopyClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_copy_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
-- method TextBuffer::create_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextChildAnchor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO (Ptr TextChildAnchor)
textBufferCreateChildAnchor ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
m TextChildAnchor
textBufferCreateChildAnchor _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_buffer_create_child_anchor _obj' iter'
checkUnexpectedReturnNULL "gtk_text_buffer_create_child_anchor" result
result' <- (newObject TextChildAnchor) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextBuffer::create_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mark_name : TBasicType TUTF8
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
CInt -> -- left_gravity : TBasicType TBoolean
IO (Ptr TextMark)
textBufferCreateMark ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Maybe (T.Text) -> -- mark_name
TextIter -> -- where
Bool -> -- left_gravity
m TextMark
textBufferCreateMark _obj mark_name where_ left_gravity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMark_name <- case mark_name of
Nothing -> return nullPtr
Just jMark_name -> do
jMark_name' <- textToCString jMark_name
return jMark_name'
let where_' = unsafeManagedPtrGetPtr where_
let left_gravity' = (fromIntegral . fromEnum) left_gravity
result <- gtk_text_buffer_create_mark _obj' maybeMark_name where_' left_gravity'
checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
touchManagedPtr where_
freeMem maybeMark_name
return result'
-- method TextBuffer::cut_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
CInt -> -- default_editable : TBasicType TBoolean
IO ()
textBufferCutClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -> -- _obj
b -> -- clipboard
Bool -> -- default_editable
m ()
textBufferCutClipboard _obj clipboard default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
let default_editable' = (fromIntegral . fromEnum) default_editable
gtk_text_buffer_cut_clipboard _obj' clipboard' default_editable'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
-- method TextBuffer::delete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete" gtk_text_buffer_delete ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferDelete ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- start
TextIter -> -- end
m ()
textBufferDelete _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_delete _obj' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return ()
-- method TextBuffer::delete_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start_iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end_iter : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferDeleteInteractive ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- start_iter
TextIter -> -- end_iter
Bool -> -- default_editable
m Bool
textBufferDeleteInteractive _obj start_iter end_iter default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start_iter' = unsafeManagedPtrGetPtr start_iter
let end_iter' = unsafeManagedPtrGetPtr end_iter
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_delete_interactive _obj' start_iter' end_iter' default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr start_iter
touchManagedPtr end_iter
return result'
-- method TextBuffer::delete_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO ()
textBufferDeleteMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
m ()
textBufferDeleteMark _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
gtk_text_buffer_delete_mark _obj' mark'
touchManagedPtr _obj
touchManagedPtr mark
return ()
-- method TextBuffer::delete_mark_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
IO ()
textBufferDeleteMarkByName ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- name
m ()
textBufferDeleteMarkByName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_text_buffer_delete_mark_by_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method TextBuffer::delete_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CInt -> -- interactive : TBasicType TBoolean
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferDeleteSelection ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Bool -> -- interactive
Bool -> -- default_editable
m Bool
textBufferDeleteSelection _obj interactive default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let interactive' = (fromIntegral . fromEnum) interactive
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_delete_selection _obj' interactive' default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextBuffer::deserialize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Word8 -> -- data : TCArray False (-1) 5 (TBasicType TUInt8)
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CInt
textBufferDeserialize ::
(MonadIO m, TextBufferK a, TextBufferK b) =>
a -> -- _obj
b -> -- content_buffer
Gdk.Atom -> -- format
TextIter -> -- iter
ByteString -> -- data
m ()
textBufferDeserialize _obj content_buffer format iter data_ = liftIO $ do
let length_ = fromIntegral $ B.length data_
let _obj' = unsafeManagedPtrCastPtr _obj
let content_buffer' = unsafeManagedPtrCastPtr content_buffer
let format' = unsafeManagedPtrGetPtr format
let iter' = unsafeManagedPtrGetPtr iter
data_' <- packByteString data_
onException (do
_ <- propagateGError $ gtk_text_buffer_deserialize _obj' content_buffer' format' iter' data_' length_
touchManagedPtr _obj
touchManagedPtr content_buffer
touchManagedPtr format
touchManagedPtr iter
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method TextBuffer::deserialize_get_can_create_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO CInt
textBufferDeserializeGetCanCreateTags ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Gdk.Atom -> -- format
m Bool
textBufferDeserializeGetCanCreateTags _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
result <- gtk_text_buffer_deserialize_get_can_create_tags _obj' format'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr format
return result'
-- method TextBuffer::deserialize_set_can_create_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
CInt -> -- can_create_tags : TBasicType TBoolean
IO ()
textBufferDeserializeSetCanCreateTags ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Gdk.Atom -> -- format
Bool -> -- can_create_tags
m ()
textBufferDeserializeSetCanCreateTags _obj format can_create_tags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
let can_create_tags' = (fromIntegral . fromEnum) can_create_tags
gtk_text_buffer_deserialize_set_can_create_tags _obj' format' can_create_tags'
touchManagedPtr _obj
touchManagedPtr format
return ()
-- method TextBuffer::end_user_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO ()
textBufferEndUserAction ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m ()
textBufferEndUserAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_buffer_end_user_action _obj'
touchManagedPtr _obj
return ()
-- method TextBuffer::get_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferGetBounds ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m (TextIter,TextIter)
textBufferGetBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_bounds _obj' start end
start' <- (wrapBoxed TextIter) start
end' <- (wrapBoxed TextIter) end
touchManagedPtr _obj
return (start', end')
-- method TextBuffer::get_char_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO Int32
textBufferGetCharCount ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m Int32
textBufferGetCharCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_char_count _obj'
touchManagedPtr _obj
return result
-- method TextBuffer::get_copy_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TargetList)
textBufferGetCopyTargetList ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m TargetList
textBufferGetCopyTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_copy_target_list _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_copy_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_deserialize_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Int32 -> -- n_formats : TBasicType TInt32
IO (Ptr (Ptr Gdk.Atom))
textBufferGetDeserializeFormats ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m [Gdk.Atom]
textBufferGetDeserializeFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
n_formats <- allocMem :: IO (Ptr Int32)
result <- gtk_text_buffer_get_deserialize_formats _obj' n_formats
n_formats' <- peek n_formats
checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (unpackPtrArrayWithLength n_formats') result
result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result'
freeMem result
touchManagedPtr _obj
freeMem n_formats
return result''
-- method TextBuffer::get_end_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO ()
textBufferGetEndIter ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m (TextIter)
textBufferGetEndIter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_end_iter _obj' iter
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_has_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO CInt
textBufferGetHasSelection ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m Bool
textBufferGetHasSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_has_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextMark)
textBufferGetInsert ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m TextMark
textBufferGetInsert _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_insert _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_insert" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_iter_at_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor"
IO ()
textBufferGetIterAtChildAnchor ::
(MonadIO m, TextBufferK a, TextChildAnchorK b) =>
a -> -- _obj
b -> -- anchor
m (TextIter)
textBufferGetIterAtChildAnchor _obj anchor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
let anchor' = unsafeManagedPtrCastPtr anchor
gtk_text_buffer_get_iter_at_child_anchor _obj' iter anchor'
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
touchManagedPtr anchor
return iter'
-- method TextBuffer::get_iter_at_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
IO ()
textBufferGetIterAtLine ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Int32 -> -- line_number
m (TextIter)
textBufferGetIterAtLine _obj line_number = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line _obj' iter line_number
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_iter_at_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
Int32 -> -- byte_index : TBasicType TInt32
IO ()
textBufferGetIterAtLineIndex ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Int32 -> -- line_number
Int32 -> -- byte_index
m (TextIter)
textBufferGetIterAtLineIndex _obj line_number byte_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line_index _obj' iter line_number byte_index
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_iter_at_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
Int32 -> -- char_offset : TBasicType TInt32
IO ()
textBufferGetIterAtLineOffset ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Int32 -> -- line_number
Int32 -> -- char_offset
m (TextIter)
textBufferGetIterAtLineOffset _obj line_number char_offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_line_offset _obj' iter line_number char_offset
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_iter_at_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO ()
textBufferGetIterAtMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
m (TextIter)
textBufferGetIterAtMark _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
let mark' = unsafeManagedPtrCastPtr mark
gtk_text_buffer_get_iter_at_mark _obj' iter mark'
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
touchManagedPtr mark
return iter'
-- method TextBuffer::get_iter_at_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- char_offset : TBasicType TInt32
IO ()
textBufferGetIterAtOffset ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Int32 -> -- char_offset
m (TextIter)
textBufferGetIterAtOffset _obj char_offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_iter_at_offset _obj' iter char_offset
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_line_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO Int32
textBufferGetLineCount ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m Int32
textBufferGetLineCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_line_count _obj'
touchManagedPtr _obj
return result
-- method TextBuffer::get_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
IO (Ptr TextMark)
textBufferGetMark ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- name
m TextMark
textBufferGetMark _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_text_buffer_get_mark _obj' name'
checkUnexpectedReturnNULL "gtk_text_buffer_get_mark" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
freeMem name'
return result'
-- method TextBuffer::get_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO CInt
textBufferGetModified ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m Bool
textBufferGetModified _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_modified _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_paste_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TargetList)
textBufferGetPasteTargetList ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m TargetList
textBufferGetPasteTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_paste_target_list _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_paste_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_selection_bound
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextMark)
textBufferGetSelectionBound ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m TextMark
textBufferGetSelectionBound _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_selection_bound _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_selection_bound" result
result' <- (newObject TextMark) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_selection_bounds
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CInt
textBufferGetSelectionBounds ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m (Bool,TextIter,TextIter)
textBufferGetSelectionBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
result <- gtk_text_buffer_get_selection_bounds _obj' start end
let result' = (/= 0) result
start' <- (wrapBoxed TextIter) start
end' <- (wrapBoxed TextIter) end
touchManagedPtr _obj
return (result', start', end')
-- method TextBuffer::get_serialize_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Int32 -> -- n_formats : TBasicType TInt32
IO (Ptr (Ptr Gdk.Atom))
textBufferGetSerializeFormats ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m [Gdk.Atom]
textBufferGetSerializeFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
n_formats <- allocMem :: IO (Ptr Int32)
result <- gtk_text_buffer_get_serialize_formats _obj' n_formats
n_formats' <- peek n_formats
checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (unpackPtrArrayWithLength n_formats') result
result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result'
freeMem result
touchManagedPtr _obj
freeMem n_formats
return result''
-- method TextBuffer::get_slice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- include_hidden_chars : TBasicType TBoolean
IO CString
textBufferGetSlice ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- start
TextIter -> -- end
Bool -> -- include_hidden_chars
m T.Text
textBufferGetSlice _obj start end include_hidden_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars
result <- gtk_text_buffer_get_slice _obj' start' end' include_hidden_chars'
checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return result'
-- method TextBuffer::get_start_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO ()
textBufferGetStartIter ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m (TextIter)
textBufferGetStartIter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_buffer_get_start_iter _obj' iter
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextBuffer::get_tag_table
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextTagTable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
IO (Ptr TextTagTable)
textBufferGetTagTable ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
m TextTagTable
textBufferGetTagTable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_buffer_get_tag_table _obj'
checkUnexpectedReturnNULL "gtk_text_buffer_get_tag_table" result
result' <- (newObject TextTagTable) result
touchManagedPtr _obj
return result'
-- method TextBuffer::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_get_text" gtk_text_buffer_get_text ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- include_hidden_chars : TBasicType TBoolean
IO CString
textBufferGetText ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- start
TextIter -> -- end
Bool -> -- include_hidden_chars
m T.Text
textBufferGetText _obj start end include_hidden_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars
result <- gtk_text_buffer_get_text _obj' start' end' include_hidden_chars'
checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return result'
-- method TextBuffer::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert" gtk_text_buffer_insert ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsert ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
T.Text -> -- text
Int32 -> -- len
m ()
textBufferInsert _obj iter text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
text' <- textToCString text
gtk_text_buffer_insert _obj' iter' text' len
touchManagedPtr _obj
touchManagedPtr iter
freeMem text'
return ()
-- method TextBuffer::insert_at_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsertAtCursor ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- text
Int32 -> -- len
m ()
textBufferInsertAtCursor _obj text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_text_buffer_insert_at_cursor _obj' text' len
touchManagedPtr _obj
freeMem text'
return ()
-- method TextBuffer::insert_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor"
IO ()
textBufferInsertChildAnchor ::
(MonadIO m, TextBufferK a, TextChildAnchorK b) =>
a -> -- _obj
TextIter -> -- iter
b -> -- anchor
m ()
textBufferInsertChildAnchor _obj iter anchor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let anchor' = unsafeManagedPtrCastPtr anchor
gtk_text_buffer_insert_child_anchor _obj' iter' anchor'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr anchor
return ()
-- method TextBuffer::insert_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertInteractive ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
T.Text -> -- text
Int32 -> -- len
Bool -> -- default_editable
m Bool
textBufferInsertInteractive _obj iter text len default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
text' <- textToCString text
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_insert_interactive _obj' iter' text' len default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
freeMem text'
return result'
-- method TextBuffer::insert_interactive_at_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertInteractiveAtCursor ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- text
Int32 -> -- len
Bool -> -- default_editable
m Bool
textBufferInsertInteractiveAtCursor _obj text len default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem text'
return result'
-- method TextBuffer::insert_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CString -> -- markup : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferInsertMarkup ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
T.Text -> -- markup
Int32 -> -- len
m ()
textBufferInsertMarkup _obj iter markup len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
markup' <- textToCString markup
gtk_text_buffer_insert_markup _obj' iter' markup' len
touchManagedPtr _obj
touchManagedPtr iter
freeMem markup'
return ()
-- method TextBuffer::insert_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
textBufferInsertPixbuf ::
(MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
TextIter -> -- iter
b -> -- pixbuf
m ()
textBufferInsertPixbuf _obj iter pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_text_buffer_insert_pixbuf _obj' iter' pixbuf'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr pixbuf
return ()
-- method TextBuffer::insert_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferInsertRange ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
TextIter -> -- start
TextIter -> -- end
m ()
textBufferInsertRange _obj iter start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_insert_range _obj' iter' start' end'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr start
touchManagedPtr end
return ()
-- method TextBuffer::insert_range_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO CInt
textBufferInsertRangeInteractive ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- iter
TextIter -> -- start
TextIter -> -- end
Bool -> -- default_editable
m Bool
textBufferInsertRangeInteractive _obj iter start end default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
let default_editable' = (fromIntegral . fromEnum) default_editable
result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' default_editable'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr start
touchManagedPtr end
return result'
-- method TextBuffer::move_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferMoveMark ::
(MonadIO m, TextBufferK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
TextIter -> -- where
m ()
textBufferMoveMark _obj mark where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_move_mark _obj' mark' where_'
touchManagedPtr _obj
touchManagedPtr mark
touchManagedPtr where_
return ()
-- method TextBuffer::move_mark_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferMoveMarkByName ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- name
TextIter -> -- where
m ()
textBufferMoveMarkByName _obj name where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_move_mark_by_name _obj' name' where_'
touchManagedPtr _obj
touchManagedPtr where_
freeMem name'
return ()
-- method TextBuffer::paste_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
Ptr TextIter -> -- override_location : TInterface "Gtk" "TextIter"
CInt -> -- default_editable : TBasicType TBoolean
IO ()
textBufferPasteClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -> -- _obj
b -> -- clipboard
Maybe (TextIter) -> -- override_location
Bool -> -- default_editable
m ()
textBufferPasteClipboard _obj clipboard override_location default_editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
maybeOverride_location <- case override_location of
Nothing -> return nullPtr
Just jOverride_location -> do
let jOverride_location' = unsafeManagedPtrGetPtr jOverride_location
return jOverride_location'
let default_editable' = (fromIntegral . fromEnum) default_editable
gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverride_location default_editable'
touchManagedPtr _obj
touchManagedPtr clipboard
whenJust override_location touchManagedPtr
return ()
-- method TextBuffer::place_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- where : TInterface "Gtk" "TextIter"
IO ()
textBufferPlaceCursor ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- where
m ()
textBufferPlaceCursor _obj where_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let where_' = unsafeManagedPtrGetPtr where_
gtk_text_buffer_place_cursor _obj' where_'
touchManagedPtr _obj
touchManagedPtr where_
return ()
-- method TextBuffer::register_deserialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mime_type : TBasicType TUTF8
FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify"
IO (Ptr Gdk.Atom)
textBufferRegisterDeserializeFormat ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- mime_type
TextBufferDeserializeFunc -> -- function
m Gdk.Atom
textBufferRegisterDeserializeFormat _obj mime_type function = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function)
let user_data = castFunPtrToPtr function'
let user_data_destroy = safeFreeFunPtrPtr
result <- gtk_text_buffer_register_deserialize_format _obj' mime_type' function' user_data user_data_destroy
checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem mime_type'
return result'
-- method TextBuffer::register_deserialize_tagset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- tagset_name : TBasicType TUTF8
IO (Ptr Gdk.Atom)
textBufferRegisterDeserializeTagset ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Maybe (T.Text) -> -- tagset_name
m Gdk.Atom
textBufferRegisterDeserializeTagset _obj tagset_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTagset_name <- case tagset_name of
Nothing -> return nullPtr
Just jTagset_name -> do
jTagset_name' <- textToCString jTagset_name
return jTagset_name'
result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagset_name
checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem maybeTagset_name
return result'
-- method TextBuffer::register_serialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- mime_type : TBasicType TUTF8
FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify"
IO (Ptr Gdk.Atom)
textBufferRegisterSerializeFormat ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- mime_type
TextBufferSerializeFunc -> -- function
m Gdk.Atom
textBufferRegisterSerializeFormat _obj mime_type function = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function)
let user_data = castFunPtrToPtr function'
let user_data_destroy = safeFreeFunPtrPtr
result <- gtk_text_buffer_register_serialize_format _obj' mime_type' function' user_data user_data_destroy
checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem mime_type'
return result'
-- method TextBuffer::register_serialize_tagset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- tagset_name : TBasicType TUTF8
IO (Ptr Gdk.Atom)
textBufferRegisterSerializeTagset ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Maybe (T.Text) -> -- tagset_name
m Gdk.Atom
textBufferRegisterSerializeTagset _obj tagset_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTagset_name <- case tagset_name of
Nothing -> return nullPtr
Just jTagset_name -> do
jTagset_name' <- textToCString jTagset_name
return jTagset_name'
result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagset_name
checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
freeMem maybeTagset_name
return result'
-- method TextBuffer::remove_all_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveAllTags ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- start
TextIter -> -- end
m ()
textBufferRemoveAllTags _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_all_tags _obj' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return ()
-- method TextBuffer::remove_selection_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard"
IO ()
textBufferRemoveSelectionClipboard ::
(MonadIO m, TextBufferK a, ClipboardK b) =>
a -> -- _obj
b -> -- clipboard
m ()
textBufferRemoveSelectionClipboard _obj clipboard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clipboard' = unsafeManagedPtrCastPtr clipboard
gtk_text_buffer_remove_selection_clipboard _obj' clipboard'
touchManagedPtr _obj
touchManagedPtr clipboard
return ()
-- method TextBuffer::remove_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveTag ::
(MonadIO m, TextBufferK a, TextTagK b) =>
a -> -- _obj
b -> -- tag
TextIter -> -- start
TextIter -> -- end
m ()
textBufferRemoveTag _obj tag start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_tag _obj' tag' start' end'
touchManagedPtr _obj
touchManagedPtr tag
touchManagedPtr start
touchManagedPtr end
return ()
-- method TextBuffer::remove_tag_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- name : TBasicType TUTF8
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO ()
textBufferRemoveTagByName ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- name
TextIter -> -- start
TextIter -> -- end
m ()
textBufferRemoveTagByName _obj name start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
gtk_text_buffer_remove_tag_by_name _obj' name' start' end'
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
freeMem name'
return ()
-- method TextBuffer::select_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_select_range" gtk_text_buffer_select_range ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextIter -> -- ins : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- bound : TInterface "Gtk" "TextIter"
IO ()
textBufferSelectRange ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
TextIter -> -- ins
TextIter -> -- bound
m ()
textBufferSelectRange _obj ins bound = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ins' = unsafeManagedPtrGetPtr ins
let bound' = unsafeManagedPtrGetPtr bound
gtk_text_buffer_select_range _obj' ins' bound'
touchManagedPtr _obj
touchManagedPtr ins
touchManagedPtr bound
return ()
-- method TextBuffer::serialize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 5 (TBasicType TUInt8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
Ptr Word64 -> -- length : TBasicType TUInt64
IO (Ptr Word8)
textBufferSerialize ::
(MonadIO m, TextBufferK a, TextBufferK b) =>
a -> -- _obj
b -> -- content_buffer
Gdk.Atom -> -- format
TextIter -> -- start
TextIter -> -- end
m ByteString
textBufferSerialize _obj content_buffer format start end = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let content_buffer' = unsafeManagedPtrCastPtr content_buffer
let format' = unsafeManagedPtrGetPtr format
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
length_ <- allocMem :: IO (Ptr Word64)
result <- gtk_text_buffer_serialize _obj' content_buffer' format' start' end' length_
length_' <- peek length_
checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result
result' <- (unpackByteStringWithLength length_') result
freeMem result
touchManagedPtr _obj
touchManagedPtr content_buffer
touchManagedPtr format
touchManagedPtr start
touchManagedPtr end
freeMem length_
return result'
-- method TextBuffer::set_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CInt -> -- setting : TBasicType TBoolean
IO ()
textBufferSetModified ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Bool -> -- setting
m ()
textBufferSetModified _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_text_buffer_set_modified _obj' setting'
touchManagedPtr _obj
return ()
-- method TextBuffer::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
CString -> -- text : TBasicType TUTF8
Int32 -> -- len : TBasicType TInt32
IO ()
textBufferSetText ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
T.Text -> -- text
Int32 -> -- len
m ()
textBufferSetText _obj text len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_text_buffer_set_text _obj' text' len
touchManagedPtr _obj
freeMem text'
return ()
-- method TextBuffer::unregister_deserialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO ()
textBufferUnregisterDeserializeFormat ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Gdk.Atom -> -- format
m ()
textBufferUnregisterDeserializeFormat _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
gtk_text_buffer_unregister_deserialize_format _obj' format'
touchManagedPtr _obj
touchManagedPtr format
return ()
-- method TextBuffer::unregister_serialize_format
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format ::
Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer"
Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom"
IO ()
textBufferUnregisterSerializeFormat ::
(MonadIO m, TextBufferK a) =>
a -> -- _obj
Gdk.Atom -> -- format
m ()
textBufferUnregisterSerializeFormat _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = unsafeManagedPtrGetPtr format
gtk_text_buffer_unregister_serialize_format _obj' format'
touchManagedPtr _obj
touchManagedPtr format
return ()
-- signal TextBuffer::apply-tag
type TextBufferApplyTagCallback =
TextTag ->
TextIter ->
TextIter ->
IO ()
noTextBufferApplyTagCallback :: Maybe TextBufferApplyTagCallback
noTextBufferApplyTagCallback = Nothing
type TextBufferApplyTagCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferApplyTagCallback :: TextBufferApplyTagCallbackC -> IO (FunPtr TextBufferApplyTagCallbackC)
textBufferApplyTagClosure :: TextBufferApplyTagCallback -> IO Closure
textBufferApplyTagClosure cb = newCClosure =<< mkTextBufferApplyTagCallback wrapped
where wrapped = textBufferApplyTagCallbackWrapper cb
textBufferApplyTagCallbackWrapper ::
TextBufferApplyTagCallback ->
Ptr () ->
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferApplyTagCallbackWrapper _cb _ tag start end _ = do
tag' <- (newObject TextTag) tag
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb tag' start' end'
onTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId
onTextBufferApplyTag obj cb = liftIO $ connectTextBufferApplyTag obj cb SignalConnectBefore
afterTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId
afterTextBufferApplyTag obj cb = connectTextBufferApplyTag obj cb SignalConnectAfter
connectTextBufferApplyTag :: (GObject a, MonadIO m) =>
a -> TextBufferApplyTagCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferApplyTag obj cb after = liftIO $ do
cb' <- mkTextBufferApplyTagCallback (textBufferApplyTagCallbackWrapper cb)
connectSignalFunPtr obj "apply-tag" cb' after
-- signal TextBuffer::begin-user-action
type TextBufferBeginUserActionCallback =
IO ()
noTextBufferBeginUserActionCallback :: Maybe TextBufferBeginUserActionCallback
noTextBufferBeginUserActionCallback = Nothing
type TextBufferBeginUserActionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferBeginUserActionCallback :: TextBufferBeginUserActionCallbackC -> IO (FunPtr TextBufferBeginUserActionCallbackC)
textBufferBeginUserActionClosure :: TextBufferBeginUserActionCallback -> IO Closure
textBufferBeginUserActionClosure cb = newCClosure =<< mkTextBufferBeginUserActionCallback wrapped
where wrapped = textBufferBeginUserActionCallbackWrapper cb
textBufferBeginUserActionCallbackWrapper ::
TextBufferBeginUserActionCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferBeginUserActionCallbackWrapper _cb _ _ = do
_cb
onTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId
onTextBufferBeginUserAction obj cb = liftIO $ connectTextBufferBeginUserAction obj cb SignalConnectBefore
afterTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId
afterTextBufferBeginUserAction obj cb = connectTextBufferBeginUserAction obj cb SignalConnectAfter
connectTextBufferBeginUserAction :: (GObject a, MonadIO m) =>
a -> TextBufferBeginUserActionCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferBeginUserAction obj cb after = liftIO $ do
cb' <- mkTextBufferBeginUserActionCallback (textBufferBeginUserActionCallbackWrapper cb)
connectSignalFunPtr obj "begin-user-action" cb' after
-- signal TextBuffer::changed
type TextBufferChangedCallback =
IO ()
noTextBufferChangedCallback :: Maybe TextBufferChangedCallback
noTextBufferChangedCallback = Nothing
type TextBufferChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferChangedCallback :: TextBufferChangedCallbackC -> IO (FunPtr TextBufferChangedCallbackC)
textBufferChangedClosure :: TextBufferChangedCallback -> IO Closure
textBufferChangedClosure cb = newCClosure =<< mkTextBufferChangedCallback wrapped
where wrapped = textBufferChangedCallbackWrapper cb
textBufferChangedCallbackWrapper ::
TextBufferChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferChangedCallbackWrapper _cb _ _ = do
_cb
onTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId
onTextBufferChanged obj cb = liftIO $ connectTextBufferChanged obj cb SignalConnectBefore
afterTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId
afterTextBufferChanged obj cb = connectTextBufferChanged obj cb SignalConnectAfter
connectTextBufferChanged :: (GObject a, MonadIO m) =>
a -> TextBufferChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferChanged obj cb after = liftIO $ do
cb' <- mkTextBufferChangedCallback (textBufferChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal TextBuffer::delete-range
type TextBufferDeleteRangeCallback =
TextIter ->
TextIter ->
IO ()
noTextBufferDeleteRangeCallback :: Maybe TextBufferDeleteRangeCallback
noTextBufferDeleteRangeCallback = Nothing
type TextBufferDeleteRangeCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferDeleteRangeCallback :: TextBufferDeleteRangeCallbackC -> IO (FunPtr TextBufferDeleteRangeCallbackC)
textBufferDeleteRangeClosure :: TextBufferDeleteRangeCallback -> IO Closure
textBufferDeleteRangeClosure cb = newCClosure =<< mkTextBufferDeleteRangeCallback wrapped
where wrapped = textBufferDeleteRangeCallbackWrapper cb
textBufferDeleteRangeCallbackWrapper ::
TextBufferDeleteRangeCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferDeleteRangeCallbackWrapper _cb _ start end _ = do
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb start' end'
onTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId
onTextBufferDeleteRange obj cb = liftIO $ connectTextBufferDeleteRange obj cb SignalConnectBefore
afterTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId
afterTextBufferDeleteRange obj cb = connectTextBufferDeleteRange obj cb SignalConnectAfter
connectTextBufferDeleteRange :: (GObject a, MonadIO m) =>
a -> TextBufferDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferDeleteRange obj cb after = liftIO $ do
cb' <- mkTextBufferDeleteRangeCallback (textBufferDeleteRangeCallbackWrapper cb)
connectSignalFunPtr obj "delete-range" cb' after
-- signal TextBuffer::end-user-action
type TextBufferEndUserActionCallback =
IO ()
noTextBufferEndUserActionCallback :: Maybe TextBufferEndUserActionCallback
noTextBufferEndUserActionCallback = Nothing
type TextBufferEndUserActionCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferEndUserActionCallback :: TextBufferEndUserActionCallbackC -> IO (FunPtr TextBufferEndUserActionCallbackC)
textBufferEndUserActionClosure :: TextBufferEndUserActionCallback -> IO Closure
textBufferEndUserActionClosure cb = newCClosure =<< mkTextBufferEndUserActionCallback wrapped
where wrapped = textBufferEndUserActionCallbackWrapper cb
textBufferEndUserActionCallbackWrapper ::
TextBufferEndUserActionCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferEndUserActionCallbackWrapper _cb _ _ = do
_cb
onTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId
onTextBufferEndUserAction obj cb = liftIO $ connectTextBufferEndUserAction obj cb SignalConnectBefore
afterTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId
afterTextBufferEndUserAction obj cb = connectTextBufferEndUserAction obj cb SignalConnectAfter
connectTextBufferEndUserAction :: (GObject a, MonadIO m) =>
a -> TextBufferEndUserActionCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferEndUserAction obj cb after = liftIO $ do
cb' <- mkTextBufferEndUserActionCallback (textBufferEndUserActionCallbackWrapper cb)
connectSignalFunPtr obj "end-user-action" cb' after
-- signal TextBuffer::insert-child-anchor
type TextBufferInsertChildAnchorCallback =
TextIter ->
TextChildAnchor ->
IO ()
noTextBufferInsertChildAnchorCallback :: Maybe TextBufferInsertChildAnchorCallback
noTextBufferInsertChildAnchorCallback = Nothing
type TextBufferInsertChildAnchorCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextChildAnchor ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertChildAnchorCallback :: TextBufferInsertChildAnchorCallbackC -> IO (FunPtr TextBufferInsertChildAnchorCallbackC)
textBufferInsertChildAnchorClosure :: TextBufferInsertChildAnchorCallback -> IO Closure
textBufferInsertChildAnchorClosure cb = newCClosure =<< mkTextBufferInsertChildAnchorCallback wrapped
where wrapped = textBufferInsertChildAnchorCallbackWrapper cb
textBufferInsertChildAnchorCallbackWrapper ::
TextBufferInsertChildAnchorCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextChildAnchor ->
Ptr () ->
IO ()
textBufferInsertChildAnchorCallbackWrapper _cb _ location anchor _ = do
location' <- (newBoxed TextIter) location
anchor' <- (newObject TextChildAnchor) anchor
_cb location' anchor'
onTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId
onTextBufferInsertChildAnchor obj cb = liftIO $ connectTextBufferInsertChildAnchor obj cb SignalConnectBefore
afterTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId
afterTextBufferInsertChildAnchor obj cb = connectTextBufferInsertChildAnchor obj cb SignalConnectAfter
connectTextBufferInsertChildAnchor :: (GObject a, MonadIO m) =>
a -> TextBufferInsertChildAnchorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertChildAnchor obj cb after = liftIO $ do
cb' <- mkTextBufferInsertChildAnchorCallback (textBufferInsertChildAnchorCallbackWrapper cb)
connectSignalFunPtr obj "insert-child-anchor" cb' after
-- signal TextBuffer::insert-pixbuf
type TextBufferInsertPixbufCallback =
TextIter ->
GdkPixbuf.Pixbuf ->
IO ()
noTextBufferInsertPixbufCallback :: Maybe TextBufferInsertPixbufCallback
noTextBufferInsertPixbufCallback = Nothing
type TextBufferInsertPixbufCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertPixbufCallback :: TextBufferInsertPixbufCallbackC -> IO (FunPtr TextBufferInsertPixbufCallbackC)
textBufferInsertPixbufClosure :: TextBufferInsertPixbufCallback -> IO Closure
textBufferInsertPixbufClosure cb = newCClosure =<< mkTextBufferInsertPixbufCallback wrapped
where wrapped = textBufferInsertPixbufCallbackWrapper cb
textBufferInsertPixbufCallbackWrapper ::
TextBufferInsertPixbufCallback ->
Ptr () ->
Ptr TextIter ->
Ptr GdkPixbuf.Pixbuf ->
Ptr () ->
IO ()
textBufferInsertPixbufCallbackWrapper _cb _ location pixbuf _ = do
location' <- (newBoxed TextIter) location
pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf
_cb location' pixbuf'
onTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId
onTextBufferInsertPixbuf obj cb = liftIO $ connectTextBufferInsertPixbuf obj cb SignalConnectBefore
afterTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId
afterTextBufferInsertPixbuf obj cb = connectTextBufferInsertPixbuf obj cb SignalConnectAfter
connectTextBufferInsertPixbuf :: (GObject a, MonadIO m) =>
a -> TextBufferInsertPixbufCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertPixbuf obj cb after = liftIO $ do
cb' <- mkTextBufferInsertPixbufCallback (textBufferInsertPixbufCallbackWrapper cb)
connectSignalFunPtr obj "insert-pixbuf" cb' after
-- signal TextBuffer::insert-text
type TextBufferInsertTextCallback =
TextIter ->
T.Text ->
Int32 ->
IO ()
noTextBufferInsertTextCallback :: Maybe TextBufferInsertTextCallback
noTextBufferInsertTextCallback = Nothing
type TextBufferInsertTextCallbackC =
Ptr () -> -- object
Ptr TextIter ->
CString ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferInsertTextCallback :: TextBufferInsertTextCallbackC -> IO (FunPtr TextBufferInsertTextCallbackC)
textBufferInsertTextClosure :: TextBufferInsertTextCallback -> IO Closure
textBufferInsertTextClosure cb = newCClosure =<< mkTextBufferInsertTextCallback wrapped
where wrapped = textBufferInsertTextCallbackWrapper cb
textBufferInsertTextCallbackWrapper ::
TextBufferInsertTextCallback ->
Ptr () ->
Ptr TextIter ->
CString ->
Int32 ->
Ptr () ->
IO ()
textBufferInsertTextCallbackWrapper _cb _ location text len _ = do
location' <- (newBoxed TextIter) location
text' <- cstringToText text
_cb location' text' len
onTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId
onTextBufferInsertText obj cb = liftIO $ connectTextBufferInsertText obj cb SignalConnectBefore
afterTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId
afterTextBufferInsertText obj cb = connectTextBufferInsertText obj cb SignalConnectAfter
connectTextBufferInsertText :: (GObject a, MonadIO m) =>
a -> TextBufferInsertTextCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferInsertText obj cb after = liftIO $ do
cb' <- mkTextBufferInsertTextCallback (textBufferInsertTextCallbackWrapper cb)
connectSignalFunPtr obj "insert-text" cb' after
-- signal TextBuffer::mark-deleted
type TextBufferMarkDeletedCallback =
TextMark ->
IO ()
noTextBufferMarkDeletedCallback :: Maybe TextBufferMarkDeletedCallback
noTextBufferMarkDeletedCallback = Nothing
type TextBufferMarkDeletedCallbackC =
Ptr () -> -- object
Ptr TextMark ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferMarkDeletedCallback :: TextBufferMarkDeletedCallbackC -> IO (FunPtr TextBufferMarkDeletedCallbackC)
textBufferMarkDeletedClosure :: TextBufferMarkDeletedCallback -> IO Closure
textBufferMarkDeletedClosure cb = newCClosure =<< mkTextBufferMarkDeletedCallback wrapped
where wrapped = textBufferMarkDeletedCallbackWrapper cb
textBufferMarkDeletedCallbackWrapper ::
TextBufferMarkDeletedCallback ->
Ptr () ->
Ptr TextMark ->
Ptr () ->
IO ()
textBufferMarkDeletedCallbackWrapper _cb _ mark _ = do
mark' <- (newObject TextMark) mark
_cb mark'
onTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId
onTextBufferMarkDeleted obj cb = liftIO $ connectTextBufferMarkDeleted obj cb SignalConnectBefore
afterTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId
afterTextBufferMarkDeleted obj cb = connectTextBufferMarkDeleted obj cb SignalConnectAfter
connectTextBufferMarkDeleted :: (GObject a, MonadIO m) =>
a -> TextBufferMarkDeletedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferMarkDeleted obj cb after = liftIO $ do
cb' <- mkTextBufferMarkDeletedCallback (textBufferMarkDeletedCallbackWrapper cb)
connectSignalFunPtr obj "mark-deleted" cb' after
-- signal TextBuffer::mark-set
type TextBufferMarkSetCallback =
TextIter ->
TextMark ->
IO ()
noTextBufferMarkSetCallback :: Maybe TextBufferMarkSetCallback
noTextBufferMarkSetCallback = Nothing
type TextBufferMarkSetCallbackC =
Ptr () -> -- object
Ptr TextIter ->
Ptr TextMark ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferMarkSetCallback :: TextBufferMarkSetCallbackC -> IO (FunPtr TextBufferMarkSetCallbackC)
textBufferMarkSetClosure :: TextBufferMarkSetCallback -> IO Closure
textBufferMarkSetClosure cb = newCClosure =<< mkTextBufferMarkSetCallback wrapped
where wrapped = textBufferMarkSetCallbackWrapper cb
textBufferMarkSetCallbackWrapper ::
TextBufferMarkSetCallback ->
Ptr () ->
Ptr TextIter ->
Ptr TextMark ->
Ptr () ->
IO ()
textBufferMarkSetCallbackWrapper _cb _ location mark _ = do
location' <- (newBoxed TextIter) location
mark' <- (newObject TextMark) mark
_cb location' mark'
onTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId
onTextBufferMarkSet obj cb = liftIO $ connectTextBufferMarkSet obj cb SignalConnectBefore
afterTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId
afterTextBufferMarkSet obj cb = connectTextBufferMarkSet obj cb SignalConnectAfter
connectTextBufferMarkSet :: (GObject a, MonadIO m) =>
a -> TextBufferMarkSetCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferMarkSet obj cb after = liftIO $ do
cb' <- mkTextBufferMarkSetCallback (textBufferMarkSetCallbackWrapper cb)
connectSignalFunPtr obj "mark-set" cb' after
-- signal TextBuffer::modified-changed
type TextBufferModifiedChangedCallback =
IO ()
noTextBufferModifiedChangedCallback :: Maybe TextBufferModifiedChangedCallback
noTextBufferModifiedChangedCallback = Nothing
type TextBufferModifiedChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferModifiedChangedCallback :: TextBufferModifiedChangedCallbackC -> IO (FunPtr TextBufferModifiedChangedCallbackC)
textBufferModifiedChangedClosure :: TextBufferModifiedChangedCallback -> IO Closure
textBufferModifiedChangedClosure cb = newCClosure =<< mkTextBufferModifiedChangedCallback wrapped
where wrapped = textBufferModifiedChangedCallbackWrapper cb
textBufferModifiedChangedCallbackWrapper ::
TextBufferModifiedChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
textBufferModifiedChangedCallbackWrapper _cb _ _ = do
_cb
onTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId
onTextBufferModifiedChanged obj cb = liftIO $ connectTextBufferModifiedChanged obj cb SignalConnectBefore
afterTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId
afterTextBufferModifiedChanged obj cb = connectTextBufferModifiedChanged obj cb SignalConnectAfter
connectTextBufferModifiedChanged :: (GObject a, MonadIO m) =>
a -> TextBufferModifiedChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferModifiedChanged obj cb after = liftIO $ do
cb' <- mkTextBufferModifiedChangedCallback (textBufferModifiedChangedCallbackWrapper cb)
connectSignalFunPtr obj "modified-changed" cb' after
-- signal TextBuffer::paste-done
type TextBufferPasteDoneCallback =
Clipboard ->
IO ()
noTextBufferPasteDoneCallback :: Maybe TextBufferPasteDoneCallback
noTextBufferPasteDoneCallback = Nothing
type TextBufferPasteDoneCallbackC =
Ptr () -> -- object
Ptr Clipboard ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferPasteDoneCallback :: TextBufferPasteDoneCallbackC -> IO (FunPtr TextBufferPasteDoneCallbackC)
textBufferPasteDoneClosure :: TextBufferPasteDoneCallback -> IO Closure
textBufferPasteDoneClosure cb = newCClosure =<< mkTextBufferPasteDoneCallback wrapped
where wrapped = textBufferPasteDoneCallbackWrapper cb
textBufferPasteDoneCallbackWrapper ::
TextBufferPasteDoneCallback ->
Ptr () ->
Ptr Clipboard ->
Ptr () ->
IO ()
textBufferPasteDoneCallbackWrapper _cb _ clipboard _ = do
clipboard' <- (newObject Clipboard) clipboard
_cb clipboard'
onTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId
onTextBufferPasteDone obj cb = liftIO $ connectTextBufferPasteDone obj cb SignalConnectBefore
afterTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId
afterTextBufferPasteDone obj cb = connectTextBufferPasteDone obj cb SignalConnectAfter
connectTextBufferPasteDone :: (GObject a, MonadIO m) =>
a -> TextBufferPasteDoneCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferPasteDone obj cb after = liftIO $ do
cb' <- mkTextBufferPasteDoneCallback (textBufferPasteDoneCallbackWrapper cb)
connectSignalFunPtr obj "paste-done" cb' after
-- signal TextBuffer::remove-tag
type TextBufferRemoveTagCallback =
TextTag ->
TextIter ->
TextIter ->
IO ()
noTextBufferRemoveTagCallback :: Maybe TextBufferRemoveTagCallback
noTextBufferRemoveTagCallback = Nothing
type TextBufferRemoveTagCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextBufferRemoveTagCallback :: TextBufferRemoveTagCallbackC -> IO (FunPtr TextBufferRemoveTagCallbackC)
textBufferRemoveTagClosure :: TextBufferRemoveTagCallback -> IO Closure
textBufferRemoveTagClosure cb = newCClosure =<< mkTextBufferRemoveTagCallback wrapped
where wrapped = textBufferRemoveTagCallbackWrapper cb
textBufferRemoveTagCallbackWrapper ::
TextBufferRemoveTagCallback ->
Ptr () ->
Ptr TextTag ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO ()
textBufferRemoveTagCallbackWrapper _cb _ tag start end _ = do
tag' <- (newObject TextTag) tag
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
_cb tag' start' end'
onTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId
onTextBufferRemoveTag obj cb = liftIO $ connectTextBufferRemoveTag obj cb SignalConnectBefore
afterTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId
afterTextBufferRemoveTag obj cb = connectTextBufferRemoveTag obj cb SignalConnectAfter
connectTextBufferRemoveTag :: (GObject a, MonadIO m) =>
a -> TextBufferRemoveTagCallback -> SignalConnectMode -> m SignalHandlerId
connectTextBufferRemoveTag obj cb after = liftIO $ do
cb' <- mkTextBufferRemoveTagCallback (textBufferRemoveTagCallbackWrapper cb)
connectSignalFunPtr obj "remove-tag" cb' after
-- callback TextBufferDeserializeFunc
textBufferDeserializeFuncClosure :: TextBufferDeserializeFunc -> IO Closure
textBufferDeserializeFuncClosure cb = newCClosure =<< mkTextBufferDeserializeFunc wrapped
where wrapped = textBufferDeserializeFuncWrapper Nothing cb
type TextBufferDeserializeFuncC =
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr TextIter ->
Ptr Word8 ->
Word64 ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTextBufferDeserializeFunc :: TextBufferDeserializeFuncC -> IO (FunPtr TextBufferDeserializeFuncC)
type TextBufferDeserializeFunc =
TextBuffer ->
TextBuffer ->
TextIter ->
ByteString ->
Bool ->
IO Bool
noTextBufferDeserializeFunc :: Maybe TextBufferDeserializeFunc
noTextBufferDeserializeFunc = Nothing
textBufferDeserializeFuncWrapper ::
Maybe (Ptr (FunPtr (TextBufferDeserializeFuncC))) ->
TextBufferDeserializeFunc ->
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr TextIter ->
Ptr Word8 ->
Word64 ->
CInt ->
Ptr () ->
IO CInt
textBufferDeserializeFuncWrapper funptrptr _cb register_buffer content_buffer iter data_ length_ create_tags _ = do
register_buffer' <- (newObject TextBuffer) register_buffer
content_buffer' <- (newObject TextBuffer) content_buffer
iter' <- (newBoxed TextIter) iter
data_' <- (unpackByteStringWithLength length_) data_
let create_tags' = (/= 0) create_tags
result <- _cb register_buffer' content_buffer' iter' data_' create_tags'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- callback TextBufferSerializeFunc
textBufferSerializeFuncClosure :: TextBufferSerializeFunc -> IO Closure
textBufferSerializeFuncClosure cb = newCClosure =<< mkTextBufferSerializeFunc wrapped
where wrapped = textBufferSerializeFuncWrapper Nothing cb
type TextBufferSerializeFuncC =
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr TextIter ->
Ptr TextIter ->
Word64 ->
Ptr () ->
IO Word8
foreign import ccall "wrapper"
mkTextBufferSerializeFunc :: TextBufferSerializeFuncC -> IO (FunPtr TextBufferSerializeFuncC)
type TextBufferSerializeFunc =
TextBuffer ->
TextBuffer ->
TextIter ->
TextIter ->
Word64 ->
IO Word8
noTextBufferSerializeFunc :: Maybe TextBufferSerializeFunc
noTextBufferSerializeFunc = Nothing
textBufferSerializeFuncWrapper ::
Maybe (Ptr (FunPtr (TextBufferSerializeFuncC))) ->
TextBufferSerializeFunc ->
Ptr TextBuffer ->
Ptr TextBuffer ->
Ptr TextIter ->
Ptr TextIter ->
Word64 ->
Ptr () ->
IO Word8
textBufferSerializeFuncWrapper funptrptr _cb register_buffer content_buffer start end length_ _ = do
register_buffer' <- (newObject TextBuffer) register_buffer
content_buffer' <- (newObject TextBuffer) content_buffer
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
result <- _cb register_buffer' content_buffer' start' end' length_
maybeReleaseFunPtr funptrptr
return result
-- Enum TextBufferTargetInfo
data TextBufferTargetInfo =
TextBufferTargetInfoBufferContents
| TextBufferTargetInfoRichText
| TextBufferTargetInfoText
| AnotherTextBufferTargetInfo Int
deriving (Show, Eq)
instance Enum TextBufferTargetInfo where
fromEnum TextBufferTargetInfoBufferContents = -1
fromEnum TextBufferTargetInfoRichText = -2
fromEnum TextBufferTargetInfoText = -3
fromEnum (AnotherTextBufferTargetInfo k) = k
toEnum -3 = TextBufferTargetInfoText
toEnum -2 = TextBufferTargetInfoRichText
toEnum -1 = TextBufferTargetInfoBufferContents
toEnum k = AnotherTextBufferTargetInfo k
foreign import ccall "gtk_text_buffer_target_info_get_type" c_gtk_text_buffer_target_info_get_type ::
IO GType
instance BoxedEnum TextBufferTargetInfo where
boxedEnumType _ = c_gtk_text_buffer_target_info_get_type
-- object TextCellAccessible
newtype TextCellAccessible = TextCellAccessible (ForeignPtr TextCellAccessible)
noTextCellAccessible :: Maybe TextCellAccessible
noTextCellAccessible = Nothing
foreign import ccall "gtk_text_cell_accessible_get_type"
c_gtk_text_cell_accessible_get_type :: IO GType
type instance ParentTypes TextCellAccessible = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Text]
instance GObject TextCellAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_cell_accessible_get_type
class GObject o => TextCellAccessibleK o
instance (GObject o, IsDescendantOf TextCellAccessible o) => TextCellAccessibleK o
toTextCellAccessible :: TextCellAccessibleK o => o -> IO TextCellAccessible
toTextCellAccessible = unsafeCastTo TextCellAccessible
-- callback TextCharPredicate
textCharPredicateClosure :: TextCharPredicate -> IO Closure
textCharPredicateClosure cb = newCClosure =<< mkTextCharPredicate wrapped
where wrapped = textCharPredicateWrapper Nothing cb
type TextCharPredicateC =
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTextCharPredicate :: TextCharPredicateC -> IO (FunPtr TextCharPredicateC)
type TextCharPredicate =
Char ->
IO Bool
noTextCharPredicate :: Maybe TextCharPredicate
noTextCharPredicate = Nothing
textCharPredicateWrapper ::
Maybe (Ptr (FunPtr (TextCharPredicateC))) ->
TextCharPredicate ->
CInt ->
Ptr () ->
IO CInt
textCharPredicateWrapper funptrptr _cb ch _ = do
let ch' = (chr . fromIntegral) ch
result <- _cb ch'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object TextChildAnchor
newtype TextChildAnchor = TextChildAnchor (ForeignPtr TextChildAnchor)
noTextChildAnchor :: Maybe TextChildAnchor
noTextChildAnchor = Nothing
foreign import ccall "gtk_text_child_anchor_get_type"
c_gtk_text_child_anchor_get_type :: IO GType
type instance ParentTypes TextChildAnchor = '[GObject.Object]
instance GObject TextChildAnchor where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_child_anchor_get_type
class GObject o => TextChildAnchorK o
instance (GObject o, IsDescendantOf TextChildAnchor o) => TextChildAnchorK o
toTextChildAnchor :: TextChildAnchorK o => o -> IO TextChildAnchor
toTextChildAnchor = unsafeCastTo TextChildAnchor
-- method TextChildAnchor::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextChildAnchor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_child_anchor_new" gtk_text_child_anchor_new ::
IO (Ptr TextChildAnchor)
textChildAnchorNew ::
(MonadIO m) =>
m TextChildAnchor
textChildAnchorNew = liftIO $ do
result <- gtk_text_child_anchor_new
checkUnexpectedReturnNULL "gtk_text_child_anchor_new" result
result' <- (wrapObject TextChildAnchor) result
return result'
-- method TextChildAnchor::get_deleted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_child_anchor_get_deleted" gtk_text_child_anchor_get_deleted ::
Ptr TextChildAnchor -> -- _obj : TInterface "Gtk" "TextChildAnchor"
IO CInt
textChildAnchorGetDeleted ::
(MonadIO m, TextChildAnchorK a) =>
a -> -- _obj
m Bool
textChildAnchorGetDeleted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_child_anchor_get_deleted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextChildAnchor::get_widgets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_child_anchor_get_widgets" gtk_text_child_anchor_get_widgets ::
Ptr TextChildAnchor -> -- _obj : TInterface "Gtk" "TextChildAnchor"
IO (Ptr (GList (Ptr Widget)))
textChildAnchorGetWidgets ::
(MonadIO m, TextChildAnchorK a) =>
a -> -- _obj
m [Widget]
textChildAnchorGetWidgets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_child_anchor_get_widgets _obj'
checkUnexpectedReturnNULL "gtk_text_child_anchor_get_widgets" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
touchManagedPtr _obj
return result''
-- Enum TextDirection
data TextDirection =
TextDirectionNone
| TextDirectionLtr
| TextDirectionRtl
| AnotherTextDirection Int
deriving (Show, Eq)
instance Enum TextDirection where
fromEnum TextDirectionNone = 0
fromEnum TextDirectionLtr = 1
fromEnum TextDirectionRtl = 2
fromEnum (AnotherTextDirection k) = k
toEnum 0 = TextDirectionNone
toEnum 1 = TextDirectionLtr
toEnum 2 = TextDirectionRtl
toEnum k = AnotherTextDirection k
foreign import ccall "gtk_text_direction_get_type" c_gtk_text_direction_get_type ::
IO GType
instance BoxedEnum TextDirection where
boxedEnumType _ = c_gtk_text_direction_get_type
-- Enum TextExtendSelection
data TextExtendSelection =
TextExtendSelectionWord
| TextExtendSelectionLine
| AnotherTextExtendSelection Int
deriving (Show, Eq)
instance Enum TextExtendSelection where
fromEnum TextExtendSelectionWord = 0
fromEnum TextExtendSelectionLine = 1
fromEnum (AnotherTextExtendSelection k) = k
toEnum 0 = TextExtendSelectionWord
toEnum 1 = TextExtendSelectionLine
toEnum k = AnotherTextExtendSelection k
foreign import ccall "gtk_text_extend_selection_get_type" c_gtk_text_extend_selection_get_type ::
IO GType
instance BoxedEnum TextExtendSelection where
boxedEnumType _ = c_gtk_text_extend_selection_get_type
-- struct TextIter
newtype TextIter = TextIter (ForeignPtr TextIter)
noTextIter :: Maybe TextIter
noTextIter = Nothing
foreign import ccall "gtk_text_iter_get_type" c_gtk_text_iter_get_type ::
IO GType
instance BoxedObject TextIter where
boxedType _ = c_gtk_text_iter_get_type
-- method TextIter::assign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_assign" gtk_text_iter_assign ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- other : TInterface "Gtk" "TextIter"
IO ()
textIterAssign ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- other
m ()
textIterAssign _obj other = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let other' = unsafeManagedPtrGetPtr other
gtk_text_iter_assign _obj' other'
touchManagedPtr _obj
touchManagedPtr other
return ()
-- method TextIter::backward_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_char" gtk_text_iter_backward_char ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardChar ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_char _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardChars ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardChars _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_chars _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_cursor_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_cursor_position" gtk_text_iter_backward_cursor_position ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardCursorPosition ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardCursorPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_cursor_position _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_cursor_positions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardCursorPositions ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardCursorPositions _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_cursor_positions _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_find_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate"
Ptr () -> -- user_data : TBasicType TVoid
Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardFindChar ::
(MonadIO m) =>
TextIter -> -- _obj
TextCharPredicate -> -- pred
Maybe (TextIter) -> -- limit
m Bool
textIterBackwardFindChar _obj pred limit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred)
maybeLimit <- case limit of
Nothing -> return nullPtr
Just jLimit -> do
let jLimit' = unsafeManagedPtrGetPtr jLimit
return jLimit'
let user_data = nullPtr
result <- gtk_text_iter_backward_find_char _obj' pred' user_data maybeLimit
let result' = (/= 0) result
safeFreeFunPtr $ castFunPtrToPtr pred'
touchManagedPtr _obj
whenJust limit touchManagedPtr
return result'
-- method TextIter::backward_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_line" gtk_text_iter_backward_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardLines ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardLines _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_lines _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_search" gtk_text_iter_backward_search ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
CString -> -- str : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags"
Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardSearch ::
(MonadIO m) =>
TextIter -> -- _obj
T.Text -> -- str
[TextSearchFlags] -> -- flags
Maybe (TextIter) -> -- limit
m (Bool,TextIter,TextIter)
textIterBackwardSearch _obj str flags limit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
str' <- textToCString str
let flags' = gflagsToWord flags
match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
match_end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
maybeLimit <- case limit of
Nothing -> return nullPtr
Just jLimit -> do
let jLimit' = unsafeManagedPtrGetPtr jLimit
return jLimit'
result <- gtk_text_iter_backward_search _obj' str' flags' match_start match_end maybeLimit
let result' = (/= 0) result
match_start' <- (wrapBoxed TextIter) match_start
match_end' <- (wrapBoxed TextIter) match_end
touchManagedPtr _obj
whenJust limit touchManagedPtr
freeMem str'
return (result', match_start', match_end')
-- method TextIter::backward_sentence_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_sentence_start" gtk_text_iter_backward_sentence_start ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardSentenceStart ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardSentenceStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_sentence_start _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_sentence_starts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardSentenceStarts ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardSentenceStarts _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_sentence_starts _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_to_tag_toggle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_to_tag_toggle" gtk_text_iter_backward_to_tag_toggle ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterBackwardToTagToggle ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
Maybe (a) -> -- tag
m Bool
textIterBackwardToTagToggle _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeTag <- case tag of
Nothing -> return nullPtr
Just jTag -> do
let jTag' = unsafeManagedPtrCastPtr jTag
return jTag'
result <- gtk_text_iter_backward_to_tag_toggle _obj' maybeTag
let result' = (/= 0) result
touchManagedPtr _obj
whenJust tag touchManagedPtr
return result'
-- method TextIter::backward_visible_cursor_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_cursor_position" gtk_text_iter_backward_visible_cursor_position ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardVisibleCursorPosition ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardVisibleCursorPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_cursor_position _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_visible_cursor_positions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardVisibleCursorPositions ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardVisibleCursorPositions _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_cursor_positions _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_visible_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_line" gtk_text_iter_backward_visible_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardVisibleLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardVisibleLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_visible_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardVisibleLines ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardVisibleLines _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_lines _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_visible_word_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_word_start" gtk_text_iter_backward_visible_word_start ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardVisibleWordStart ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardVisibleWordStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_word_start _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_visible_word_starts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardVisibleWordStarts ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardVisibleWordStarts _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_visible_word_starts _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_word_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_word_start" gtk_text_iter_backward_word_start ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterBackwardWordStart ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterBackwardWordStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_word_start _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::backward_word_starts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterBackwardWordStarts ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterBackwardWordStarts _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_backward_word_starts _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::begins_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_begins_tag" gtk_text_iter_begins_tag ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterBeginsTag ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
Maybe (a) -> -- tag
m Bool
textIterBeginsTag _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeTag <- case tag of
Nothing -> return nullPtr
Just jTag -> do
let jTag' = unsafeManagedPtrCastPtr jTag
return jTag'
result <- gtk_text_iter_begins_tag _obj' maybeTag
let result' = (/= 0) result
touchManagedPtr _obj
whenJust tag touchManagedPtr
return result'
-- method TextIter::can_insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_can_insert" gtk_text_iter_can_insert ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
CInt -> -- default_editability : TBasicType TBoolean
IO CInt
textIterCanInsert ::
(MonadIO m) =>
TextIter -> -- _obj
Bool -> -- default_editability
m Bool
textIterCanInsert _obj default_editability = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let default_editability' = (fromIntegral . fromEnum) default_editability
result <- gtk_text_iter_can_insert _obj' default_editability'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::compare
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_compare" gtk_text_iter_compare ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter"
IO Int32
textIterCompare ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- rhs
m Int32
textIterCompare _obj rhs = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let rhs' = unsafeManagedPtrGetPtr rhs
result <- gtk_text_iter_compare _obj' rhs'
touchManagedPtr _obj
touchManagedPtr rhs
return result
-- method TextIter::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextIter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_copy" gtk_text_iter_copy ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr TextIter)
textIterCopy ::
(MonadIO m) =>
TextIter -> -- _obj
m TextIter
textIterCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_copy _obj'
checkUnexpectedReturnNULL "gtk_text_iter_copy" result
result' <- (wrapBoxed TextIter) result
touchManagedPtr _obj
return result'
-- method TextIter::editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_editable" gtk_text_iter_editable ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
CInt -> -- default_setting : TBasicType TBoolean
IO CInt
textIterEditable ::
(MonadIO m) =>
TextIter -> -- _obj
Bool -> -- default_setting
m Bool
textIterEditable _obj default_setting = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let default_setting' = (fromIntegral . fromEnum) default_setting
result <- gtk_text_iter_editable _obj' default_setting'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::ends_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_ends_line" gtk_text_iter_ends_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterEndsLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterEndsLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_ends_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::ends_sentence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_ends_sentence" gtk_text_iter_ends_sentence ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterEndsSentence ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterEndsSentence _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_ends_sentence _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::ends_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_ends_tag" gtk_text_iter_ends_tag ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterEndsTag ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
Maybe (a) -> -- tag
m Bool
textIterEndsTag _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeTag <- case tag of
Nothing -> return nullPtr
Just jTag -> do
let jTag' = unsafeManagedPtrCastPtr jTag
return jTag'
result <- gtk_text_iter_ends_tag _obj' maybeTag
let result' = (/= 0) result
touchManagedPtr _obj
whenJust tag touchManagedPtr
return result'
-- method TextIter::ends_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_ends_word" gtk_text_iter_ends_word ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterEndsWord ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterEndsWord _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_ends_word _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::equal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_equal" gtk_text_iter_equal ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter"
IO CInt
textIterEqual ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- rhs
m Bool
textIterEqual _obj rhs = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let rhs' = unsafeManagedPtrGetPtr rhs
result <- gtk_text_iter_equal _obj' rhs'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr rhs
return result'
-- method TextIter::forward_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_char" gtk_text_iter_forward_char ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardChar ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_char _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_chars
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardChars ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardChars _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_chars _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_cursor_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_cursor_position" gtk_text_iter_forward_cursor_position ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardCursorPosition ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardCursorPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_cursor_position _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_cursor_positions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardCursorPositions ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardCursorPositions _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_cursor_positions _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_find_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate"
Ptr () -> -- user_data : TBasicType TVoid
Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardFindChar ::
(MonadIO m) =>
TextIter -> -- _obj
TextCharPredicate -> -- pred
Maybe (TextIter) -> -- limit
m Bool
textIterForwardFindChar _obj pred limit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred)
maybeLimit <- case limit of
Nothing -> return nullPtr
Just jLimit -> do
let jLimit' = unsafeManagedPtrGetPtr jLimit
return jLimit'
let user_data = nullPtr
result <- gtk_text_iter_forward_find_char _obj' pred' user_data maybeLimit
let result' = (/= 0) result
safeFreeFunPtr $ castFunPtrToPtr pred'
touchManagedPtr _obj
whenJust limit touchManagedPtr
return result'
-- method TextIter::forward_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_line" gtk_text_iter_forward_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardLines ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardLines _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_lines _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_search" gtk_text_iter_forward_search ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
CString -> -- str : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags"
Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardSearch ::
(MonadIO m) =>
TextIter -> -- _obj
T.Text -> -- str
[TextSearchFlags] -> -- flags
Maybe (TextIter) -> -- limit
m (Bool,TextIter,TextIter)
textIterForwardSearch _obj str flags limit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
str' <- textToCString str
let flags' = gflagsToWord flags
match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter)
match_end <- callocBoxedBytes 80 :: IO (Ptr TextIter)
maybeLimit <- case limit of
Nothing -> return nullPtr
Just jLimit -> do
let jLimit' = unsafeManagedPtrGetPtr jLimit
return jLimit'
result <- gtk_text_iter_forward_search _obj' str' flags' match_start match_end maybeLimit
let result' = (/= 0) result
match_start' <- (wrapBoxed TextIter) match_start
match_end' <- (wrapBoxed TextIter) match_end
touchManagedPtr _obj
whenJust limit touchManagedPtr
freeMem str'
return (result', match_start', match_end')
-- method TextIter::forward_sentence_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_sentence_end" gtk_text_iter_forward_sentence_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardSentenceEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardSentenceEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_sentence_end _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_sentence_ends
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardSentenceEnds ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardSentenceEnds _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_sentence_ends _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_to_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_to_end" gtk_text_iter_forward_to_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO ()
textIterForwardToEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m ()
textIterForwardToEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_forward_to_end _obj'
touchManagedPtr _obj
return ()
-- method TextIter::forward_to_line_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_to_line_end" gtk_text_iter_forward_to_line_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardToLineEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardToLineEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_to_line_end _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_to_tag_toggle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_to_tag_toggle" gtk_text_iter_forward_to_tag_toggle ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterForwardToTagToggle ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
Maybe (a) -> -- tag
m Bool
textIterForwardToTagToggle _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeTag <- case tag of
Nothing -> return nullPtr
Just jTag -> do
let jTag' = unsafeManagedPtrCastPtr jTag
return jTag'
result <- gtk_text_iter_forward_to_tag_toggle _obj' maybeTag
let result' = (/= 0) result
touchManagedPtr _obj
whenJust tag touchManagedPtr
return result'
-- method TextIter::forward_visible_cursor_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_cursor_position" gtk_text_iter_forward_visible_cursor_position ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardVisibleCursorPosition ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardVisibleCursorPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_cursor_position _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_visible_cursor_positions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardVisibleCursorPositions ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardVisibleCursorPositions _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_cursor_positions _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_visible_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_line" gtk_text_iter_forward_visible_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardVisibleLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardVisibleLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_visible_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardVisibleLines ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardVisibleLines _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_lines _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_visible_word_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_word_end" gtk_text_iter_forward_visible_word_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardVisibleWordEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardVisibleWordEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_word_end _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_visible_word_ends
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardVisibleWordEnds ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardVisibleWordEnds _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_visible_word_ends _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_word_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_word_end" gtk_text_iter_forward_word_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterForwardWordEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterForwardWordEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_word_end _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::forward_word_ends
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textIterForwardWordEnds ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- count
m Bool
textIterForwardWordEnds _obj count = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_forward_word_ends _obj' count
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_free" gtk_text_iter_free ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO ()
textIterFree ::
(MonadIO m) =>
TextIter -> -- _obj
m ()
textIterFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_free _obj'
touchManagedPtr _obj
return ()
-- method TextIter::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_attributes" gtk_text_iter_get_attributes ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextAttributes -> -- values : TInterface "Gtk" "TextAttributes"
IO CInt
textIterGetAttributes ::
(MonadIO m) =>
TextIter -> -- _obj
m (Bool,TextAttributes)
textIterGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
values <- callocBoxedBytes 168 :: IO (Ptr TextAttributes)
result <- gtk_text_iter_get_attributes _obj' values
let result' = (/= 0) result
values' <- (wrapBoxed TextAttributes) values
touchManagedPtr _obj
return (result', values')
-- method TextIter::get_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_buffer" gtk_text_iter_get_buffer ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr TextBuffer)
textIterGetBuffer ::
(MonadIO m) =>
TextIter -> -- _obj
m TextBuffer
textIterGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_buffer" result
result' <- (newObject TextBuffer) result
touchManagedPtr _obj
return result'
-- method TextIter::get_bytes_in_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_bytes_in_line" gtk_text_iter_get_bytes_in_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetBytesInLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetBytesInLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_bytes_in_line _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_char
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUniChar
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_char" gtk_text_iter_get_char ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterGetChar ::
(MonadIO m) =>
TextIter -> -- _obj
m Char
textIterGetChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_char _obj'
let result' = (chr . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TextIter::get_chars_in_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_chars_in_line" gtk_text_iter_get_chars_in_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetCharsInLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetCharsInLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_chars_in_line _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_child_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextChildAnchor"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_child_anchor" gtk_text_iter_get_child_anchor ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr TextChildAnchor)
textIterGetChildAnchor ::
(MonadIO m) =>
TextIter -> -- _obj
m TextChildAnchor
textIterGetChildAnchor _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_child_anchor _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_child_anchor" result
result' <- (newObject TextChildAnchor) result
touchManagedPtr _obj
return result'
-- method TextIter::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Language"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_language" gtk_text_iter_get_language ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr Pango.Language)
textIterGetLanguage ::
(MonadIO m) =>
TextIter -> -- _obj
m Pango.Language
textIterGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_language _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_language" result
result' <- (wrapBoxed Pango.Language) result
touchManagedPtr _obj
return result'
-- method TextIter::get_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_line" gtk_text_iter_get_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_line _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_line_index" gtk_text_iter_get_line_index ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetLineIndex ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetLineIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_line_index _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_line_offset" gtk_text_iter_get_line_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetLineOffset ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetLineOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_line_offset _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_marks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "TextMark")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_marks" gtk_text_iter_get_marks ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr (GSList (Ptr TextMark)))
textIterGetMarks ::
(MonadIO m) =>
TextIter -> -- _obj
m [TextMark]
textIterGetMarks _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_marks _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_marks" result
result' <- unpackGSList result
result'' <- mapM (newObject TextMark) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method TextIter::get_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_offset" gtk_text_iter_get_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetOffset ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_offset _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_pixbuf" gtk_text_iter_get_pixbuf ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr GdkPixbuf.Pixbuf)
textIterGetPixbuf ::
(MonadIO m) =>
TextIter -> -- _obj
m GdkPixbuf.Pixbuf
textIterGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_pixbuf _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method TextIter::get_slice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_slice" gtk_text_iter_get_slice ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CString
textIterGetSlice ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- end
m T.Text
textIterGetSlice _obj end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let end' = unsafeManagedPtrGetPtr end
result <- gtk_text_iter_get_slice _obj' end'
checkUnexpectedReturnNULL "gtk_text_iter_get_slice" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr end
return result'
-- method TextIter::get_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "TextTag")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_tags" gtk_text_iter_get_tags ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO (Ptr (GSList (Ptr TextTag)))
textIterGetTags ::
(MonadIO m) =>
TextIter -> -- _obj
m [TextTag]
textIterGetTags _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_tags _obj'
checkUnexpectedReturnNULL "gtk_text_iter_get_tags" result
result' <- unpackGSList result
result'' <- mapM (newObject TextTag) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method TextIter::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_text" gtk_text_iter_get_text ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CString
textIterGetText ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- end
m T.Text
textIterGetText _obj end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let end' = unsafeManagedPtrGetPtr end
result <- gtk_text_iter_get_text _obj' end'
checkUnexpectedReturnNULL "gtk_text_iter_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr end
return result'
-- method TextIter::get_toggled_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "TextTag")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_toggled_tags" gtk_text_iter_get_toggled_tags ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
CInt -> -- toggled_on : TBasicType TBoolean
IO (Ptr (GSList (Ptr TextTag)))
textIterGetToggledTags ::
(MonadIO m) =>
TextIter -> -- _obj
Bool -> -- toggled_on
m [TextTag]
textIterGetToggledTags _obj toggled_on = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let toggled_on' = (fromIntegral . fromEnum) toggled_on
result <- gtk_text_iter_get_toggled_tags _obj' toggled_on'
checkUnexpectedReturnNULL "gtk_text_iter_get_toggled_tags" result
result' <- unpackGSList result
result'' <- mapM (newObject TextTag) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method TextIter::get_visible_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_visible_line_index" gtk_text_iter_get_visible_line_index ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetVisibleLineIndex ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetVisibleLineIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_visible_line_index _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_visible_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_visible_line_offset" gtk_text_iter_get_visible_line_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO Int32
textIterGetVisibleLineOffset ::
(MonadIO m) =>
TextIter -> -- _obj
m Int32
textIterGetVisibleLineOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_get_visible_line_offset _obj'
touchManagedPtr _obj
return result
-- method TextIter::get_visible_slice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_visible_slice" gtk_text_iter_get_visible_slice ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CString
textIterGetVisibleSlice ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- end
m T.Text
textIterGetVisibleSlice _obj end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let end' = unsafeManagedPtrGetPtr end
result <- gtk_text_iter_get_visible_slice _obj' end'
checkUnexpectedReturnNULL "gtk_text_iter_get_visible_slice" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr end
return result'
-- method TextIter::get_visible_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_get_visible_text" gtk_text_iter_get_visible_text ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CString
textIterGetVisibleText ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- end
m T.Text
textIterGetVisibleText _obj end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let end' = unsafeManagedPtrGetPtr end
result <- gtk_text_iter_get_visible_text _obj' end'
checkUnexpectedReturnNULL "gtk_text_iter_get_visible_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr end
return result'
-- method TextIter::has_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_has_tag" gtk_text_iter_has_tag ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterHasTag ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
a -> -- tag
m Bool
textIterHasTag _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
result <- gtk_text_iter_has_tag _obj' tag'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr tag
return result'
-- method TextIter::in_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_in_range" gtk_text_iter_in_range ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- start : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- end : TInterface "Gtk" "TextIter"
IO CInt
textIterInRange ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- start
TextIter -> -- end
m Bool
textIterInRange _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let start' = unsafeManagedPtrGetPtr start
let end' = unsafeManagedPtrGetPtr end
result <- gtk_text_iter_in_range _obj' start' end'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr start
touchManagedPtr end
return result'
-- method TextIter::inside_sentence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_inside_sentence" gtk_text_iter_inside_sentence ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterInsideSentence ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterInsideSentence _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_inside_sentence _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::inside_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_inside_word" gtk_text_iter_inside_word ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterInsideWord ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterInsideWord _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_inside_word _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::is_cursor_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_is_cursor_position" gtk_text_iter_is_cursor_position ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterIsCursorPosition ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterIsCursorPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_is_cursor_position _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::is_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_is_end" gtk_text_iter_is_end ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterIsEnd ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterIsEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_is_end _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::is_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_is_start" gtk_text_iter_is_start ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterIsStart ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterIsStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_is_start _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_order" gtk_text_iter_order ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextIter -> -- second : TInterface "Gtk" "TextIter"
IO ()
textIterOrder ::
(MonadIO m) =>
TextIter -> -- _obj
TextIter -> -- second
m ()
textIterOrder _obj second = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let second' = unsafeManagedPtrGetPtr second
gtk_text_iter_order _obj' second'
touchManagedPtr _obj
touchManagedPtr second
return ()
-- method TextIter::set_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- line_number : TBasicType TInt32
IO ()
textIterSetLine ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- line_number
m ()
textIterSetLine _obj line_number = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_line _obj' line_number
touchManagedPtr _obj
return ()
-- method TextIter::set_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- byte_on_line : TBasicType TInt32
IO ()
textIterSetLineIndex ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- byte_on_line
m ()
textIterSetLineIndex _obj byte_on_line = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_line_index _obj' byte_on_line
touchManagedPtr _obj
return ()
-- method TextIter::set_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- char_on_line : TBasicType TInt32
IO ()
textIterSetLineOffset ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- char_on_line
m ()
textIterSetLineOffset _obj char_on_line = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_line_offset _obj' char_on_line
touchManagedPtr _obj
return ()
-- method TextIter::set_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- char_offset : TBasicType TInt32
IO ()
textIterSetOffset ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- char_offset
m ()
textIterSetOffset _obj char_offset = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_offset _obj' char_offset
touchManagedPtr _obj
return ()
-- method TextIter::set_visible_line_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- byte_on_line : TBasicType TInt32
IO ()
textIterSetVisibleLineIndex ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- byte_on_line
m ()
textIterSetVisibleLineIndex _obj byte_on_line = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_visible_line_index _obj' byte_on_line
touchManagedPtr _obj
return ()
-- method TextIter::set_visible_line_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Int32 -> -- char_on_line : TBasicType TInt32
IO ()
textIterSetVisibleLineOffset ::
(MonadIO m) =>
TextIter -> -- _obj
Int32 -> -- char_on_line
m ()
textIterSetVisibleLineOffset _obj char_on_line = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_text_iter_set_visible_line_offset _obj' char_on_line
touchManagedPtr _obj
return ()
-- method TextIter::starts_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_starts_line" gtk_text_iter_starts_line ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterStartsLine ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterStartsLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_starts_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::starts_sentence
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_starts_sentence" gtk_text_iter_starts_sentence ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterStartsSentence ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterStartsSentence _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_starts_sentence _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::starts_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_starts_word" gtk_text_iter_starts_word ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
IO CInt
textIterStartsWord ::
(MonadIO m) =>
TextIter -> -- _obj
m Bool
textIterStartsWord _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_text_iter_starts_word _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextIter::toggles_tag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_iter_toggles_tag" gtk_text_iter_toggles_tag ::
Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textIterTogglesTag ::
(MonadIO m, TextTagK a) =>
TextIter -> -- _obj
Maybe (a) -> -- tag
m Bool
textIterTogglesTag _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeTag <- case tag of
Nothing -> return nullPtr
Just jTag -> do
let jTag' = unsafeManagedPtrCastPtr jTag
return jTag'
result <- gtk_text_iter_toggles_tag _obj' maybeTag
let result' = (/= 0) result
touchManagedPtr _obj
whenJust tag touchManagedPtr
return result'
-- object TextMark
newtype TextMark = TextMark (ForeignPtr TextMark)
noTextMark :: Maybe TextMark
noTextMark = Nothing
foreign import ccall "gtk_text_mark_get_type"
c_gtk_text_mark_get_type :: IO GType
type instance ParentTypes TextMark = '[GObject.Object]
instance GObject TextMark where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_mark_get_type
class GObject o => TextMarkK o
instance (GObject o, IsDescendantOf TextMark o) => TextMarkK o
toTextMark :: TextMarkK o => o -> IO TextMark
toTextMark = unsafeCastTo TextMark
-- method TextMark::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextMark"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_new" gtk_text_mark_new ::
CString -> -- name : TBasicType TUTF8
CInt -> -- left_gravity : TBasicType TBoolean
IO (Ptr TextMark)
textMarkNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- name
Bool -> -- left_gravity
m TextMark
textMarkNew name left_gravity = liftIO $ do
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
let left_gravity' = (fromIntegral . fromEnum) left_gravity
result <- gtk_text_mark_new maybeName left_gravity'
checkUnexpectedReturnNULL "gtk_text_mark_new" result
result' <- (wrapObject TextMark) result
freeMem maybeName
return result'
-- method TextMark::get_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_get_buffer" gtk_text_mark_get_buffer ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
IO (Ptr TextBuffer)
textMarkGetBuffer ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
m TextBuffer
textMarkGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_mark_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_text_mark_get_buffer" result
result' <- (newObject TextBuffer) result
touchManagedPtr _obj
return result'
-- method TextMark::get_deleted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_get_deleted" gtk_text_mark_get_deleted ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
IO CInt
textMarkGetDeleted ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
m Bool
textMarkGetDeleted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_mark_get_deleted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextMark::get_left_gravity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_get_left_gravity" gtk_text_mark_get_left_gravity ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
IO CInt
textMarkGetLeftGravity ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
m Bool
textMarkGetLeftGravity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_mark_get_left_gravity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextMark::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_get_name" gtk_text_mark_get_name ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
IO CString
textMarkGetName ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
m T.Text
textMarkGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_mark_get_name _obj'
checkUnexpectedReturnNULL "gtk_text_mark_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method TextMark::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_get_visible" gtk_text_mark_get_visible ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
IO CInt
textMarkGetVisible ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
m Bool
textMarkGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_mark_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextMark::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_mark_set_visible" gtk_text_mark_set_visible ::
Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark"
CInt -> -- setting : TBasicType TBoolean
IO ()
textMarkSetVisible ::
(MonadIO m, TextMarkK a) =>
a -> -- _obj
Bool -> -- setting
m ()
textMarkSetVisible _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_text_mark_set_visible _obj' setting'
touchManagedPtr _obj
return ()
-- Flags TextSearchFlags
data TextSearchFlags =
TextSearchFlagsVisibleOnly
| TextSearchFlagsTextOnly
| TextSearchFlagsCaseInsensitive
| AnotherTextSearchFlags Int
deriving (Show, Eq)
instance Enum TextSearchFlags where
fromEnum TextSearchFlagsVisibleOnly = 1
fromEnum TextSearchFlagsTextOnly = 2
fromEnum TextSearchFlagsCaseInsensitive = 4
fromEnum (AnotherTextSearchFlags k) = k
toEnum 1 = TextSearchFlagsVisibleOnly
toEnum 2 = TextSearchFlagsTextOnly
toEnum 4 = TextSearchFlagsCaseInsensitive
toEnum k = AnotherTextSearchFlags k
foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type ::
IO GType
instance BoxedEnum TextSearchFlags where
boxedEnumType _ = c_gtk_text_search_flags_get_type
instance IsGFlag TextSearchFlags
-- object TextTag
newtype TextTag = TextTag (ForeignPtr TextTag)
noTextTag :: Maybe TextTag
noTextTag = Nothing
foreign import ccall "gtk_text_tag_get_type"
c_gtk_text_tag_get_type :: IO GType
type instance ParentTypes TextTag = '[GObject.Object]
instance GObject TextTag where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_tag_get_type
class GObject o => TextTagK o
instance (GObject o, IsDescendantOf TextTag o) => TextTagK o
toTextTag :: TextTagK o => o -> IO TextTag
toTextTag = unsafeCastTo TextTag
-- method TextTag::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextTag"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_new" gtk_text_tag_new ::
CString -> -- name : TBasicType TUTF8
IO (Ptr TextTag)
textTagNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- name
m TextTag
textTagNew name = liftIO $ do
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
result <- gtk_text_tag_new maybeName
checkUnexpectedReturnNULL "gtk_text_tag_new" result
result' <- (wrapObject TextTag) result
freeMem maybeName
return result'
-- method TextTag::event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_event" gtk_text_tag_event ::
Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag"
Ptr GObject.Object -> -- event_object : TInterface "GObject" "Object"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textTagEvent ::
(MonadIO m, TextTagK a, GObject.ObjectK b) =>
a -> -- _obj
b -> -- event_object
Gdk.Event -> -- event
TextIter -> -- iter
m Bool
textTagEvent _obj event_object event iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event_object' = unsafeManagedPtrCastPtr event_object
let event' = unsafeManagedPtrGetPtr event
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_tag_event _obj' event_object' event' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event_object
touchManagedPtr event
touchManagedPtr iter
return result'
-- method TextTag::get_priority
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_get_priority" gtk_text_tag_get_priority ::
Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag"
IO Int32
textTagGetPriority ::
(MonadIO m, TextTagK a) =>
a -> -- _obj
m Int32
textTagGetPriority _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_tag_get_priority _obj'
touchManagedPtr _obj
return result
-- method TextTag::set_priority
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_set_priority" gtk_text_tag_set_priority ::
Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag"
Int32 -> -- priority : TBasicType TInt32
IO ()
textTagSetPriority ::
(MonadIO m, TextTagK a) =>
a -> -- _obj
Int32 -> -- priority
m ()
textTagSetPriority _obj priority = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_tag_set_priority _obj' priority
touchManagedPtr _obj
return ()
-- signal TextTag::event
type TextTagEventCallback =
GObject.Object ->
Gdk.Event ->
TextIter ->
IO Bool
noTextTagEventCallback :: Maybe TextTagEventCallback
noTextTagEventCallback = Nothing
type TextTagEventCallbackC =
Ptr () -> -- object
Ptr GObject.Object ->
Ptr Gdk.Event ->
Ptr TextIter ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTextTagEventCallback :: TextTagEventCallbackC -> IO (FunPtr TextTagEventCallbackC)
textTagEventClosure :: TextTagEventCallback -> IO Closure
textTagEventClosure cb = newCClosure =<< mkTextTagEventCallback wrapped
where wrapped = textTagEventCallbackWrapper cb
textTagEventCallbackWrapper ::
TextTagEventCallback ->
Ptr () ->
Ptr GObject.Object ->
Ptr Gdk.Event ->
Ptr TextIter ->
Ptr () ->
IO CInt
textTagEventCallbackWrapper _cb _ object event iter _ = do
object' <- (newObject GObject.Object) object
event' <- (newBoxed Gdk.Event) event
iter' <- (newBoxed TextIter) iter
result <- _cb object' event' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId
onTextTagEvent obj cb = liftIO $ connectTextTagEvent obj cb SignalConnectBefore
afterTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId
afterTextTagEvent obj cb = connectTextTagEvent obj cb SignalConnectAfter
connectTextTagEvent :: (GObject a, MonadIO m) =>
a -> TextTagEventCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagEvent obj cb after = liftIO $ do
cb' <- mkTextTagEventCallback (textTagEventCallbackWrapper cb)
connectSignalFunPtr obj "event" cb' after
-- object TextTagTable
newtype TextTagTable = TextTagTable (ForeignPtr TextTagTable)
noTextTagTable :: Maybe TextTagTable
noTextTagTable = Nothing
foreign import ccall "gtk_text_tag_table_get_type"
c_gtk_text_tag_table_get_type :: IO GType
type instance ParentTypes TextTagTable = '[GObject.Object, Buildable]
instance GObject TextTagTable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_tag_table_get_type
class GObject o => TextTagTableK o
instance (GObject o, IsDescendantOf TextTagTable o) => TextTagTableK o
toTextTagTable :: TextTagTableK o => o -> IO TextTagTable
toTextTagTable = unsafeCastTo TextTagTable
-- method TextTagTable::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextTagTable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_new" gtk_text_tag_table_new ::
IO (Ptr TextTagTable)
textTagTableNew ::
(MonadIO m) =>
m TextTagTable
textTagTableNew = liftIO $ do
result <- gtk_text_tag_table_new
checkUnexpectedReturnNULL "gtk_text_tag_table_new" result
result' <- (wrapObject TextTagTable) result
return result'
-- method TextTagTable::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_add" gtk_text_tag_table_add ::
Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO CInt
textTagTableAdd ::
(MonadIO m, TextTagTableK a, TextTagK b) =>
a -> -- _obj
b -> -- tag
m Bool
textTagTableAdd _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
result <- gtk_text_tag_table_add _obj' tag'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr tag
return result'
-- method TextTagTable::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_foreach" gtk_text_tag_table_foreach ::
Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable"
FunPtr TextTagTableForeachC -> -- func : TInterface "Gtk" "TextTagTableForeach"
Ptr () -> -- data : TBasicType TVoid
IO ()
textTagTableForeach ::
(MonadIO m, TextTagTableK a) =>
a -> -- _obj
TextTagTableForeach -> -- func
m ()
textTagTableForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTextTagTableForeach (textTagTableForeachWrapper Nothing func)
let data_ = nullPtr
gtk_text_tag_table_foreach _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method TextTagTable::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_get_size" gtk_text_tag_table_get_size ::
Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable"
IO Int32
textTagTableGetSize ::
(MonadIO m, TextTagTableK a) =>
a -> -- _obj
m Int32
textTagTableGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_tag_table_get_size _obj'
touchManagedPtr _obj
return result
-- method TextTagTable::lookup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextTag"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_lookup" gtk_text_tag_table_lookup ::
Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable"
CString -> -- name : TBasicType TUTF8
IO (Ptr TextTag)
textTagTableLookup ::
(MonadIO m, TextTagTableK a) =>
a -> -- _obj
T.Text -> -- name
m TextTag
textTagTableLookup _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- gtk_text_tag_table_lookup _obj' name'
checkUnexpectedReturnNULL "gtk_text_tag_table_lookup" result
result' <- (newObject TextTag) result
touchManagedPtr _obj
freeMem name'
return result'
-- method TextTagTable::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_tag_table_remove" gtk_text_tag_table_remove ::
Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable"
Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag"
IO ()
textTagTableRemove ::
(MonadIO m, TextTagTableK a, TextTagK b) =>
a -> -- _obj
b -> -- tag
m ()
textTagTableRemove _obj tag = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tag' = unsafeManagedPtrCastPtr tag
gtk_text_tag_table_remove _obj' tag'
touchManagedPtr _obj
touchManagedPtr tag
return ()
-- signal TextTagTable::tag-added
type TextTagTableTagAddedCallback =
TextTag ->
IO ()
noTextTagTableTagAddedCallback :: Maybe TextTagTableTagAddedCallback
noTextTagTableTagAddedCallback = Nothing
type TextTagTableTagAddedCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextTagTableTagAddedCallback :: TextTagTableTagAddedCallbackC -> IO (FunPtr TextTagTableTagAddedCallbackC)
textTagTableTagAddedClosure :: TextTagTableTagAddedCallback -> IO Closure
textTagTableTagAddedClosure cb = newCClosure =<< mkTextTagTableTagAddedCallback wrapped
where wrapped = textTagTableTagAddedCallbackWrapper cb
textTagTableTagAddedCallbackWrapper ::
TextTagTableTagAddedCallback ->
Ptr () ->
Ptr TextTag ->
Ptr () ->
IO ()
textTagTableTagAddedCallbackWrapper _cb _ tag _ = do
tag' <- (newObject TextTag) tag
_cb tag'
onTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId
onTextTagTableTagAdded obj cb = liftIO $ connectTextTagTableTagAdded obj cb SignalConnectBefore
afterTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId
afterTextTagTableTagAdded obj cb = connectTextTagTableTagAdded obj cb SignalConnectAfter
connectTextTagTableTagAdded :: (GObject a, MonadIO m) =>
a -> TextTagTableTagAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagAdded obj cb after = liftIO $ do
cb' <- mkTextTagTableTagAddedCallback (textTagTableTagAddedCallbackWrapper cb)
connectSignalFunPtr obj "tag-added" cb' after
-- signal TextTagTable::tag-changed
type TextTagTableTagChangedCallback =
TextTag ->
Bool ->
IO ()
noTextTagTableTagChangedCallback :: Maybe TextTagTableTagChangedCallback
noTextTagTableTagChangedCallback = Nothing
type TextTagTableTagChangedCallbackC =
Ptr () -> -- object
Ptr TextTag ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextTagTableTagChangedCallback :: TextTagTableTagChangedCallbackC -> IO (FunPtr TextTagTableTagChangedCallbackC)
textTagTableTagChangedClosure :: TextTagTableTagChangedCallback -> IO Closure
textTagTableTagChangedClosure cb = newCClosure =<< mkTextTagTableTagChangedCallback wrapped
where wrapped = textTagTableTagChangedCallbackWrapper cb
textTagTableTagChangedCallbackWrapper ::
TextTagTableTagChangedCallback ->
Ptr () ->
Ptr TextTag ->
CInt ->
Ptr () ->
IO ()
textTagTableTagChangedCallbackWrapper _cb _ tag size_changed _ = do
tag' <- (newObject TextTag) tag
let size_changed' = (/= 0) size_changed
_cb tag' size_changed'
onTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId
onTextTagTableTagChanged obj cb = liftIO $ connectTextTagTableTagChanged obj cb SignalConnectBefore
afterTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId
afterTextTagTableTagChanged obj cb = connectTextTagTableTagChanged obj cb SignalConnectAfter
connectTextTagTableTagChanged :: (GObject a, MonadIO m) =>
a -> TextTagTableTagChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagChanged obj cb after = liftIO $ do
cb' <- mkTextTagTableTagChangedCallback (textTagTableTagChangedCallbackWrapper cb)
connectSignalFunPtr obj "tag-changed" cb' after
-- signal TextTagTable::tag-removed
type TextTagTableTagRemovedCallback =
TextTag ->
IO ()
noTextTagTableTagRemovedCallback :: Maybe TextTagTableTagRemovedCallback
noTextTagTableTagRemovedCallback = Nothing
type TextTagTableTagRemovedCallbackC =
Ptr () -> -- object
Ptr TextTag ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextTagTableTagRemovedCallback :: TextTagTableTagRemovedCallbackC -> IO (FunPtr TextTagTableTagRemovedCallbackC)
textTagTableTagRemovedClosure :: TextTagTableTagRemovedCallback -> IO Closure
textTagTableTagRemovedClosure cb = newCClosure =<< mkTextTagTableTagRemovedCallback wrapped
where wrapped = textTagTableTagRemovedCallbackWrapper cb
textTagTableTagRemovedCallbackWrapper ::
TextTagTableTagRemovedCallback ->
Ptr () ->
Ptr TextTag ->
Ptr () ->
IO ()
textTagTableTagRemovedCallbackWrapper _cb _ tag _ = do
tag' <- (newObject TextTag) tag
_cb tag'
onTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId
onTextTagTableTagRemoved obj cb = liftIO $ connectTextTagTableTagRemoved obj cb SignalConnectBefore
afterTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId
afterTextTagTableTagRemoved obj cb = connectTextTagTableTagRemoved obj cb SignalConnectAfter
connectTextTagTableTagRemoved :: (GObject a, MonadIO m) =>
a -> TextTagTableTagRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextTagTableTagRemoved obj cb after = liftIO $ do
cb' <- mkTextTagTableTagRemovedCallback (textTagTableTagRemovedCallbackWrapper cb)
connectSignalFunPtr obj "tag-removed" cb' after
-- callback TextTagTableForeach
textTagTableForeachClosure :: TextTagTableForeach -> IO Closure
textTagTableForeachClosure cb = newCClosure =<< mkTextTagTableForeach wrapped
where wrapped = textTagTableForeachWrapper Nothing cb
type TextTagTableForeachC =
Ptr TextTag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTextTagTableForeach :: TextTagTableForeachC -> IO (FunPtr TextTagTableForeachC)
type TextTagTableForeach =
TextTag ->
IO ()
noTextTagTableForeach :: Maybe TextTagTableForeach
noTextTagTableForeach = Nothing
textTagTableForeachWrapper ::
Maybe (Ptr (FunPtr (TextTagTableForeachC))) ->
TextTagTableForeach ->
Ptr TextTag ->
Ptr () ->
IO ()
textTagTableForeachWrapper funptrptr _cb tag _ = do
tag' <- (newObject TextTag) tag
_cb tag'
maybeReleaseFunPtr funptrptr
-- object TextView
newtype TextView = TextView (ForeignPtr TextView)
noTextView :: Maybe TextView
noTextView = Nothing
foreign import ccall "gtk_text_view_get_type"
c_gtk_text_view_get_type :: IO GType
type instance ParentTypes TextView = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable]
instance GObject TextView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_text_view_get_type
class GObject o => TextViewK o
instance (GObject o, IsDescendantOf TextView o) => TextViewK o
toTextView :: TextViewK o => o -> IO TextView
toTextView = unsafeCastTo TextView
-- method TextView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_new" gtk_text_view_new ::
IO (Ptr TextView)
textViewNew ::
(MonadIO m) =>
m TextView
textViewNew = liftIO $ do
result <- gtk_text_view_new
checkUnexpectedReturnNULL "gtk_text_view_new" result
result' <- (newObject TextView) result
return result'
-- method TextView::new_with_buffer
-- method type : Constructor
-- Args : [Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_new_with_buffer" gtk_text_view_new_with_buffer ::
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO (Ptr TextView)
textViewNewWithBuffer ::
(MonadIO m, TextBufferK a) =>
a -> -- buffer
m TextView
textViewNewWithBuffer buffer = liftIO $ do
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_text_view_new_with_buffer buffer'
checkUnexpectedReturnNULL "gtk_text_view_new_with_buffer" result
result' <- (newObject TextView) result
touchManagedPtr buffer
return result'
-- method TextView::add_child_at_anchor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_add_child_at_anchor" gtk_text_view_add_child_at_anchor ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor"
IO ()
textViewAddChildAtAnchor ::
(MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) =>
a -> -- _obj
b -> -- child
c -> -- anchor
m ()
textViewAddChildAtAnchor _obj child anchor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let anchor' = unsafeManagedPtrCastPtr anchor
gtk_text_view_add_child_at_anchor _obj' child' anchor'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr anchor
return ()
-- method TextView::add_child_in_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_add_child_in_window" gtk_text_view_add_child_in_window ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CUInt -> -- which_window : TInterface "Gtk" "TextWindowType"
Int32 -> -- xpos : TBasicType TInt32
Int32 -> -- ypos : TBasicType TInt32
IO ()
textViewAddChildInWindow ::
(MonadIO m, TextViewK a, WidgetK b) =>
a -> -- _obj
b -> -- child
TextWindowType -> -- which_window
Int32 -> -- xpos
Int32 -> -- ypos
m ()
textViewAddChildInWindow _obj child which_window xpos ypos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let which_window' = (fromIntegral . fromEnum) which_window
gtk_text_view_add_child_in_window _obj' child' which_window' xpos ypos
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method TextView::backward_display_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_backward_display_line" gtk_text_view_backward_display_line ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textViewBackwardDisplayLine ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m Bool
textViewBackwardDisplayLine _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_backward_display_line _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::backward_display_line_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_backward_display_line_start" gtk_text_view_backward_display_line_start ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textViewBackwardDisplayLineStart ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m Bool
textViewBackwardDisplayLineStart _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_backward_display_line_start _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::buffer_to_window_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_buffer_to_window_coords" gtk_text_view_buffer_to_window_coords ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- win : TInterface "Gtk" "TextWindowType"
Int32 -> -- buffer_x : TBasicType TInt32
Int32 -> -- buffer_y : TBasicType TInt32
Ptr Int32 -> -- window_x : TBasicType TInt32
Ptr Int32 -> -- window_y : TBasicType TInt32
IO ()
textViewBufferToWindowCoords ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextWindowType -> -- win
Int32 -> -- buffer_x
Int32 -> -- buffer_y
m (Int32,Int32)
textViewBufferToWindowCoords _obj win buffer_x buffer_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let win' = (fromIntegral . fromEnum) win
window_x <- allocMem :: IO (Ptr Int32)
window_y <- allocMem :: IO (Ptr Int32)
gtk_text_view_buffer_to_window_coords _obj' win' buffer_x buffer_y window_x window_y
window_x' <- peek window_x
window_y' <- peek window_y
touchManagedPtr _obj
freeMem window_x
freeMem window_y
return (window_x', window_y')
-- method TextView::forward_display_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_forward_display_line" gtk_text_view_forward_display_line ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textViewForwardDisplayLine ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m Bool
textViewForwardDisplayLine _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_forward_display_line _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::forward_display_line_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_forward_display_line_end" gtk_text_view_forward_display_line_end ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textViewForwardDisplayLineEnd ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m Bool
textViewForwardDisplayLineEnd _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_forward_display_line_end _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::get_accepts_tab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_accepts_tab" gtk_text_view_get_accepts_tab ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewGetAcceptsTab ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewGetAcceptsTab _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_accepts_tab _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::get_border_window_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_border_window_size" gtk_text_view_get_border_window_size ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- type : TInterface "Gtk" "TextWindowType"
IO Int32
textViewGetBorderWindowSize ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextWindowType -> -- type
m Int32
textViewGetBorderWindowSize _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
result <- gtk_text_view_get_border_window_size _obj' type_'
touchManagedPtr _obj
return result
-- method TextView::get_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_bottom_margin" gtk_text_view_get_bottom_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetBottomMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetBottomMargin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_bottom_margin _obj'
touchManagedPtr _obj
return result
-- method TextView::get_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_buffer" gtk_text_view_get_buffer ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO (Ptr TextBuffer)
textViewGetBuffer ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m TextBuffer
textViewGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_text_view_get_buffer" result
result' <- (newObject TextBuffer) result
touchManagedPtr _obj
return result'
-- method TextView::get_cursor_locations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weak", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_cursor_locations" gtk_text_view_get_cursor_locations ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gdk.Rectangle -> -- strong : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- weak : TInterface "Gdk" "Rectangle"
IO ()
textViewGetCursorLocations ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Maybe (TextIter) -> -- iter
m (Gdk.Rectangle,Gdk.Rectangle)
textViewGetCursorLocations _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIter <- case iter of
Nothing -> return nullPtr
Just jIter -> do
let jIter' = unsafeManagedPtrGetPtr jIter
return jIter'
strong <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
weak <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_text_view_get_cursor_locations _obj' maybeIter strong weak
strong' <- (wrapBoxed Gdk.Rectangle) strong
weak' <- (wrapBoxed Gdk.Rectangle) weak
touchManagedPtr _obj
whenJust iter touchManagedPtr
return (strong', weak')
-- method TextView::get_cursor_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_cursor_visible" gtk_text_view_get_cursor_visible ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewGetCursorVisible ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewGetCursorVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_cursor_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::get_default_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextAttributes"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_default_attributes" gtk_text_view_get_default_attributes ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO (Ptr TextAttributes)
textViewGetDefaultAttributes ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m TextAttributes
textViewGetDefaultAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_default_attributes _obj'
checkUnexpectedReturnNULL "gtk_text_view_get_default_attributes" result
result' <- (wrapBoxed TextAttributes) result
touchManagedPtr _obj
return result'
-- method TextView::get_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_editable" gtk_text_view_get_editable ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewGetEditable ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewGetEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_hadjustment" gtk_text_view_get_hadjustment ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO (Ptr Adjustment)
{-# DEPRECATED textViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
textViewGetHadjustment ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Adjustment
textViewGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_text_view_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method TextView::get_indent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_indent" gtk_text_view_get_indent ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetIndent ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetIndent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_indent _obj'
touchManagedPtr _obj
return result
-- method TextView::get_input_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "InputHints"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_input_hints" gtk_text_view_get_input_hints ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CUInt
textViewGetInputHints ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m [InputHints]
textViewGetInputHints _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_input_hints _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method TextView::get_input_purpose
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "InputPurpose"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_input_purpose" gtk_text_view_get_input_purpose ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CUInt
textViewGetInputPurpose ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m InputPurpose
textViewGetInputPurpose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_input_purpose _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TextView::get_iter_at_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_iter_at_location" gtk_text_view_get_iter_at_location ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
textViewGetIterAtLocation ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m (TextIter)
textViewGetIterAtLocation _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
gtk_text_view_get_iter_at_location _obj' iter x y
iter' <- (wrapBoxed TextIter) iter
touchManagedPtr _obj
return iter'
-- method TextView::get_iter_at_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_iter_at_position" gtk_text_view_get_iter_at_position ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Int32 -> -- trailing : TBasicType TInt32
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
textViewGetIterAtPosition ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m (TextIter,Int32)
textViewGetIterAtPosition _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
trailing <- allocMem :: IO (Ptr Int32)
gtk_text_view_get_iter_at_position _obj' iter trailing x y
iter' <- (wrapBoxed TextIter) iter
trailing' <- peek trailing
touchManagedPtr _obj
freeMem trailing
return (iter', trailing')
-- method TextView::get_iter_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_iter_location" gtk_text_view_get_iter_location ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle"
IO ()
textViewGetIterLocation ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m (Gdk.Rectangle)
textViewGetIterLocation _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
location <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_text_view_get_iter_location _obj' iter' location
location' <- (wrapBoxed Gdk.Rectangle) location
touchManagedPtr _obj
touchManagedPtr iter
return location'
-- method TextView::get_justification
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Justification"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_justification" gtk_text_view_get_justification ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CUInt
textViewGetJustification ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Justification
textViewGetJustification _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_justification _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TextView::get_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_left_margin" gtk_text_view_get_left_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetLeftMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetLeftMargin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_left_margin _obj'
touchManagedPtr _obj
return result
-- method TextView::get_line_at_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_top", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_line_at_y" gtk_text_view_get_line_at_y ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- target_iter : TInterface "Gtk" "TextIter"
Int32 -> -- y : TBasicType TInt32
Ptr Int32 -> -- line_top : TBasicType TInt32
IO ()
textViewGetLineAtY ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- y
m (TextIter,Int32)
textViewGetLineAtY _obj y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
target_iter <- callocBoxedBytes 80 :: IO (Ptr TextIter)
line_top <- allocMem :: IO (Ptr Int32)
gtk_text_view_get_line_at_y _obj' target_iter y line_top
target_iter' <- (wrapBoxed TextIter) target_iter
line_top' <- peek line_top
touchManagedPtr _obj
freeMem line_top
return (target_iter', line_top')
-- method TextView::get_line_yrange
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_line_yrange" gtk_text_view_get_line_yrange ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Int32 -> -- y : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
textViewGetLineYrange ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m (Int32,Int32)
textViewGetLineYrange _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
y <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_text_view_get_line_yrange _obj' iter' y height
y' <- peek y
height' <- peek height
touchManagedPtr _obj
touchManagedPtr iter
freeMem y
freeMem height
return (y', height')
-- method TextView::get_monospace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_monospace" gtk_text_view_get_monospace ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewGetMonospace ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewGetMonospace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_monospace _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::get_overwrite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_overwrite" gtk_text_view_get_overwrite ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewGetOverwrite ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewGetOverwrite _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_overwrite _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::get_pixels_above_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_pixels_above_lines" gtk_text_view_get_pixels_above_lines ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetPixelsAboveLines ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetPixelsAboveLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_pixels_above_lines _obj'
touchManagedPtr _obj
return result
-- method TextView::get_pixels_below_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_pixels_below_lines" gtk_text_view_get_pixels_below_lines ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetPixelsBelowLines ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetPixelsBelowLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_pixels_below_lines _obj'
touchManagedPtr _obj
return result
-- method TextView::get_pixels_inside_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_pixels_inside_wrap" gtk_text_view_get_pixels_inside_wrap ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetPixelsInsideWrap ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetPixelsInsideWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_pixels_inside_wrap _obj'
touchManagedPtr _obj
return result
-- method TextView::get_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_right_margin" gtk_text_view_get_right_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetRightMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetRightMargin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_right_margin _obj'
touchManagedPtr _obj
return result
-- method TextView::get_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "TabArray"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_tabs" gtk_text_view_get_tabs ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO (Ptr Pango.TabArray)
textViewGetTabs ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Pango.TabArray
textViewGetTabs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_tabs _obj'
checkUnexpectedReturnNULL "gtk_text_view_get_tabs" result
result' <- (wrapBoxed Pango.TabArray) result
touchManagedPtr _obj
return result'
-- method TextView::get_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_top_margin" gtk_text_view_get_top_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO Int32
textViewGetTopMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Int32
textViewGetTopMargin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_top_margin _obj'
touchManagedPtr _obj
return result
-- method TextView::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_vadjustment" gtk_text_view_get_vadjustment ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO (Ptr Adjustment)
{-# DEPRECATED textViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
textViewGetVadjustment ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Adjustment
textViewGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_text_view_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method TextView::get_visible_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_visible_rect" gtk_text_view_get_visible_rect ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle"
IO ()
textViewGetVisibleRect ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m (Gdk.Rectangle)
textViewGetVisibleRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
visible_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_text_view_get_visible_rect _obj' visible_rect
visible_rect' <- (wrapBoxed Gdk.Rectangle) visible_rect
touchManagedPtr _obj
return visible_rect'
-- method TextView::get_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_window" gtk_text_view_get_window ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- win : TInterface "Gtk" "TextWindowType"
IO (Ptr Gdk.Window)
textViewGetWindow ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextWindowType -> -- win
m Gdk.Window
textViewGetWindow _obj win = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let win' = (fromIntegral . fromEnum) win
result <- gtk_text_view_get_window _obj' win'
checkUnexpectedReturnNULL "gtk_text_view_get_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method TextView::get_window_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextWindowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_window_type" gtk_text_view_get_window_type ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO CUInt
textViewGetWindowType ::
(MonadIO m, TextViewK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
m TextWindowType
textViewGetWindowType _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
result <- gtk_text_view_get_window_type _obj' window'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr window
return result'
-- method TextView::get_wrap_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WrapMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_get_wrap_mode" gtk_text_view_get_wrap_mode ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CUInt
textViewGetWrapMode ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m WrapMode
textViewGetWrapMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_get_wrap_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TextView::im_context_filter_keypress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_im_context_filter_keypress" gtk_text_view_im_context_filter_keypress ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
textViewImContextFilterKeypress ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Gdk.EventKey -> -- event
m Bool
textViewImContextFilterKeypress _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_text_view_im_context_filter_keypress _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method TextView::move_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_move_child" gtk_text_view_move_child ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- xpos : TBasicType TInt32
Int32 -> -- ypos : TBasicType TInt32
IO ()
textViewMoveChild ::
(MonadIO m, TextViewK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- xpos
Int32 -> -- ypos
m ()
textViewMoveChild _obj child xpos ypos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_text_view_move_child _obj' child' xpos ypos
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method TextView::move_mark_onscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_move_mark_onscreen" gtk_text_view_move_mark_onscreen ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO CInt
textViewMoveMarkOnscreen ::
(MonadIO m, TextViewK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
m Bool
textViewMoveMarkOnscreen _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
result <- gtk_text_view_move_mark_onscreen _obj' mark'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr mark
return result'
-- method TextView::move_visually
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_move_visually" gtk_text_view_move_visually ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
Int32 -> -- count : TBasicType TInt32
IO CInt
textViewMoveVisually ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
Int32 -> -- count
m Bool
textViewMoveVisually _obj iter count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_move_visually _obj' iter' count
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::place_cursor_onscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_place_cursor_onscreen" gtk_text_view_place_cursor_onscreen ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO CInt
textViewPlaceCursorOnscreen ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m Bool
textViewPlaceCursorOnscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_text_view_place_cursor_onscreen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TextView::reset_im_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_reset_im_context" gtk_text_view_reset_im_context ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
IO ()
textViewResetImContext ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
m ()
textViewResetImContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_reset_im_context _obj'
touchManagedPtr _obj
return ()
-- method TextView::scroll_mark_onscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_scroll_mark_onscreen" gtk_text_view_scroll_mark_onscreen ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
IO ()
textViewScrollMarkOnscreen ::
(MonadIO m, TextViewK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
m ()
textViewScrollMarkOnscreen _obj mark = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
gtk_text_view_scroll_mark_onscreen _obj' mark'
touchManagedPtr _obj
touchManagedPtr mark
return ()
-- method TextView::scroll_to_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_scroll_to_iter" gtk_text_view_scroll_to_iter ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
CDouble -> -- within_margin : TBasicType TDouble
CInt -> -- use_align : TBasicType TBoolean
CDouble -> -- xalign : TBasicType TDouble
CDouble -> -- yalign : TBasicType TDouble
IO CInt
textViewScrollToIter ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
Double -> -- within_margin
Bool -> -- use_align
Double -> -- xalign
Double -> -- yalign
m Bool
textViewScrollToIter _obj iter within_margin use_align xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let within_margin' = realToFrac within_margin
let use_align' = (fromIntegral . fromEnum) use_align
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
result <- gtk_text_view_scroll_to_iter _obj' iter' within_margin' use_align' xalign' yalign'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::scroll_to_mark
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_scroll_to_mark" gtk_text_view_scroll_to_mark ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark"
CDouble -> -- within_margin : TBasicType TDouble
CInt -> -- use_align : TBasicType TBoolean
CDouble -> -- xalign : TBasicType TDouble
CDouble -> -- yalign : TBasicType TDouble
IO ()
textViewScrollToMark ::
(MonadIO m, TextViewK a, TextMarkK b) =>
a -> -- _obj
b -> -- mark
Double -> -- within_margin
Bool -> -- use_align
Double -> -- xalign
Double -> -- yalign
m ()
textViewScrollToMark _obj mark within_margin use_align xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mark' = unsafeManagedPtrCastPtr mark
let within_margin' = realToFrac within_margin
let use_align' = (fromIntegral . fromEnum) use_align
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_text_view_scroll_to_mark _obj' mark' within_margin' use_align' xalign' yalign'
touchManagedPtr _obj
touchManagedPtr mark
return ()
-- method TextView::set_accepts_tab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_accepts_tab" gtk_text_view_set_accepts_tab ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CInt -> -- accepts_tab : TBasicType TBoolean
IO ()
textViewSetAcceptsTab ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Bool -> -- accepts_tab
m ()
textViewSetAcceptsTab _obj accepts_tab = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accepts_tab' = (fromIntegral . fromEnum) accepts_tab
gtk_text_view_set_accepts_tab _obj' accepts_tab'
touchManagedPtr _obj
return ()
-- method TextView::set_border_window_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_border_window_size" gtk_text_view_set_border_window_size ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- type : TInterface "Gtk" "TextWindowType"
Int32 -> -- size : TBasicType TInt32
IO ()
textViewSetBorderWindowSize ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextWindowType -> -- type
Int32 -> -- size
m ()
textViewSetBorderWindowSize _obj type_ size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_text_view_set_border_window_size _obj' type_' size
touchManagedPtr _obj
return ()
-- method TextView::set_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_bottom_margin" gtk_text_view_set_bottom_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- bottom_margin : TBasicType TInt32
IO ()
textViewSetBottomMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- bottom_margin
m ()
textViewSetBottomMargin _obj bottom_margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_bottom_margin _obj' bottom_margin
touchManagedPtr _obj
return ()
-- method TextView::set_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_buffer" gtk_text_view_set_buffer ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO ()
textViewSetBuffer ::
(MonadIO m, TextViewK a, TextBufferK b) =>
a -> -- _obj
Maybe (b) -> -- buffer
m ()
textViewSetBuffer _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeBuffer <- case buffer of
Nothing -> return nullPtr
Just jBuffer -> do
let jBuffer' = unsafeManagedPtrCastPtr jBuffer
return jBuffer'
gtk_text_view_set_buffer _obj' maybeBuffer
touchManagedPtr _obj
whenJust buffer touchManagedPtr
return ()
-- method TextView::set_cursor_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_cursor_visible" gtk_text_view_set_cursor_visible ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CInt -> -- setting : TBasicType TBoolean
IO ()
textViewSetCursorVisible ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Bool -> -- setting
m ()
textViewSetCursorVisible _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_text_view_set_cursor_visible _obj' setting'
touchManagedPtr _obj
return ()
-- method TextView::set_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_editable" gtk_text_view_set_editable ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CInt -> -- setting : TBasicType TBoolean
IO ()
textViewSetEditable ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Bool -> -- setting
m ()
textViewSetEditable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_text_view_set_editable _obj' setting'
touchManagedPtr _obj
return ()
-- method TextView::set_indent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_indent" gtk_text_view_set_indent ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- indent : TBasicType TInt32
IO ()
textViewSetIndent ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- indent
m ()
textViewSetIndent _obj indent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_indent _obj' indent
touchManagedPtr _obj
return ()
-- method TextView::set_input_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_input_hints" gtk_text_view_set_input_hints ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- hints : TInterface "Gtk" "InputHints"
IO ()
textViewSetInputHints ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
[InputHints] -> -- hints
m ()
textViewSetInputHints _obj hints = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hints' = gflagsToWord hints
gtk_text_view_set_input_hints _obj' hints'
touchManagedPtr _obj
return ()
-- method TextView::set_input_purpose
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_input_purpose" gtk_text_view_set_input_purpose ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- purpose : TInterface "Gtk" "InputPurpose"
IO ()
textViewSetInputPurpose ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
InputPurpose -> -- purpose
m ()
textViewSetInputPurpose _obj purpose = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let purpose' = (fromIntegral . fromEnum) purpose
gtk_text_view_set_input_purpose _obj' purpose'
touchManagedPtr _obj
return ()
-- method TextView::set_justification
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_justification" gtk_text_view_set_justification ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- justification : TInterface "Gtk" "Justification"
IO ()
textViewSetJustification ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Justification -> -- justification
m ()
textViewSetJustification _obj justification = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let justification' = (fromIntegral . fromEnum) justification
gtk_text_view_set_justification _obj' justification'
touchManagedPtr _obj
return ()
-- method TextView::set_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- left_margin : TBasicType TInt32
IO ()
textViewSetLeftMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- left_margin
m ()
textViewSetLeftMargin _obj left_margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_left_margin _obj' left_margin
touchManagedPtr _obj
return ()
-- method TextView::set_monospace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_monospace" gtk_text_view_set_monospace ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CInt -> -- monospace : TBasicType TBoolean
IO ()
textViewSetMonospace ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Bool -> -- monospace
m ()
textViewSetMonospace _obj monospace = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let monospace' = (fromIntegral . fromEnum) monospace
gtk_text_view_set_monospace _obj' monospace'
touchManagedPtr _obj
return ()
-- method TextView::set_overwrite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_overwrite" gtk_text_view_set_overwrite ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CInt -> -- overwrite : TBasicType TBoolean
IO ()
textViewSetOverwrite ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Bool -> -- overwrite
m ()
textViewSetOverwrite _obj overwrite = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overwrite' = (fromIntegral . fromEnum) overwrite
gtk_text_view_set_overwrite _obj' overwrite'
touchManagedPtr _obj
return ()
-- method TextView::set_pixels_above_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- pixels_above_lines : TBasicType TInt32
IO ()
textViewSetPixelsAboveLines ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- pixels_above_lines
m ()
textViewSetPixelsAboveLines _obj pixels_above_lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_pixels_above_lines _obj' pixels_above_lines
touchManagedPtr _obj
return ()
-- method TextView::set_pixels_below_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- pixels_below_lines : TBasicType TInt32
IO ()
textViewSetPixelsBelowLines ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- pixels_below_lines
m ()
textViewSetPixelsBelowLines _obj pixels_below_lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_pixels_below_lines _obj' pixels_below_lines
touchManagedPtr _obj
return ()
-- method TextView::set_pixels_inside_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- pixels_inside_wrap : TBasicType TInt32
IO ()
textViewSetPixelsInsideWrap ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- pixels_inside_wrap
m ()
textViewSetPixelsInsideWrap _obj pixels_inside_wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_pixels_inside_wrap _obj' pixels_inside_wrap
touchManagedPtr _obj
return ()
-- method TextView::set_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- right_margin : TBasicType TInt32
IO ()
textViewSetRightMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- right_margin
m ()
textViewSetRightMargin _obj right_margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_right_margin _obj' right_margin
touchManagedPtr _obj
return ()
-- method TextView::set_tabs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_tabs" gtk_text_view_set_tabs ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray"
IO ()
textViewSetTabs ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Pango.TabArray -> -- tabs
m ()
textViewSetTabs _obj tabs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tabs' = unsafeManagedPtrGetPtr tabs
gtk_text_view_set_tabs _obj' tabs'
touchManagedPtr _obj
touchManagedPtr tabs
return ()
-- method TextView::set_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_top_margin" gtk_text_view_set_top_margin ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Int32 -> -- top_margin : TBasicType TInt32
IO ()
textViewSetTopMargin ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
Int32 -> -- top_margin
m ()
textViewSetTopMargin _obj top_margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_text_view_set_top_margin _obj' top_margin
touchManagedPtr _obj
return ()
-- method TextView::set_wrap_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_set_wrap_mode" gtk_text_view_set_wrap_mode ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- wrap_mode : TInterface "Gtk" "WrapMode"
IO ()
textViewSetWrapMode ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
WrapMode -> -- wrap_mode
m ()
textViewSetWrapMode _obj wrap_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap_mode' = (fromIntegral . fromEnum) wrap_mode
gtk_text_view_set_wrap_mode _obj' wrap_mode'
touchManagedPtr _obj
return ()
-- method TextView::starts_display_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_starts_display_line" gtk_text_view_starts_display_line ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter"
IO CInt
textViewStartsDisplayLine ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextIter -> -- iter
m Bool
textViewStartsDisplayLine _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_text_view_starts_display_line _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TextView::window_to_buffer_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_text_view_window_to_buffer_coords" gtk_text_view_window_to_buffer_coords ::
Ptr TextView -> -- _obj : TInterface "Gtk" "TextView"
CUInt -> -- win : TInterface "Gtk" "TextWindowType"
Int32 -> -- window_x : TBasicType TInt32
Int32 -> -- window_y : TBasicType TInt32
Ptr Int32 -> -- buffer_x : TBasicType TInt32
Ptr Int32 -> -- buffer_y : TBasicType TInt32
IO ()
textViewWindowToBufferCoords ::
(MonadIO m, TextViewK a) =>
a -> -- _obj
TextWindowType -> -- win
Int32 -> -- window_x
Int32 -> -- window_y
m (Int32,Int32)
textViewWindowToBufferCoords _obj win window_x window_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let win' = (fromIntegral . fromEnum) win
buffer_x <- allocMem :: IO (Ptr Int32)
buffer_y <- allocMem :: IO (Ptr Int32)
gtk_text_view_window_to_buffer_coords _obj' win' window_x window_y buffer_x buffer_y
buffer_x' <- peek buffer_x
buffer_y' <- peek buffer_y
touchManagedPtr _obj
freeMem buffer_x
freeMem buffer_y
return (buffer_x', buffer_y')
-- signal TextView::backspace
type TextViewBackspaceCallback =
IO ()
noTextViewBackspaceCallback :: Maybe TextViewBackspaceCallback
noTextViewBackspaceCallback = Nothing
type TextViewBackspaceCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewBackspaceCallback :: TextViewBackspaceCallbackC -> IO (FunPtr TextViewBackspaceCallbackC)
textViewBackspaceClosure :: TextViewBackspaceCallback -> IO Closure
textViewBackspaceClosure cb = newCClosure =<< mkTextViewBackspaceCallback wrapped
where wrapped = textViewBackspaceCallbackWrapper cb
textViewBackspaceCallbackWrapper ::
TextViewBackspaceCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewBackspaceCallbackWrapper _cb _ _ = do
_cb
onTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId
onTextViewBackspace obj cb = liftIO $ connectTextViewBackspace obj cb SignalConnectBefore
afterTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId
afterTextViewBackspace obj cb = connectTextViewBackspace obj cb SignalConnectAfter
connectTextViewBackspace :: (GObject a, MonadIO m) =>
a -> TextViewBackspaceCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewBackspace obj cb after = liftIO $ do
cb' <- mkTextViewBackspaceCallback (textViewBackspaceCallbackWrapper cb)
connectSignalFunPtr obj "backspace" cb' after
-- signal TextView::copy-clipboard
type TextViewCopyClipboardCallback =
IO ()
noTextViewCopyClipboardCallback :: Maybe TextViewCopyClipboardCallback
noTextViewCopyClipboardCallback = Nothing
type TextViewCopyClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewCopyClipboardCallback :: TextViewCopyClipboardCallbackC -> IO (FunPtr TextViewCopyClipboardCallbackC)
textViewCopyClipboardClosure :: TextViewCopyClipboardCallback -> IO Closure
textViewCopyClipboardClosure cb = newCClosure =<< mkTextViewCopyClipboardCallback wrapped
where wrapped = textViewCopyClipboardCallbackWrapper cb
textViewCopyClipboardCallbackWrapper ::
TextViewCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId
onTextViewCopyClipboard obj cb = liftIO $ connectTextViewCopyClipboard obj cb SignalConnectBefore
afterTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId
afterTextViewCopyClipboard obj cb = connectTextViewCopyClipboard obj cb SignalConnectAfter
connectTextViewCopyClipboard :: (GObject a, MonadIO m) =>
a -> TextViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewCopyClipboard obj cb after = liftIO $ do
cb' <- mkTextViewCopyClipboardCallback (textViewCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
-- signal TextView::cut-clipboard
type TextViewCutClipboardCallback =
IO ()
noTextViewCutClipboardCallback :: Maybe TextViewCutClipboardCallback
noTextViewCutClipboardCallback = Nothing
type TextViewCutClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewCutClipboardCallback :: TextViewCutClipboardCallbackC -> IO (FunPtr TextViewCutClipboardCallbackC)
textViewCutClipboardClosure :: TextViewCutClipboardCallback -> IO Closure
textViewCutClipboardClosure cb = newCClosure =<< mkTextViewCutClipboardCallback wrapped
where wrapped = textViewCutClipboardCallbackWrapper cb
textViewCutClipboardCallbackWrapper ::
TextViewCutClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewCutClipboardCallbackWrapper _cb _ _ = do
_cb
onTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId
onTextViewCutClipboard obj cb = liftIO $ connectTextViewCutClipboard obj cb SignalConnectBefore
afterTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId
afterTextViewCutClipboard obj cb = connectTextViewCutClipboard obj cb SignalConnectAfter
connectTextViewCutClipboard :: (GObject a, MonadIO m) =>
a -> TextViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewCutClipboard obj cb after = liftIO $ do
cb' <- mkTextViewCutClipboardCallback (textViewCutClipboardCallbackWrapper cb)
connectSignalFunPtr obj "cut-clipboard" cb' after
-- signal TextView::delete-from-cursor
type TextViewDeleteFromCursorCallback =
DeleteType ->
Int32 ->
IO ()
noTextViewDeleteFromCursorCallback :: Maybe TextViewDeleteFromCursorCallback
noTextViewDeleteFromCursorCallback = Nothing
type TextViewDeleteFromCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewDeleteFromCursorCallback :: TextViewDeleteFromCursorCallbackC -> IO (FunPtr TextViewDeleteFromCursorCallbackC)
textViewDeleteFromCursorClosure :: TextViewDeleteFromCursorCallback -> IO Closure
textViewDeleteFromCursorClosure cb = newCClosure =<< mkTextViewDeleteFromCursorCallback wrapped
where wrapped = textViewDeleteFromCursorCallbackWrapper cb
textViewDeleteFromCursorCallbackWrapper ::
TextViewDeleteFromCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
textViewDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do
let type_' = (toEnum . fromIntegral) type_
_cb type_' count
onTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId
onTextViewDeleteFromCursor obj cb = liftIO $ connectTextViewDeleteFromCursor obj cb SignalConnectBefore
afterTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId
afterTextViewDeleteFromCursor obj cb = connectTextViewDeleteFromCursor obj cb SignalConnectAfter
connectTextViewDeleteFromCursor :: (GObject a, MonadIO m) =>
a -> TextViewDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewDeleteFromCursor obj cb after = liftIO $ do
cb' <- mkTextViewDeleteFromCursorCallback (textViewDeleteFromCursorCallbackWrapper cb)
connectSignalFunPtr obj "delete-from-cursor" cb' after
-- signal TextView::extend-selection
type TextViewExtendSelectionCallback =
TextExtendSelection ->
TextIter ->
TextIter ->
TextIter ->
IO Bool
noTextViewExtendSelectionCallback :: Maybe TextViewExtendSelectionCallback
noTextViewExtendSelectionCallback = Nothing
type TextViewExtendSelectionCallbackC =
Ptr () -> -- object
CUInt ->
Ptr TextIter ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTextViewExtendSelectionCallback :: TextViewExtendSelectionCallbackC -> IO (FunPtr TextViewExtendSelectionCallbackC)
textViewExtendSelectionClosure :: TextViewExtendSelectionCallback -> IO Closure
textViewExtendSelectionClosure cb = newCClosure =<< mkTextViewExtendSelectionCallback wrapped
where wrapped = textViewExtendSelectionCallbackWrapper cb
textViewExtendSelectionCallbackWrapper ::
TextViewExtendSelectionCallback ->
Ptr () ->
CUInt ->
Ptr TextIter ->
Ptr TextIter ->
Ptr TextIter ->
Ptr () ->
IO CInt
textViewExtendSelectionCallbackWrapper _cb _ granularity location start end _ = do
let granularity' = (toEnum . fromIntegral) granularity
location' <- (newBoxed TextIter) location
start' <- (newBoxed TextIter) start
end' <- (newBoxed TextIter) end
result <- _cb granularity' location' start' end'
let result' = (fromIntegral . fromEnum) result
return result'
onTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId
onTextViewExtendSelection obj cb = liftIO $ connectTextViewExtendSelection obj cb SignalConnectBefore
afterTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId
afterTextViewExtendSelection obj cb = connectTextViewExtendSelection obj cb SignalConnectAfter
connectTextViewExtendSelection :: (GObject a, MonadIO m) =>
a -> TextViewExtendSelectionCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewExtendSelection obj cb after = liftIO $ do
cb' <- mkTextViewExtendSelectionCallback (textViewExtendSelectionCallbackWrapper cb)
connectSignalFunPtr obj "extend-selection" cb' after
-- signal TextView::insert-at-cursor
type TextViewInsertAtCursorCallback =
T.Text ->
IO ()
noTextViewInsertAtCursorCallback :: Maybe TextViewInsertAtCursorCallback
noTextViewInsertAtCursorCallback = Nothing
type TextViewInsertAtCursorCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewInsertAtCursorCallback :: TextViewInsertAtCursorCallbackC -> IO (FunPtr TextViewInsertAtCursorCallbackC)
textViewInsertAtCursorClosure :: TextViewInsertAtCursorCallback -> IO Closure
textViewInsertAtCursorClosure cb = newCClosure =<< mkTextViewInsertAtCursorCallback wrapped
where wrapped = textViewInsertAtCursorCallbackWrapper cb
textViewInsertAtCursorCallbackWrapper ::
TextViewInsertAtCursorCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
textViewInsertAtCursorCallbackWrapper _cb _ string _ = do
string' <- cstringToText string
_cb string'
onTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId
onTextViewInsertAtCursor obj cb = liftIO $ connectTextViewInsertAtCursor obj cb SignalConnectBefore
afterTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId
afterTextViewInsertAtCursor obj cb = connectTextViewInsertAtCursor obj cb SignalConnectAfter
connectTextViewInsertAtCursor :: (GObject a, MonadIO m) =>
a -> TextViewInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewInsertAtCursor obj cb after = liftIO $ do
cb' <- mkTextViewInsertAtCursorCallback (textViewInsertAtCursorCallbackWrapper cb)
connectSignalFunPtr obj "insert-at-cursor" cb' after
-- signal TextView::move-cursor
type TextViewMoveCursorCallback =
MovementStep ->
Int32 ->
Bool ->
IO ()
noTextViewMoveCursorCallback :: Maybe TextViewMoveCursorCallback
noTextViewMoveCursorCallback = Nothing
type TextViewMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewMoveCursorCallback :: TextViewMoveCursorCallbackC -> IO (FunPtr TextViewMoveCursorCallbackC)
textViewMoveCursorClosure :: TextViewMoveCursorCallback -> IO Closure
textViewMoveCursorClosure cb = newCClosure =<< mkTextViewMoveCursorCallback wrapped
where wrapped = textViewMoveCursorCallbackWrapper cb
textViewMoveCursorCallbackWrapper ::
TextViewMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
textViewMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do
let step' = (toEnum . fromIntegral) step
let extend_selection' = (/= 0) extend_selection
_cb step' count extend_selection'
onTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId
onTextViewMoveCursor obj cb = liftIO $ connectTextViewMoveCursor obj cb SignalConnectBefore
afterTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId
afterTextViewMoveCursor obj cb = connectTextViewMoveCursor obj cb SignalConnectAfter
connectTextViewMoveCursor :: (GObject a, MonadIO m) =>
a -> TextViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewMoveCursor obj cb after = liftIO $ do
cb' <- mkTextViewMoveCursorCallback (textViewMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal TextView::move-viewport
type TextViewMoveViewportCallback =
ScrollStep ->
Int32 ->
IO ()
noTextViewMoveViewportCallback :: Maybe TextViewMoveViewportCallback
noTextViewMoveViewportCallback = Nothing
type TextViewMoveViewportCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewMoveViewportCallback :: TextViewMoveViewportCallbackC -> IO (FunPtr TextViewMoveViewportCallbackC)
textViewMoveViewportClosure :: TextViewMoveViewportCallback -> IO Closure
textViewMoveViewportClosure cb = newCClosure =<< mkTextViewMoveViewportCallback wrapped
where wrapped = textViewMoveViewportCallbackWrapper cb
textViewMoveViewportCallbackWrapper ::
TextViewMoveViewportCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
textViewMoveViewportCallbackWrapper _cb _ step count _ = do
let step' = (toEnum . fromIntegral) step
_cb step' count
onTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId
onTextViewMoveViewport obj cb = liftIO $ connectTextViewMoveViewport obj cb SignalConnectBefore
afterTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId
afterTextViewMoveViewport obj cb = connectTextViewMoveViewport obj cb SignalConnectAfter
connectTextViewMoveViewport :: (GObject a, MonadIO m) =>
a -> TextViewMoveViewportCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewMoveViewport obj cb after = liftIO $ do
cb' <- mkTextViewMoveViewportCallback (textViewMoveViewportCallbackWrapper cb)
connectSignalFunPtr obj "move-viewport" cb' after
-- signal TextView::paste-clipboard
type TextViewPasteClipboardCallback =
IO ()
noTextViewPasteClipboardCallback :: Maybe TextViewPasteClipboardCallback
noTextViewPasteClipboardCallback = Nothing
type TextViewPasteClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewPasteClipboardCallback :: TextViewPasteClipboardCallbackC -> IO (FunPtr TextViewPasteClipboardCallbackC)
textViewPasteClipboardClosure :: TextViewPasteClipboardCallback -> IO Closure
textViewPasteClipboardClosure cb = newCClosure =<< mkTextViewPasteClipboardCallback wrapped
where wrapped = textViewPasteClipboardCallbackWrapper cb
textViewPasteClipboardCallbackWrapper ::
TextViewPasteClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewPasteClipboardCallbackWrapper _cb _ _ = do
_cb
onTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId
onTextViewPasteClipboard obj cb = liftIO $ connectTextViewPasteClipboard obj cb SignalConnectBefore
afterTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId
afterTextViewPasteClipboard obj cb = connectTextViewPasteClipboard obj cb SignalConnectAfter
connectTextViewPasteClipboard :: (GObject a, MonadIO m) =>
a -> TextViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewPasteClipboard obj cb after = liftIO $ do
cb' <- mkTextViewPasteClipboardCallback (textViewPasteClipboardCallbackWrapper cb)
connectSignalFunPtr obj "paste-clipboard" cb' after
-- signal TextView::populate-popup
type TextViewPopulatePopupCallback =
Widget ->
IO ()
noTextViewPopulatePopupCallback :: Maybe TextViewPopulatePopupCallback
noTextViewPopulatePopupCallback = Nothing
type TextViewPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewPopulatePopupCallback :: TextViewPopulatePopupCallbackC -> IO (FunPtr TextViewPopulatePopupCallbackC)
textViewPopulatePopupClosure :: TextViewPopulatePopupCallback -> IO Closure
textViewPopulatePopupClosure cb = newCClosure =<< mkTextViewPopulatePopupCallback wrapped
where wrapped = textViewPopulatePopupCallbackWrapper cb
textViewPopulatePopupCallbackWrapper ::
TextViewPopulatePopupCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
textViewPopulatePopupCallbackWrapper _cb _ popup _ = do
popup' <- (newObject Widget) popup
_cb popup'
onTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId
onTextViewPopulatePopup obj cb = liftIO $ connectTextViewPopulatePopup obj cb SignalConnectBefore
afterTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId
afterTextViewPopulatePopup obj cb = connectTextViewPopulatePopup obj cb SignalConnectAfter
connectTextViewPopulatePopup :: (GObject a, MonadIO m) =>
a -> TextViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewPopulatePopup obj cb after = liftIO $ do
cb' <- mkTextViewPopulatePopupCallback (textViewPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- signal TextView::preedit-changed
type TextViewPreeditChangedCallback =
T.Text ->
IO ()
noTextViewPreeditChangedCallback :: Maybe TextViewPreeditChangedCallback
noTextViewPreeditChangedCallback = Nothing
type TextViewPreeditChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewPreeditChangedCallback :: TextViewPreeditChangedCallbackC -> IO (FunPtr TextViewPreeditChangedCallbackC)
textViewPreeditChangedClosure :: TextViewPreeditChangedCallback -> IO Closure
textViewPreeditChangedClosure cb = newCClosure =<< mkTextViewPreeditChangedCallback wrapped
where wrapped = textViewPreeditChangedCallbackWrapper cb
textViewPreeditChangedCallbackWrapper ::
TextViewPreeditChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
textViewPreeditChangedCallbackWrapper _cb _ preedit _ = do
preedit' <- cstringToText preedit
_cb preedit'
onTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId
onTextViewPreeditChanged obj cb = liftIO $ connectTextViewPreeditChanged obj cb SignalConnectBefore
afterTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId
afterTextViewPreeditChanged obj cb = connectTextViewPreeditChanged obj cb SignalConnectAfter
connectTextViewPreeditChanged :: (GObject a, MonadIO m) =>
a -> TextViewPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewPreeditChanged obj cb after = liftIO $ do
cb' <- mkTextViewPreeditChangedCallback (textViewPreeditChangedCallbackWrapper cb)
connectSignalFunPtr obj "preedit-changed" cb' after
-- signal TextView::select-all
type TextViewSelectAllCallback =
Bool ->
IO ()
noTextViewSelectAllCallback :: Maybe TextViewSelectAllCallback
noTextViewSelectAllCallback = Nothing
type TextViewSelectAllCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewSelectAllCallback :: TextViewSelectAllCallbackC -> IO (FunPtr TextViewSelectAllCallbackC)
textViewSelectAllClosure :: TextViewSelectAllCallback -> IO Closure
textViewSelectAllClosure cb = newCClosure =<< mkTextViewSelectAllCallback wrapped
where wrapped = textViewSelectAllCallbackWrapper cb
textViewSelectAllCallbackWrapper ::
TextViewSelectAllCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO ()
textViewSelectAllCallbackWrapper _cb _ select _ = do
let select' = (/= 0) select
_cb select'
onTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId
onTextViewSelectAll obj cb = liftIO $ connectTextViewSelectAll obj cb SignalConnectBefore
afterTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId
afterTextViewSelectAll obj cb = connectTextViewSelectAll obj cb SignalConnectAfter
connectTextViewSelectAll :: (GObject a, MonadIO m) =>
a -> TextViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewSelectAll obj cb after = liftIO $ do
cb' <- mkTextViewSelectAllCallback (textViewSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal TextView::set-anchor
type TextViewSetAnchorCallback =
IO ()
noTextViewSetAnchorCallback :: Maybe TextViewSetAnchorCallback
noTextViewSetAnchorCallback = Nothing
type TextViewSetAnchorCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewSetAnchorCallback :: TextViewSetAnchorCallbackC -> IO (FunPtr TextViewSetAnchorCallbackC)
textViewSetAnchorClosure :: TextViewSetAnchorCallback -> IO Closure
textViewSetAnchorClosure cb = newCClosure =<< mkTextViewSetAnchorCallback wrapped
where wrapped = textViewSetAnchorCallbackWrapper cb
textViewSetAnchorCallbackWrapper ::
TextViewSetAnchorCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewSetAnchorCallbackWrapper _cb _ _ = do
_cb
onTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId
onTextViewSetAnchor obj cb = liftIO $ connectTextViewSetAnchor obj cb SignalConnectBefore
afterTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId
afterTextViewSetAnchor obj cb = connectTextViewSetAnchor obj cb SignalConnectAfter
connectTextViewSetAnchor :: (GObject a, MonadIO m) =>
a -> TextViewSetAnchorCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewSetAnchor obj cb after = liftIO $ do
cb' <- mkTextViewSetAnchorCallback (textViewSetAnchorCallbackWrapper cb)
connectSignalFunPtr obj "set-anchor" cb' after
-- signal TextView::toggle-cursor-visible
type TextViewToggleCursorVisibleCallback =
IO ()
noTextViewToggleCursorVisibleCallback :: Maybe TextViewToggleCursorVisibleCallback
noTextViewToggleCursorVisibleCallback = Nothing
type TextViewToggleCursorVisibleCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewToggleCursorVisibleCallback :: TextViewToggleCursorVisibleCallbackC -> IO (FunPtr TextViewToggleCursorVisibleCallbackC)
textViewToggleCursorVisibleClosure :: TextViewToggleCursorVisibleCallback -> IO Closure
textViewToggleCursorVisibleClosure cb = newCClosure =<< mkTextViewToggleCursorVisibleCallback wrapped
where wrapped = textViewToggleCursorVisibleCallbackWrapper cb
textViewToggleCursorVisibleCallbackWrapper ::
TextViewToggleCursorVisibleCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewToggleCursorVisibleCallbackWrapper _cb _ _ = do
_cb
onTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId
onTextViewToggleCursorVisible obj cb = liftIO $ connectTextViewToggleCursorVisible obj cb SignalConnectBefore
afterTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId
afterTextViewToggleCursorVisible obj cb = connectTextViewToggleCursorVisible obj cb SignalConnectAfter
connectTextViewToggleCursorVisible :: (GObject a, MonadIO m) =>
a -> TextViewToggleCursorVisibleCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewToggleCursorVisible obj cb after = liftIO $ do
cb' <- mkTextViewToggleCursorVisibleCallback (textViewToggleCursorVisibleCallbackWrapper cb)
connectSignalFunPtr obj "toggle-cursor-visible" cb' after
-- signal TextView::toggle-overwrite
type TextViewToggleOverwriteCallback =
IO ()
noTextViewToggleOverwriteCallback :: Maybe TextViewToggleOverwriteCallback
noTextViewToggleOverwriteCallback = Nothing
type TextViewToggleOverwriteCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTextViewToggleOverwriteCallback :: TextViewToggleOverwriteCallbackC -> IO (FunPtr TextViewToggleOverwriteCallbackC)
textViewToggleOverwriteClosure :: TextViewToggleOverwriteCallback -> IO Closure
textViewToggleOverwriteClosure cb = newCClosure =<< mkTextViewToggleOverwriteCallback wrapped
where wrapped = textViewToggleOverwriteCallbackWrapper cb
textViewToggleOverwriteCallbackWrapper ::
TextViewToggleOverwriteCallback ->
Ptr () ->
Ptr () ->
IO ()
textViewToggleOverwriteCallbackWrapper _cb _ _ = do
_cb
onTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId
onTextViewToggleOverwrite obj cb = liftIO $ connectTextViewToggleOverwrite obj cb SignalConnectBefore
afterTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId
afterTextViewToggleOverwrite obj cb = connectTextViewToggleOverwrite obj cb SignalConnectAfter
connectTextViewToggleOverwrite :: (GObject a, MonadIO m) =>
a -> TextViewToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId
connectTextViewToggleOverwrite obj cb after = liftIO $ do
cb' <- mkTextViewToggleOverwriteCallback (textViewToggleOverwriteCallbackWrapper cb)
connectSignalFunPtr obj "toggle-overwrite" cb' after
-- object TextViewAccessible
newtype TextViewAccessible = TextViewAccessible (ForeignPtr TextViewAccessible)
noTextViewAccessible :: Maybe TextViewAccessible
noTextViewAccessible = Nothing
foreign import ccall "gtk_text_view_accessible_get_type"
c_gtk_text_view_accessible_get_type :: IO GType
type instance ParentTypes TextViewAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.EditableText, Atk.StreamableContent, Atk.Text]
instance GObject TextViewAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_text_view_accessible_get_type
class GObject o => TextViewAccessibleK o
instance (GObject o, IsDescendantOf TextViewAccessible o) => TextViewAccessibleK o
toTextViewAccessible :: TextViewAccessibleK o => o -> IO TextViewAccessible
toTextViewAccessible = unsafeCastTo TextViewAccessible
-- Enum TextViewLayer
data TextViewLayer =
TextViewLayerBelow
| TextViewLayerAbove
| AnotherTextViewLayer Int
deriving (Show, Eq)
instance Enum TextViewLayer where
fromEnum TextViewLayerBelow = 0
fromEnum TextViewLayerAbove = 1
fromEnum (AnotherTextViewLayer k) = k
toEnum 0 = TextViewLayerBelow
toEnum 1 = TextViewLayerAbove
toEnum k = AnotherTextViewLayer k
foreign import ccall "gtk_text_view_layer_get_type" c_gtk_text_view_layer_get_type ::
IO GType
instance BoxedEnum TextViewLayer where
boxedEnumType _ = c_gtk_text_view_layer_get_type
-- Enum TextWindowType
data TextWindowType =
TextWindowTypePrivate
| TextWindowTypeWidget
| TextWindowTypeText
| TextWindowTypeLeft
| TextWindowTypeRight
| TextWindowTypeTop
| TextWindowTypeBottom
| AnotherTextWindowType Int
deriving (Show, Eq)
instance Enum TextWindowType where
fromEnum TextWindowTypePrivate = 0
fromEnum TextWindowTypeWidget = 1
fromEnum TextWindowTypeText = 2
fromEnum TextWindowTypeLeft = 3
fromEnum TextWindowTypeRight = 4
fromEnum TextWindowTypeTop = 5
fromEnum TextWindowTypeBottom = 6
fromEnum (AnotherTextWindowType k) = k
toEnum 0 = TextWindowTypePrivate
toEnum 1 = TextWindowTypeWidget
toEnum 2 = TextWindowTypeText
toEnum 3 = TextWindowTypeLeft
toEnum 4 = TextWindowTypeRight
toEnum 5 = TextWindowTypeTop
toEnum 6 = TextWindowTypeBottom
toEnum k = AnotherTextWindowType k
foreign import ccall "gtk_text_window_type_get_type" c_gtk_text_window_type_get_type ::
IO GType
instance BoxedEnum TextWindowType where
boxedEnumType _ = c_gtk_text_window_type_get_type
-- struct ThemeEngine
newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine)
noThemeEngine :: Maybe ThemeEngine
noThemeEngine = Nothing
-- object ThemingEngine
newtype ThemingEngine = ThemingEngine (ForeignPtr ThemingEngine)
noThemingEngine :: Maybe ThemingEngine
noThemingEngine = Nothing
foreign import ccall "gtk_theming_engine_get_type"
c_gtk_theming_engine_get_type :: IO GType
type instance ParentTypes ThemingEngine = '[GObject.Object]
instance GObject ThemingEngine where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_theming_engine_get_type
class GObject o => ThemingEngineK o
instance (GObject o, IsDescendantOf ThemingEngine o) => ThemingEngineK o
toThemingEngine :: ThemingEngineK o => o -> IO ThemingEngine
toThemingEngine = unsafeCastTo ThemingEngine
-- method ThemingEngine::get_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_background_color" gtk_theming_engine_get_background_color ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED themingEngineGetBackgroundColor ["(Since version 3.14)"]#-}
themingEngineGetBackgroundColor ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
themingEngineGetBackgroundColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_theming_engine_get_background_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method ThemingEngine::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_border" gtk_theming_engine_get_border ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- border : TInterface "Gtk" "Border"
IO ()
{-# DEPRECATED themingEngineGetBorder ["(Since version 3.14)"]#-}
themingEngineGetBorder ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
themingEngineGetBorder _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
border <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_theming_engine_get_border _obj' state' border
border' <- (wrapBoxed Border) border
touchManagedPtr _obj
return border'
-- method ThemingEngine::get_border_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_border_color" gtk_theming_engine_get_border_color ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED themingEngineGetBorderColor ["(Since version 3.14)"]#-}
themingEngineGetBorderColor ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
themingEngineGetBorderColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_theming_engine_get_border_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method ThemingEngine::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_color" gtk_theming_engine_get_color ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED themingEngineGetColor ["(Since version 3.14)"]#-}
themingEngineGetColor ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Gdk.RGBA)
themingEngineGetColor _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
gtk_theming_engine_get_color _obj' state' color
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
return color'
-- method ThemingEngine::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_direction" gtk_theming_engine_get_direction ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
IO CUInt
{-# DEPRECATED themingEngineGetDirection ["(Since version 3.8)","Use gtk_theming_engine_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-}
themingEngineGetDirection ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
m TextDirection
themingEngineGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_theming_engine_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontDescription"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_font" gtk_theming_engine_get_font ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
IO (Ptr Pango.FontDescription)
{-# DEPRECATED themingEngineGetFont ["(Since version 3.8)","Use gtk_theming_engine_get()"]#-}
themingEngineGetFont ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m Pango.FontDescription
themingEngineGetFont _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
result <- gtk_theming_engine_get_font _obj' state'
checkUnexpectedReturnNULL "gtk_theming_engine_get_font" result
result' <- (newBoxed Pango.FontDescription) result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_junction_sides
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "JunctionSides"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_junction_sides" gtk_theming_engine_get_junction_sides ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
IO CUInt
{-# DEPRECATED themingEngineGetJunctionSides ["(Since version 3.14)"]#-}
themingEngineGetJunctionSides ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
m [JunctionSides]
themingEngineGetJunctionSides _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_theming_engine_get_junction_sides _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_margin" gtk_theming_engine_get_margin ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- margin : TInterface "Gtk" "Border"
IO ()
{-# DEPRECATED themingEngineGetMargin ["(Since version 3.14)"]#-}
themingEngineGetMargin ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
themingEngineGetMargin _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
margin <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_theming_engine_get_margin _obj' state' margin
margin' <- (wrapBoxed Border) margin
touchManagedPtr _obj
return margin'
-- method ThemingEngine::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_padding" gtk_theming_engine_get_padding ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Border -> -- padding : TInterface "Gtk" "Border"
IO ()
{-# DEPRECATED themingEngineGetPadding ["(Since version 3.14)"]#-}
themingEngineGetPadding ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
[StateFlags] -> -- state
m (Border)
themingEngineGetPadding _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
padding <- callocBoxedBytes 8 :: IO (Ptr Border)
gtk_theming_engine_get_padding _obj' state' padding
padding' <- (wrapBoxed Border) padding
touchManagedPtr _obj
return padding'
-- method ThemingEngine::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_path" gtk_theming_engine_get_path ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
IO (Ptr WidgetPath)
{-# DEPRECATED themingEngineGetPath ["(Since version 3.14)"]#-}
themingEngineGetPath ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
m WidgetPath
themingEngineGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_theming_engine_get_path _obj'
checkUnexpectedReturnNULL "gtk_theming_engine_get_path" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_property" gtk_theming_engine_get_property ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CString -> -- property : TBasicType TUTF8
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
{-# DEPRECATED themingEngineGetProperty ["(Since version 3.14)"]#-}
themingEngineGetProperty ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
T.Text -> -- property
[StateFlags] -> -- state
m (GValue)
themingEngineGetProperty _obj property state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
let state' = gflagsToWord state
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
gtk_theming_engine_get_property _obj' property' state' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem property'
return value'
-- method ThemingEngine::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_screen" gtk_theming_engine_get_screen ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
IO (Ptr Gdk.Screen)
{-# DEPRECATED themingEngineGetScreen ["(Since version 3.14)"]#-}
themingEngineGetScreen ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
m Gdk.Screen
themingEngineGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_theming_engine_get_screen _obj'
checkUnexpectedReturnNULL "gtk_theming_engine_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_state" gtk_theming_engine_get_state ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
IO CUInt
{-# DEPRECATED themingEngineGetState ["(Since version 3.14)"]#-}
themingEngineGetState ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
m [StateFlags]
themingEngineGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_theming_engine_get_state _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method ThemingEngine::get_style_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_get_style_property" gtk_theming_engine_get_style_property ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
{-# DEPRECATED themingEngineGetStyleProperty ["(Since version 3.14)"]#-}
themingEngineGetStyleProperty ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
T.Text -> -- property_name
m (GValue)
themingEngineGetStyleProperty _obj property_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property_name' <- textToCString property_name
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
gtk_theming_engine_get_style_property _obj' property_name' value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
freeMem property_name'
return value'
-- method ThemingEngine::has_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_has_class" gtk_theming_engine_has_class ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CString -> -- style_class : TBasicType TUTF8
IO CInt
{-# DEPRECATED themingEngineHasClass ["(Since version 3.14)"]#-}
themingEngineHasClass ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
T.Text -> -- style_class
m Bool
themingEngineHasClass _obj style_class = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
style_class' <- textToCString style_class
result <- gtk_theming_engine_has_class _obj' style_class'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem style_class'
return result'
-- method ThemingEngine::has_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_has_region" gtk_theming_engine_has_region ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CString -> -- style_region : TBasicType TUTF8
Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED themingEngineHasRegion ["(Since version 3.14)"]#-}
themingEngineHasRegion ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
T.Text -> -- style_region
m (Bool,[RegionFlags])
themingEngineHasRegion _obj style_region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
style_region' <- textToCString style_region
flags <- allocMem :: IO (Ptr CUInt)
result <- gtk_theming_engine_has_region _obj' style_region' flags
let result' = (/= 0) result
flags' <- peek flags
let flags'' = wordToGFlags flags'
touchManagedPtr _obj
freeMem style_region'
freeMem flags
return (result', flags'')
-- method ThemingEngine::lookup_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_lookup_color" gtk_theming_engine_lookup_color ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CString -> -- color_name : TBasicType TUTF8
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO CInt
{-# DEPRECATED themingEngineLookupColor ["(Since version 3.14)"]#-}
themingEngineLookupColor ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
T.Text -> -- color_name
m (Bool,Gdk.RGBA)
themingEngineLookupColor _obj color_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color_name' <- textToCString color_name
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
result <- gtk_theming_engine_lookup_color _obj' color_name' color
let result' = (/= 0) result
color' <- (wrapBoxed Gdk.RGBA) color
touchManagedPtr _obj
freeMem color_name'
return (result', color')
-- method ThemingEngine::state_is_running
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_state_is_running" gtk_theming_engine_state_is_running ::
Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr CDouble -> -- progress : TBasicType TDouble
IO CInt
{-# DEPRECATED themingEngineStateIsRunning ["(Since version 3.6)","Always returns %FALSE"]#-}
themingEngineStateIsRunning ::
(MonadIO m, ThemingEngineK a) =>
a -> -- _obj
StateType -> -- state
m (Bool,Double)
themingEngineStateIsRunning _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
progress <- allocMem :: IO (Ptr CDouble)
result <- gtk_theming_engine_state_is_running _obj' state' progress
let result' = (/= 0) result
progress' <- peek progress
let progress'' = realToFrac progress'
touchManagedPtr _obj
freeMem progress
return (result', progress'')
-- method ThemingEngine::load
-- method type : MemberFunction
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ThemingEngine"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_theming_engine_load" gtk_theming_engine_load ::
CString -> -- name : TBasicType TUTF8
IO (Ptr ThemingEngine)
{-# DEPRECATED themingEngineLoad ["(Since version 3.14)"]#-}
themingEngineLoad ::
(MonadIO m) =>
T.Text -> -- name
m ThemingEngine
themingEngineLoad name = liftIO $ do
name' <- textToCString name
result <- gtk_theming_engine_load name'
checkUnexpectedReturnNULL "gtk_theming_engine_load" result
result' <- (newObject ThemingEngine) result
freeMem name'
return result'
-- callback TickCallback
tickCallbackClosure :: TickCallback -> IO Closure
tickCallbackClosure cb = newCClosure =<< mkTickCallback wrapped
where wrapped = tickCallbackWrapper Nothing cb
type TickCallbackC =
Ptr Widget ->
Ptr Gdk.FrameClock ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTickCallback :: TickCallbackC -> IO (FunPtr TickCallbackC)
type TickCallback =
Widget ->
Gdk.FrameClock ->
IO Bool
noTickCallback :: Maybe TickCallback
noTickCallback = Nothing
tickCallbackWrapper ::
Maybe (Ptr (FunPtr (TickCallbackC))) ->
TickCallback ->
Ptr Widget ->
Ptr Gdk.FrameClock ->
Ptr () ->
IO CInt
tickCallbackWrapper funptrptr _cb widget frame_clock _ = do
widget' <- (newObject Widget) widget
frame_clock' <- (newObject Gdk.FrameClock) frame_clock
result <- _cb widget' frame_clock'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object ToggleAction
newtype ToggleAction = ToggleAction (ForeignPtr ToggleAction)
noToggleAction :: Maybe ToggleAction
noToggleAction = Nothing
foreign import ccall "gtk_toggle_action_get_type"
c_gtk_toggle_action_get_type :: IO GType
type instance ParentTypes ToggleAction = '[Action, GObject.Object, Buildable]
instance GObject ToggleAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_toggle_action_get_type
class GObject o => ToggleActionK o
instance (GObject o, IsDescendantOf ToggleAction o) => ToggleActionK o
toToggleAction :: ToggleActionK o => o -> IO ToggleAction
toToggleAction = unsafeCastTo ToggleAction
-- method ToggleAction::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToggleAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_new" gtk_toggle_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr ToggleAction)
{-# DEPRECATED toggleActionNew ["(Since version 3.10)"]#-}
toggleActionNew ::
(MonadIO m) =>
T.Text -> -- name
Maybe (T.Text) -> -- label
Maybe (T.Text) -> -- tooltip
Maybe (T.Text) -> -- stock_id
m ToggleAction
toggleActionNew name label tooltip stock_id = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
result <- gtk_toggle_action_new name' maybeLabel maybeTooltip maybeStock_id
checkUnexpectedReturnNULL "gtk_toggle_action_new" result
result' <- (wrapObject ToggleAction) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStock_id
return result'
-- method ToggleAction::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_get_active" gtk_toggle_action_get_active ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO CInt
{-# DEPRECATED toggleActionGetActive ["(Since version 3.10)"]#-}
toggleActionGetActive ::
(MonadIO m, ToggleActionK a) =>
a -> -- _obj
m Bool
toggleActionGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_action_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleAction::get_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_get_draw_as_radio" gtk_toggle_action_get_draw_as_radio ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO CInt
{-# DEPRECATED toggleActionGetDrawAsRadio ["(Since version 3.10)"]#-}
toggleActionGetDrawAsRadio ::
(MonadIO m, ToggleActionK a) =>
a -> -- _obj
m Bool
toggleActionGetDrawAsRadio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_action_get_draw_as_radio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleAction::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_set_active" gtk_toggle_action_set_active ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
CInt -> -- is_active : TBasicType TBoolean
IO ()
{-# DEPRECATED toggleActionSetActive ["(Since version 3.10)"]#-}
toggleActionSetActive ::
(MonadIO m, ToggleActionK a) =>
a -> -- _obj
Bool -> -- is_active
m ()
toggleActionSetActive _obj is_active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_active' = (fromIntegral . fromEnum) is_active
gtk_toggle_action_set_active _obj' is_active'
touchManagedPtr _obj
return ()
-- method ToggleAction::set_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_set_draw_as_radio" gtk_toggle_action_set_draw_as_radio ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
CInt -> -- draw_as_radio : TBasicType TBoolean
IO ()
{-# DEPRECATED toggleActionSetDrawAsRadio ["(Since version 3.10)"]#-}
toggleActionSetDrawAsRadio ::
(MonadIO m, ToggleActionK a) =>
a -> -- _obj
Bool -> -- draw_as_radio
m ()
toggleActionSetDrawAsRadio _obj draw_as_radio = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio
gtk_toggle_action_set_draw_as_radio _obj' draw_as_radio'
touchManagedPtr _obj
return ()
-- method ToggleAction::toggled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_toggled" gtk_toggle_action_toggled ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO ()
{-# DEPRECATED toggleActionToggled ["(Since version 3.10)"]#-}
toggleActionToggled ::
(MonadIO m, ToggleActionK a) =>
a -> -- _obj
m ()
toggleActionToggled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toggle_action_toggled _obj'
touchManagedPtr _obj
return ()
-- signal ToggleAction::toggled
type ToggleActionToggledCallback =
IO ()
noToggleActionToggledCallback :: Maybe ToggleActionToggledCallback
noToggleActionToggledCallback = Nothing
type ToggleActionToggledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToggleActionToggledCallback :: ToggleActionToggledCallbackC -> IO (FunPtr ToggleActionToggledCallbackC)
toggleActionToggledClosure :: ToggleActionToggledCallback -> IO Closure
toggleActionToggledClosure cb = newCClosure =<< mkToggleActionToggledCallback wrapped
where wrapped = toggleActionToggledCallbackWrapper cb
toggleActionToggledCallbackWrapper ::
ToggleActionToggledCallback ->
Ptr () ->
Ptr () ->
IO ()
toggleActionToggledCallbackWrapper _cb _ _ = do
_cb
onToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId
onToggleActionToggled obj cb = liftIO $ connectToggleActionToggled obj cb SignalConnectBefore
afterToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId
afterToggleActionToggled obj cb = connectToggleActionToggled obj cb SignalConnectAfter
connectToggleActionToggled :: (GObject a, MonadIO m) =>
a -> ToggleActionToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectToggleActionToggled obj cb after = liftIO $ do
cb' <- mkToggleActionToggledCallback (toggleActionToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- struct ToggleActionEntry
newtype ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry)
noToggleActionEntry :: Maybe ToggleActionEntry
noToggleActionEntry = Nothing
toggleActionEntryReadName :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadStockId :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadStockId s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadLabel :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadLabel s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadAccelerator :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
val' <- cstringToText val
return val'
toggleActionEntryReadTooltip :: ToggleActionEntry -> IO T.Text
toggleActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
-- XXX Skipped getter for "ToggleActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
toggleActionEntryReadIsActive :: ToggleActionEntry -> IO Bool
toggleActionEntryReadIsActive s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CInt
let val' = (/= 0) val
return val'
-- object ToggleButton
newtype ToggleButton = ToggleButton (ForeignPtr ToggleButton)
noToggleButton :: Maybe ToggleButton
noToggleButton = Nothing
foreign import ccall "gtk_toggle_button_get_type"
c_gtk_toggle_button_get_type :: IO GType
type instance ParentTypes ToggleButton = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject ToggleButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_toggle_button_get_type
class GObject o => ToggleButtonK o
instance (GObject o, IsDescendantOf ToggleButton o) => ToggleButtonK o
toToggleButton :: ToggleButtonK o => o -> IO ToggleButton
toToggleButton = unsafeCastTo ToggleButton
-- method ToggleButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ToggleButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_new" gtk_toggle_button_new ::
IO (Ptr ToggleButton)
toggleButtonNew ::
(MonadIO m) =>
m ToggleButton
toggleButtonNew = liftIO $ do
result <- gtk_toggle_button_new
checkUnexpectedReturnNULL "gtk_toggle_button_new" result
result' <- (newObject ToggleButton) result
return result'
-- method ToggleButton::new_with_label
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToggleButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_new_with_label" gtk_toggle_button_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr ToggleButton)
toggleButtonNewWithLabel ::
(MonadIO m) =>
T.Text -> -- label
m ToggleButton
toggleButtonNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_toggle_button_new_with_label label'
checkUnexpectedReturnNULL "gtk_toggle_button_new_with_label" result
result' <- (newObject ToggleButton) result
freeMem label'
return result'
-- method ToggleButton::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToggleButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_new_with_mnemonic" gtk_toggle_button_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr ToggleButton)
toggleButtonNewWithMnemonic ::
(MonadIO m) =>
T.Text -> -- label
m ToggleButton
toggleButtonNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_toggle_button_new_with_mnemonic label'
checkUnexpectedReturnNULL "gtk_toggle_button_new_with_mnemonic" result
result' <- (newObject ToggleButton) result
freeMem label'
return result'
-- method ToggleButton::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_get_active" gtk_toggle_button_get_active ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
IO CInt
toggleButtonGetActive ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
m Bool
toggleButtonGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_button_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleButton::get_inconsistent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_get_inconsistent" gtk_toggle_button_get_inconsistent ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
IO CInt
toggleButtonGetInconsistent ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
m Bool
toggleButtonGetInconsistent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_button_get_inconsistent _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleButton::get_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_get_mode" gtk_toggle_button_get_mode ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
IO CInt
toggleButtonGetMode ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
m Bool
toggleButtonGetMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_button_get_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleButton::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_set_active" gtk_toggle_button_set_active ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
CInt -> -- is_active : TBasicType TBoolean
IO ()
toggleButtonSetActive ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
Bool -> -- is_active
m ()
toggleButtonSetActive _obj is_active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_active' = (fromIntegral . fromEnum) is_active
gtk_toggle_button_set_active _obj' is_active'
touchManagedPtr _obj
return ()
-- method ToggleButton::set_inconsistent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_set_inconsistent" gtk_toggle_button_set_inconsistent ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
CInt -> -- setting : TBasicType TBoolean
IO ()
toggleButtonSetInconsistent ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
Bool -> -- setting
m ()
toggleButtonSetInconsistent _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_toggle_button_set_inconsistent _obj' setting'
touchManagedPtr _obj
return ()
-- method ToggleButton::set_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_set_mode" gtk_toggle_button_set_mode ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
CInt -> -- draw_indicator : TBasicType TBoolean
IO ()
toggleButtonSetMode ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
Bool -> -- draw_indicator
m ()
toggleButtonSetMode _obj draw_indicator = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_indicator' = (fromIntegral . fromEnum) draw_indicator
gtk_toggle_button_set_mode _obj' draw_indicator'
touchManagedPtr _obj
return ()
-- method ToggleButton::toggled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_button_toggled" gtk_toggle_button_toggled ::
Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton"
IO ()
toggleButtonToggled ::
(MonadIO m, ToggleButtonK a) =>
a -> -- _obj
m ()
toggleButtonToggled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toggle_button_toggled _obj'
touchManagedPtr _obj
return ()
-- signal ToggleButton::toggled
type ToggleButtonToggledCallback =
IO ()
noToggleButtonToggledCallback :: Maybe ToggleButtonToggledCallback
noToggleButtonToggledCallback = Nothing
type ToggleButtonToggledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToggleButtonToggledCallback :: ToggleButtonToggledCallbackC -> IO (FunPtr ToggleButtonToggledCallbackC)
toggleButtonToggledClosure :: ToggleButtonToggledCallback -> IO Closure
toggleButtonToggledClosure cb = newCClosure =<< mkToggleButtonToggledCallback wrapped
where wrapped = toggleButtonToggledCallbackWrapper cb
toggleButtonToggledCallbackWrapper ::
ToggleButtonToggledCallback ->
Ptr () ->
Ptr () ->
IO ()
toggleButtonToggledCallbackWrapper _cb _ _ = do
_cb
onToggleButtonToggled :: (GObject a, MonadIO m) => a -> ToggleButtonToggledCallback -> m SignalHandlerId
onToggleButtonToggled obj cb = liftIO $ connectToggleButtonToggled obj cb SignalConnectBefore
afterToggleButtonToggled :: (GObject a, MonadIO m) => a -> ToggleButtonToggledCallback -> m SignalHandlerId
afterToggleButtonToggled obj cb = connectToggleButtonToggled obj cb SignalConnectAfter
connectToggleButtonToggled :: (GObject a, MonadIO m) =>
a -> ToggleButtonToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectToggleButtonToggled obj cb after = liftIO $ do
cb' <- mkToggleButtonToggledCallback (toggleButtonToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- object ToggleButtonAccessible
newtype ToggleButtonAccessible = ToggleButtonAccessible (ForeignPtr ToggleButtonAccessible)
noToggleButtonAccessible :: Maybe ToggleButtonAccessible
noToggleButtonAccessible = Nothing
foreign import ccall "gtk_toggle_button_accessible_get_type"
c_gtk_toggle_button_accessible_get_type :: IO GType
type instance ParentTypes ToggleButtonAccessible = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image]
instance GObject ToggleButtonAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_toggle_button_accessible_get_type
class GObject o => ToggleButtonAccessibleK o
instance (GObject o, IsDescendantOf ToggleButtonAccessible o) => ToggleButtonAccessibleK o
toToggleButtonAccessible :: ToggleButtonAccessibleK o => o -> IO ToggleButtonAccessible
toToggleButtonAccessible = unsafeCastTo ToggleButtonAccessible
-- object ToggleToolButton
newtype ToggleToolButton = ToggleToolButton (ForeignPtr ToggleToolButton)
noToggleToolButton :: Maybe ToggleToolButton
noToggleToolButton = Nothing
foreign import ccall "gtk_toggle_tool_button_get_type"
c_gtk_toggle_tool_button_get_type :: IO GType
type instance ParentTypes ToggleToolButton = '[ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject ToggleToolButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_toggle_tool_button_get_type
class GObject o => ToggleToolButtonK o
instance (GObject o, IsDescendantOf ToggleToolButton o) => ToggleToolButtonK o
toToggleToolButton :: ToggleToolButtonK o => o -> IO ToggleToolButton
toToggleToolButton = unsafeCastTo ToggleToolButton
-- method ToggleToolButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ToggleToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_tool_button_new" gtk_toggle_tool_button_new ::
IO (Ptr ToggleToolButton)
toggleToolButtonNew ::
(MonadIO m) =>
m ToggleToolButton
toggleToolButtonNew = liftIO $ do
result <- gtk_toggle_tool_button_new
checkUnexpectedReturnNULL "gtk_toggle_tool_button_new" result
result' <- (newObject ToggleToolButton) result
return result'
-- method ToggleToolButton::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToggleToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_tool_button_new_from_stock" gtk_toggle_tool_button_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr ToggleToolButton)
{-# DEPRECATED toggleToolButtonNewFromStock ["(Since version 3.10)","Use gtk_toggle_tool_button_new() instead."]#-}
toggleToolButtonNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
m ToggleToolButton
toggleToolButtonNewFromStock stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_toggle_tool_button_new_from_stock stock_id'
checkUnexpectedReturnNULL "gtk_toggle_tool_button_new_from_stock" result
result' <- (newObject ToggleToolButton) result
freeMem stock_id'
return result'
-- method ToggleToolButton::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_tool_button_get_active" gtk_toggle_tool_button_get_active ::
Ptr ToggleToolButton -> -- _obj : TInterface "Gtk" "ToggleToolButton"
IO CInt
toggleToolButtonGetActive ::
(MonadIO m, ToggleToolButtonK a) =>
a -> -- _obj
m Bool
toggleToolButtonGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_tool_button_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToggleToolButton::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_tool_button_set_active" gtk_toggle_tool_button_set_active ::
Ptr ToggleToolButton -> -- _obj : TInterface "Gtk" "ToggleToolButton"
CInt -> -- is_active : TBasicType TBoolean
IO ()
toggleToolButtonSetActive ::
(MonadIO m, ToggleToolButtonK a) =>
a -> -- _obj
Bool -> -- is_active
m ()
toggleToolButtonSetActive _obj is_active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_active' = (fromIntegral . fromEnum) is_active
gtk_toggle_tool_button_set_active _obj' is_active'
touchManagedPtr _obj
return ()
-- signal ToggleToolButton::toggled
type ToggleToolButtonToggledCallback =
IO ()
noToggleToolButtonToggledCallback :: Maybe ToggleToolButtonToggledCallback
noToggleToolButtonToggledCallback = Nothing
type ToggleToolButtonToggledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToggleToolButtonToggledCallback :: ToggleToolButtonToggledCallbackC -> IO (FunPtr ToggleToolButtonToggledCallbackC)
toggleToolButtonToggledClosure :: ToggleToolButtonToggledCallback -> IO Closure
toggleToolButtonToggledClosure cb = newCClosure =<< mkToggleToolButtonToggledCallback wrapped
where wrapped = toggleToolButtonToggledCallbackWrapper cb
toggleToolButtonToggledCallbackWrapper ::
ToggleToolButtonToggledCallback ->
Ptr () ->
Ptr () ->
IO ()
toggleToolButtonToggledCallbackWrapper _cb _ _ = do
_cb
onToggleToolButtonToggled :: (GObject a, MonadIO m) => a -> ToggleToolButtonToggledCallback -> m SignalHandlerId
onToggleToolButtonToggled obj cb = liftIO $ connectToggleToolButtonToggled obj cb SignalConnectBefore
afterToggleToolButtonToggled :: (GObject a, MonadIO m) => a -> ToggleToolButtonToggledCallback -> m SignalHandlerId
afterToggleToolButtonToggled obj cb = connectToggleToolButtonToggled obj cb SignalConnectAfter
connectToggleToolButtonToggled :: (GObject a, MonadIO m) =>
a -> ToggleToolButtonToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectToggleToolButtonToggled obj cb after = liftIO $ do
cb' <- mkToggleToolButtonToggledCallback (toggleToolButtonToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- object ToolButton
newtype ToolButton = ToolButton (ForeignPtr ToolButton)
noToolButton :: Maybe ToolButton
noToolButton = Nothing
foreign import ccall "gtk_tool_button_get_type"
c_gtk_tool_button_get_type :: IO GType
type instance ParentTypes ToolButton = '[ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject ToolButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_button_get_type
class GObject o => ToolButtonK o
instance (GObject o, IsDescendantOf ToolButton o) => ToolButtonK o
toToolButton :: ToolButtonK o => o -> IO ToolButton
toToolButton = unsafeCastTo ToolButton
-- method ToolButton::new
-- method type : Constructor
-- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_new" gtk_tool_button_new ::
Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget"
CString -> -- label : TBasicType TUTF8
IO (Ptr ToolButton)
toolButtonNew ::
(MonadIO m, WidgetK a) =>
Maybe (a) -> -- icon_widget
Maybe (T.Text) -> -- label
m ToolButton
toolButtonNew icon_widget label = liftIO $ do
maybeIcon_widget <- case icon_widget of
Nothing -> return nullPtr
Just jIcon_widget -> do
let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget
return jIcon_widget'
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_tool_button_new maybeIcon_widget maybeLabel
checkUnexpectedReturnNULL "gtk_tool_button_new" result
result' <- (newObject ToolButton) result
whenJust icon_widget touchManagedPtr
freeMem maybeLabel
return result'
-- method ToolButton::new_from_stock
-- method type : Constructor
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_new_from_stock" gtk_tool_button_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr ToolButton)
{-# DEPRECATED toolButtonNewFromStock ["(Since version 3.10)","Use gtk_tool_button_new() together with","gtk_image_new_from_icon_name() instead."]#-}
toolButtonNewFromStock ::
(MonadIO m) =>
T.Text -> -- stock_id
m ToolButton
toolButtonNewFromStock stock_id = liftIO $ do
stock_id' <- textToCString stock_id
result <- gtk_tool_button_new_from_stock stock_id'
checkUnexpectedReturnNULL "gtk_tool_button_new_from_stock" result
result' <- (newObject ToolButton) result
freeMem stock_id'
return result'
-- method ToolButton::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_icon_name" gtk_tool_button_get_icon_name ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO CString
toolButtonGetIconName ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m T.Text
toolButtonGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_tool_button_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ToolButton::get_icon_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_icon_widget" gtk_tool_button_get_icon_widget ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO (Ptr Widget)
toolButtonGetIconWidget ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m Widget
toolButtonGetIconWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_icon_widget _obj'
checkUnexpectedReturnNULL "gtk_tool_button_get_icon_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ToolButton::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_label" gtk_tool_button_get_label ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO CString
toolButtonGetLabel ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m T.Text
toolButtonGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_label _obj'
checkUnexpectedReturnNULL "gtk_tool_button_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ToolButton::get_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_label_widget" gtk_tool_button_get_label_widget ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO (Ptr Widget)
toolButtonGetLabelWidget ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m Widget
toolButtonGetLabelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_label_widget _obj'
checkUnexpectedReturnNULL "gtk_tool_button_get_label_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ToolButton::get_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_stock_id" gtk_tool_button_get_stock_id ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO CString
{-# DEPRECATED toolButtonGetStockId ["(Since version 3.10)","Use gtk_tool_button_get_icon_name() instead."]#-}
toolButtonGetStockId ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m T.Text
toolButtonGetStockId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_stock_id _obj'
checkUnexpectedReturnNULL "gtk_tool_button_get_stock_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ToolButton::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_get_use_underline" gtk_tool_button_get_use_underline ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
IO CInt
toolButtonGetUseUnderline ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
m Bool
toolButtonGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_button_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolButton::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_icon_name" gtk_tool_button_set_icon_name ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
CString -> -- icon_name : TBasicType TUTF8
IO ()
toolButtonSetIconName ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
Maybe (T.Text) -> -- icon_name
m ()
toolButtonSetIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_tool_button_set_icon_name _obj' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method ToolButton::set_icon_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_icon_widget" gtk_tool_button_set_icon_widget ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget"
IO ()
toolButtonSetIconWidget ::
(MonadIO m, ToolButtonK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- icon_widget
m ()
toolButtonSetIconWidget _obj icon_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_widget <- case icon_widget of
Nothing -> return nullPtr
Just jIcon_widget -> do
let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget
return jIcon_widget'
gtk_tool_button_set_icon_widget _obj' maybeIcon_widget
touchManagedPtr _obj
whenJust icon_widget touchManagedPtr
return ()
-- method ToolButton::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_label" gtk_tool_button_set_label ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
CString -> -- label : TBasicType TUTF8
IO ()
toolButtonSetLabel ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
Maybe (T.Text) -> -- label
m ()
toolButtonSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_tool_button_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
-- method ToolButton::set_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_label_widget" gtk_tool_button_set_label_widget ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget"
IO ()
toolButtonSetLabelWidget ::
(MonadIO m, ToolButtonK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- label_widget
m ()
toolButtonSetLabelWidget _obj label_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel_widget <- case label_widget of
Nothing -> return nullPtr
Just jLabel_widget -> do
let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget
return jLabel_widget'
gtk_tool_button_set_label_widget _obj' maybeLabel_widget
touchManagedPtr _obj
whenJust label_widget touchManagedPtr
return ()
-- method ToolButton::set_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_stock_id" gtk_tool_button_set_stock_id ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED toolButtonSetStockId ["(Since version 3.10)","Use gtk_tool_button_set_icon_name() instead."]#-}
toolButtonSetStockId ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
Maybe (T.Text) -> -- stock_id
m ()
toolButtonSetStockId _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
gtk_tool_button_set_stock_id _obj' maybeStock_id
touchManagedPtr _obj
freeMem maybeStock_id
return ()
-- method ToolButton::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_button_set_use_underline" gtk_tool_button_set_use_underline ::
Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton"
CInt -> -- use_underline : TBasicType TBoolean
IO ()
toolButtonSetUseUnderline ::
(MonadIO m, ToolButtonK a) =>
a -> -- _obj
Bool -> -- use_underline
m ()
toolButtonSetUseUnderline _obj use_underline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_underline' = (fromIntegral . fromEnum) use_underline
gtk_tool_button_set_use_underline _obj' use_underline'
touchManagedPtr _obj
return ()
-- signal ToolButton::clicked
type ToolButtonClickedCallback =
IO ()
noToolButtonClickedCallback :: Maybe ToolButtonClickedCallback
noToolButtonClickedCallback = Nothing
type ToolButtonClickedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToolButtonClickedCallback :: ToolButtonClickedCallbackC -> IO (FunPtr ToolButtonClickedCallbackC)
toolButtonClickedClosure :: ToolButtonClickedCallback -> IO Closure
toolButtonClickedClosure cb = newCClosure =<< mkToolButtonClickedCallback wrapped
where wrapped = toolButtonClickedCallbackWrapper cb
toolButtonClickedCallbackWrapper ::
ToolButtonClickedCallback ->
Ptr () ->
Ptr () ->
IO ()
toolButtonClickedCallbackWrapper _cb _ _ = do
_cb
onToolButtonClicked :: (GObject a, MonadIO m) => a -> ToolButtonClickedCallback -> m SignalHandlerId
onToolButtonClicked obj cb = liftIO $ connectToolButtonClicked obj cb SignalConnectBefore
afterToolButtonClicked :: (GObject a, MonadIO m) => a -> ToolButtonClickedCallback -> m SignalHandlerId
afterToolButtonClicked obj cb = connectToolButtonClicked obj cb SignalConnectAfter
connectToolButtonClicked :: (GObject a, MonadIO m) =>
a -> ToolButtonClickedCallback -> SignalConnectMode -> m SignalHandlerId
connectToolButtonClicked obj cb after = liftIO $ do
cb' <- mkToolButtonClickedCallback (toolButtonClickedCallbackWrapper cb)
connectSignalFunPtr obj "clicked" cb' after
-- object ToolItem
newtype ToolItem = ToolItem (ForeignPtr ToolItem)
noToolItem :: Maybe ToolItem
noToolItem = Nothing
foreign import ccall "gtk_tool_item_get_type"
c_gtk_tool_item_get_type :: IO GType
type instance ParentTypes ToolItem = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable]
instance GObject ToolItem where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_item_get_type
class GObject o => ToolItemK o
instance (GObject o, IsDescendantOf ToolItem o) => ToolItemK o
toToolItem :: ToolItemK o => o -> IO ToolItem
toToolItem = unsafeCastTo ToolItem
-- method ToolItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_new" gtk_tool_item_new ::
IO (Ptr ToolItem)
toolItemNew ::
(MonadIO m) =>
m ToolItem
toolItemNew = liftIO $ do
result <- gtk_tool_item_new
checkUnexpectedReturnNULL "gtk_tool_item_new" result
result' <- (newObject ToolItem) result
return result'
-- method ToolItem::get_ellipsize_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "EllipsizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_ellipsize_mode" gtk_tool_item_get_ellipsize_mode ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CUInt
toolItemGetEllipsizeMode ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Pango.EllipsizeMode
toolItemGetEllipsizeMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_ellipsize_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_expand" gtk_tool_item_get_expand ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetExpand ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_expand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_homogeneous" gtk_tool_item_get_homogeneous ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetHomogeneous ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_icon_size" gtk_tool_item_get_icon_size ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO Int32
toolItemGetIconSize ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Int32
toolItemGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_icon_size _obj'
touchManagedPtr _obj
return result
-- method ToolItem::get_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_is_important" gtk_tool_item_get_is_important ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetIsImportant ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetIsImportant _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_is_important _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_orientation" gtk_tool_item_get_orientation ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CUInt
toolItemGetOrientation ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Orientation
toolItemGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_proxy_menu_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_proxy_menu_item" gtk_tool_item_get_proxy_menu_item ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CString -> -- menu_item_id : TBasicType TUTF8
IO (Ptr Widget)
toolItemGetProxyMenuItem ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
T.Text -> -- menu_item_id
m Widget
toolItemGetProxyMenuItem _obj menu_item_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
menu_item_id' <- textToCString menu_item_id
result <- gtk_tool_item_get_proxy_menu_item _obj' menu_item_id'
checkUnexpectedReturnNULL "gtk_tool_item_get_proxy_menu_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
freeMem menu_item_id'
return result'
-- method ToolItem::get_relief_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ReliefStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_relief_style" gtk_tool_item_get_relief_style ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CUInt
toolItemGetReliefStyle ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m ReliefStyle
toolItemGetReliefStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_relief_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_text_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_text_alignment" gtk_tool_item_get_text_alignment ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CFloat
toolItemGetTextAlignment ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Float
toolItemGetTextAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_text_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method ToolItem::get_text_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_text_orientation" gtk_tool_item_get_text_orientation ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CUInt
toolItemGetTextOrientation ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Orientation
toolItemGetTextOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_text_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_text_size_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_text_size_group" gtk_tool_item_get_text_size_group ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO (Ptr SizeGroup)
toolItemGetTextSizeGroup ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m SizeGroup
toolItemGetTextSizeGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_text_size_group _obj'
checkUnexpectedReturnNULL "gtk_tool_item_get_text_size_group" result
result' <- (newObject SizeGroup) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_toolbar_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolbarStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_toolbar_style" gtk_tool_item_get_toolbar_style ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CUInt
toolItemGetToolbarStyle ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m ToolbarStyle
toolItemGetToolbarStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_toolbar_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_use_drag_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_use_drag_window" gtk_tool_item_get_use_drag_window ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetUseDragWindow ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetUseDragWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_use_drag_window _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_visible_horizontal" gtk_tool_item_get_visible_horizontal ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetVisibleHorizontal ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetVisibleHorizontal _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_visible_horizontal _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::get_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_get_visible_vertical" gtk_tool_item_get_visible_vertical ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO CInt
toolItemGetVisibleVertical ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Bool
toolItemGetVisibleVertical _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_get_visible_vertical _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItem::rebuild_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_rebuild_menu" gtk_tool_item_rebuild_menu ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO ()
toolItemRebuildMenu ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m ()
toolItemRebuildMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_item_rebuild_menu _obj'
touchManagedPtr _obj
return ()
-- method ToolItem::retrieve_proxy_menu_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_retrieve_proxy_menu_item" gtk_tool_item_retrieve_proxy_menu_item ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO (Ptr Widget)
toolItemRetrieveProxyMenuItem ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m Widget
toolItemRetrieveProxyMenuItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_retrieve_proxy_menu_item _obj'
checkUnexpectedReturnNULL "gtk_tool_item_retrieve_proxy_menu_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ToolItem::set_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_expand" gtk_tool_item_set_expand ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- expand : TBasicType TBoolean
IO ()
toolItemSetExpand ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- expand
m ()
toolItemSetExpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_tool_item_set_expand _obj' expand'
touchManagedPtr _obj
return ()
-- method ToolItem::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_homogeneous" gtk_tool_item_set_homogeneous ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
toolItemSetHomogeneous ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
toolItemSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_tool_item_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method ToolItem::set_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_is_important" gtk_tool_item_set_is_important ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- is_important : TBasicType TBoolean
IO ()
toolItemSetIsImportant ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- is_important
m ()
toolItemSetIsImportant _obj is_important = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_important' = (fromIntegral . fromEnum) is_important
gtk_tool_item_set_is_important _obj' is_important'
touchManagedPtr _obj
return ()
-- method ToolItem::set_proxy_menu_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_proxy_menu_item" gtk_tool_item_set_proxy_menu_item ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CString -> -- menu_item_id : TBasicType TUTF8
Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget"
IO ()
toolItemSetProxyMenuItem ::
(MonadIO m, ToolItemK a, WidgetK b) =>
a -> -- _obj
T.Text -> -- menu_item_id
b -> -- menu_item
m ()
toolItemSetProxyMenuItem _obj menu_item_id menu_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
menu_item_id' <- textToCString menu_item_id
let menu_item' = unsafeManagedPtrCastPtr menu_item
gtk_tool_item_set_proxy_menu_item _obj' menu_item_id' menu_item'
touchManagedPtr _obj
touchManagedPtr menu_item
freeMem menu_item_id'
return ()
-- method ToolItem::set_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_tooltip_markup" gtk_tool_item_set_tooltip_markup ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CString -> -- markup : TBasicType TUTF8
IO ()
toolItemSetTooltipMarkup ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
T.Text -> -- markup
m ()
toolItemSetTooltipMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
markup' <- textToCString markup
gtk_tool_item_set_tooltip_markup _obj' markup'
touchManagedPtr _obj
freeMem markup'
return ()
-- method ToolItem::set_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_tooltip_text" gtk_tool_item_set_tooltip_text ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CString -> -- text : TBasicType TUTF8
IO ()
toolItemSetTooltipText ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
T.Text -> -- text
m ()
toolItemSetTooltipText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_tool_item_set_tooltip_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method ToolItem::set_use_drag_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_use_drag_window" gtk_tool_item_set_use_drag_window ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- use_drag_window : TBasicType TBoolean
IO ()
toolItemSetUseDragWindow ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- use_drag_window
m ()
toolItemSetUseDragWindow _obj use_drag_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_drag_window' = (fromIntegral . fromEnum) use_drag_window
gtk_tool_item_set_use_drag_window _obj' use_drag_window'
touchManagedPtr _obj
return ()
-- method ToolItem::set_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_visible_horizontal" gtk_tool_item_set_visible_horizontal ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- visible_horizontal : TBasicType TBoolean
IO ()
toolItemSetVisibleHorizontal ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- visible_horizontal
m ()
toolItemSetVisibleHorizontal _obj visible_horizontal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal
gtk_tool_item_set_visible_horizontal _obj' visible_horizontal'
touchManagedPtr _obj
return ()
-- method ToolItem::set_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_set_visible_vertical" gtk_tool_item_set_visible_vertical ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
CInt -> -- visible_vertical : TBasicType TBoolean
IO ()
toolItemSetVisibleVertical ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
Bool -> -- visible_vertical
m ()
toolItemSetVisibleVertical _obj visible_vertical = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible_vertical' = (fromIntegral . fromEnum) visible_vertical
gtk_tool_item_set_visible_vertical _obj' visible_vertical'
touchManagedPtr _obj
return ()
-- method ToolItem::toolbar_reconfigured
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_toolbar_reconfigured" gtk_tool_item_toolbar_reconfigured ::
Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem"
IO ()
toolItemToolbarReconfigured ::
(MonadIO m, ToolItemK a) =>
a -> -- _obj
m ()
toolItemToolbarReconfigured _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_item_toolbar_reconfigured _obj'
touchManagedPtr _obj
return ()
-- signal ToolItem::create-menu-proxy
type ToolItemCreateMenuProxyCallback =
IO Bool
noToolItemCreateMenuProxyCallback :: Maybe ToolItemCreateMenuProxyCallback
noToolItemCreateMenuProxyCallback = Nothing
type ToolItemCreateMenuProxyCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkToolItemCreateMenuProxyCallback :: ToolItemCreateMenuProxyCallbackC -> IO (FunPtr ToolItemCreateMenuProxyCallbackC)
toolItemCreateMenuProxyClosure :: ToolItemCreateMenuProxyCallback -> IO Closure
toolItemCreateMenuProxyClosure cb = newCClosure =<< mkToolItemCreateMenuProxyCallback wrapped
where wrapped = toolItemCreateMenuProxyCallbackWrapper cb
toolItemCreateMenuProxyCallbackWrapper ::
ToolItemCreateMenuProxyCallback ->
Ptr () ->
Ptr () ->
IO CInt
toolItemCreateMenuProxyCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onToolItemCreateMenuProxy :: (GObject a, MonadIO m) => a -> ToolItemCreateMenuProxyCallback -> m SignalHandlerId
onToolItemCreateMenuProxy obj cb = liftIO $ connectToolItemCreateMenuProxy obj cb SignalConnectBefore
afterToolItemCreateMenuProxy :: (GObject a, MonadIO m) => a -> ToolItemCreateMenuProxyCallback -> m SignalHandlerId
afterToolItemCreateMenuProxy obj cb = connectToolItemCreateMenuProxy obj cb SignalConnectAfter
connectToolItemCreateMenuProxy :: (GObject a, MonadIO m) =>
a -> ToolItemCreateMenuProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectToolItemCreateMenuProxy obj cb after = liftIO $ do
cb' <- mkToolItemCreateMenuProxyCallback (toolItemCreateMenuProxyCallbackWrapper cb)
connectSignalFunPtr obj "create-menu-proxy" cb' after
-- signal ToolItem::toolbar-reconfigured
type ToolItemToolbarReconfiguredCallback =
IO ()
noToolItemToolbarReconfiguredCallback :: Maybe ToolItemToolbarReconfiguredCallback
noToolItemToolbarReconfiguredCallback = Nothing
type ToolItemToolbarReconfiguredCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToolItemToolbarReconfiguredCallback :: ToolItemToolbarReconfiguredCallbackC -> IO (FunPtr ToolItemToolbarReconfiguredCallbackC)
toolItemToolbarReconfiguredClosure :: ToolItemToolbarReconfiguredCallback -> IO Closure
toolItemToolbarReconfiguredClosure cb = newCClosure =<< mkToolItemToolbarReconfiguredCallback wrapped
where wrapped = toolItemToolbarReconfiguredCallbackWrapper cb
toolItemToolbarReconfiguredCallbackWrapper ::
ToolItemToolbarReconfiguredCallback ->
Ptr () ->
Ptr () ->
IO ()
toolItemToolbarReconfiguredCallbackWrapper _cb _ _ = do
_cb
onToolItemToolbarReconfigured :: (GObject a, MonadIO m) => a -> ToolItemToolbarReconfiguredCallback -> m SignalHandlerId
onToolItemToolbarReconfigured obj cb = liftIO $ connectToolItemToolbarReconfigured obj cb SignalConnectBefore
afterToolItemToolbarReconfigured :: (GObject a, MonadIO m) => a -> ToolItemToolbarReconfiguredCallback -> m SignalHandlerId
afterToolItemToolbarReconfigured obj cb = connectToolItemToolbarReconfigured obj cb SignalConnectAfter
connectToolItemToolbarReconfigured :: (GObject a, MonadIO m) =>
a -> ToolItemToolbarReconfiguredCallback -> SignalConnectMode -> m SignalHandlerId
connectToolItemToolbarReconfigured obj cb after = liftIO $ do
cb' <- mkToolItemToolbarReconfiguredCallback (toolItemToolbarReconfiguredCallbackWrapper cb)
connectSignalFunPtr obj "toolbar-reconfigured" cb' after
-- object ToolItemGroup
newtype ToolItemGroup = ToolItemGroup (ForeignPtr ToolItemGroup)
noToolItemGroup :: Maybe ToolItemGroup
noToolItemGroup = Nothing
foreign import ccall "gtk_tool_item_group_get_type"
c_gtk_tool_item_group_get_type :: IO GType
type instance ParentTypes ToolItemGroup = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ToolShell]
instance GObject ToolItemGroup where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_item_group_get_type
class GObject o => ToolItemGroupK o
instance (GObject o, IsDescendantOf ToolItemGroup o) => ToolItemGroupK o
toToolItemGroup :: ToolItemGroupK o => o -> IO ToolItemGroup
toToolItemGroup = unsafeCastTo ToolItemGroup
-- method ToolItemGroup::new
-- method type : Constructor
-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItemGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_new" gtk_tool_item_group_new ::
CString -> -- label : TBasicType TUTF8
IO (Ptr ToolItemGroup)
toolItemGroupNew ::
(MonadIO m) =>
T.Text -> -- label
m ToolItemGroup
toolItemGroupNew label = liftIO $ do
label' <- textToCString label
result <- gtk_tool_item_group_new label'
checkUnexpectedReturnNULL "gtk_tool_item_group_new" result
result' <- (newObject ToolItemGroup) result
freeMem label'
return result'
-- method ToolItemGroup::get_collapsed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_collapsed" gtk_tool_item_group_get_collapsed ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO CInt
toolItemGroupGetCollapsed ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m Bool
toolItemGroupGetCollapsed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_collapsed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_drop_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_drop_item" gtk_tool_item_group_get_drop_item ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr ToolItem)
toolItemGroupGetDropItem ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ToolItem
toolItemGroupGetDropItem _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_drop_item _obj' x y
checkUnexpectedReturnNULL "gtk_tool_item_group_get_drop_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "EllipsizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_ellipsize" gtk_tool_item_group_get_ellipsize ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO CUInt
toolItemGroupGetEllipsize ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m Pango.EllipsizeMode
toolItemGroupGetEllipsize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_ellipsize _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_header_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ReliefStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_header_relief" gtk_tool_item_group_get_header_relief ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO CUInt
toolItemGroupGetHeaderRelief ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m ReliefStyle
toolItemGroupGetHeaderRelief _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_header_relief _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_item_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_item_position" gtk_tool_item_group_get_item_position ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem"
IO Int32
toolItemGroupGetItemPosition ::
(MonadIO m, ToolItemGroupK a, ToolItemK b) =>
a -> -- _obj
b -> -- item
m Int32
toolItemGroupGetItemPosition _obj item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
result <- gtk_tool_item_group_get_item_position _obj' item'
touchManagedPtr _obj
touchManagedPtr item
return result
-- method ToolItemGroup::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_label" gtk_tool_item_group_get_label ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO CString
toolItemGroupGetLabel ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m T.Text
toolItemGroupGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_label _obj'
checkUnexpectedReturnNULL "gtk_tool_item_group_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_label_widget" gtk_tool_item_group_get_label_widget ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO (Ptr Widget)
toolItemGroupGetLabelWidget ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m Widget
toolItemGroupGetLabelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_label_widget _obj'
checkUnexpectedReturnNULL "gtk_tool_item_group_get_label_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::get_n_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_n_items" gtk_tool_item_group_get_n_items ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
IO Word32
toolItemGroupGetNItems ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
m Word32
toolItemGroupGetNItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_n_items _obj'
touchManagedPtr _obj
return result
-- method ToolItemGroup::get_nth_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_get_nth_item" gtk_tool_item_group_get_nth_item ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Word32 -> -- index : TBasicType TUInt32
IO (Ptr ToolItem)
toolItemGroupGetNthItem ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
Word32 -> -- index
m ToolItem
toolItemGroupGetNthItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_item_group_get_nth_item _obj' index
checkUnexpectedReturnNULL "gtk_tool_item_group_get_nth_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
-- method ToolItemGroup::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_insert" gtk_tool_item_group_insert ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem"
Int32 -> -- position : TBasicType TInt32
IO ()
toolItemGroupInsert ::
(MonadIO m, ToolItemGroupK a, ToolItemK b) =>
a -> -- _obj
b -> -- item
Int32 -> -- position
m ()
toolItemGroupInsert _obj item position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
gtk_tool_item_group_insert _obj' item' position
touchManagedPtr _obj
touchManagedPtr item
return ()
-- method ToolItemGroup::set_collapsed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_collapsed" gtk_tool_item_group_set_collapsed ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
CInt -> -- collapsed : TBasicType TBoolean
IO ()
toolItemGroupSetCollapsed ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
Bool -> -- collapsed
m ()
toolItemGroupSetCollapsed _obj collapsed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let collapsed' = (fromIntegral . fromEnum) collapsed
gtk_tool_item_group_set_collapsed _obj' collapsed'
touchManagedPtr _obj
return ()
-- method ToolItemGroup::set_ellipsize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_ellipsize" gtk_tool_item_group_set_ellipsize ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
CUInt -> -- ellipsize : TInterface "Pango" "EllipsizeMode"
IO ()
toolItemGroupSetEllipsize ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
Pango.EllipsizeMode -> -- ellipsize
m ()
toolItemGroupSetEllipsize _obj ellipsize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ellipsize' = (fromIntegral . fromEnum) ellipsize
gtk_tool_item_group_set_ellipsize _obj' ellipsize'
touchManagedPtr _obj
return ()
-- method ToolItemGroup::set_header_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_header_relief" gtk_tool_item_group_set_header_relief ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
CUInt -> -- style : TInterface "Gtk" "ReliefStyle"
IO ()
toolItemGroupSetHeaderRelief ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
ReliefStyle -> -- style
m ()
toolItemGroupSetHeaderRelief _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = (fromIntegral . fromEnum) style
gtk_tool_item_group_set_header_relief _obj' style'
touchManagedPtr _obj
return ()
-- method ToolItemGroup::set_item_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_item_position" gtk_tool_item_group_set_item_position ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem"
Int32 -> -- position : TBasicType TInt32
IO ()
toolItemGroupSetItemPosition ::
(MonadIO m, ToolItemGroupK a, ToolItemK b) =>
a -> -- _obj
b -> -- item
Int32 -> -- position
m ()
toolItemGroupSetItemPosition _obj item position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
gtk_tool_item_group_set_item_position _obj' item' position
touchManagedPtr _obj
touchManagedPtr item
return ()
-- method ToolItemGroup::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_label" gtk_tool_item_group_set_label ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
CString -> -- label : TBasicType TUTF8
IO ()
toolItemGroupSetLabel ::
(MonadIO m, ToolItemGroupK a) =>
a -> -- _obj
T.Text -> -- label
m ()
toolItemGroupSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
label' <- textToCString label
gtk_tool_item_group_set_label _obj' label'
touchManagedPtr _obj
freeMem label'
return ()
-- method ToolItemGroup::set_label_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_item_group_set_label_widget" gtk_tool_item_group_set_label_widget ::
Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup"
Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget"
IO ()
toolItemGroupSetLabelWidget ::
(MonadIO m, ToolItemGroupK a, WidgetK b) =>
a -> -- _obj
b -> -- label_widget
m ()
toolItemGroupSetLabelWidget _obj label_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label_widget' = unsafeManagedPtrCastPtr label_widget
gtk_tool_item_group_set_label_widget _obj' label_widget'
touchManagedPtr _obj
touchManagedPtr label_widget
return ()
-- object ToolPalette
newtype ToolPalette = ToolPalette (ForeignPtr ToolPalette)
noToolPalette :: Maybe ToolPalette
noToolPalette = Nothing
foreign import ccall "gtk_tool_palette_get_type"
c_gtk_tool_palette_get_type :: IO GType
type instance ParentTypes ToolPalette = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, Scrollable]
instance GObject ToolPalette where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_palette_get_type
class GObject o => ToolPaletteK o
instance (GObject o, IsDescendantOf ToolPalette o) => ToolPaletteK o
toToolPalette :: ToolPaletteK o => o -> IO ToolPalette
toToolPalette = unsafeCastTo ToolPalette
-- method ToolPalette::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ToolPalette"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_new" gtk_tool_palette_new ::
IO (Ptr ToolPalette)
toolPaletteNew ::
(MonadIO m) =>
m ToolPalette
toolPaletteNew = liftIO $ do
result <- gtk_tool_palette_new
checkUnexpectedReturnNULL "gtk_tool_palette_new" result
result' <- (newObject ToolPalette) result
return result'
-- method ToolPalette::add_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_add_drag_dest" gtk_tool_palette_add_drag_dest ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "DestDefaults"
CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets"
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
toolPaletteAddDragDest ::
(MonadIO m, ToolPaletteK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
[DestDefaults] -> -- flags
[ToolPaletteDragTargets] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
toolPaletteAddDragDest _obj widget flags targets actions = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let flags' = gflagsToWord flags
let targets' = gflagsToWord targets
let actions' = gflagsToWord actions
gtk_tool_palette_add_drag_dest _obj' widget' flags' targets' actions'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method ToolPalette::get_drag_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_item" gtk_tool_palette_get_drag_item ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr SelectionData -> -- selection : TInterface "Gtk" "SelectionData"
IO (Ptr Widget)
toolPaletteGetDragItem ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
SelectionData -> -- selection
m Widget
toolPaletteGetDragItem _obj selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_tool_palette_get_drag_item _obj' selection'
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
touchManagedPtr selection
return result'
-- method ToolPalette::get_drop_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItemGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drop_group" gtk_tool_palette_get_drop_group ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr ToolItemGroup)
toolPaletteGetDropGroup ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ToolItemGroup
toolPaletteGetDropGroup _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_drop_group _obj' x y
checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_group" result
result' <- (newObject ToolItemGroup) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_drop_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drop_item" gtk_tool_palette_get_drop_item ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr ToolItem)
toolPaletteGetDropItem ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ToolItem
toolPaletteGetDropItem _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_drop_item _obj' x y
checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_exclusive" gtk_tool_palette_get_exclusive ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO CInt
toolPaletteGetExclusive ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Bool
toolPaletteGetExclusive _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_exclusive _obj' group'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr group
return result'
-- method ToolPalette::get_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_expand" gtk_tool_palette_get_expand ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO CInt
toolPaletteGetExpand ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Bool
toolPaletteGetExpand _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_expand _obj' group'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr group
return result'
-- method ToolPalette::get_group_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_group_position" gtk_tool_palette_get_group_position ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO Int32
toolPaletteGetGroupPosition ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Int32
toolPaletteGetGroupPosition _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_group_position _obj' group'
touchManagedPtr _obj
touchManagedPtr group
return result
-- method ToolPalette::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_hadjustment" gtk_tool_palette_get_hadjustment ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO (Ptr Adjustment)
{-# DEPRECATED toolPaletteGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
toolPaletteGetHadjustment ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Adjustment
toolPaletteGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_tool_palette_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_icon_size" gtk_tool_palette_get_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO Int32
toolPaletteGetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Int32
toolPaletteGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_icon_size _obj'
touchManagedPtr _obj
return result
-- method ToolPalette::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolbarStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_style" gtk_tool_palette_get_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO CUInt
toolPaletteGetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ToolbarStyle
toolPaletteGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_vadjustment" gtk_tool_palette_get_vadjustment ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO (Ptr Adjustment)
{-# DEPRECATED toolPaletteGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
toolPaletteGetVadjustment ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Adjustment
toolPaletteGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_tool_palette_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ToolPalette::set_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_drag_source" gtk_tool_palette_set_drag_source ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets"
IO ()
toolPaletteSetDragSource ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
[ToolPaletteDragTargets] -> -- targets
m ()
toolPaletteSetDragSource _obj targets = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = gflagsToWord targets
gtk_tool_palette_set_drag_source _obj' targets'
touchManagedPtr _obj
return ()
-- method ToolPalette::set_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_exclusive" gtk_tool_palette_set_exclusive ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
CInt -> -- exclusive : TBasicType TBoolean
IO ()
toolPaletteSetExclusive ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Bool -> -- exclusive
m ()
toolPaletteSetExclusive _obj group exclusive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
let exclusive' = (fromIntegral . fromEnum) exclusive
gtk_tool_palette_set_exclusive _obj' group' exclusive'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_expand" gtk_tool_palette_set_expand ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
CInt -> -- expand : TBasicType TBoolean
IO ()
toolPaletteSetExpand ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Bool -> -- expand
m ()
toolPaletteSetExpand _obj group expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
let expand' = (fromIntegral . fromEnum) expand
gtk_tool_palette_set_expand _obj' group' expand'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_group_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_group_position" gtk_tool_palette_set_group_position ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
Int32 -> -- position : TBasicType TInt32
IO ()
toolPaletteSetGroupPosition ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Int32 -> -- position
m ()
toolPaletteSetGroupPosition _obj group position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
gtk_tool_palette_set_group_position _obj' group' position
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_icon_size" gtk_tool_palette_set_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- icon_size : TBasicType TInt32
IO ()
toolPaletteSetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- icon_size
m ()
toolPaletteSetIconSize _obj icon_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_set_icon_size _obj' icon_size
touchManagedPtr _obj
return ()
-- method ToolPalette::set_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_style" gtk_tool_palette_set_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
CUInt -> -- style : TInterface "Gtk" "ToolbarStyle"
IO ()
toolPaletteSetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
ToolbarStyle -> -- style
m ()
toolPaletteSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = (fromIntegral . fromEnum) style
gtk_tool_palette_set_style _obj' style'
touchManagedPtr _obj
return ()
-- method ToolPalette::unset_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_unset_icon_size" gtk_tool_palette_unset_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO ()
toolPaletteUnsetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ()
toolPaletteUnsetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_unset_icon_size _obj'
touchManagedPtr _obj
return ()
-- method ToolPalette::unset_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_unset_style" gtk_tool_palette_unset_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO ()
toolPaletteUnsetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ()
toolPaletteUnsetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_unset_style _obj'
touchManagedPtr _obj
return ()
-- method ToolPalette::get_drag_target_group
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_target_group" gtk_tool_palette_get_drag_target_group ::
IO (Ptr TargetEntry)
toolPaletteGetDragTargetGroup ::
(MonadIO m) =>
m TargetEntry
toolPaletteGetDragTargetGroup = liftIO $ do
result <- gtk_tool_palette_get_drag_target_group
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_group" result
result' <- (newBoxed TargetEntry) result
return result'
-- method ToolPalette::get_drag_target_item
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_target_item" gtk_tool_palette_get_drag_target_item ::
IO (Ptr TargetEntry)
toolPaletteGetDragTargetItem ::
(MonadIO m) =>
m TargetEntry
toolPaletteGetDragTargetItem = liftIO $ do
result <- gtk_tool_palette_get_drag_target_item
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_item" result
result' <- (newBoxed TargetEntry) result
return result'
-- Flags ToolPaletteDragTargets
data ToolPaletteDragTargets =
ToolPaletteDragTargetsItems
| ToolPaletteDragTargetsGroups
| AnotherToolPaletteDragTargets Int
deriving (Show, Eq)
instance Enum ToolPaletteDragTargets where
fromEnum ToolPaletteDragTargetsItems = 1
fromEnum ToolPaletteDragTargetsGroups = 2
fromEnum (AnotherToolPaletteDragTargets k) = k
toEnum 1 = ToolPaletteDragTargetsItems
toEnum 2 = ToolPaletteDragTargetsGroups
toEnum k = AnotherToolPaletteDragTargets k
foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type ::
IO GType
instance BoxedEnum ToolPaletteDragTargets where
boxedEnumType _ = c_gtk_tool_palette_drag_targets_get_type
instance IsGFlag ToolPaletteDragTargets
-- interface ToolShell
newtype ToolShell = ToolShell (ForeignPtr ToolShell)
noToolShell :: Maybe ToolShell
noToolShell = Nothing
foreign import ccall "gtk_tool_shell_get_type"
c_gtk_tool_shell_get_type :: IO GType
type instance ParentTypes ToolShell = '[Widget, GObject.Object]
instance GObject ToolShell where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_shell_get_type
class GObject o => ToolShellK o
instance (GObject o, IsDescendantOf ToolShell o) => ToolShellK o
toToolShell :: ToolShellK o => o -> IO ToolShell
toToolShell = unsafeCastTo ToolShell
-- method ToolShell::get_ellipsize_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "EllipsizeMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_ellipsize_mode" gtk_tool_shell_get_ellipsize_mode ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CUInt
toolShellGetEllipsizeMode ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m Pango.EllipsizeMode
toolShellGetEllipsizeMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_ellipsize_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolShell::get_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_icon_size" gtk_tool_shell_get_icon_size ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO Int32
toolShellGetIconSize ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m Int32
toolShellGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_icon_size _obj'
touchManagedPtr _obj
return result
-- method ToolShell::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_orientation" gtk_tool_shell_get_orientation ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CUInt
toolShellGetOrientation ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m Orientation
toolShellGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolShell::get_relief_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ReliefStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_relief_style" gtk_tool_shell_get_relief_style ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CUInt
toolShellGetReliefStyle ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m ReliefStyle
toolShellGetReliefStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_relief_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolShell::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolbarStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_style" gtk_tool_shell_get_style ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CUInt
toolShellGetStyle ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m ToolbarStyle
toolShellGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolShell::get_text_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_text_alignment" gtk_tool_shell_get_text_alignment ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CFloat
toolShellGetTextAlignment ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m Float
toolShellGetTextAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_text_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method ToolShell::get_text_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Orientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_text_orientation" gtk_tool_shell_get_text_orientation ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO CUInt
toolShellGetTextOrientation ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m Orientation
toolShellGetTextOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_text_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolShell::get_text_size_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_get_text_size_group" gtk_tool_shell_get_text_size_group ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO (Ptr SizeGroup)
toolShellGetTextSizeGroup ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m SizeGroup
toolShellGetTextSizeGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_shell_get_text_size_group _obj'
checkUnexpectedReturnNULL "gtk_tool_shell_get_text_size_group" result
result' <- (newObject SizeGroup) result
touchManagedPtr _obj
return result'
-- method ToolShell::rebuild_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_shell_rebuild_menu" gtk_tool_shell_rebuild_menu ::
Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell"
IO ()
toolShellRebuildMenu ::
(MonadIO m, ToolShellK a) =>
a -> -- _obj
m ()
toolShellRebuildMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_shell_rebuild_menu _obj'
touchManagedPtr _obj
return ()
-- object Toolbar
newtype Toolbar = Toolbar (ForeignPtr Toolbar)
noToolbar :: Maybe Toolbar
noToolbar = Nothing
foreign import ccall "gtk_toolbar_get_type"
c_gtk_toolbar_get_type :: IO GType
type instance ParentTypes Toolbar = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, ToolShell]
instance GObject Toolbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_toolbar_get_type
class GObject o => ToolbarK o
instance (GObject o, IsDescendantOf Toolbar o) => ToolbarK o
toToolbar :: ToolbarK o => o -> IO Toolbar
toToolbar = unsafeCastTo Toolbar
-- method Toolbar::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Toolbar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_new" gtk_toolbar_new ::
IO (Ptr Toolbar)
toolbarNew ::
(MonadIO m) =>
m Toolbar
toolbarNew = liftIO $ do
result <- gtk_toolbar_new
checkUnexpectedReturnNULL "gtk_toolbar_new" result
result' <- (newObject Toolbar) result
return result'
-- method Toolbar::get_drop_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_drop_index" gtk_toolbar_get_drop_index ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO Int32
toolbarGetDropIndex ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m Int32
toolbarGetDropIndex _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_drop_index _obj' x y
touchManagedPtr _obj
return result
-- method Toolbar::get_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "IconSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_icon_size" gtk_toolbar_get_icon_size ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO CUInt
toolbarGetIconSize ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m IconSize
toolbarGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_icon_size _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Toolbar::get_item_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_item_index" gtk_toolbar_get_item_index ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem"
IO Int32
toolbarGetItemIndex ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a -> -- _obj
b -> -- item
m Int32
toolbarGetItemIndex _obj item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
result <- gtk_toolbar_get_item_index _obj' item'
touchManagedPtr _obj
touchManagedPtr item
return result
-- method Toolbar::get_n_items
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_n_items" gtk_toolbar_get_n_items ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO Int32
toolbarGetNItems ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m Int32
toolbarGetNItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_n_items _obj'
touchManagedPtr _obj
return result
-- method Toolbar::get_nth_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_nth_item" gtk_toolbar_get_nth_item ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
Int32 -> -- n : TBasicType TInt32
IO (Ptr ToolItem)
toolbarGetNthItem ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
Int32 -> -- n
m ToolItem
toolbarGetNthItem _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_nth_item _obj' n
checkUnexpectedReturnNULL "gtk_toolbar_get_nth_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
-- method Toolbar::get_relief_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ReliefStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_relief_style" gtk_toolbar_get_relief_style ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO CUInt
toolbarGetReliefStyle ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m ReliefStyle
toolbarGetReliefStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_relief_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Toolbar::get_show_arrow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_show_arrow" gtk_toolbar_get_show_arrow ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO CInt
toolbarGetShowArrow ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m Bool
toolbarGetShowArrow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_show_arrow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Toolbar::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolbarStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_get_style" gtk_toolbar_get_style ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO CUInt
toolbarGetStyle ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m ToolbarStyle
toolbarGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Toolbar::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_insert" gtk_toolbar_insert ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem"
Int32 -> -- pos : TBasicType TInt32
IO ()
toolbarInsert ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a -> -- _obj
b -> -- item
Int32 -> -- pos
m ()
toolbarInsert _obj item pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
gtk_toolbar_insert _obj' item' pos
touchManagedPtr _obj
touchManagedPtr item
return ()
-- method Toolbar::set_drop_highlight_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_set_drop_highlight_item" gtk_toolbar_set_drop_highlight_item ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
Ptr ToolItem -> -- tool_item : TInterface "Gtk" "ToolItem"
Int32 -> -- index_ : TBasicType TInt32
IO ()
toolbarSetDropHighlightItem ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a -> -- _obj
Maybe (b) -> -- tool_item
Int32 -> -- index_
m ()
toolbarSetDropHighlightItem _obj tool_item index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTool_item <- case tool_item of
Nothing -> return nullPtr
Just jTool_item -> do
let jTool_item' = unsafeManagedPtrCastPtr jTool_item
return jTool_item'
gtk_toolbar_set_drop_highlight_item _obj' maybeTool_item index_
touchManagedPtr _obj
whenJust tool_item touchManagedPtr
return ()
-- method Toolbar::set_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_set_icon_size" gtk_toolbar_set_icon_size ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
CUInt -> -- icon_size : TInterface "Gtk" "IconSize"
IO ()
toolbarSetIconSize ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
IconSize -> -- icon_size
m ()
toolbarSetIconSize _obj icon_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_size' = (fromIntegral . fromEnum) icon_size
gtk_toolbar_set_icon_size _obj' icon_size'
touchManagedPtr _obj
return ()
-- method Toolbar::set_show_arrow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_set_show_arrow" gtk_toolbar_set_show_arrow ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
CInt -> -- show_arrow : TBasicType TBoolean
IO ()
toolbarSetShowArrow ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
Bool -> -- show_arrow
m ()
toolbarSetShowArrow _obj show_arrow = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_arrow' = (fromIntegral . fromEnum) show_arrow
gtk_toolbar_set_show_arrow _obj' show_arrow'
touchManagedPtr _obj
return ()
-- method Toolbar::set_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_set_style" gtk_toolbar_set_style ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
CUInt -> -- style : TInterface "Gtk" "ToolbarStyle"
IO ()
toolbarSetStyle ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
ToolbarStyle -> -- style
m ()
toolbarSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = (fromIntegral . fromEnum) style
gtk_toolbar_set_style _obj' style'
touchManagedPtr _obj
return ()
-- method Toolbar::unset_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_unset_icon_size" gtk_toolbar_unset_icon_size ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO ()
toolbarUnsetIconSize ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m ()
toolbarUnsetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toolbar_unset_icon_size _obj'
touchManagedPtr _obj
return ()
-- method Toolbar::unset_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toolbar_unset_style" gtk_toolbar_unset_style ::
Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar"
IO ()
toolbarUnsetStyle ::
(MonadIO m, ToolbarK a) =>
a -> -- _obj
m ()
toolbarUnsetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toolbar_unset_style _obj'
touchManagedPtr _obj
return ()
-- signal Toolbar::focus-home-or-end
type ToolbarFocusHomeOrEndCallback =
Bool ->
IO Bool
noToolbarFocusHomeOrEndCallback :: Maybe ToolbarFocusHomeOrEndCallback
noToolbarFocusHomeOrEndCallback = Nothing
type ToolbarFocusHomeOrEndCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkToolbarFocusHomeOrEndCallback :: ToolbarFocusHomeOrEndCallbackC -> IO (FunPtr ToolbarFocusHomeOrEndCallbackC)
toolbarFocusHomeOrEndClosure :: ToolbarFocusHomeOrEndCallback -> IO Closure
toolbarFocusHomeOrEndClosure cb = newCClosure =<< mkToolbarFocusHomeOrEndCallback wrapped
where wrapped = toolbarFocusHomeOrEndCallbackWrapper cb
toolbarFocusHomeOrEndCallbackWrapper ::
ToolbarFocusHomeOrEndCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
toolbarFocusHomeOrEndCallbackWrapper _cb _ focus_home _ = do
let focus_home' = (/= 0) focus_home
result <- _cb focus_home'
let result' = (fromIntegral . fromEnum) result
return result'
onToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId
onToolbarFocusHomeOrEnd obj cb = liftIO $ connectToolbarFocusHomeOrEnd obj cb SignalConnectBefore
afterToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId
afterToolbarFocusHomeOrEnd obj cb = connectToolbarFocusHomeOrEnd obj cb SignalConnectAfter
connectToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) =>
a -> ToolbarFocusHomeOrEndCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarFocusHomeOrEnd obj cb after = liftIO $ do
cb' <- mkToolbarFocusHomeOrEndCallback (toolbarFocusHomeOrEndCallbackWrapper cb)
connectSignalFunPtr obj "focus-home-or-end" cb' after
-- signal Toolbar::orientation-changed
type ToolbarOrientationChangedCallback =
Orientation ->
IO ()
noToolbarOrientationChangedCallback :: Maybe ToolbarOrientationChangedCallback
noToolbarOrientationChangedCallback = Nothing
type ToolbarOrientationChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToolbarOrientationChangedCallback :: ToolbarOrientationChangedCallbackC -> IO (FunPtr ToolbarOrientationChangedCallbackC)
toolbarOrientationChangedClosure :: ToolbarOrientationChangedCallback -> IO Closure
toolbarOrientationChangedClosure cb = newCClosure =<< mkToolbarOrientationChangedCallback wrapped
where wrapped = toolbarOrientationChangedCallbackWrapper cb
toolbarOrientationChangedCallbackWrapper ::
ToolbarOrientationChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
toolbarOrientationChangedCallbackWrapper _cb _ orientation _ = do
let orientation' = (toEnum . fromIntegral) orientation
_cb orientation'
onToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId
onToolbarOrientationChanged obj cb = liftIO $ connectToolbarOrientationChanged obj cb SignalConnectBefore
afterToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId
afterToolbarOrientationChanged obj cb = connectToolbarOrientationChanged obj cb SignalConnectAfter
connectToolbarOrientationChanged :: (GObject a, MonadIO m) =>
a -> ToolbarOrientationChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarOrientationChanged obj cb after = liftIO $ do
cb' <- mkToolbarOrientationChangedCallback (toolbarOrientationChangedCallbackWrapper cb)
connectSignalFunPtr obj "orientation-changed" cb' after
-- signal Toolbar::popup-context-menu
type ToolbarPopupContextMenuCallback =
Int32 ->
Int32 ->
Int32 ->
IO Bool
noToolbarPopupContextMenuCallback :: Maybe ToolbarPopupContextMenuCallback
noToolbarPopupContextMenuCallback = Nothing
type ToolbarPopupContextMenuCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkToolbarPopupContextMenuCallback :: ToolbarPopupContextMenuCallbackC -> IO (FunPtr ToolbarPopupContextMenuCallbackC)
toolbarPopupContextMenuClosure :: ToolbarPopupContextMenuCallback -> IO Closure
toolbarPopupContextMenuClosure cb = newCClosure =<< mkToolbarPopupContextMenuCallback wrapped
where wrapped = toolbarPopupContextMenuCallbackWrapper cb
toolbarPopupContextMenuCallbackWrapper ::
ToolbarPopupContextMenuCallback ->
Ptr () ->
Int32 ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
toolbarPopupContextMenuCallbackWrapper _cb _ x y button _ = do
result <- _cb x y button
let result' = (fromIntegral . fromEnum) result
return result'
onToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId
onToolbarPopupContextMenu obj cb = liftIO $ connectToolbarPopupContextMenu obj cb SignalConnectBefore
afterToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId
afterToolbarPopupContextMenu obj cb = connectToolbarPopupContextMenu obj cb SignalConnectAfter
connectToolbarPopupContextMenu :: (GObject a, MonadIO m) =>
a -> ToolbarPopupContextMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarPopupContextMenu obj cb after = liftIO $ do
cb' <- mkToolbarPopupContextMenuCallback (toolbarPopupContextMenuCallbackWrapper cb)
connectSignalFunPtr obj "popup-context-menu" cb' after
-- signal Toolbar::style-changed
type ToolbarStyleChangedCallback =
ToolbarStyle ->
IO ()
noToolbarStyleChangedCallback :: Maybe ToolbarStyleChangedCallback
noToolbarStyleChangedCallback = Nothing
type ToolbarStyleChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToolbarStyleChangedCallback :: ToolbarStyleChangedCallbackC -> IO (FunPtr ToolbarStyleChangedCallbackC)
toolbarStyleChangedClosure :: ToolbarStyleChangedCallback -> IO Closure
toolbarStyleChangedClosure cb = newCClosure =<< mkToolbarStyleChangedCallback wrapped
where wrapped = toolbarStyleChangedCallbackWrapper cb
toolbarStyleChangedCallbackWrapper ::
ToolbarStyleChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
toolbarStyleChangedCallbackWrapper _cb _ style _ = do
let style' = (toEnum . fromIntegral) style
_cb style'
onToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId
onToolbarStyleChanged obj cb = liftIO $ connectToolbarStyleChanged obj cb SignalConnectBefore
afterToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId
afterToolbarStyleChanged obj cb = connectToolbarStyleChanged obj cb SignalConnectAfter
connectToolbarStyleChanged :: (GObject a, MonadIO m) =>
a -> ToolbarStyleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarStyleChanged obj cb after = liftIO $ do
cb' <- mkToolbarStyleChangedCallback (toolbarStyleChangedCallbackWrapper cb)
connectSignalFunPtr obj "style-changed" cb' after
-- Enum ToolbarSpaceStyle
data ToolbarSpaceStyle =
ToolbarSpaceStyleEmpty
| ToolbarSpaceStyleLine
| AnotherToolbarSpaceStyle Int
deriving (Show, Eq)
instance Enum ToolbarSpaceStyle where
fromEnum ToolbarSpaceStyleEmpty = 0
fromEnum ToolbarSpaceStyleLine = 1
fromEnum (AnotherToolbarSpaceStyle k) = k
toEnum 0 = ToolbarSpaceStyleEmpty
toEnum 1 = ToolbarSpaceStyleLine
toEnum k = AnotherToolbarSpaceStyle k
foreign import ccall "gtk_toolbar_space_style_get_type" c_gtk_toolbar_space_style_get_type ::
IO GType
instance BoxedEnum ToolbarSpaceStyle where
boxedEnumType _ = c_gtk_toolbar_space_style_get_type
-- Enum ToolbarStyle
data ToolbarStyle =
ToolbarStyleIcons
| ToolbarStyleText
| ToolbarStyleBoth
| ToolbarStyleBothHoriz
| AnotherToolbarStyle Int
deriving (Show, Eq)
instance Enum ToolbarStyle where
fromEnum ToolbarStyleIcons = 0
fromEnum ToolbarStyleText = 1
fromEnum ToolbarStyleBoth = 2
fromEnum ToolbarStyleBothHoriz = 3
fromEnum (AnotherToolbarStyle k) = k
toEnum 0 = ToolbarStyleIcons
toEnum 1 = ToolbarStyleText
toEnum 2 = ToolbarStyleBoth
toEnum 3 = ToolbarStyleBothHoriz
toEnum k = AnotherToolbarStyle k
foreign import ccall "gtk_toolbar_style_get_type" c_gtk_toolbar_style_get_type ::
IO GType
instance BoxedEnum ToolbarStyle where
boxedEnumType _ = c_gtk_toolbar_style_get_type
-- object Tooltip
newtype Tooltip = Tooltip (ForeignPtr Tooltip)
noTooltip :: Maybe Tooltip
noTooltip = Nothing
foreign import ccall "gtk_tooltip_get_type"
c_gtk_tooltip_get_type :: IO GType
type instance ParentTypes Tooltip = '[GObject.Object]
instance GObject Tooltip where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tooltip_get_type
class GObject o => TooltipK o
instance (GObject o, IsDescendantOf Tooltip o) => TooltipK o
toTooltip :: TooltipK o => o -> IO Tooltip
toTooltip = unsafeCastTo Tooltip
-- method Tooltip::set_custom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_custom" gtk_tooltip_set_custom ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
Ptr Widget -> -- custom_widget : TInterface "Gtk" "Widget"
IO ()
tooltipSetCustom ::
(MonadIO m, TooltipK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- custom_widget
m ()
tooltipSetCustom _obj custom_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCustom_widget <- case custom_widget of
Nothing -> return nullPtr
Just jCustom_widget -> do
let jCustom_widget' = unsafeManagedPtrCastPtr jCustom_widget
return jCustom_widget'
gtk_tooltip_set_custom _obj' maybeCustom_widget
touchManagedPtr _obj
whenJust custom_widget touchManagedPtr
return ()
-- method Tooltip::set_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_icon" gtk_tooltip_set_icon ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
tooltipSetIcon ::
(MonadIO m, TooltipK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
Maybe (b) -> -- pixbuf
m ()
tooltipSetIcon _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_tooltip_set_icon _obj' maybePixbuf
touchManagedPtr _obj
whenJust pixbuf touchManagedPtr
return ()
-- method Tooltip::set_icon_from_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_icon_from_gicon" gtk_tooltip_set_icon_from_gicon ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
Ptr Gio.Icon -> -- gicon : TInterface "Gio" "Icon"
Int32 -> -- size : TBasicType TInt32
IO ()
tooltipSetIconFromGicon ::
(MonadIO m, TooltipK a, Gio.IconK b) =>
a -> -- _obj
Maybe (b) -> -- gicon
Int32 -> -- size
m ()
tooltipSetIconFromGicon _obj gicon size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGicon <- case gicon of
Nothing -> return nullPtr
Just jGicon -> do
let jGicon' = unsafeManagedPtrCastPtr jGicon
return jGicon'
gtk_tooltip_set_icon_from_gicon _obj' maybeGicon size
touchManagedPtr _obj
whenJust gicon touchManagedPtr
return ()
-- method Tooltip::set_icon_from_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_icon_from_icon_name" gtk_tooltip_set_icon_from_icon_name ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO ()
tooltipSetIconFromIconName ::
(MonadIO m, TooltipK a) =>
a -> -- _obj
Maybe (T.Text) -> -- icon_name
Int32 -> -- size
m ()
tooltipSetIconFromIconName _obj icon_name size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_tooltip_set_icon_from_icon_name _obj' maybeIcon_name size
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
-- method Tooltip::set_icon_from_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_icon_from_stock" gtk_tooltip_set_icon_from_stock ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO ()
{-# DEPRECATED tooltipSetIconFromStock ["(Since version 3.10)","Use gtk_tooltip_set_icon_from_icon_name() instead."]#-}
tooltipSetIconFromStock ::
(MonadIO m, TooltipK a) =>
a -> -- _obj
Maybe (T.Text) -> -- stock_id
Int32 -> -- size
m ()
tooltipSetIconFromStock _obj stock_id size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
gtk_tooltip_set_icon_from_stock _obj' maybeStock_id size
touchManagedPtr _obj
freeMem maybeStock_id
return ()
-- method Tooltip::set_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_markup" gtk_tooltip_set_markup ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
CString -> -- markup : TBasicType TUTF8
IO ()
tooltipSetMarkup ::
(MonadIO m, TooltipK a) =>
a -> -- _obj
Maybe (T.Text) -> -- markup
m ()
tooltipSetMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_tooltip_set_markup _obj' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
-- method Tooltip::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_text" gtk_tooltip_set_text ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
CString -> -- text : TBasicType TUTF8
IO ()
tooltipSetText ::
(MonadIO m, TooltipK a) =>
a -> -- _obj
Maybe (T.Text) -> -- text
m ()
tooltipSetText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
gtk_tooltip_set_text _obj' maybeText
touchManagedPtr _obj
freeMem maybeText
return ()
-- method Tooltip::set_tip_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_set_tip_area" gtk_tooltip_set_tip_area ::
Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
tooltipSetTipArea ::
(MonadIO m, TooltipK a) =>
a -> -- _obj
Gdk.Rectangle -> -- rect
m ()
tooltipSetTipArea _obj rect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rect' = unsafeManagedPtrGetPtr rect
gtk_tooltip_set_tip_area _obj' rect'
touchManagedPtr _obj
touchManagedPtr rect
return ()
-- method Tooltip::trigger_tooltip_query
-- method type : MemberFunction
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tooltip_trigger_tooltip_query" gtk_tooltip_trigger_tooltip_query ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
IO ()
tooltipTriggerTooltipQuery ::
(MonadIO m, Gdk.DisplayK a) =>
a -> -- display
m ()
tooltipTriggerTooltipQuery display = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
gtk_tooltip_trigger_tooltip_query display'
touchManagedPtr display
return ()
-- object ToplevelAccessible
newtype ToplevelAccessible = ToplevelAccessible (ForeignPtr ToplevelAccessible)
noToplevelAccessible :: Maybe ToplevelAccessible
noToplevelAccessible = Nothing
foreign import ccall "gtk_toplevel_accessible_get_type"
c_gtk_toplevel_accessible_get_type :: IO GType
type instance ParentTypes ToplevelAccessible = '[Atk.Object, GObject.Object]
instance GObject ToplevelAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_toplevel_accessible_get_type
class GObject o => ToplevelAccessibleK o
instance (GObject o, IsDescendantOf ToplevelAccessible o) => ToplevelAccessibleK o
toToplevelAccessible :: ToplevelAccessibleK o => o -> IO ToplevelAccessible
toToplevelAccessible = unsafeCastTo ToplevelAccessible
-- method ToplevelAccessible::get_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Window")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toplevel_accessible_get_children" gtk_toplevel_accessible_get_children ::
Ptr ToplevelAccessible -> -- _obj : TInterface "Gtk" "ToplevelAccessible"
IO (Ptr (GList (Ptr Window)))
toplevelAccessibleGetChildren ::
(MonadIO m, ToplevelAccessibleK a) =>
a -> -- _obj
m [Window]
toplevelAccessibleGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toplevel_accessible_get_children _obj'
checkUnexpectedReturnNULL "gtk_toplevel_accessible_get_children" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
touchManagedPtr _obj
return result''
-- callback TranslateFunc
translateFuncClosure :: TranslateFunc -> IO Closure
translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped
where wrapped = translateFuncWrapper Nothing cb
type TranslateFuncC =
CString ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC)
type TranslateFunc =
T.Text ->
IO T.Text
noTranslateFunc :: Maybe TranslateFunc
noTranslateFunc = Nothing
translateFuncWrapper ::
Maybe (Ptr (FunPtr (TranslateFuncC))) ->
TranslateFunc ->
CString ->
Ptr () ->
IO CString
translateFuncWrapper funptrptr _cb path _ = do
path' <- cstringToText path
result <- _cb path'
maybeReleaseFunPtr funptrptr
result' <- textToCString result
return result'
-- callback TreeCellDataFunc
treeCellDataFuncClosure :: TreeCellDataFunc -> IO Closure
treeCellDataFuncClosure cb = newCClosure =<< mkTreeCellDataFunc wrapped
where wrapped = treeCellDataFuncWrapper Nothing cb
type TreeCellDataFuncC =
Ptr TreeViewColumn ->
Ptr CellRenderer ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTreeCellDataFunc :: TreeCellDataFuncC -> IO (FunPtr TreeCellDataFuncC)
type TreeCellDataFunc =
TreeViewColumn ->
CellRenderer ->
TreeModel ->
TreeIter ->
IO ()
noTreeCellDataFunc :: Maybe TreeCellDataFunc
noTreeCellDataFunc = Nothing
treeCellDataFuncWrapper ::
Maybe (Ptr (FunPtr (TreeCellDataFuncC))) ->
TreeCellDataFunc ->
Ptr TreeViewColumn ->
Ptr CellRenderer ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO ()
treeCellDataFuncWrapper funptrptr _cb tree_column cell tree_model iter _ = do
tree_column' <- (newObject TreeViewColumn) tree_column
cell' <- (newObject CellRenderer) cell
tree_model' <- (newObject TreeModel) tree_model
iter' <- (newBoxed TreeIter) iter
_cb tree_column' cell' tree_model' iter'
maybeReleaseFunPtr funptrptr
-- callback TreeDestroyCountFunc
treeDestroyCountFuncClosure :: TreeDestroyCountFunc -> IO Closure
treeDestroyCountFuncClosure cb = newCClosure =<< mkTreeDestroyCountFunc wrapped
where wrapped = treeDestroyCountFuncWrapper Nothing cb
type TreeDestroyCountFuncC =
Ptr TreeView ->
Ptr TreePath ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTreeDestroyCountFunc :: TreeDestroyCountFuncC -> IO (FunPtr TreeDestroyCountFuncC)
type TreeDestroyCountFunc =
TreeView ->
TreePath ->
Int32 ->
IO ()
noTreeDestroyCountFunc :: Maybe TreeDestroyCountFunc
noTreeDestroyCountFunc = Nothing
treeDestroyCountFuncWrapper ::
Maybe (Ptr (FunPtr (TreeDestroyCountFuncC))) ->
TreeDestroyCountFunc ->
Ptr TreeView ->
Ptr TreePath ->
Int32 ->
Ptr () ->
IO ()
treeDestroyCountFuncWrapper funptrptr _cb tree_view path children _ = do
tree_view' <- (newObject TreeView) tree_view
path' <- (newBoxed TreePath) path
_cb tree_view' path' children
maybeReleaseFunPtr funptrptr
-- interface TreeDragDest
newtype TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest)
noTreeDragDest :: Maybe TreeDragDest
noTreeDragDest = Nothing
class ForeignPtrNewtype a => TreeDragDestK a
instance (ForeignPtrNewtype o, IsDescendantOf TreeDragDest o) => TreeDragDestK o
type instance ParentTypes TreeDragDest = '[]
-- method TreeDragDest::drag_data_received
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_drag_dest_drag_data_received" gtk_tree_drag_dest_drag_data_received ::
Ptr TreeDragDest -> -- _obj : TInterface "Gtk" "TreeDragDest"
Ptr TreePath -> -- dest : TInterface "Gtk" "TreePath"
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
IO CInt
treeDragDestDragDataReceived ::
(MonadIO m, TreeDragDestK a) =>
a -> -- _obj
TreePath -> -- dest
SelectionData -> -- selection_data
m Bool
treeDragDestDragDataReceived _obj dest selection_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest' = unsafeManagedPtrGetPtr dest
let selection_data' = unsafeManagedPtrGetPtr selection_data
result <- gtk_tree_drag_dest_drag_data_received _obj' dest' selection_data'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr dest
touchManagedPtr selection_data
return result'
-- method TreeDragDest::row_drop_possible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_drag_dest_row_drop_possible" gtk_tree_drag_dest_row_drop_possible ::
Ptr TreeDragDest -> -- _obj : TInterface "Gtk" "TreeDragDest"
Ptr TreePath -> -- dest_path : TInterface "Gtk" "TreePath"
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
IO CInt
treeDragDestRowDropPossible ::
(MonadIO m, TreeDragDestK a) =>
a -> -- _obj
TreePath -> -- dest_path
SelectionData -> -- selection_data
m Bool
treeDragDestRowDropPossible _obj dest_path selection_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest_path' = unsafeManagedPtrGetPtr dest_path
let selection_data' = unsafeManagedPtrGetPtr selection_data
result <- gtk_tree_drag_dest_row_drop_possible _obj' dest_path' selection_data'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr dest_path
touchManagedPtr selection_data
return result'
-- interface TreeDragSource
newtype TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource)
noTreeDragSource :: Maybe TreeDragSource
noTreeDragSource = Nothing
class ForeignPtrNewtype a => TreeDragSourceK a
instance (ForeignPtrNewtype o, IsDescendantOf TreeDragSource o) => TreeDragSourceK o
type instance ParentTypes TreeDragSource = '[]
-- method TreeDragSource::drag_data_delete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_drag_source_drag_data_delete" gtk_tree_drag_source_drag_data_delete ::
Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeDragSourceDragDataDelete ::
(MonadIO m, TreeDragSourceK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
treeDragSourceDragDataDelete _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_drag_source_drag_data_delete _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeDragSource::drag_data_get
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_drag_source_drag_data_get" gtk_tree_drag_source_drag_data_get ::
Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
IO CInt
treeDragSourceDragDataGet ::
(MonadIO m, TreeDragSourceK a) =>
a -> -- _obj
TreePath -> -- path
SelectionData -> -- selection_data
m Bool
treeDragSourceDragDataGet _obj path selection_data = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let selection_data' = unsafeManagedPtrGetPtr selection_data
result <- gtk_tree_drag_source_drag_data_get _obj' path' selection_data'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
touchManagedPtr selection_data
return result'
-- method TreeDragSource::row_draggable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_drag_source_row_draggable" gtk_tree_drag_source_row_draggable ::
Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeDragSourceRowDraggable ::
(MonadIO m, TreeDragSourceK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
treeDragSourceRowDraggable _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_drag_source_row_draggable _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- struct TreeIter
newtype TreeIter = TreeIter (ForeignPtr TreeIter)
noTreeIter :: Maybe TreeIter
noTreeIter = Nothing
foreign import ccall "gtk_tree_iter_get_type" c_gtk_tree_iter_get_type ::
IO GType
instance BoxedObject TreeIter where
boxedType _ = c_gtk_tree_iter_get_type
treeIterReadStamp :: TreeIter -> IO Int32
treeIterReadStamp s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
treeIterReadUserData :: TreeIter -> IO (Ptr ())
treeIterReadUserData s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr ())
return val
treeIterReadUserData2 :: TreeIter -> IO (Ptr ())
treeIterReadUserData2 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr ())
return val
treeIterReadUserData3 :: TreeIter -> IO (Ptr ())
treeIterReadUserData3 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())
return val
-- method TreeIter::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeIter"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_iter_copy" gtk_tree_iter_copy ::
Ptr TreeIter -> -- _obj : TInterface "Gtk" "TreeIter"
IO (Ptr TreeIter)
treeIterCopy ::
(MonadIO m) =>
TreeIter -> -- _obj
m TreeIter
treeIterCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_iter_copy _obj'
checkUnexpectedReturnNULL "gtk_tree_iter_copy" result
result' <- (wrapBoxed TreeIter) result
touchManagedPtr _obj
return result'
-- method TreeIter::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_iter_free" gtk_tree_iter_free ::
Ptr TreeIter -> -- _obj : TInterface "Gtk" "TreeIter"
IO ()
treeIterFree ::
(MonadIO m) =>
TreeIter -> -- _obj
m ()
treeIterFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_iter_free _obj'
touchManagedPtr _obj
return ()
-- callback TreeIterCompareFunc
treeIterCompareFuncClosure :: TreeIterCompareFunc -> IO Closure
treeIterCompareFuncClosure cb = newCClosure =<< mkTreeIterCompareFunc wrapped
where wrapped = treeIterCompareFuncWrapper Nothing cb
type TreeIterCompareFuncC =
Ptr TreeModel ->
Ptr TreeIter ->
Ptr TreeIter ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkTreeIterCompareFunc :: TreeIterCompareFuncC -> IO (FunPtr TreeIterCompareFuncC)
type TreeIterCompareFunc =
TreeModel ->
TreeIter ->
TreeIter ->
IO Int32
noTreeIterCompareFunc :: Maybe TreeIterCompareFunc
noTreeIterCompareFunc = Nothing
treeIterCompareFuncWrapper ::
Maybe (Ptr (FunPtr (TreeIterCompareFuncC))) ->
TreeIterCompareFunc ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr TreeIter ->
Ptr () ->
IO Int32
treeIterCompareFuncWrapper funptrptr _cb model a b _ = do
model' <- (newObject TreeModel) model
a' <- (newBoxed TreeIter) a
b' <- (newBoxed TreeIter) b
result <- _cb model' a' b'
maybeReleaseFunPtr funptrptr
return result
-- interface TreeModel
newtype TreeModel = TreeModel (ForeignPtr TreeModel)
noTreeModel :: Maybe TreeModel
noTreeModel = Nothing
foreign import ccall "gtk_tree_model_get_type"
c_gtk_tree_model_get_type :: IO GType
type instance ParentTypes TreeModel = '[GObject.Object]
instance GObject TreeModel where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_model_get_type
class GObject o => TreeModelK o
instance (GObject o, IsDescendantOf TreeModel o) => TreeModelK o
toTreeModel :: TreeModelK o => o -> IO TreeModel
toTreeModel = unsafeCastTo TreeModel
-- method TreeModel::filter_new
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_new" gtk_tree_model_filter_new ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- root : TInterface "Gtk" "TreePath"
IO (Ptr TreeModel)
treeModelFilterNew ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
Maybe (TreePath) -> -- root
m TreeModel
treeModelFilterNew _obj root = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRoot <- case root of
Nothing -> return nullPtr
Just jRoot -> do
let jRoot' = unsafeManagedPtrGetPtr jRoot
return jRoot'
result <- gtk_tree_model_filter_new _obj' maybeRoot
checkUnexpectedReturnNULL "gtk_tree_model_filter_new" result
result' <- (wrapObject TreeModel) result
touchManagedPtr _obj
whenJust root touchManagedPtr
return result'
-- method TreeModel::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_foreach" gtk_tree_model_foreach ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
FunPtr TreeModelForeachFuncC -> -- func : TInterface "Gtk" "TreeModelForeachFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
treeModelForeach ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeModelForeachFunc -> -- func
m ()
treeModelForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeModelForeachFunc (treeModelForeachFuncWrapper Nothing func)
let user_data = nullPtr
gtk_tree_model_foreach _obj' func' user_data
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method TreeModel::get_column_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Int32 -> -- index_ : TBasicType TInt32
IO CGType
treeModelGetColumnType ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
Int32 -> -- index_
m GType
treeModelGetColumnType _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_get_column_type _obj' index_
let result' = GType result
touchManagedPtr _obj
return result'
-- method TreeModel::get_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModelFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_flags" gtk_tree_model_get_flags ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
IO CUInt
treeModelGetFlags ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
m [TreeModelFlags]
treeModelGetFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_get_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method TreeModel::get_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_iter" gtk_tree_model_get_iter ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeModelGetIter ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
m (Bool,TreeIter)
treeModelGetIter _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_model_get_iter _obj' iter path'
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
touchManagedPtr path
return (result', iter')
-- method TreeModel::get_iter_first
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_iter_first" gtk_tree_model_get_iter_first ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelGetIterFirst ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
m (Bool,TreeIter)
treeModelGetIterFirst _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
result <- gtk_tree_model_get_iter_first _obj' iter
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
return (result', iter')
-- method TreeModel::get_iter_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_iter_from_string" gtk_tree_model_get_iter_from_string ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
CString -> -- path_string : TBasicType TUTF8
IO CInt
treeModelGetIterFromString ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
T.Text -> -- path_string
m (Bool,TreeIter)
treeModelGetIterFromString _obj path_string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
path_string' <- textToCString path_string
result <- gtk_tree_model_get_iter_from_string _obj' iter path_string'
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
freeMem path_string'
return (result', iter')
-- method TreeModel::get_n_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_n_columns" gtk_tree_model_get_n_columns ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
IO Int32
treeModelGetNColumns ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
m Int32
treeModelGetNColumns _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_get_n_columns _obj'
touchManagedPtr _obj
return result
-- method TreeModel::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_path" gtk_tree_model_get_path ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO (Ptr TreePath)
treeModelGetPath ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m TreePath
treeModelGetPath _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_get_path _obj' iter'
checkUnexpectedReturnNULL "gtk_tree_model_get_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModel::get_string_from_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_string_from_iter" gtk_tree_model_get_string_from_iter ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CString
treeModelGetStringFromIter ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m T.Text
treeModelGetStringFromIter _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_get_string_from_iter _obj' iter'
checkUnexpectedReturnNULL "gtk_tree_model_get_string_from_iter" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModel::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Int32 -> -- column : TBasicType TInt32
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
treeModelGetValue ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
Int32 -> -- column
m (GValue)
treeModelGetValue _obj iter column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
value <- callocBoxedBytes 24 :: IO (Ptr GValue)
gtk_tree_model_get_value _obj' iter' column value
value' <- (wrapBoxed GValue) value
touchManagedPtr _obj
touchManagedPtr iter
return value'
-- method TreeModel::iter_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_children" gtk_tree_model_iter_children ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
IO CInt
treeModelIterChildren ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
m (Bool,TreeIter)
treeModelIterChildren _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
result <- gtk_tree_model_iter_children _obj' iter maybeParent
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
return (result', iter')
-- method TreeModel::iter_has_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_has_child" gtk_tree_model_iter_has_child ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelIterHasChild ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeModelIterHasChild _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_iter_has_child _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModel::iter_n_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_n_children" gtk_tree_model_iter_n_children ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO Int32
treeModelIterNChildren ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- iter
m Int32
treeModelIterNChildren _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIter <- case iter of
Nothing -> return nullPtr
Just jIter -> do
let jIter' = unsafeManagedPtrGetPtr jIter
return jIter'
result <- gtk_tree_model_iter_n_children _obj' maybeIter
touchManagedPtr _obj
whenJust iter touchManagedPtr
return result
-- method TreeModel::iter_next
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_next" gtk_tree_model_iter_next ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelIterNext ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeModelIterNext _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_iter_next _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModel::iter_nth_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_nth_child" gtk_tree_model_iter_nth_child ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
Int32 -> -- n : TBasicType TInt32
IO CInt
treeModelIterNthChild ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
Int32 -> -- n
m (Bool,TreeIter)
treeModelIterNthChild _obj parent n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
result <- gtk_tree_model_iter_nth_child _obj' iter maybeParent n
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
return (result', iter')
-- method TreeModel::iter_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_parent" gtk_tree_model_iter_parent ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- child : TInterface "Gtk" "TreeIter"
IO CInt
treeModelIterParent ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- child
m (Bool,TreeIter)
treeModelIterParent _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let child' = unsafeManagedPtrGetPtr child
result <- gtk_tree_model_iter_parent _obj' iter child'
let result' = (/= 0) result
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
touchManagedPtr child
return (result', iter')
-- method TreeModel::iter_previous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_iter_previous" gtk_tree_model_iter_previous ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelIterPrevious ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeModelIterPrevious _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_iter_previous _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModel::ref_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_ref_node" gtk_tree_model_ref_node ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelRefNode ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m ()
treeModelRefNode _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_model_ref_node _obj' iter'
touchManagedPtr _obj
touchManagedPtr iter
return ()
-- method TreeModel::row_changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_row_changed" gtk_tree_model_row_changed ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelRowChanged ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
TreeIter -> -- iter
m ()
treeModelRowChanged _obj path iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_model_row_changed _obj' path' iter'
touchManagedPtr _obj
touchManagedPtr path
touchManagedPtr iter
return ()
-- method TreeModel::row_deleted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_row_deleted" gtk_tree_model_row_deleted ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeModelRowDeleted ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
m ()
treeModelRowDeleted _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_tree_model_row_deleted _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method TreeModel::row_has_child_toggled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_row_has_child_toggled" gtk_tree_model_row_has_child_toggled ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelRowHasChildToggled ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
TreeIter -> -- iter
m ()
treeModelRowHasChildToggled _obj path iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_model_row_has_child_toggled _obj' path' iter'
touchManagedPtr _obj
touchManagedPtr path
touchManagedPtr iter
return ()
-- method TreeModel::row_inserted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_row_inserted" gtk_tree_model_row_inserted ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelRowInserted ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
TreeIter -> -- iter
m ()
treeModelRowInserted _obj path iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_model_row_inserted _obj' path' iter'
touchManagedPtr _obj
touchManagedPtr path
touchManagedPtr iter
return ()
-- method TreeModel::rows_reordered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_rows_reordered_with_length" gtk_tree_model_rows_reordered_with_length ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt32)
Int32 -> -- length : TBasicType TInt32
IO ()
treeModelRowsReordered ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreePath -> -- path
Maybe (TreeIter) -> -- iter
[Int32] -> -- new_order
m ()
treeModelRowsReordered _obj path iter new_order = liftIO $ do
let length_ = fromIntegral $ length new_order
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
maybeIter <- case iter of
Nothing -> return nullPtr
Just jIter -> do
let jIter' = unsafeManagedPtrGetPtr jIter
return jIter'
new_order' <- packStorableArray new_order
gtk_tree_model_rows_reordered_with_length _obj' path' maybeIter new_order' length_
touchManagedPtr _obj
touchManagedPtr path
whenJust iter touchManagedPtr
freeMem new_order'
return ()
-- method TreeModel::sort_new_with_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_new_with_model" gtk_tree_model_sort_new_with_model ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
IO (Ptr TreeModel)
treeModelSortNewWithModel ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
m TreeModel
treeModelSortNewWithModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_sort_new_with_model _obj'
checkUnexpectedReturnNULL "gtk_tree_model_sort_new_with_model" result
result' <- (wrapObject TreeModel) result
touchManagedPtr _obj
return result'
-- method TreeModel::unref_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_unref_node" gtk_tree_model_unref_node ::
Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelUnrefNode ::
(MonadIO m, TreeModelK a) =>
a -> -- _obj
TreeIter -> -- iter
m ()
treeModelUnrefNode _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_model_unref_node _obj' iter'
touchManagedPtr _obj
touchManagedPtr iter
return ()
-- signal TreeModel::row-changed
type TreeModelRowChangedCallback =
TreePath ->
TreeIter ->
IO ()
noTreeModelRowChangedCallback :: Maybe TreeModelRowChangedCallback
noTreeModelRowChangedCallback = Nothing
type TreeModelRowChangedCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeModelRowChangedCallback :: TreeModelRowChangedCallbackC -> IO (FunPtr TreeModelRowChangedCallbackC)
treeModelRowChangedClosure :: TreeModelRowChangedCallback -> IO Closure
treeModelRowChangedClosure cb = newCClosure =<< mkTreeModelRowChangedCallback wrapped
where wrapped = treeModelRowChangedCallbackWrapper cb
treeModelRowChangedCallbackWrapper ::
TreeModelRowChangedCallback ->
Ptr () ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO ()
treeModelRowChangedCallbackWrapper _cb _ path iter _ = do
path' <- (newBoxed TreePath) path
iter' <- (newBoxed TreeIter) iter
_cb path' iter'
onTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId
onTreeModelRowChanged obj cb = liftIO $ connectTreeModelRowChanged obj cb SignalConnectBefore
afterTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId
afterTreeModelRowChanged obj cb = connectTreeModelRowChanged obj cb SignalConnectAfter
connectTreeModelRowChanged :: (GObject a, MonadIO m) =>
a -> TreeModelRowChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeModelRowChanged obj cb after = liftIO $ do
cb' <- mkTreeModelRowChangedCallback (treeModelRowChangedCallbackWrapper cb)
connectSignalFunPtr obj "row-changed" cb' after
-- signal TreeModel::row-deleted
type TreeModelRowDeletedCallback =
TreePath ->
IO ()
noTreeModelRowDeletedCallback :: Maybe TreeModelRowDeletedCallback
noTreeModelRowDeletedCallback = Nothing
type TreeModelRowDeletedCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeModelRowDeletedCallback :: TreeModelRowDeletedCallbackC -> IO (FunPtr TreeModelRowDeletedCallbackC)
treeModelRowDeletedClosure :: TreeModelRowDeletedCallback -> IO Closure
treeModelRowDeletedClosure cb = newCClosure =<< mkTreeModelRowDeletedCallback wrapped
where wrapped = treeModelRowDeletedCallbackWrapper cb
treeModelRowDeletedCallbackWrapper ::
TreeModelRowDeletedCallback ->
Ptr () ->
Ptr TreePath ->
Ptr () ->
IO ()
treeModelRowDeletedCallbackWrapper _cb _ path _ = do
path' <- (newBoxed TreePath) path
_cb path'
onTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId
onTreeModelRowDeleted obj cb = liftIO $ connectTreeModelRowDeleted obj cb SignalConnectBefore
afterTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId
afterTreeModelRowDeleted obj cb = connectTreeModelRowDeleted obj cb SignalConnectAfter
connectTreeModelRowDeleted :: (GObject a, MonadIO m) =>
a -> TreeModelRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeModelRowDeleted obj cb after = liftIO $ do
cb' <- mkTreeModelRowDeletedCallback (treeModelRowDeletedCallbackWrapper cb)
connectSignalFunPtr obj "row-deleted" cb' after
-- signal TreeModel::row-has-child-toggled
type TreeModelRowHasChildToggledCallback =
TreePath ->
TreeIter ->
IO ()
noTreeModelRowHasChildToggledCallback :: Maybe TreeModelRowHasChildToggledCallback
noTreeModelRowHasChildToggledCallback = Nothing
type TreeModelRowHasChildToggledCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeModelRowHasChildToggledCallback :: TreeModelRowHasChildToggledCallbackC -> IO (FunPtr TreeModelRowHasChildToggledCallbackC)
treeModelRowHasChildToggledClosure :: TreeModelRowHasChildToggledCallback -> IO Closure
treeModelRowHasChildToggledClosure cb = newCClosure =<< mkTreeModelRowHasChildToggledCallback wrapped
where wrapped = treeModelRowHasChildToggledCallbackWrapper cb
treeModelRowHasChildToggledCallbackWrapper ::
TreeModelRowHasChildToggledCallback ->
Ptr () ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO ()
treeModelRowHasChildToggledCallbackWrapper _cb _ path iter _ = do
path' <- (newBoxed TreePath) path
iter' <- (newBoxed TreeIter) iter
_cb path' iter'
onTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId
onTreeModelRowHasChildToggled obj cb = liftIO $ connectTreeModelRowHasChildToggled obj cb SignalConnectBefore
afterTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId
afterTreeModelRowHasChildToggled obj cb = connectTreeModelRowHasChildToggled obj cb SignalConnectAfter
connectTreeModelRowHasChildToggled :: (GObject a, MonadIO m) =>
a -> TreeModelRowHasChildToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeModelRowHasChildToggled obj cb after = liftIO $ do
cb' <- mkTreeModelRowHasChildToggledCallback (treeModelRowHasChildToggledCallbackWrapper cb)
connectSignalFunPtr obj "row-has-child-toggled" cb' after
-- signal TreeModel::row-inserted
type TreeModelRowInsertedCallback =
TreePath ->
TreeIter ->
IO ()
noTreeModelRowInsertedCallback :: Maybe TreeModelRowInsertedCallback
noTreeModelRowInsertedCallback = Nothing
type TreeModelRowInsertedCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr TreeIter ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeModelRowInsertedCallback :: TreeModelRowInsertedCallbackC -> IO (FunPtr TreeModelRowInsertedCallbackC)
treeModelRowInsertedClosure :: TreeModelRowInsertedCallback -> IO Closure
treeModelRowInsertedClosure cb = newCClosure =<< mkTreeModelRowInsertedCallback wrapped
where wrapped = treeModelRowInsertedCallbackWrapper cb
treeModelRowInsertedCallbackWrapper ::
TreeModelRowInsertedCallback ->
Ptr () ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO ()
treeModelRowInsertedCallbackWrapper _cb _ path iter _ = do
path' <- (newBoxed TreePath) path
iter' <- (newBoxed TreeIter) iter
_cb path' iter'
onTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId
onTreeModelRowInserted obj cb = liftIO $ connectTreeModelRowInserted obj cb SignalConnectBefore
afterTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId
afterTreeModelRowInserted obj cb = connectTreeModelRowInserted obj cb SignalConnectAfter
connectTreeModelRowInserted :: (GObject a, MonadIO m) =>
a -> TreeModelRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeModelRowInserted obj cb after = liftIO $ do
cb' <- mkTreeModelRowInsertedCallback (treeModelRowInsertedCallbackWrapper cb)
connectSignalFunPtr obj "row-inserted" cb' after
-- object TreeModelFilter
newtype TreeModelFilter = TreeModelFilter (ForeignPtr TreeModelFilter)
noTreeModelFilter :: Maybe TreeModelFilter
noTreeModelFilter = Nothing
foreign import ccall "gtk_tree_model_filter_get_type"
c_gtk_tree_model_filter_get_type :: IO GType
type instance ParentTypes TreeModelFilter = '[GObject.Object, TreeDragSource, TreeModel]
instance GObject TreeModelFilter where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_model_filter_get_type
class GObject o => TreeModelFilterK o
instance (GObject o, IsDescendantOf TreeModelFilter o) => TreeModelFilterK o
toTreeModelFilter :: TreeModelFilterK o => o -> IO TreeModelFilter
toTreeModelFilter = unsafeCastTo TreeModelFilter
-- method TreeModelFilter::clear_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_clear_cache" gtk_tree_model_filter_clear_cache ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
IO ()
treeModelFilterClearCache ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
m ()
treeModelFilterClearCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_model_filter_clear_cache _obj'
touchManagedPtr _obj
return ()
-- method TreeModelFilter::convert_child_iter_to_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_convert_child_iter_to_iter" gtk_tree_model_filter_convert_child_iter_to_iter ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
Ptr TreeIter -> -- filter_iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelFilterConvertChildIterToIter ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
TreeIter -> -- child_iter
m (Bool,TreeIter)
treeModelFilterConvertChildIterToIter _obj child_iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filter_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let child_iter' = unsafeManagedPtrGetPtr child_iter
result <- gtk_tree_model_filter_convert_child_iter_to_iter _obj' filter_iter child_iter'
let result' = (/= 0) result
filter_iter' <- (wrapBoxed TreeIter) filter_iter
touchManagedPtr _obj
touchManagedPtr child_iter
return (result', filter_iter')
-- method TreeModelFilter::convert_child_path_to_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_convert_child_path_to_path" gtk_tree_model_filter_convert_child_path_to_path ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
Ptr TreePath -> -- child_path : TInterface "Gtk" "TreePath"
IO (Ptr TreePath)
treeModelFilterConvertChildPathToPath ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
TreePath -> -- child_path
m TreePath
treeModelFilterConvertChildPathToPath _obj child_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child_path' = unsafeManagedPtrGetPtr child_path
result <- gtk_tree_model_filter_convert_child_path_to_path _obj' child_path'
checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_child_path_to_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
touchManagedPtr child_path
return result'
-- method TreeModelFilter::convert_iter_to_child_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_convert_iter_to_child_iter" gtk_tree_model_filter_convert_iter_to_child_iter ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- filter_iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelFilterConvertIterToChildIter ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
TreeIter -> -- filter_iter
m (TreeIter)
treeModelFilterConvertIterToChildIter _obj filter_iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let filter_iter' = unsafeManagedPtrGetPtr filter_iter
gtk_tree_model_filter_convert_iter_to_child_iter _obj' child_iter filter_iter'
child_iter' <- (wrapBoxed TreeIter) child_iter
touchManagedPtr _obj
touchManagedPtr filter_iter
return child_iter'
-- method TreeModelFilter::convert_path_to_child_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_convert_path_to_child_path" gtk_tree_model_filter_convert_path_to_child_path ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
Ptr TreePath -> -- filter_path : TInterface "Gtk" "TreePath"
IO (Ptr TreePath)
treeModelFilterConvertPathToChildPath ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
TreePath -> -- filter_path
m TreePath
treeModelFilterConvertPathToChildPath _obj filter_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let filter_path' = unsafeManagedPtrGetPtr filter_path
result <- gtk_tree_model_filter_convert_path_to_child_path _obj' filter_path'
checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_path_to_child_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
touchManagedPtr filter_path
return result'
-- method TreeModelFilter::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_get_model" gtk_tree_model_filter_get_model ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
IO (Ptr TreeModel)
treeModelFilterGetModel ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
m TreeModel
treeModelFilterGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_filter_get_model _obj'
checkUnexpectedReturnNULL "gtk_tree_model_filter_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method TreeModelFilter::refilter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_refilter" gtk_tree_model_filter_refilter ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
IO ()
treeModelFilterRefilter ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
m ()
treeModelFilterRefilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_model_filter_refilter _obj'
touchManagedPtr _obj
return ()
-- method TreeModelFilter::set_visible_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_set_visible_column" gtk_tree_model_filter_set_visible_column ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
Int32 -> -- column : TBasicType TInt32
IO ()
treeModelFilterSetVisibleColumn ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
Int32 -> -- column
m ()
treeModelFilterSetVisibleColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_model_filter_set_visible_column _obj' column
touchManagedPtr _obj
return ()
-- method TreeModelFilter::set_visible_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_filter_set_visible_func" gtk_tree_model_filter_set_visible_func ::
Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter"
FunPtr TreeModelFilterVisibleFuncC -> -- func : TInterface "Gtk" "TreeModelFilterVisibleFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeModelFilterSetVisibleFunc ::
(MonadIO m, TreeModelFilterK a) =>
a -> -- _obj
TreeModelFilterVisibleFunc -> -- func
m ()
treeModelFilterSetVisibleFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeModelFilterVisibleFunc (treeModelFilterVisibleFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_tree_model_filter_set_visible_func _obj' func' data_ destroy
touchManagedPtr _obj
return ()
-- callback TreeModelFilterModifyFunc
-- XXX Could not generate callback wrapper for TreeModelFilterModifyFunc
-- Error was : Not implemented: "Unexpected transfer type for \"value\""
-- callback TreeModelFilterVisibleFunc
treeModelFilterVisibleFuncClosure :: TreeModelFilterVisibleFunc -> IO Closure
treeModelFilterVisibleFuncClosure cb = newCClosure =<< mkTreeModelFilterVisibleFunc wrapped
where wrapped = treeModelFilterVisibleFuncWrapper Nothing cb
type TreeModelFilterVisibleFuncC =
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeModelFilterVisibleFunc :: TreeModelFilterVisibleFuncC -> IO (FunPtr TreeModelFilterVisibleFuncC)
type TreeModelFilterVisibleFunc =
TreeModel ->
TreeIter ->
IO Bool
noTreeModelFilterVisibleFunc :: Maybe TreeModelFilterVisibleFunc
noTreeModelFilterVisibleFunc = Nothing
treeModelFilterVisibleFuncWrapper ::
Maybe (Ptr (FunPtr (TreeModelFilterVisibleFuncC))) ->
TreeModelFilterVisibleFunc ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
treeModelFilterVisibleFuncWrapper funptrptr _cb model iter _ = do
model' <- (newObject TreeModel) model
iter' <- (newBoxed TreeIter) iter
result <- _cb model' iter'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- Flags TreeModelFlags
data TreeModelFlags =
TreeModelFlagsItersPersist
| TreeModelFlagsListOnly
| AnotherTreeModelFlags Int
deriving (Show, Eq)
instance Enum TreeModelFlags where
fromEnum TreeModelFlagsItersPersist = 1
fromEnum TreeModelFlagsListOnly = 2
fromEnum (AnotherTreeModelFlags k) = k
toEnum 1 = TreeModelFlagsItersPersist
toEnum 2 = TreeModelFlagsListOnly
toEnum k = AnotherTreeModelFlags k
foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type ::
IO GType
instance BoxedEnum TreeModelFlags where
boxedEnumType _ = c_gtk_tree_model_flags_get_type
instance IsGFlag TreeModelFlags
-- callback TreeModelForeachFunc
treeModelForeachFuncClosure :: TreeModelForeachFunc -> IO Closure
treeModelForeachFuncClosure cb = newCClosure =<< mkTreeModelForeachFunc wrapped
where wrapped = treeModelForeachFuncWrapper Nothing cb
type TreeModelForeachFuncC =
Ptr TreeModel ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeModelForeachFunc :: TreeModelForeachFuncC -> IO (FunPtr TreeModelForeachFuncC)
type TreeModelForeachFunc =
TreeModel ->
TreePath ->
TreeIter ->
IO Bool
noTreeModelForeachFunc :: Maybe TreeModelForeachFunc
noTreeModelForeachFunc = Nothing
treeModelForeachFuncWrapper ::
Maybe (Ptr (FunPtr (TreeModelForeachFuncC))) ->
TreeModelForeachFunc ->
Ptr TreeModel ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO CInt
treeModelForeachFuncWrapper funptrptr _cb model path iter _ = do
model' <- (newObject TreeModel) model
path' <- (newBoxed TreePath) path
iter' <- (newBoxed TreeIter) iter
result <- _cb model' path' iter'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- object TreeModelSort
newtype TreeModelSort = TreeModelSort (ForeignPtr TreeModelSort)
noTreeModelSort :: Maybe TreeModelSort
noTreeModelSort = Nothing
foreign import ccall "gtk_tree_model_sort_get_type"
c_gtk_tree_model_sort_get_type :: IO GType
type instance ParentTypes TreeModelSort = '[GObject.Object, TreeDragSource, TreeModel, TreeSortable]
instance GObject TreeModelSort where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_model_sort_get_type
class GObject o => TreeModelSortK o
instance (GObject o, IsDescendantOf TreeModelSort o) => TreeModelSortK o
toTreeModelSort :: TreeModelSortK o => o -> IO TreeModelSort
toTreeModelSort = unsafeCastTo TreeModelSort
-- method TreeModelSort::clear_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_clear_cache" gtk_tree_model_sort_clear_cache ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
IO ()
treeModelSortClearCache ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
m ()
treeModelSortClearCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_model_sort_clear_cache _obj'
touchManagedPtr _obj
return ()
-- method TreeModelSort::convert_child_iter_to_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_convert_child_iter_to_iter" gtk_tree_model_sort_convert_child_iter_to_iter ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
Ptr TreeIter -> -- sort_iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelSortConvertChildIterToIter ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
TreeIter -> -- child_iter
m (Bool,TreeIter)
treeModelSortConvertChildIterToIter _obj child_iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sort_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let child_iter' = unsafeManagedPtrGetPtr child_iter
result <- gtk_tree_model_sort_convert_child_iter_to_iter _obj' sort_iter child_iter'
let result' = (/= 0) result
sort_iter' <- (wrapBoxed TreeIter) sort_iter
touchManagedPtr _obj
touchManagedPtr child_iter
return (result', sort_iter')
-- method TreeModelSort::convert_child_path_to_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_convert_child_path_to_path" gtk_tree_model_sort_convert_child_path_to_path ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
Ptr TreePath -> -- child_path : TInterface "Gtk" "TreePath"
IO (Ptr TreePath)
treeModelSortConvertChildPathToPath ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
TreePath -> -- child_path
m TreePath
treeModelSortConvertChildPathToPath _obj child_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child_path' = unsafeManagedPtrGetPtr child_path
result <- gtk_tree_model_sort_convert_child_path_to_path _obj' child_path'
checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_child_path_to_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
touchManagedPtr child_path
return result'
-- method TreeModelSort::convert_iter_to_child_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_convert_iter_to_child_iter" gtk_tree_model_sort_convert_iter_to_child_iter ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- sorted_iter : TInterface "Gtk" "TreeIter"
IO ()
treeModelSortConvertIterToChildIter ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
TreeIter -> -- sorted_iter
m (TreeIter)
treeModelSortConvertIterToChildIter _obj sorted_iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
let sorted_iter' = unsafeManagedPtrGetPtr sorted_iter
gtk_tree_model_sort_convert_iter_to_child_iter _obj' child_iter sorted_iter'
child_iter' <- (wrapBoxed TreeIter) child_iter
touchManagedPtr _obj
touchManagedPtr sorted_iter
return child_iter'
-- method TreeModelSort::convert_path_to_child_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_convert_path_to_child_path" gtk_tree_model_sort_convert_path_to_child_path ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
Ptr TreePath -> -- sorted_path : TInterface "Gtk" "TreePath"
IO (Ptr TreePath)
treeModelSortConvertPathToChildPath ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
TreePath -> -- sorted_path
m TreePath
treeModelSortConvertPathToChildPath _obj sorted_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sorted_path' = unsafeManagedPtrGetPtr sorted_path
result <- gtk_tree_model_sort_convert_path_to_child_path _obj' sorted_path'
checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_path_to_child_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
touchManagedPtr sorted_path
return result'
-- method TreeModelSort::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_get_model" gtk_tree_model_sort_get_model ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
IO (Ptr TreeModel)
treeModelSortGetModel ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
m TreeModel
treeModelSortGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_model_sort_get_model _obj'
checkUnexpectedReturnNULL "gtk_tree_model_sort_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method TreeModelSort::iter_is_valid
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_iter_is_valid" gtk_tree_model_sort_iter_is_valid ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeModelSortIterIsValid ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeModelSortIterIsValid _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_model_sort_iter_is_valid _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeModelSort::reset_default_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_model_sort_reset_default_sort_func" gtk_tree_model_sort_reset_default_sort_func ::
Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort"
IO ()
treeModelSortResetDefaultSortFunc ::
(MonadIO m, TreeModelSortK a) =>
a -> -- _obj
m ()
treeModelSortResetDefaultSortFunc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_model_sort_reset_default_sort_func _obj'
touchManagedPtr _obj
return ()
-- struct TreePath
newtype TreePath = TreePath (ForeignPtr TreePath)
noTreePath :: Maybe TreePath
noTreePath = Nothing
foreign import ccall "gtk_tree_path_get_type" c_gtk_tree_path_get_type ::
IO GType
instance BoxedObject TreePath where
boxedType _ = c_gtk_tree_path_get_type
-- method TreePath::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_new" gtk_tree_path_new ::
IO (Ptr TreePath)
treePathNew ::
(MonadIO m) =>
m TreePath
treePathNew = liftIO $ do
result <- gtk_tree_path_new
checkUnexpectedReturnNULL "gtk_tree_path_new" result
result' <- (wrapBoxed TreePath) result
return result'
-- method TreePath::new_first
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_new_first" gtk_tree_path_new_first ::
IO (Ptr TreePath)
treePathNewFirst ::
(MonadIO m) =>
m TreePath
treePathNewFirst = liftIO $ do
result <- gtk_tree_path_new_first
checkUnexpectedReturnNULL "gtk_tree_path_new_first" result
result' <- (wrapBoxed TreePath) result
return result'
-- method TreePath::new_from_indices
-- method type : Constructor
-- Args : [Arg {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_new_from_indicesv" gtk_tree_path_new_from_indicesv ::
Ptr Int32 -> -- indices : TCArray False (-1) 1 (TBasicType TInt32)
Word64 -> -- length : TBasicType TUInt64
IO (Ptr TreePath)
treePathNewFromIndices ::
(MonadIO m) =>
[Int32] -> -- indices
m TreePath
treePathNewFromIndices indices = liftIO $ do
let length_ = fromIntegral $ length indices
indices' <- packStorableArray indices
result <- gtk_tree_path_new_from_indicesv indices' length_
checkUnexpectedReturnNULL "gtk_tree_path_new_from_indicesv" result
result' <- (wrapBoxed TreePath) result
freeMem indices'
return result'
-- method TreePath::new_from_string
-- method type : Constructor
-- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_new_from_string" gtk_tree_path_new_from_string ::
CString -> -- path : TBasicType TUTF8
IO (Ptr TreePath)
treePathNewFromString ::
(MonadIO m) =>
T.Text -> -- path
m TreePath
treePathNewFromString path = liftIO $ do
path' <- textToCString path
result <- gtk_tree_path_new_from_string path'
checkUnexpectedReturnNULL "gtk_tree_path_new_from_string" result
result' <- (wrapBoxed TreePath) result
freeMem path'
return result'
-- method TreePath::append_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_append_index" gtk_tree_path_append_index ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Int32 -> -- index_ : TBasicType TInt32
IO ()
treePathAppendIndex ::
(MonadIO m) =>
TreePath -> -- _obj
Int32 -> -- index_
m ()
treePathAppendIndex _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_path_append_index _obj' index_
touchManagedPtr _obj
return ()
-- method TreePath::compare
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_compare" gtk_tree_path_compare ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Ptr TreePath -> -- b : TInterface "Gtk" "TreePath"
IO Int32
treePathCompare ::
(MonadIO m) =>
TreePath -> -- _obj
TreePath -> -- b
m Int32
treePathCompare _obj b = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let b' = unsafeManagedPtrGetPtr b
result <- gtk_tree_path_compare _obj' b'
touchManagedPtr _obj
touchManagedPtr b
return result
-- method TreePath::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_copy" gtk_tree_path_copy ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO (Ptr TreePath)
treePathCopy ::
(MonadIO m) =>
TreePath -> -- _obj
m TreePath
treePathCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_path_copy _obj'
checkUnexpectedReturnNULL "gtk_tree_path_copy" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
return result'
-- method TreePath::down
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_down" gtk_tree_path_down ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO ()
treePathDown ::
(MonadIO m) =>
TreePath -> -- _obj
m ()
treePathDown _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_path_down _obj'
touchManagedPtr _obj
return ()
-- method TreePath::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_free" gtk_tree_path_free ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO ()
treePathFree ::
(MonadIO m) =>
TreePath -> -- _obj
m ()
treePathFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_path_free _obj'
touchManagedPtr _obj
return ()
-- method TreePath::get_depth
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_get_depth" gtk_tree_path_get_depth ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO Int32
treePathGetDepth ::
(MonadIO m) =>
TreePath -> -- _obj
m Int32
treePathGetDepth _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_path_get_depth _obj'
touchManagedPtr _obj
return result
-- method TreePath::get_indices
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TBasicType TInt32)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_get_indices_with_depth" gtk_tree_path_get_indices_with_depth ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Ptr Int32 -> -- depth : TBasicType TInt32
IO (Ptr Int32)
treePathGetIndices ::
(MonadIO m) =>
TreePath -> -- _obj
m [Int32]
treePathGetIndices _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
depth <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_path_get_indices_with_depth _obj' depth
depth' <- peek depth
checkUnexpectedReturnNULL "gtk_tree_path_get_indices_with_depth" result
result' <- (unpackStorableArrayWithLength depth') result
touchManagedPtr _obj
freeMem depth
return result'
-- method TreePath::is_ancestor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_is_ancestor" gtk_tree_path_is_ancestor ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Ptr TreePath -> -- descendant : TInterface "Gtk" "TreePath"
IO CInt
treePathIsAncestor ::
(MonadIO m) =>
TreePath -> -- _obj
TreePath -> -- descendant
m Bool
treePathIsAncestor _obj descendant = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let descendant' = unsafeManagedPtrGetPtr descendant
result <- gtk_tree_path_is_ancestor _obj' descendant'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr descendant
return result'
-- method TreePath::is_descendant
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_is_descendant" gtk_tree_path_is_descendant ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Ptr TreePath -> -- ancestor : TInterface "Gtk" "TreePath"
IO CInt
treePathIsDescendant ::
(MonadIO m) =>
TreePath -> -- _obj
TreePath -> -- ancestor
m Bool
treePathIsDescendant _obj ancestor = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let ancestor' = unsafeManagedPtrGetPtr ancestor
result <- gtk_tree_path_is_descendant _obj' ancestor'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr ancestor
return result'
-- method TreePath::next
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_next" gtk_tree_path_next ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO ()
treePathNext ::
(MonadIO m) =>
TreePath -> -- _obj
m ()
treePathNext _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_path_next _obj'
touchManagedPtr _obj
return ()
-- method TreePath::prepend_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_prepend_index" gtk_tree_path_prepend_index ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
Int32 -> -- index_ : TBasicType TInt32
IO ()
treePathPrependIndex ::
(MonadIO m) =>
TreePath -> -- _obj
Int32 -> -- index_
m ()
treePathPrependIndex _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_path_prepend_index _obj' index_
touchManagedPtr _obj
return ()
-- method TreePath::prev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_prev" gtk_tree_path_prev ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO CInt
treePathPrev ::
(MonadIO m) =>
TreePath -> -- _obj
m Bool
treePathPrev _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_path_prev _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreePath::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_to_string" gtk_tree_path_to_string ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO CString
treePathToString ::
(MonadIO m) =>
TreePath -> -- _obj
m T.Text
treePathToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_path_to_string _obj'
checkUnexpectedReturnNULL "gtk_tree_path_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method TreePath::up
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_path_up" gtk_tree_path_up ::
Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath"
IO CInt
treePathUp ::
(MonadIO m) =>
TreePath -> -- _obj
m Bool
treePathUp _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_path_up _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- struct TreeRowReference
newtype TreeRowReference = TreeRowReference (ForeignPtr TreeRowReference)
noTreeRowReference :: Maybe TreeRowReference
noTreeRowReference = Nothing
foreign import ccall "gtk_tree_row_reference_get_type" c_gtk_tree_row_reference_get_type ::
IO GType
instance BoxedObject TreeRowReference where
boxedType _ = c_gtk_tree_row_reference_get_type
-- method TreeRowReference::new
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeRowReference"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_new" gtk_tree_row_reference_new ::
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO (Ptr TreeRowReference)
treeRowReferenceNew ::
(MonadIO m, TreeModelK a) =>
a -> -- model
TreePath -> -- path
m TreeRowReference
treeRowReferenceNew model path = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_row_reference_new model' path'
checkUnexpectedReturnNULL "gtk_tree_row_reference_new" result
result' <- (wrapBoxed TreeRowReference) result
touchManagedPtr model
touchManagedPtr path
return result'
-- method TreeRowReference::new_proxy
-- method type : Constructor
-- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeRowReference"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_new_proxy" gtk_tree_row_reference_new_proxy ::
Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO (Ptr TreeRowReference)
treeRowReferenceNewProxy ::
(MonadIO m, GObject.ObjectK a, TreeModelK b) =>
a -> -- proxy
b -> -- model
TreePath -> -- path
m TreeRowReference
treeRowReferenceNewProxy proxy model path = liftIO $ do
let proxy' = unsafeManagedPtrCastPtr proxy
let model' = unsafeManagedPtrCastPtr model
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_row_reference_new_proxy proxy' model' path'
checkUnexpectedReturnNULL "gtk_tree_row_reference_new_proxy" result
result' <- (wrapBoxed TreeRowReference) result
touchManagedPtr proxy
touchManagedPtr model
touchManagedPtr path
return result'
-- method TreeRowReference::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeRowReference"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_copy" gtk_tree_row_reference_copy ::
Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference"
IO (Ptr TreeRowReference)
treeRowReferenceCopy ::
(MonadIO m) =>
TreeRowReference -> -- _obj
m TreeRowReference
treeRowReferenceCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_row_reference_copy _obj'
checkUnexpectedReturnNULL "gtk_tree_row_reference_copy" result
result' <- (wrapBoxed TreeRowReference) result
touchManagedPtr _obj
return result'
-- method TreeRowReference::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_free" gtk_tree_row_reference_free ::
Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference"
IO ()
treeRowReferenceFree ::
(MonadIO m) =>
TreeRowReference -> -- _obj
m ()
treeRowReferenceFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_tree_row_reference_free _obj'
touchManagedPtr _obj
return ()
-- method TreeRowReference::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_get_model" gtk_tree_row_reference_get_model ::
Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference"
IO (Ptr TreeModel)
treeRowReferenceGetModel ::
(MonadIO m) =>
TreeRowReference -> -- _obj
m TreeModel
treeRowReferenceGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_row_reference_get_model _obj'
checkUnexpectedReturnNULL "gtk_tree_row_reference_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method TreeRowReference::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreePath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_get_path" gtk_tree_row_reference_get_path ::
Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference"
IO (Ptr TreePath)
treeRowReferenceGetPath ::
(MonadIO m) =>
TreeRowReference -> -- _obj
m TreePath
treeRowReferenceGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_row_reference_get_path _obj'
checkUnexpectedReturnNULL "gtk_tree_row_reference_get_path" result
result' <- (wrapBoxed TreePath) result
touchManagedPtr _obj
return result'
-- method TreeRowReference::valid
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_valid" gtk_tree_row_reference_valid ::
Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference"
IO CInt
treeRowReferenceValid ::
(MonadIO m) =>
TreeRowReference -> -- _obj
m Bool
treeRowReferenceValid _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_tree_row_reference_valid _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- object TreeSelection
newtype TreeSelection = TreeSelection (ForeignPtr TreeSelection)
noTreeSelection :: Maybe TreeSelection
noTreeSelection = Nothing
foreign import ccall "gtk_tree_selection_get_type"
c_gtk_tree_selection_get_type :: IO GType
type instance ParentTypes TreeSelection = '[GObject.Object]
instance GObject TreeSelection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_selection_get_type
class GObject o => TreeSelectionK o
instance (GObject o, IsDescendantOf TreeSelection o) => TreeSelectionK o
toTreeSelection :: TreeSelectionK o => o -> IO TreeSelection
toTreeSelection = unsafeCastTo TreeSelection
-- method TreeSelection::count_selected_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_count_selected_rows" gtk_tree_selection_count_selected_rows ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
IO Int32
treeSelectionCountSelectedRows ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m Int32
treeSelectionCountSelectedRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_selection_count_selected_rows _obj'
touchManagedPtr _obj
return result
-- method TreeSelection::get_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SelectionMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_get_mode" gtk_tree_selection_get_mode ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
IO CUInt
treeSelectionGetMode ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m SelectionMode
treeSelectionGetMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_selection_get_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeSelection::get_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_get_selected" gtk_tree_selection_get_selected ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeSelectionGetSelected ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m (Bool,TreeModel,TreeIter)
treeSelectionGetSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
model <- allocMem :: IO (Ptr (Ptr TreeModel))
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
result <- gtk_tree_selection_get_selected _obj' model iter
let result' = (/= 0) result
model' <- peek model
model'' <- (newObject TreeModel) model'
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
freeMem model
return (result', model'', iter')
-- method TreeSelection::get_selected_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "TreePath")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_get_selected_rows" gtk_tree_selection_get_selected_rows ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel"
IO (Ptr (GList (Ptr TreePath)))
treeSelectionGetSelectedRows ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m ([TreePath],TreeModel)
treeSelectionGetSelectedRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
model <- allocMem :: IO (Ptr (Ptr TreeModel))
result <- gtk_tree_selection_get_selected_rows _obj' model
checkUnexpectedReturnNULL "gtk_tree_selection_get_selected_rows" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed TreePath) result'
g_list_free result
model' <- peek model
model'' <- (newObject TreeModel) model'
touchManagedPtr _obj
freeMem model
return (result'', model'')
-- method TreeSelection::get_tree_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_get_tree_view" gtk_tree_selection_get_tree_view ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
IO (Ptr TreeView)
treeSelectionGetTreeView ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m TreeView
treeSelectionGetTreeView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_selection_get_tree_view _obj'
checkUnexpectedReturnNULL "gtk_tree_selection_get_tree_view" result
result' <- (newObject TreeView) result
touchManagedPtr _obj
return result'
-- method TreeSelection::iter_is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_iter_is_selected" gtk_tree_selection_iter_is_selected ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeSelectionIterIsSelected ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeSelectionIterIsSelected _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_selection_iter_is_selected _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeSelection::path_is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_path_is_selected" gtk_tree_selection_path_is_selected ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeSelectionPathIsSelected ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
treeSelectionPathIsSelected _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_selection_path_is_selected _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeSelection::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_select_all" gtk_tree_selection_select_all ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
IO ()
treeSelectionSelectAll ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m ()
treeSelectionSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_selection_select_all _obj'
touchManagedPtr _obj
return ()
-- method TreeSelection::select_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_select_iter" gtk_tree_selection_select_iter ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeSelectionSelectIter ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreeIter -> -- iter
m ()
treeSelectionSelectIter _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_selection_select_iter _obj' iter'
touchManagedPtr _obj
touchManagedPtr iter
return ()
-- method TreeSelection::select_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_select_path" gtk_tree_selection_select_path ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeSelectionSelectPath ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreePath -> -- path
m ()
treeSelectionSelectPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_tree_selection_select_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method TreeSelection::select_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_select_range" gtk_tree_selection_select_range ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreePath -> -- start_path : TInterface "Gtk" "TreePath"
Ptr TreePath -> -- end_path : TInterface "Gtk" "TreePath"
IO ()
treeSelectionSelectRange ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreePath -> -- start_path
TreePath -> -- end_path
m ()
treeSelectionSelectRange _obj start_path end_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start_path' = unsafeManagedPtrGetPtr start_path
let end_path' = unsafeManagedPtrGetPtr end_path
gtk_tree_selection_select_range _obj' start_path' end_path'
touchManagedPtr _obj
touchManagedPtr start_path
touchManagedPtr end_path
return ()
-- method TreeSelection::selected_foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_selected_foreach" gtk_tree_selection_selected_foreach ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
FunPtr TreeSelectionForeachFuncC -> -- func : TInterface "Gtk" "TreeSelectionForeachFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
treeSelectionSelectedForeach ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreeSelectionForeachFunc -> -- func
m ()
treeSelectionSelectedForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeSelectionForeachFunc (treeSelectionForeachFuncWrapper Nothing func)
let data_ = nullPtr
gtk_tree_selection_selected_foreach _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method TreeSelection::set_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_set_mode" gtk_tree_selection_set_mode ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
CUInt -> -- type : TInterface "Gtk" "SelectionMode"
IO ()
treeSelectionSetMode ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
SelectionMode -> -- type
m ()
treeSelectionSetMode _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_tree_selection_set_mode _obj' type_'
touchManagedPtr _obj
return ()
-- method TreeSelection::set_select_function
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_set_select_function" gtk_tree_selection_set_select_function ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
FunPtr TreeSelectionFuncC -> -- func : TInterface "Gtk" "TreeSelectionFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeSelectionSetSelectFunction ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreeSelectionFunc -> -- func
m ()
treeSelectionSetSelectFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeSelectionFunc (treeSelectionFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_tree_selection_set_select_function _obj' func' data_ destroy
touchManagedPtr _obj
return ()
-- method TreeSelection::unselect_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_unselect_all" gtk_tree_selection_unselect_all ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
IO ()
treeSelectionUnselectAll ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
m ()
treeSelectionUnselectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_selection_unselect_all _obj'
touchManagedPtr _obj
return ()
-- method TreeSelection::unselect_iter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_unselect_iter" gtk_tree_selection_unselect_iter ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO ()
treeSelectionUnselectIter ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreeIter -> -- iter
m ()
treeSelectionUnselectIter _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
gtk_tree_selection_unselect_iter _obj' iter'
touchManagedPtr _obj
touchManagedPtr iter
return ()
-- method TreeSelection::unselect_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_unselect_path" gtk_tree_selection_unselect_path ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeSelectionUnselectPath ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreePath -> -- path
m ()
treeSelectionUnselectPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_tree_selection_unselect_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method TreeSelection::unselect_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_selection_unselect_range" gtk_tree_selection_unselect_range ::
Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection"
Ptr TreePath -> -- start_path : TInterface "Gtk" "TreePath"
Ptr TreePath -> -- end_path : TInterface "Gtk" "TreePath"
IO ()
treeSelectionUnselectRange ::
(MonadIO m, TreeSelectionK a) =>
a -> -- _obj
TreePath -> -- start_path
TreePath -> -- end_path
m ()
treeSelectionUnselectRange _obj start_path end_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let start_path' = unsafeManagedPtrGetPtr start_path
let end_path' = unsafeManagedPtrGetPtr end_path
gtk_tree_selection_unselect_range _obj' start_path' end_path'
touchManagedPtr _obj
touchManagedPtr start_path
touchManagedPtr end_path
return ()
-- signal TreeSelection::changed
type TreeSelectionChangedCallback =
IO ()
noTreeSelectionChangedCallback :: Maybe TreeSelectionChangedCallback
noTreeSelectionChangedCallback = Nothing
type TreeSelectionChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeSelectionChangedCallback :: TreeSelectionChangedCallbackC -> IO (FunPtr TreeSelectionChangedCallbackC)
treeSelectionChangedClosure :: TreeSelectionChangedCallback -> IO Closure
treeSelectionChangedClosure cb = newCClosure =<< mkTreeSelectionChangedCallback wrapped
where wrapped = treeSelectionChangedCallbackWrapper cb
treeSelectionChangedCallbackWrapper ::
TreeSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeSelectionChangedCallbackWrapper _cb _ _ = do
_cb
onTreeSelectionChanged :: (GObject a, MonadIO m) => a -> TreeSelectionChangedCallback -> m SignalHandlerId
onTreeSelectionChanged obj cb = liftIO $ connectTreeSelectionChanged obj cb SignalConnectBefore
afterTreeSelectionChanged :: (GObject a, MonadIO m) => a -> TreeSelectionChangedCallback -> m SignalHandlerId
afterTreeSelectionChanged obj cb = connectTreeSelectionChanged obj cb SignalConnectAfter
connectTreeSelectionChanged :: (GObject a, MonadIO m) =>
a -> TreeSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeSelectionChanged obj cb after = liftIO $ do
cb' <- mkTreeSelectionChangedCallback (treeSelectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- callback TreeSelectionForeachFunc
treeSelectionForeachFuncClosure :: TreeSelectionForeachFunc -> IO Closure
treeSelectionForeachFuncClosure cb = newCClosure =<< mkTreeSelectionForeachFunc wrapped
where wrapped = treeSelectionForeachFuncWrapper Nothing cb
type TreeSelectionForeachFuncC =
Ptr TreeModel ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTreeSelectionForeachFunc :: TreeSelectionForeachFuncC -> IO (FunPtr TreeSelectionForeachFuncC)
type TreeSelectionForeachFunc =
TreeModel ->
TreePath ->
TreeIter ->
IO ()
noTreeSelectionForeachFunc :: Maybe TreeSelectionForeachFunc
noTreeSelectionForeachFunc = Nothing
treeSelectionForeachFuncWrapper ::
Maybe (Ptr (FunPtr (TreeSelectionForeachFuncC))) ->
TreeSelectionForeachFunc ->
Ptr TreeModel ->
Ptr TreePath ->
Ptr TreeIter ->
Ptr () ->
IO ()
treeSelectionForeachFuncWrapper funptrptr _cb model path iter _ = do
model' <- (newObject TreeModel) model
path' <- (newBoxed TreePath) path
iter' <- (newBoxed TreeIter) iter
_cb model' path' iter'
maybeReleaseFunPtr funptrptr
-- callback TreeSelectionFunc
treeSelectionFuncClosure :: TreeSelectionFunc -> IO Closure
treeSelectionFuncClosure cb = newCClosure =<< mkTreeSelectionFunc wrapped
where wrapped = treeSelectionFuncWrapper Nothing cb
type TreeSelectionFuncC =
Ptr TreeSelection ->
Ptr TreeModel ->
Ptr TreePath ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeSelectionFunc :: TreeSelectionFuncC -> IO (FunPtr TreeSelectionFuncC)
type TreeSelectionFunc =
TreeSelection ->
TreeModel ->
TreePath ->
Bool ->
IO Bool
noTreeSelectionFunc :: Maybe TreeSelectionFunc
noTreeSelectionFunc = Nothing
treeSelectionFuncWrapper ::
Maybe (Ptr (FunPtr (TreeSelectionFuncC))) ->
TreeSelectionFunc ->
Ptr TreeSelection ->
Ptr TreeModel ->
Ptr TreePath ->
CInt ->
Ptr () ->
IO CInt
treeSelectionFuncWrapper funptrptr _cb selection model path path_currently_selected _ = do
selection' <- (newObject TreeSelection) selection
model' <- (newObject TreeModel) model
path' <- (newBoxed TreePath) path
let path_currently_selected' = (/= 0) path_currently_selected
result <- _cb selection' model' path' path_currently_selected'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- interface TreeSortable
newtype TreeSortable = TreeSortable (ForeignPtr TreeSortable)
noTreeSortable :: Maybe TreeSortable
noTreeSortable = Nothing
foreign import ccall "gtk_tree_sortable_get_type"
c_gtk_tree_sortable_get_type :: IO GType
type instance ParentTypes TreeSortable = '[TreeModel, GObject.Object]
instance GObject TreeSortable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_sortable_get_type
class GObject o => TreeSortableK o
instance (GObject o, IsDescendantOf TreeSortable o) => TreeSortableK o
toTreeSortable :: TreeSortableK o => o -> IO TreeSortable
toTreeSortable = unsafeCastTo TreeSortable
-- method TreeSortable::get_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_get_sort_column_id" gtk_tree_sortable_get_sort_column_id ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
Ptr Int32 -> -- sort_column_id : TBasicType TInt32
Ptr CUInt -> -- order : TInterface "Gtk" "SortType"
IO CInt
treeSortableGetSortColumnId ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
m (Bool,Int32,SortType)
treeSortableGetSortColumnId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sort_column_id <- allocMem :: IO (Ptr Int32)
order <- allocMem :: IO (Ptr CUInt)
result <- gtk_tree_sortable_get_sort_column_id _obj' sort_column_id order
let result' = (/= 0) result
sort_column_id' <- peek sort_column_id
order' <- peek order
let order'' = (toEnum . fromIntegral) order'
touchManagedPtr _obj
freeMem sort_column_id
freeMem order
return (result', sort_column_id', order'')
-- method TreeSortable::has_default_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_has_default_sort_func" gtk_tree_sortable_has_default_sort_func ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
IO CInt
treeSortableHasDefaultSortFunc ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
m Bool
treeSortableHasDefaultSortFunc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_sortable_has_default_sort_func _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeSortable::set_default_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_set_default_sort_func" gtk_tree_sortable_set_default_sort_func ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeSortableSetDefaultSortFunc ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
TreeIterCompareFunc -> -- sort_func
m ()
treeSortableSetDefaultSortFunc _obj sort_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func)
let user_data = castFunPtrToPtr sort_func'
let destroy = safeFreeFunPtrPtr
gtk_tree_sortable_set_default_sort_func _obj' sort_func' user_data destroy
touchManagedPtr _obj
return ()
-- method TreeSortable::set_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_set_sort_column_id" gtk_tree_sortable_set_sort_column_id ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
Int32 -> -- sort_column_id : TBasicType TInt32
CUInt -> -- order : TInterface "Gtk" "SortType"
IO ()
treeSortableSetSortColumnId ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
Int32 -> -- sort_column_id
SortType -> -- order
m ()
treeSortableSetSortColumnId _obj sort_column_id order = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let order' = (fromIntegral . fromEnum) order
gtk_tree_sortable_set_sort_column_id _obj' sort_column_id order'
touchManagedPtr _obj
return ()
-- method TreeSortable::set_sort_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_set_sort_func" gtk_tree_sortable_set_sort_func ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
Int32 -> -- sort_column_id : TBasicType TInt32
FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeSortableSetSortFunc ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
Int32 -> -- sort_column_id
TreeIterCompareFunc -> -- sort_func
m ()
treeSortableSetSortFunc _obj sort_column_id sort_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func)
let user_data = castFunPtrToPtr sort_func'
let destroy = safeFreeFunPtrPtr
gtk_tree_sortable_set_sort_func _obj' sort_column_id sort_func' user_data destroy
touchManagedPtr _obj
return ()
-- method TreeSortable::sort_column_changed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_sortable_sort_column_changed" gtk_tree_sortable_sort_column_changed ::
Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable"
IO ()
treeSortableSortColumnChanged ::
(MonadIO m, TreeSortableK a) =>
a -> -- _obj
m ()
treeSortableSortColumnChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_sortable_sort_column_changed _obj'
touchManagedPtr _obj
return ()
-- signal TreeSortable::sort-column-changed
type TreeSortableSortColumnChangedCallback =
IO ()
noTreeSortableSortColumnChangedCallback :: Maybe TreeSortableSortColumnChangedCallback
noTreeSortableSortColumnChangedCallback = Nothing
type TreeSortableSortColumnChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeSortableSortColumnChangedCallback :: TreeSortableSortColumnChangedCallbackC -> IO (FunPtr TreeSortableSortColumnChangedCallbackC)
treeSortableSortColumnChangedClosure :: TreeSortableSortColumnChangedCallback -> IO Closure
treeSortableSortColumnChangedClosure cb = newCClosure =<< mkTreeSortableSortColumnChangedCallback wrapped
where wrapped = treeSortableSortColumnChangedCallbackWrapper cb
treeSortableSortColumnChangedCallbackWrapper ::
TreeSortableSortColumnChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeSortableSortColumnChangedCallbackWrapper _cb _ _ = do
_cb
onTreeSortableSortColumnChanged :: (GObject a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId
onTreeSortableSortColumnChanged obj cb = liftIO $ connectTreeSortableSortColumnChanged obj cb SignalConnectBefore
afterTreeSortableSortColumnChanged :: (GObject a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId
afterTreeSortableSortColumnChanged obj cb = connectTreeSortableSortColumnChanged obj cb SignalConnectAfter
connectTreeSortableSortColumnChanged :: (GObject a, MonadIO m) =>
a -> TreeSortableSortColumnChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeSortableSortColumnChanged obj cb after = liftIO $ do
cb' <- mkTreeSortableSortColumnChangedCallback (treeSortableSortColumnChangedCallbackWrapper cb)
connectSignalFunPtr obj "sort-column-changed" cb' after
-- object TreeStore
newtype TreeStore = TreeStore (ForeignPtr TreeStore)
noTreeStore :: Maybe TreeStore
noTreeStore = Nothing
foreign import ccall "gtk_tree_store_get_type"
c_gtk_tree_store_get_type :: IO GType
type instance ParentTypes TreeStore = '[GObject.Object, Buildable, TreeDragDest, TreeDragSource, TreeModel, TreeSortable]
instance GObject TreeStore where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_store_get_type
class GObject o => TreeStoreK o
instance (GObject o, IsDescendantOf TreeStore o) => TreeStoreK o
toTreeStore :: TreeStoreK o => o -> IO TreeStore
toTreeStore = unsafeCastTo TreeStore
-- method TreeStore::new
-- method type : Constructor
-- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeStore"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_newv" gtk_tree_store_newv ::
Int32 -> -- n_columns : TBasicType TInt32
Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType)
IO (Ptr TreeStore)
treeStoreNew ::
(MonadIO m) =>
[GType] -> -- types
m TreeStore
treeStoreNew types = liftIO $ do
let n_columns = fromIntegral $ length types
types' <- (packMapStorableArray gtypeToCGType) types
result <- gtk_tree_store_newv n_columns types'
checkUnexpectedReturnNULL "gtk_tree_store_newv" result
result' <- (wrapObject TreeStore) result
freeMem types'
return result'
-- method TreeStore::append
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_append" gtk_tree_store_append ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
IO ()
treeStoreAppend ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
m (TreeIter)
treeStoreAppend _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
gtk_tree_store_append _obj' iter maybeParent
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
return iter'
-- method TreeStore::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_clear" gtk_tree_store_clear ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
IO ()
treeStoreClear ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
m ()
treeStoreClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_store_clear _obj'
touchManagedPtr _obj
return ()
-- method TreeStore::insert
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_insert" gtk_tree_store_insert ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
Int32 -> -- position : TBasicType TInt32
IO ()
treeStoreInsert ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
Int32 -> -- position
m (TreeIter)
treeStoreInsert _obj parent position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
gtk_tree_store_insert _obj' iter maybeParent position
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
return iter'
-- method TreeStore::insert_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_insert_after" gtk_tree_store_insert_after ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter"
IO ()
treeStoreInsertAfter ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
Maybe (TreeIter) -> -- sibling
m (TreeIter)
treeStoreInsertAfter _obj parent sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrGetPtr jSibling
return jSibling'
gtk_tree_store_insert_after _obj' iter maybeParent maybeSibling
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
whenJust sibling touchManagedPtr
return iter'
-- method TreeStore::insert_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_insert_before" gtk_tree_store_insert_before ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter"
IO ()
treeStoreInsertBefore ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
Maybe (TreeIter) -> -- sibling
m (TreeIter)
treeStoreInsertBefore _obj parent sibling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrGetPtr jSibling
return jSibling'
gtk_tree_store_insert_before _obj' iter maybeParent maybeSibling
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
whenJust sibling touchManagedPtr
return iter'
-- method TreeStore::insert_with_values
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_insert_with_valuesv" gtk_tree_store_insert_with_valuesv ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
Int32 -> -- position : TBasicType TInt32
Ptr Int32 -> -- columns : TCArray False (-1) 6 (TBasicType TInt32)
Ptr GValue -> -- values : TCArray False (-1) 6 (TInterface "GObject" "Value")
Int32 -> -- n_values : TBasicType TInt32
IO ()
treeStoreInsertWithValues ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
Int32 -> -- position
[Int32] -> -- columns
[GValue] -> -- values
m (TreeIter)
treeStoreInsertWithValues _obj parent position columns values = liftIO $ do
let n_values = fromIntegral $ length values
let columns_expected_length_ = fromIntegral $ length columns
when (columns_expected_length_ /= n_values) $
error "Gtk.treeStoreInsertWithValues : length of 'columns' does not agree with that of 'values'."
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
columns' <- packStorableArray columns
let values' = map unsafeManagedPtrGetPtr values
values'' <- packBlockArray 24 values'
gtk_tree_store_insert_with_valuesv _obj' iter maybeParent position columns' values'' n_values
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
mapM_ touchManagedPtr values
freeMem columns'
freeMem values''
return iter'
-- method TreeStore::is_ancestor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_is_ancestor" gtk_tree_store_is_ancestor ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- descendant : TInterface "Gtk" "TreeIter"
IO CInt
treeStoreIsAncestor ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
TreeIter -> -- descendant
m Bool
treeStoreIsAncestor _obj iter descendant = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let descendant' = unsafeManagedPtrGetPtr descendant
result <- gtk_tree_store_is_ancestor _obj' iter' descendant'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr descendant
return result'
-- method TreeStore::iter_depth
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_iter_depth" gtk_tree_store_iter_depth ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO Int32
treeStoreIterDepth ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
m Int32
treeStoreIterDepth _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_store_iter_depth _obj' iter'
touchManagedPtr _obj
touchManagedPtr iter
return result
-- method TreeStore::iter_is_valid
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_iter_is_valid" gtk_tree_store_iter_is_valid ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeStoreIterIsValid ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeStoreIterIsValid _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_store_iter_is_valid _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeStore::move_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_move_after" gtk_tree_store_move_after ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter"
IO ()
treeStoreMoveAfter ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Maybe (TreeIter) -> -- position
m ()
treeStoreMoveAfter _obj iter position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybePosition <- case position of
Nothing -> return nullPtr
Just jPosition -> do
let jPosition' = unsafeManagedPtrGetPtr jPosition
return jPosition'
gtk_tree_store_move_after _obj' iter' maybePosition
touchManagedPtr _obj
touchManagedPtr iter
whenJust position touchManagedPtr
return ()
-- method TreeStore::move_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_move_before" gtk_tree_store_move_before ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter"
IO ()
treeStoreMoveBefore ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Maybe (TreeIter) -> -- position
m ()
treeStoreMoveBefore _obj iter position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybePosition <- case position of
Nothing -> return nullPtr
Just jPosition -> do
let jPosition' = unsafeManagedPtrGetPtr jPosition
return jPosition'
gtk_tree_store_move_before _obj' iter' maybePosition
touchManagedPtr _obj
touchManagedPtr iter
whenJust position touchManagedPtr
return ()
-- method TreeStore::prepend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_prepend" gtk_tree_store_prepend ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter"
IO ()
treeStorePrepend ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
Maybe (TreeIter) -> -- parent
m (TreeIter)
treeStorePrepend _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrGetPtr jParent
return jParent'
gtk_tree_store_prepend _obj' iter maybeParent
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
whenJust parent touchManagedPtr
return iter'
-- method TreeStore::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_remove" gtk_tree_store_remove ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeStoreRemove ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
m Bool
treeStoreRemove _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
result <- gtk_tree_store_remove _obj' iter'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr iter
return result'
-- method TreeStore::set_column_types
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_set_column_types" gtk_tree_store_set_column_types ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Int32 -> -- n_columns : TBasicType TInt32
Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType)
IO ()
treeStoreSetColumnTypes ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
[GType] -> -- types
m ()
treeStoreSetColumnTypes _obj types = liftIO $ do
let n_columns = fromIntegral $ length types
let _obj' = unsafeManagedPtrCastPtr _obj
types' <- (packMapStorableArray gtypeToCGType) types
gtk_tree_store_set_column_types _obj' n_columns types'
touchManagedPtr _obj
freeMem types'
return ()
-- method TreeStore::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_set_value" gtk_tree_store_set_value ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Int32 -> -- column : TBasicType TInt32
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
treeStoreSetValue ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
Int32 -> -- column
GValue -> -- value
m ()
treeStoreSetValue _obj iter column value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
let value' = unsafeManagedPtrGetPtr value
gtk_tree_store_set_value _obj' iter' column value'
touchManagedPtr _obj
touchManagedPtr iter
touchManagedPtr value
return ()
-- method TreeStore::set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_set_valuesv" gtk_tree_store_set_valuesv ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt32)
Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value")
Int32 -> -- n_values : TBasicType TInt32
IO ()
treeStoreSet ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- iter
[Int32] -> -- columns
[GValue] -> -- values
m ()
treeStoreSet _obj iter columns values = liftIO $ do
let n_values = fromIntegral $ length values
let columns_expected_length_ = fromIntegral $ length columns
when (columns_expected_length_ /= n_values) $
error "Gtk.treeStoreSet : length of 'columns' does not agree with that of 'values'."
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
columns' <- packStorableArray columns
let values' = map unsafeManagedPtrGetPtr values
values'' <- packBlockArray 24 values'
gtk_tree_store_set_valuesv _obj' iter' columns' values'' n_values
touchManagedPtr _obj
touchManagedPtr iter
mapM_ touchManagedPtr values
freeMem columns'
freeMem values''
return ()
-- method TreeStore::swap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_store_swap" gtk_tree_store_swap ::
Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore"
Ptr TreeIter -> -- a : TInterface "Gtk" "TreeIter"
Ptr TreeIter -> -- b : TInterface "Gtk" "TreeIter"
IO ()
treeStoreSwap ::
(MonadIO m, TreeStoreK a) =>
a -> -- _obj
TreeIter -> -- a
TreeIter -> -- b
m ()
treeStoreSwap _obj a b = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let a' = unsafeManagedPtrGetPtr a
let b' = unsafeManagedPtrGetPtr b
gtk_tree_store_swap _obj' a' b'
touchManagedPtr _obj
touchManagedPtr a
touchManagedPtr b
return ()
-- object TreeView
newtype TreeView = TreeView (ForeignPtr TreeView)
noTreeView :: Maybe TreeView
noTreeView = Nothing
foreign import ccall "gtk_tree_view_get_type"
c_gtk_tree_view_get_type :: IO GType
type instance ParentTypes TreeView = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable]
instance GObject TreeView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tree_view_get_type
class GObject o => TreeViewK o
instance (GObject o, IsDescendantOf TreeView o) => TreeViewK o
toTreeView :: TreeViewK o => o -> IO TreeView
toTreeView = unsafeCastTo TreeView
-- method TreeView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TreeView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_new" gtk_tree_view_new ::
IO (Ptr TreeView)
treeViewNew ::
(MonadIO m) =>
m TreeView
treeViewNew = liftIO $ do
result <- gtk_tree_view_new
checkUnexpectedReturnNULL "gtk_tree_view_new" result
result' <- (newObject TreeView) result
return result'
-- method TreeView::new_with_model
-- method type : Constructor
-- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeView"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_new_with_model" gtk_tree_view_new_with_model ::
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO (Ptr TreeView)
treeViewNewWithModel ::
(MonadIO m, TreeModelK a) =>
a -> -- model
m TreeView
treeViewNewWithModel model = liftIO $ do
let model' = unsafeManagedPtrCastPtr model
result <- gtk_tree_view_new_with_model model'
checkUnexpectedReturnNULL "gtk_tree_view_new_with_model" result
result' <- (newObject TreeView) result
touchManagedPtr model
return result'
-- method TreeView::append_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_append_column" gtk_tree_view_append_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewAppendColumn ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
b -> -- column
m Int32
treeViewAppendColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let column' = unsafeManagedPtrCastPtr column
result <- gtk_tree_view_append_column _obj' column'
touchManagedPtr _obj
touchManagedPtr column
return result
-- method TreeView::collapse_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO ()
treeViewCollapseAll ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ()
treeViewCollapseAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_collapse_all _obj'
touchManagedPtr _obj
return ()
-- method TreeView::collapse_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeViewCollapseRow ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
treeViewCollapseRow _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_view_collapse_row _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeView::columns_autosize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO ()
treeViewColumnsAutosize ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ()
treeViewColumnsAutosize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_columns_autosize _obj'
touchManagedPtr _obj
return ()
-- method TreeView::convert_bin_window_to_tree_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- bx : TBasicType TInt32
Int32 -> -- by : TBasicType TInt32
Ptr Int32 -> -- tx : TBasicType TInt32
Ptr Int32 -> -- ty : TBasicType TInt32
IO ()
treeViewConvertBinWindowToTreeCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- bx
Int32 -> -- by
m (Int32,Int32)
treeViewConvertBinWindowToTreeCoords _obj bx by = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tx <- allocMem :: IO (Ptr Int32)
ty <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_bin_window_to_tree_coords _obj' bx by tx ty
tx' <- peek tx
ty' <- peek ty
touchManagedPtr _obj
freeMem tx
freeMem ty
return (tx', ty')
-- method TreeView::convert_bin_window_to_widget_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- bx : TBasicType TInt32
Int32 -> -- by : TBasicType TInt32
Ptr Int32 -> -- wx : TBasicType TInt32
Ptr Int32 -> -- wy : TBasicType TInt32
IO ()
treeViewConvertBinWindowToWidgetCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- bx
Int32 -> -- by
m (Int32,Int32)
treeViewConvertBinWindowToWidgetCoords _obj bx by = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
wx <- allocMem :: IO (Ptr Int32)
wy <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_bin_window_to_widget_coords _obj' bx by wx wy
wx' <- peek wx
wy' <- peek wy
touchManagedPtr _obj
freeMem wx
freeMem wy
return (wx', wy')
-- method TreeView::convert_tree_to_bin_window_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- tx : TBasicType TInt32
Int32 -> -- ty : TBasicType TInt32
Ptr Int32 -> -- bx : TBasicType TInt32
Ptr Int32 -> -- by : TBasicType TInt32
IO ()
treeViewConvertTreeToBinWindowCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- tx
Int32 -> -- ty
m (Int32,Int32)
treeViewConvertTreeToBinWindowCoords _obj tx ty = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
bx <- allocMem :: IO (Ptr Int32)
by <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_tree_to_bin_window_coords _obj' tx ty bx by
bx' <- peek bx
by' <- peek by
touchManagedPtr _obj
freeMem bx
freeMem by
return (bx', by')
-- method TreeView::convert_tree_to_widget_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- tx : TBasicType TInt32
Int32 -> -- ty : TBasicType TInt32
Ptr Int32 -> -- wx : TBasicType TInt32
Ptr Int32 -> -- wy : TBasicType TInt32
IO ()
treeViewConvertTreeToWidgetCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- tx
Int32 -> -- ty
m (Int32,Int32)
treeViewConvertTreeToWidgetCoords _obj tx ty = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
wx <- allocMem :: IO (Ptr Int32)
wy <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_tree_to_widget_coords _obj' tx ty wx wy
wx' <- peek wx
wy' <- peek wy
touchManagedPtr _obj
freeMem wx
freeMem wy
return (wx', wy')
-- method TreeView::convert_widget_to_bin_window_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- wx : TBasicType TInt32
Int32 -> -- wy : TBasicType TInt32
Ptr Int32 -> -- bx : TBasicType TInt32
Ptr Int32 -> -- by : TBasicType TInt32
IO ()
treeViewConvertWidgetToBinWindowCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- wx
Int32 -> -- wy
m (Int32,Int32)
treeViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
bx <- allocMem :: IO (Ptr Int32)
by <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_widget_to_bin_window_coords _obj' wx wy bx by
bx' <- peek bx
by' <- peek by
touchManagedPtr _obj
freeMem bx
freeMem by
return (bx', by')
-- method TreeView::convert_widget_to_tree_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- wx : TBasicType TInt32
Int32 -> -- wy : TBasicType TInt32
Ptr Int32 -> -- tx : TBasicType TInt32
Ptr Int32 -> -- ty : TBasicType TInt32
IO ()
treeViewConvertWidgetToTreeCoords ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- wx
Int32 -> -- wy
m (Int32,Int32)
treeViewConvertWidgetToTreeCoords _obj wx wy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tx <- allocMem :: IO (Ptr Int32)
ty <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_widget_to_tree_coords _obj' wx wy tx ty
tx' <- peek tx
ty' <- peek ty
touchManagedPtr _obj
freeMem tx
freeMem ty
return (tx', ty')
-- method TreeView::create_row_drag_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO (Ptr Cairo.Surface)
treeViewCreateRowDragIcon ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreePath -> -- path
m Cairo.Surface
treeViewCreateRowDragIcon _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_view_create_row_drag_icon _obj' path'
checkUnexpectedReturnNULL "gtk_tree_view_create_row_drag_icon" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeView::enable_model_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
treeViewEnableModelDragDest ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
[TargetEntry] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
treeViewEnableModelDragDest _obj targets actions = liftIO $ do
let n_targets = fromIntegral $ length targets
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
let actions' = gflagsToWord actions
gtk_tree_view_enable_model_drag_dest _obj' targets'' n_targets actions'
touchManagedPtr _obj
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- method TreeView::enable_model_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
treeViewEnableModelDragSource ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
[Gdk.ModifierType] -> -- start_button_mask
[TargetEntry] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
treeViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do
let n_targets = fromIntegral $ length targets
let _obj' = unsafeManagedPtrCastPtr _obj
let start_button_mask' = gflagsToWord start_button_mask
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
let actions' = gflagsToWord actions
gtk_tree_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions'
touchManagedPtr _obj
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- method TreeView::expand_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO ()
treeViewExpandAll ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ()
treeViewExpandAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_expand_all _obj'
touchManagedPtr _obj
return ()
-- method TreeView::expand_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
CInt -> -- open_all : TBasicType TBoolean
IO CInt
treeViewExpandRow ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreePath -> -- path
Bool -> -- open_all
m Bool
treeViewExpandRow _obj path open_all = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let open_all' = (fromIntegral . fromEnum) open_all
result <- gtk_tree_view_expand_row _obj' path' open_all'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeView::expand_to_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeViewExpandToPath ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreePath -> -- path
m ()
treeViewExpandToPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
gtk_tree_view_expand_to_path _obj' path'
touchManagedPtr _obj
touchManagedPtr path
return ()
-- method TreeView::get_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetActivateOnSingleClick ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetActivateOnSingleClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_activate_on_single_click _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_background_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
treeViewGetBackgroundArea ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
Maybe (TreePath) -> -- path
Maybe (b) -> -- column
m (Gdk.Rectangle)
treeViewGetBackgroundArea _obj path column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
maybeColumn <- case column of
Nothing -> return nullPtr
Just jColumn -> do
let jColumn' = unsafeManagedPtrCastPtr jColumn
return jColumn'
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_tree_view_get_background_area _obj' maybePath maybeColumn rect
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return rect'
-- method TreeView::get_bin_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_bin_window" gtk_tree_view_get_bin_window ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr Gdk.Window)
treeViewGetBinWindow ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Gdk.Window
treeViewGetBinWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_bin_window _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_bin_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method TreeView::get_cell_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_cell_area" gtk_tree_view_get_cell_area ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
treeViewGetCellArea ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
Maybe (TreePath) -> -- path
Maybe (b) -> -- column
m (Gdk.Rectangle)
treeViewGetCellArea _obj path column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
maybeColumn <- case column of
Nothing -> return nullPtr
Just jColumn -> do
let jColumn' = unsafeManagedPtrCastPtr jColumn
return jColumn'
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_tree_view_get_cell_area _obj' maybePath maybeColumn rect
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return rect'
-- method TreeView::get_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- n : TBasicType TInt32
IO (Ptr TreeViewColumn)
treeViewGetColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- n
m TreeViewColumn
treeViewGetColumn _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_column _obj' n
checkUnexpectedReturnNULL "gtk_tree_view_get_column" result
result' <- (newObject TreeViewColumn) result
touchManagedPtr _obj
return result'
-- method TreeView::get_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "TreeViewColumn")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr (GList (Ptr TreeViewColumn)))
treeViewGetColumns ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m [TreeViewColumn]
treeViewGetColumns _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_columns _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_columns" result
result' <- unpackGList result
result'' <- mapM (newObject TreeViewColumn) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method TreeView::get_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr (Ptr TreeViewColumn) -> -- focus_column : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewGetCursor ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ((Maybe TreePath),(Maybe TreeViewColumn))
treeViewGetCursor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
focus_column <- allocMem :: IO (Ptr (Ptr TreeViewColumn))
gtk_tree_view_get_cursor _obj' path focus_column
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
focus_column' <- peek focus_column
maybeFocus_column' <- convertIfNonNull focus_column' $ \focus_column'' -> do
focus_column''' <- (newObject TreeViewColumn) focus_column''
return focus_column'''
touchManagedPtr _obj
freeMem path
freeMem focus_column
return (maybePath', maybeFocus_column')
-- method TreeView::get_dest_row_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- drag_x : TBasicType TInt32
Int32 -> -- drag_y : TBasicType TInt32
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition"
IO CInt
treeViewGetDestRowAtPos ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- drag_x
Int32 -> -- drag_y
m (Bool,(Maybe TreePath),TreeViewDropPosition)
treeViewGetDestRowAtPos _obj drag_x drag_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
pos <- allocMem :: IO (Ptr CUInt)
result <- gtk_tree_view_get_dest_row_at_pos _obj' drag_x drag_y path pos
let result' = (/= 0) result
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
pos' <- peek pos
let pos'' = (toEnum . fromIntegral) pos'
touchManagedPtr _obj
freeMem path
freeMem pos
return (result', maybePath', pos'')
-- method TreeView::get_drag_dest_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition"
IO ()
treeViewGetDragDestRow ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ((Maybe TreePath),TreeViewDropPosition)
treeViewGetDragDestRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
pos <- allocMem :: IO (Ptr CUInt)
gtk_tree_view_get_drag_dest_row _obj' path pos
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
pos' <- peek pos
let pos'' = (toEnum . fromIntegral) pos'
touchManagedPtr _obj
freeMem path
freeMem pos
return (maybePath', pos'')
-- method TreeView::get_enable_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetEnableSearch ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetEnableSearch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_enable_search _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_enable_tree_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetEnableTreeLines ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetEnableTreeLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_enable_tree_lines _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_expander_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr TreeViewColumn)
treeViewGetExpanderColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m TreeViewColumn
treeViewGetExpanderColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_expander_column _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_expander_column" result
result' <- (newObject TreeViewColumn) result
touchManagedPtr _obj
return result'
-- method TreeView::get_fixed_height_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetFixedHeightMode ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetFixedHeightMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_fixed_height_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_grid_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewGridLines"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CUInt
treeViewGetGridLines ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m TreeViewGridLines
treeViewGetGridLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_grid_lines _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeView::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_hadjustment" gtk_tree_view_get_hadjustment ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr Adjustment)
{-# DEPRECATED treeViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
treeViewGetHadjustment ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Adjustment
treeViewGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method TreeView::get_headers_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_headers_clickable" gtk_tree_view_get_headers_clickable ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetHeadersClickable ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetHeadersClickable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_headers_clickable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_headers_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_headers_visible" gtk_tree_view_get_headers_visible ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetHeadersVisible ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetHeadersVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_headers_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_hover_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetHoverExpand ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetHoverExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_hover_expand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_hover_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetHoverSelection ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetHoverSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_hover_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_level_indentation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO Int32
treeViewGetLevelIndentation ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Int32
treeViewGetLevelIndentation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_level_indentation _obj'
touchManagedPtr _obj
return result
-- method TreeView::get_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeModel"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr TreeModel)
treeViewGetModel ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m TreeModel
treeViewGetModel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_model _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_model" result
result' <- (newObject TreeModel) result
touchManagedPtr _obj
return result'
-- method TreeView::get_n_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO Word32
treeViewGetNColumns ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Word32
treeViewGetNColumns _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_n_columns _obj'
touchManagedPtr _obj
return result
-- method TreeView::get_path_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr Int32 -> -- cell_x : TBasicType TInt32
Ptr Int32 -> -- cell_y : TBasicType TInt32
IO CInt
treeViewGetPathAtPos ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32)
treeViewGetPathAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
column <- allocMem :: IO (Ptr (Ptr TreeViewColumn))
cell_x <- allocMem :: IO (Ptr Int32)
cell_y <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_get_path_at_pos _obj' x y path column cell_x cell_y
let result' = (/= 0) result
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
column' <- peek column
maybeColumn' <- convertIfNonNull column' $ \column'' -> do
column''' <- (newObject TreeViewColumn) column''
return column'''
cell_x' <- peek cell_x
cell_y' <- peek cell_y
touchManagedPtr _obj
freeMem path
freeMem column
freeMem cell_x
freeMem cell_y
return (result', maybePath', maybeColumn', cell_x', cell_y')
-- method TreeView::get_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetReorderable ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetReorderable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_reorderable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_rubber_banding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetRubberBanding ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetRubberBanding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_rubber_banding _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_rules_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_rules_hint" gtk_tree_view_get_rules_hint ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
{-# DEPRECATED treeViewGetRulesHint ["(Since version 3.14)"]#-}
treeViewGetRulesHint ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetRulesHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_rules_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_search_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO Int32
treeViewGetSearchColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Int32
treeViewGetSearchColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_search_column _obj'
touchManagedPtr _obj
return result
-- method TreeView::get_search_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Entry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr Entry)
treeViewGetSearchEntry ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Entry
treeViewGetSearchEntry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_search_entry _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_search_entry" result
result' <- (newObject Entry) result
touchManagedPtr _obj
return result'
-- method TreeView::get_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeSelection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr TreeSelection)
treeViewGetSelection ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m TreeSelection
treeViewGetSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_selection _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_selection" result
result' <- (newObject TreeSelection) result
touchManagedPtr _obj
return result'
-- method TreeView::get_show_expanders
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewGetShowExpanders ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewGetShowExpanders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_show_expanders _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::get_tooltip_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO Int32
treeViewGetTooltipColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Int32
treeViewGetTooltipColumn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_tooltip_column _obj'
touchManagedPtr _obj
return result
-- method TreeView::get_tooltip_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
CInt -> -- keyboard_tip : TBasicType TBoolean
Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
IO CInt
treeViewGetTooltipContext ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
Bool -> -- keyboard_tip
m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter)
treeViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x' <- allocMem :: IO (Ptr Int32)
poke x' x
y' <- allocMem :: IO (Ptr Int32)
poke y' y
let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip
model <- allocMem :: IO (Ptr (Ptr TreeModel))
path <- allocMem :: IO (Ptr (Ptr TreePath))
iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter)
result <- gtk_tree_view_get_tooltip_context _obj' x' y' keyboard_tip' model path iter
let result' = (/= 0) result
x'' <- peek x'
y'' <- peek y'
model' <- peek model
maybeModel' <- convertIfNonNull model' $ \model'' -> do
model''' <- (newObject TreeModel) model''
return model'''
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
iter' <- (wrapBoxed TreeIter) iter
touchManagedPtr _obj
freeMem x'
freeMem y'
freeMem model
freeMem path
return (result', x'', y'', maybeModel', path'', iter')
-- method TreeView::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_vadjustment" gtk_tree_view_get_vadjustment ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO (Ptr Adjustment)
{-# DEPRECATED treeViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
treeViewGetVadjustment ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Adjustment
treeViewGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_tree_view_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method TreeView::get_visible_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_visible_range" gtk_tree_view_get_visible_range ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath"
Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath"
IO CInt
treeViewGetVisibleRange ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m (Bool,TreePath,TreePath)
treeViewGetVisibleRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start_path <- allocMem :: IO (Ptr (Ptr TreePath))
end_path <- allocMem :: IO (Ptr (Ptr TreePath))
result <- gtk_tree_view_get_visible_range _obj' start_path end_path
let result' = (/= 0) result
start_path' <- peek start_path
start_path'' <- (wrapBoxed TreePath) start_path'
end_path' <- peek end_path
end_path'' <- (wrapBoxed TreePath) end_path'
touchManagedPtr _obj
freeMem start_path
freeMem end_path
return (result', start_path'', end_path'')
-- method TreeView::get_visible_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle"
IO ()
treeViewGetVisibleRect ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m (Gdk.Rectangle)
treeViewGetVisibleRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
visible_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_tree_view_get_visible_rect _obj' visible_rect
visible_rect' <- (wrapBoxed Gdk.Rectangle) visible_rect
touchManagedPtr _obj
return visible_rect'
-- method TreeView::insert_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- position : TBasicType TInt32
IO Int32
treeViewInsertColumn ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
b -> -- column
Int32 -> -- position
m Int32
treeViewInsertColumn _obj column position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let column' = unsafeManagedPtrCastPtr column
result <- gtk_tree_view_insert_column _obj' column' position
touchManagedPtr _obj
touchManagedPtr column
return result
-- method TreeView::insert_column_with_data_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- position : TBasicType TInt32
CString -> -- title : TBasicType TUTF8
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify"
IO Int32
treeViewInsertColumnWithDataFunc ::
(MonadIO m, TreeViewK a, CellRendererK b) =>
a -> -- _obj
Int32 -> -- position
T.Text -> -- title
b -> -- cell
TreeCellDataFunc -> -- func
m Int32
treeViewInsertColumnWithDataFunc _obj position title cell func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
let cell' = unsafeManagedPtrCastPtr cell
func' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let dnotify = safeFreeFunPtrPtr
result <- gtk_tree_view_insert_column_with_data_func _obj' position title' cell' func' data_ dnotify
touchManagedPtr _obj
touchManagedPtr cell
freeMem title'
return result
-- method TreeView::is_blank_at_pos
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr Int32 -> -- cell_x : TBasicType TInt32
Ptr Int32 -> -- cell_y : TBasicType TInt32
IO CInt
treeViewIsBlankAtPos ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m (Bool,TreePath,TreeViewColumn,Int32,Int32)
treeViewIsBlankAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path <- allocMem :: IO (Ptr (Ptr TreePath))
column <- allocMem :: IO (Ptr (Ptr TreeViewColumn))
cell_x <- allocMem :: IO (Ptr Int32)
cell_y <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_is_blank_at_pos _obj' x y path column cell_x cell_y
let result' = (/= 0) result
path' <- peek path
path'' <- (wrapBoxed TreePath) path'
column' <- peek column
column'' <- (wrapObject TreeViewColumn) column'
cell_x' <- peek cell_x
cell_y' <- peek cell_y
touchManagedPtr _obj
freeMem path
freeMem column
freeMem cell_x
freeMem cell_y
return (result', path'', column'', cell_x', cell_y')
-- method TreeView::is_rubber_banding_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO CInt
treeViewIsRubberBandingActive ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m Bool
treeViewIsRubberBandingActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_is_rubber_banding_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeView::map_expanded_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeViewMappingFuncC -> -- func : TInterface "Gtk" "TreeViewMappingFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
treeViewMapExpandedRows ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreeViewMappingFunc -> -- func
m ()
treeViewMapExpandedRows _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkTreeViewMappingFunc (treeViewMappingFuncWrapper Nothing func)
let data_ = nullPtr
gtk_tree_view_map_expanded_rows _obj' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method TreeView::move_column_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr TreeViewColumn -> -- base_column : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewMoveColumnAfter ::
(MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) =>
a -> -- _obj
b -> -- column
Maybe (c) -> -- base_column
m ()
treeViewMoveColumnAfter _obj column base_column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let column' = unsafeManagedPtrCastPtr column
maybeBase_column <- case base_column of
Nothing -> return nullPtr
Just jBase_column -> do
let jBase_column' = unsafeManagedPtrCastPtr jBase_column
return jBase_column'
gtk_tree_view_move_column_after _obj' column' maybeBase_column
touchManagedPtr _obj
touchManagedPtr column
whenJust base_column touchManagedPtr
return ()
-- method TreeView::remove_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewRemoveColumn ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
b -> -- column
m Int32
treeViewRemoveColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let column' = unsafeManagedPtrCastPtr column
result <- gtk_tree_view_remove_column _obj' column'
touchManagedPtr _obj
touchManagedPtr column
return result
-- method TreeView::row_activated
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_row_activated" gtk_tree_view_row_activated ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewRowActivated ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
TreePath -> -- path
b -> -- column
m ()
treeViewRowActivated _obj path column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
let column' = unsafeManagedPtrCastPtr column
gtk_tree_view_row_activated _obj' path' column'
touchManagedPtr _obj
touchManagedPtr path
touchManagedPtr column
return ()
-- method TreeView::row_expanded
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeViewRowExpanded ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreePath -> -- path
m Bool
treeViewRowExpanded _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_view_row_expanded _obj' path'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr path
return result'
-- method TreeView::scroll_to_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
CInt -> -- use_align : TBasicType TBoolean
CFloat -> -- row_align : TBasicType TFloat
CFloat -> -- col_align : TBasicType TFloat
IO ()
treeViewScrollToCell ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
Maybe (TreePath) -> -- path
Maybe (b) -> -- column
Bool -> -- use_align
Float -> -- row_align
Float -> -- col_align
m ()
treeViewScrollToCell _obj path column use_align row_align col_align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
maybeColumn <- case column of
Nothing -> return nullPtr
Just jColumn -> do
let jColumn' = unsafeManagedPtrCastPtr jColumn
return jColumn'
let use_align' = (fromIntegral . fromEnum) use_align
let row_align' = realToFrac row_align
let col_align' = realToFrac col_align
gtk_tree_view_scroll_to_cell _obj' maybePath maybeColumn use_align' row_align' col_align'
touchManagedPtr _obj
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return ()
-- method TreeView::scroll_to_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- tree_x : TBasicType TInt32
Int32 -> -- tree_y : TBasicType TInt32
IO ()
treeViewScrollToPoint ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- tree_x
Int32 -> -- tree_y
m ()
treeViewScrollToPoint _obj tree_x tree_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_scroll_to_point _obj' tree_x tree_y
touchManagedPtr _obj
return ()
-- method TreeView::set_activate_on_single_click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- single : TBasicType TBoolean
IO ()
treeViewSetActivateOnSingleClick ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- single
m ()
treeViewSetActivateOnSingleClick _obj single = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single' = (fromIntegral . fromEnum) single
gtk_tree_view_set_activate_on_single_click _obj' single'
touchManagedPtr _obj
return ()
-- method TreeView::set_column_drag_function
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeViewColumnDropFuncC -> -- func : TInterface "Gtk" "TreeViewColumnDropFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewSetColumnDragFunction ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Maybe (TreeViewColumnDropFunc) -> -- func
m ()
treeViewSetColumnDragFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeViewColumnDropFunc (treeViewColumnDropFuncWrapper Nothing jFunc)
return jFunc'
let user_data = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_set_column_drag_function _obj' maybeFunc user_data destroy
touchManagedPtr _obj
return ()
-- method TreeView::set_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn"
CInt -> -- start_editing : TBasicType TBoolean
IO ()
treeViewSetCursor ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
TreePath -> -- path
Maybe (b) -> -- focus_column
Bool -> -- start_editing
m ()
treeViewSetCursor _obj path focus_column start_editing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
maybeFocus_column <- case focus_column of
Nothing -> return nullPtr
Just jFocus_column -> do
let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column
return jFocus_column'
let start_editing' = (fromIntegral . fromEnum) start_editing
gtk_tree_view_set_cursor _obj' path' maybeFocus_column start_editing'
touchManagedPtr _obj
touchManagedPtr path
whenJust focus_column touchManagedPtr
return ()
-- method TreeView::set_cursor_on_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- focus_cell : TInterface "Gtk" "CellRenderer"
CInt -> -- start_editing : TBasicType TBoolean
IO ()
treeViewSetCursorOnCell ::
(MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) =>
a -> -- _obj
TreePath -> -- path
Maybe (b) -> -- focus_column
Maybe (c) -> -- focus_cell
Bool -> -- start_editing
m ()
treeViewSetCursorOnCell _obj path focus_column focus_cell start_editing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let path' = unsafeManagedPtrGetPtr path
maybeFocus_column <- case focus_column of
Nothing -> return nullPtr
Just jFocus_column -> do
let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column
return jFocus_column'
maybeFocus_cell <- case focus_cell of
Nothing -> return nullPtr
Just jFocus_cell -> do
let jFocus_cell' = unsafeManagedPtrCastPtr jFocus_cell
return jFocus_cell'
let start_editing' = (fromIntegral . fromEnum) start_editing
gtk_tree_view_set_cursor_on_cell _obj' path' maybeFocus_column maybeFocus_cell start_editing'
touchManagedPtr _obj
touchManagedPtr path
whenJust focus_column touchManagedPtr
whenJust focus_cell touchManagedPtr
return ()
-- method TreeView::set_destroy_count_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeDestroyCountFuncC -> -- func : TInterface "Gtk" "TreeDestroyCountFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
{-# DEPRECATED treeViewSetDestroyCountFunc ["(Since version 3.4)","Accessibility does not need the function anymore."]#-}
treeViewSetDestroyCountFunc ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Maybe (TreeDestroyCountFunc) -> -- func
m ()
treeViewSetDestroyCountFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeDestroyCountFunc (treeDestroyCountFuncWrapper Nothing jFunc)
return jFunc'
let data_ = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_set_destroy_count_func _obj' maybeFunc data_ destroy
touchManagedPtr _obj
return ()
-- method TreeView::set_drag_dest_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_drag_dest_row" gtk_tree_view_set_drag_dest_row ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition"
IO ()
treeViewSetDragDestRow ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Maybe (TreePath) -> -- path
TreeViewDropPosition -> -- pos
m ()
treeViewSetDragDestRow _obj path pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
let pos' = (fromIntegral . fromEnum) pos
gtk_tree_view_set_drag_dest_row _obj' maybePath pos'
touchManagedPtr _obj
whenJust path touchManagedPtr
return ()
-- method TreeView::set_enable_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- enable_search : TBasicType TBoolean
IO ()
treeViewSetEnableSearch ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- enable_search
m ()
treeViewSetEnableSearch _obj enable_search = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enable_search' = (fromIntegral . fromEnum) enable_search
gtk_tree_view_set_enable_search _obj' enable_search'
touchManagedPtr _obj
return ()
-- method TreeView::set_enable_tree_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- enabled : TBasicType TBoolean
IO ()
treeViewSetEnableTreeLines ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- enabled
m ()
treeViewSetEnableTreeLines _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
gtk_tree_view_set_enable_tree_lines _obj' enabled'
touchManagedPtr _obj
return ()
-- method TreeView::set_expander_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewSetExpanderColumn ::
(MonadIO m, TreeViewK a, TreeViewColumnK b) =>
a -> -- _obj
b -> -- column
m ()
treeViewSetExpanderColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let column' = unsafeManagedPtrCastPtr column
gtk_tree_view_set_expander_column _obj' column'
touchManagedPtr _obj
touchManagedPtr column
return ()
-- method TreeView::set_fixed_height_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- enable : TBasicType TBoolean
IO ()
treeViewSetFixedHeightMode ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- enable
m ()
treeViewSetFixedHeightMode _obj enable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enable' = (fromIntegral . fromEnum) enable
gtk_tree_view_set_fixed_height_mode _obj' enable'
touchManagedPtr _obj
return ()
-- method TreeView::set_grid_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CUInt -> -- grid_lines : TInterface "Gtk" "TreeViewGridLines"
IO ()
treeViewSetGridLines ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreeViewGridLines -> -- grid_lines
m ()
treeViewSetGridLines _obj grid_lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let grid_lines' = (fromIntegral . fromEnum) grid_lines
gtk_tree_view_set_grid_lines _obj' grid_lines'
touchManagedPtr _obj
return ()
-- method TreeView::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_hadjustment" gtk_tree_view_set_hadjustment ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED treeViewSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-}
treeViewSetHadjustment ::
(MonadIO m, TreeViewK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
treeViewSetHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_tree_view_set_hadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method TreeView::set_headers_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_headers_clickable" gtk_tree_view_set_headers_clickable ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- setting : TBasicType TBoolean
IO ()
treeViewSetHeadersClickable ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- setting
m ()
treeViewSetHeadersClickable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_tree_view_set_headers_clickable _obj' setting'
touchManagedPtr _obj
return ()
-- method TreeView::set_headers_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_headers_visible" gtk_tree_view_set_headers_visible ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- headers_visible : TBasicType TBoolean
IO ()
treeViewSetHeadersVisible ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- headers_visible
m ()
treeViewSetHeadersVisible _obj headers_visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let headers_visible' = (fromIntegral . fromEnum) headers_visible
gtk_tree_view_set_headers_visible _obj' headers_visible'
touchManagedPtr _obj
return ()
-- method TreeView::set_hover_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewSetHoverExpand ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- expand
m ()
treeViewSetHoverExpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_set_hover_expand _obj' expand'
touchManagedPtr _obj
return ()
-- method TreeView::set_hover_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- hover : TBasicType TBoolean
IO ()
treeViewSetHoverSelection ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- hover
m ()
treeViewSetHoverSelection _obj hover = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hover' = (fromIntegral . fromEnum) hover
gtk_tree_view_set_hover_selection _obj' hover'
touchManagedPtr _obj
return ()
-- method TreeView::set_level_indentation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- indentation : TBasicType TInt32
IO ()
treeViewSetLevelIndentation ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- indentation
m ()
treeViewSetLevelIndentation _obj indentation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_set_level_indentation _obj' indentation
touchManagedPtr _obj
return ()
-- method TreeView::set_model
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel"
IO ()
treeViewSetModel ::
(MonadIO m, TreeViewK a, TreeModelK b) =>
a -> -- _obj
Maybe (b) -> -- model
m ()
treeViewSetModel _obj model = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
let jModel' = unsafeManagedPtrCastPtr jModel
return jModel'
gtk_tree_view_set_model _obj' maybeModel
touchManagedPtr _obj
whenJust model touchManagedPtr
return ()
-- method TreeView::set_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- reorderable : TBasicType TBoolean
IO ()
treeViewSetReorderable ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- reorderable
m ()
treeViewSetReorderable _obj reorderable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_tree_view_set_reorderable _obj' reorderable'
touchManagedPtr _obj
return ()
-- method TreeView::set_row_separator_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewSetRowSeparatorFunc ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Maybe (TreeViewRowSeparatorFunc) -> -- func
m ()
treeViewSetRowSeparatorFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing jFunc)
return jFunc'
let data_ = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_set_row_separator_func _obj' maybeFunc data_ destroy
touchManagedPtr _obj
return ()
-- method TreeView::set_rubber_banding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- enable : TBasicType TBoolean
IO ()
treeViewSetRubberBanding ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- enable
m ()
treeViewSetRubberBanding _obj enable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enable' = (fromIntegral . fromEnum) enable
gtk_tree_view_set_rubber_banding _obj' enable'
touchManagedPtr _obj
return ()
-- method TreeView::set_rules_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_rules_hint" gtk_tree_view_set_rules_hint ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- setting : TBasicType TBoolean
IO ()
{-# DEPRECATED treeViewSetRulesHint ["(Since version 3.14)"]#-}
treeViewSetRulesHint ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- setting
m ()
treeViewSetRulesHint _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_tree_view_set_rules_hint _obj' setting'
touchManagedPtr _obj
return ()
-- method TreeView::set_search_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- column : TBasicType TInt32
IO ()
treeViewSetSearchColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
treeViewSetSearchColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_set_search_column _obj' column
touchManagedPtr _obj
return ()
-- method TreeView::set_search_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Entry -> -- entry : TInterface "Gtk" "Entry"
IO ()
treeViewSetSearchEntry ::
(MonadIO m, TreeViewK a, EntryK b) =>
a -> -- _obj
Maybe (b) -> -- entry
m ()
treeViewSetSearchEntry _obj entry = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeEntry <- case entry of
Nothing -> return nullPtr
Just jEntry -> do
let jEntry' = unsafeManagedPtrCastPtr jEntry
return jEntry'
gtk_tree_view_set_search_entry _obj' maybeEntry
touchManagedPtr _obj
whenJust entry touchManagedPtr
return ()
-- method TreeView::set_search_equal_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "search_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeViewSearchEqualFuncC -> -- search_equal_func : TInterface "Gtk" "TreeViewSearchEqualFunc"
Ptr () -> -- search_user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewSetSearchEqualFunc ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
TreeViewSearchEqualFunc -> -- search_equal_func
m ()
treeViewSetSearchEqualFunc _obj search_equal_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
search_equal_func' <- mkTreeViewSearchEqualFunc (treeViewSearchEqualFuncWrapper Nothing search_equal_func)
let search_user_data = castFunPtrToPtr search_equal_func'
let search_destroy = safeFreeFunPtrPtr
gtk_tree_view_set_search_equal_func _obj' search_equal_func' search_user_data search_destroy
touchManagedPtr _obj
return ()
-- method TreeView::set_search_position_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
FunPtr TreeViewSearchPositionFuncC -> -- func : TInterface "Gtk" "TreeViewSearchPositionFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewSetSearchPositionFunc ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Maybe (TreeViewSearchPositionFunc) -> -- func
m ()
treeViewSetSearchPositionFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeViewSearchPositionFunc (treeViewSearchPositionFuncWrapper Nothing jFunc)
return jFunc'
let data_ = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_set_search_position_func _obj' maybeFunc data_ destroy
touchManagedPtr _obj
return ()
-- method TreeView::set_show_expanders
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
CInt -> -- enabled : TBasicType TBoolean
IO ()
treeViewSetShowExpanders ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Bool -> -- enabled
m ()
treeViewSetShowExpanders _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
gtk_tree_view_set_show_expanders _obj' enabled'
touchManagedPtr _obj
return ()
-- method TreeView::set_tooltip_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
IO ()
treeViewSetTooltipCell ::
(MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) =>
a -> -- _obj
b -> -- tooltip
Maybe (TreePath) -> -- path
Maybe (c) -> -- column
Maybe (d) -> -- cell
m ()
treeViewSetTooltipCell _obj tooltip path column cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tooltip' = unsafeManagedPtrCastPtr tooltip
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
let jPath' = unsafeManagedPtrGetPtr jPath
return jPath'
maybeColumn <- case column of
Nothing -> return nullPtr
Just jColumn -> do
let jColumn' = unsafeManagedPtrCastPtr jColumn
return jColumn'
maybeCell <- case cell of
Nothing -> return nullPtr
Just jCell -> do
let jCell' = unsafeManagedPtrCastPtr jCell
return jCell'
gtk_tree_view_set_tooltip_cell _obj' tooltip' maybePath maybeColumn maybeCell
touchManagedPtr _obj
touchManagedPtr tooltip
whenJust path touchManagedPtr
whenJust column touchManagedPtr
whenJust cell touchManagedPtr
return ()
-- method TreeView::set_tooltip_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Int32 -> -- column : TBasicType TInt32
IO ()
treeViewSetTooltipColumn ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
Int32 -> -- column
m ()
treeViewSetTooltipColumn _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_set_tooltip_column _obj' column
touchManagedPtr _obj
return ()
-- method TreeView::set_tooltip_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeViewSetTooltipRow ::
(MonadIO m, TreeViewK a, TooltipK b) =>
a -> -- _obj
b -> -- tooltip
TreePath -> -- path
m ()
treeViewSetTooltipRow _obj tooltip path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tooltip' = unsafeManagedPtrCastPtr tooltip
let path' = unsafeManagedPtrGetPtr path
gtk_tree_view_set_tooltip_row _obj' tooltip' path'
touchManagedPtr _obj
touchManagedPtr tooltip
touchManagedPtr path
return ()
-- method TreeView::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_set_vadjustment" gtk_tree_view_set_vadjustment ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED treeViewSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-}
treeViewSetVadjustment ::
(MonadIO m, TreeViewK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
treeViewSetVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_tree_view_set_vadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method TreeView::unset_rows_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO ()
treeViewUnsetRowsDragDest ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ()
treeViewUnsetRowsDragDest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_unset_rows_drag_dest _obj'
touchManagedPtr _obj
return ()
-- method TreeView::unset_rows_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source ::
Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView"
IO ()
treeViewUnsetRowsDragSource ::
(MonadIO m, TreeViewK a) =>
a -> -- _obj
m ()
treeViewUnsetRowsDragSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_unset_rows_drag_source _obj'
touchManagedPtr _obj
return ()
-- signal TreeView::columns-changed
type TreeViewColumnsChangedCallback =
IO ()
noTreeViewColumnsChangedCallback :: Maybe TreeViewColumnsChangedCallback
noTreeViewColumnsChangedCallback = Nothing
type TreeViewColumnsChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewColumnsChangedCallback :: TreeViewColumnsChangedCallbackC -> IO (FunPtr TreeViewColumnsChangedCallbackC)
treeViewColumnsChangedClosure :: TreeViewColumnsChangedCallback -> IO Closure
treeViewColumnsChangedClosure cb = newCClosure =<< mkTreeViewColumnsChangedCallback wrapped
where wrapped = treeViewColumnsChangedCallbackWrapper cb
treeViewColumnsChangedCallbackWrapper ::
TreeViewColumnsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeViewColumnsChangedCallbackWrapper _cb _ _ = do
_cb
onTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId
onTreeViewColumnsChanged obj cb = liftIO $ connectTreeViewColumnsChanged obj cb SignalConnectBefore
afterTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId
afterTreeViewColumnsChanged obj cb = connectTreeViewColumnsChanged obj cb SignalConnectAfter
connectTreeViewColumnsChanged :: (GObject a, MonadIO m) =>
a -> TreeViewColumnsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewColumnsChanged obj cb after = liftIO $ do
cb' <- mkTreeViewColumnsChangedCallback (treeViewColumnsChangedCallbackWrapper cb)
connectSignalFunPtr obj "columns-changed" cb' after
-- signal TreeView::cursor-changed
type TreeViewCursorChangedCallback =
IO ()
noTreeViewCursorChangedCallback :: Maybe TreeViewCursorChangedCallback
noTreeViewCursorChangedCallback = Nothing
type TreeViewCursorChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewCursorChangedCallback :: TreeViewCursorChangedCallbackC -> IO (FunPtr TreeViewCursorChangedCallbackC)
treeViewCursorChangedClosure :: TreeViewCursorChangedCallback -> IO Closure
treeViewCursorChangedClosure cb = newCClosure =<< mkTreeViewCursorChangedCallback wrapped
where wrapped = treeViewCursorChangedCallbackWrapper cb
treeViewCursorChangedCallbackWrapper ::
TreeViewCursorChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeViewCursorChangedCallbackWrapper _cb _ _ = do
_cb
onTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId
onTreeViewCursorChanged obj cb = liftIO $ connectTreeViewCursorChanged obj cb SignalConnectBefore
afterTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId
afterTreeViewCursorChanged obj cb = connectTreeViewCursorChanged obj cb SignalConnectAfter
connectTreeViewCursorChanged :: (GObject a, MonadIO m) =>
a -> TreeViewCursorChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewCursorChanged obj cb after = liftIO $ do
cb' <- mkTreeViewCursorChangedCallback (treeViewCursorChangedCallbackWrapper cb)
connectSignalFunPtr obj "cursor-changed" cb' after
-- signal TreeView::expand-collapse-cursor-row
type TreeViewExpandCollapseCursorRowCallback =
Bool ->
Bool ->
Bool ->
IO Bool
noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback
noTreeViewExpandCollapseCursorRowCallback = Nothing
type TreeViewExpandCollapseCursorRowCallbackC =
Ptr () -> -- object
CInt ->
CInt ->
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewExpandCollapseCursorRowCallback :: TreeViewExpandCollapseCursorRowCallbackC -> IO (FunPtr TreeViewExpandCollapseCursorRowCallbackC)
treeViewExpandCollapseCursorRowClosure :: TreeViewExpandCollapseCursorRowCallback -> IO Closure
treeViewExpandCollapseCursorRowClosure cb = newCClosure =<< mkTreeViewExpandCollapseCursorRowCallback wrapped
where wrapped = treeViewExpandCollapseCursorRowCallbackWrapper cb
treeViewExpandCollapseCursorRowCallbackWrapper ::
TreeViewExpandCollapseCursorRowCallback ->
Ptr () ->
CInt ->
CInt ->
CInt ->
Ptr () ->
IO CInt
treeViewExpandCollapseCursorRowCallbackWrapper _cb _ object p0 p1 _ = do
let object' = (/= 0) object
let p0' = (/= 0) p0
let p1' = (/= 0) p1
result <- _cb object' p0' p1'
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
onTreeViewExpandCollapseCursorRow obj cb = liftIO $ connectTreeViewExpandCollapseCursorRow obj cb SignalConnectBefore
afterTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow obj cb = connectTreeViewExpandCollapseCursorRow obj cb SignalConnectAfter
connectTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) =>
a -> TreeViewExpandCollapseCursorRowCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewExpandCollapseCursorRow obj cb after = liftIO $ do
cb' <- mkTreeViewExpandCollapseCursorRowCallback (treeViewExpandCollapseCursorRowCallbackWrapper cb)
connectSignalFunPtr obj "expand-collapse-cursor-row" cb' after
-- signal TreeView::move-cursor
type TreeViewMoveCursorCallback =
MovementStep ->
Int32 ->
IO Bool
noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback
noTreeViewMoveCursorCallback = Nothing
type TreeViewMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewMoveCursorCallback :: TreeViewMoveCursorCallbackC -> IO (FunPtr TreeViewMoveCursorCallbackC)
treeViewMoveCursorClosure :: TreeViewMoveCursorCallback -> IO Closure
treeViewMoveCursorClosure cb = newCClosure =<< mkTreeViewMoveCursorCallback wrapped
where wrapped = treeViewMoveCursorCallbackWrapper cb
treeViewMoveCursorCallbackWrapper ::
TreeViewMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
treeViewMoveCursorCallbackWrapper _cb _ step direction _ = do
let step' = (toEnum . fromIntegral) step
result <- _cb step' direction
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId
onTreeViewMoveCursor obj cb = liftIO $ connectTreeViewMoveCursor obj cb SignalConnectBefore
afterTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId
afterTreeViewMoveCursor obj cb = connectTreeViewMoveCursor obj cb SignalConnectAfter
connectTreeViewMoveCursor :: (GObject a, MonadIO m) =>
a -> TreeViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewMoveCursor obj cb after = liftIO $ do
cb' <- mkTreeViewMoveCursorCallback (treeViewMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal TreeView::row-activated
type TreeViewRowActivatedCallback =
TreePath ->
TreeViewColumn ->
IO ()
noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback
noTreeViewRowActivatedCallback = Nothing
type TreeViewRowActivatedCallbackC =
Ptr () -> -- object
Ptr TreePath ->
Ptr TreeViewColumn ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewRowActivatedCallback :: TreeViewRowActivatedCallbackC -> IO (FunPtr TreeViewRowActivatedCallbackC)
treeViewRowActivatedClosure :: TreeViewRowActivatedCallback -> IO Closure
treeViewRowActivatedClosure cb = newCClosure =<< mkTreeViewRowActivatedCallback wrapped
where wrapped = treeViewRowActivatedCallbackWrapper cb
treeViewRowActivatedCallbackWrapper ::
TreeViewRowActivatedCallback ->
Ptr () ->
Ptr TreePath ->
Ptr TreeViewColumn ->
Ptr () ->
IO ()
treeViewRowActivatedCallbackWrapper _cb _ path column _ = do
path' <- (newBoxed TreePath) path
column' <- (newObject TreeViewColumn) column
_cb path' column'
onTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId
onTreeViewRowActivated obj cb = liftIO $ connectTreeViewRowActivated obj cb SignalConnectBefore
afterTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId
afterTreeViewRowActivated obj cb = connectTreeViewRowActivated obj cb SignalConnectAfter
connectTreeViewRowActivated :: (GObject a, MonadIO m) =>
a -> TreeViewRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewRowActivated obj cb after = liftIO $ do
cb' <- mkTreeViewRowActivatedCallback (treeViewRowActivatedCallbackWrapper cb)
connectSignalFunPtr obj "row-activated" cb' after
-- signal TreeView::row-collapsed
type TreeViewRowCollapsedCallback =
TreeIter ->
TreePath ->
IO ()
noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback
noTreeViewRowCollapsedCallback = Nothing
type TreeViewRowCollapsedCallbackC =
Ptr () -> -- object
Ptr TreeIter ->
Ptr TreePath ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewRowCollapsedCallback :: TreeViewRowCollapsedCallbackC -> IO (FunPtr TreeViewRowCollapsedCallbackC)
treeViewRowCollapsedClosure :: TreeViewRowCollapsedCallback -> IO Closure
treeViewRowCollapsedClosure cb = newCClosure =<< mkTreeViewRowCollapsedCallback wrapped
where wrapped = treeViewRowCollapsedCallbackWrapper cb
treeViewRowCollapsedCallbackWrapper ::
TreeViewRowCollapsedCallback ->
Ptr () ->
Ptr TreeIter ->
Ptr TreePath ->
Ptr () ->
IO ()
treeViewRowCollapsedCallbackWrapper _cb _ iter path _ = do
iter' <- (newBoxed TreeIter) iter
path' <- (newBoxed TreePath) path
_cb iter' path'
onTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowCollapsed obj cb = liftIO $ connectTreeViewRowCollapsed obj cb SignalConnectBefore
afterTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowCollapsed obj cb = connectTreeViewRowCollapsed obj cb SignalConnectAfter
connectTreeViewRowCollapsed :: (GObject a, MonadIO m) =>
a -> TreeViewRowCollapsedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewRowCollapsed obj cb after = liftIO $ do
cb' <- mkTreeViewRowCollapsedCallback (treeViewRowCollapsedCallbackWrapper cb)
connectSignalFunPtr obj "row-collapsed" cb' after
-- signal TreeView::row-expanded
type TreeViewRowExpandedCallback =
TreeIter ->
TreePath ->
IO ()
noTreeViewRowExpandedCallback :: Maybe TreeViewRowExpandedCallback
noTreeViewRowExpandedCallback = Nothing
type TreeViewRowExpandedCallbackC =
Ptr () -> -- object
Ptr TreeIter ->
Ptr TreePath ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewRowExpandedCallback :: TreeViewRowExpandedCallbackC -> IO (FunPtr TreeViewRowExpandedCallbackC)
treeViewRowExpandedClosure :: TreeViewRowExpandedCallback -> IO Closure
treeViewRowExpandedClosure cb = newCClosure =<< mkTreeViewRowExpandedCallback wrapped
where wrapped = treeViewRowExpandedCallbackWrapper cb
treeViewRowExpandedCallbackWrapper ::
TreeViewRowExpandedCallback ->
Ptr () ->
Ptr TreeIter ->
Ptr TreePath ->
Ptr () ->
IO ()
treeViewRowExpandedCallbackWrapper _cb _ iter path _ = do
iter' <- (newBoxed TreeIter) iter
path' <- (newBoxed TreePath) path
_cb iter' path'
onTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId
onTreeViewRowExpanded obj cb = liftIO $ connectTreeViewRowExpanded obj cb SignalConnectBefore
afterTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId
afterTreeViewRowExpanded obj cb = connectTreeViewRowExpanded obj cb SignalConnectAfter
connectTreeViewRowExpanded :: (GObject a, MonadIO m) =>
a -> TreeViewRowExpandedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewRowExpanded obj cb after = liftIO $ do
cb' <- mkTreeViewRowExpandedCallback (treeViewRowExpandedCallbackWrapper cb)
connectSignalFunPtr obj "row-expanded" cb' after
-- signal TreeView::select-all
type TreeViewSelectAllCallback =
IO Bool
noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback
noTreeViewSelectAllCallback = Nothing
type TreeViewSelectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewSelectAllCallback :: TreeViewSelectAllCallbackC -> IO (FunPtr TreeViewSelectAllCallbackC)
treeViewSelectAllClosure :: TreeViewSelectAllCallback -> IO Closure
treeViewSelectAllClosure cb = newCClosure =<< mkTreeViewSelectAllCallback wrapped
where wrapped = treeViewSelectAllCallbackWrapper cb
treeViewSelectAllCallbackWrapper ::
TreeViewSelectAllCallback ->
Ptr () ->
Ptr () ->
IO CInt
treeViewSelectAllCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectAll obj cb = liftIO $ connectTreeViewSelectAll obj cb SignalConnectBefore
afterTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectAll obj cb = connectTreeViewSelectAll obj cb SignalConnectAfter
connectTreeViewSelectAll :: (GObject a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewSelectAll obj cb after = liftIO $ do
cb' <- mkTreeViewSelectAllCallback (treeViewSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal TreeView::select-cursor-parent
type TreeViewSelectCursorParentCallback =
IO Bool
noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectCursorParentCallback
noTreeViewSelectCursorParentCallback = Nothing
type TreeViewSelectCursorParentCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewSelectCursorParentCallback :: TreeViewSelectCursorParentCallbackC -> IO (FunPtr TreeViewSelectCursorParentCallbackC)
treeViewSelectCursorParentClosure :: TreeViewSelectCursorParentCallback -> IO Closure
treeViewSelectCursorParentClosure cb = newCClosure =<< mkTreeViewSelectCursorParentCallback wrapped
where wrapped = treeViewSelectCursorParentCallbackWrapper cb
treeViewSelectCursorParentCallbackWrapper ::
TreeViewSelectCursorParentCallback ->
Ptr () ->
Ptr () ->
IO CInt
treeViewSelectCursorParentCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId
onTreeViewSelectCursorParent obj cb = liftIO $ connectTreeViewSelectCursorParent obj cb SignalConnectBefore
afterTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId
afterTreeViewSelectCursorParent obj cb = connectTreeViewSelectCursorParent obj cb SignalConnectAfter
connectTreeViewSelectCursorParent :: (GObject a, MonadIO m) =>
a -> TreeViewSelectCursorParentCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewSelectCursorParent obj cb after = liftIO $ do
cb' <- mkTreeViewSelectCursorParentCallback (treeViewSelectCursorParentCallbackWrapper cb)
connectSignalFunPtr obj "select-cursor-parent" cb' after
-- signal TreeView::select-cursor-row
type TreeViewSelectCursorRowCallback =
Bool ->
IO Bool
noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback
noTreeViewSelectCursorRowCallback = Nothing
type TreeViewSelectCursorRowCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewSelectCursorRowCallback :: TreeViewSelectCursorRowCallbackC -> IO (FunPtr TreeViewSelectCursorRowCallbackC)
treeViewSelectCursorRowClosure :: TreeViewSelectCursorRowCallback -> IO Closure
treeViewSelectCursorRowClosure cb = newCClosure =<< mkTreeViewSelectCursorRowCallback wrapped
where wrapped = treeViewSelectCursorRowCallbackWrapper cb
treeViewSelectCursorRowCallbackWrapper ::
TreeViewSelectCursorRowCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
treeViewSelectCursorRowCallbackWrapper _cb _ object _ = do
let object' = (/= 0) object
result <- _cb object'
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
onTreeViewSelectCursorRow obj cb = liftIO $ connectTreeViewSelectCursorRow obj cb SignalConnectBefore
afterTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
afterTreeViewSelectCursorRow obj cb = connectTreeViewSelectCursorRow obj cb SignalConnectAfter
connectTreeViewSelectCursorRow :: (GObject a, MonadIO m) =>
a -> TreeViewSelectCursorRowCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewSelectCursorRow obj cb after = liftIO $ do
cb' <- mkTreeViewSelectCursorRowCallback (treeViewSelectCursorRowCallbackWrapper cb)
connectSignalFunPtr obj "select-cursor-row" cb' after
-- signal TreeView::start-interactive-search
type TreeViewStartInteractiveSearchCallback =
IO Bool
noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewStartInteractiveSearchCallback
noTreeViewStartInteractiveSearchCallback = Nothing
type TreeViewStartInteractiveSearchCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewStartInteractiveSearchCallback :: TreeViewStartInteractiveSearchCallbackC -> IO (FunPtr TreeViewStartInteractiveSearchCallbackC)
treeViewStartInteractiveSearchClosure :: TreeViewStartInteractiveSearchCallback -> IO Closure
treeViewStartInteractiveSearchClosure cb = newCClosure =<< mkTreeViewStartInteractiveSearchCallback wrapped
where wrapped = treeViewStartInteractiveSearchCallbackWrapper cb
treeViewStartInteractiveSearchCallbackWrapper ::
TreeViewStartInteractiveSearchCallback ->
Ptr () ->
Ptr () ->
IO CInt
treeViewStartInteractiveSearchCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId
onTreeViewStartInteractiveSearch obj cb = liftIO $ connectTreeViewStartInteractiveSearch obj cb SignalConnectBefore
afterTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId
afterTreeViewStartInteractiveSearch obj cb = connectTreeViewStartInteractiveSearch obj cb SignalConnectAfter
connectTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) =>
a -> TreeViewStartInteractiveSearchCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewStartInteractiveSearch obj cb after = liftIO $ do
cb' <- mkTreeViewStartInteractiveSearchCallback (treeViewStartInteractiveSearchCallbackWrapper cb)
connectSignalFunPtr obj "start-interactive-search" cb' after
-- signal TreeView::test-collapse-row
type TreeViewTestCollapseRowCallback =
TreeIter ->
TreePath ->
IO Bool
noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback
noTreeViewTestCollapseRowCallback = Nothing
type TreeViewTestCollapseRowCallbackC =
Ptr () -> -- object
Ptr TreeIter ->
Ptr TreePath ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewTestCollapseRowCallback :: TreeViewTestCollapseRowCallbackC -> IO (FunPtr TreeViewTestCollapseRowCallbackC)
treeViewTestCollapseRowClosure :: TreeViewTestCollapseRowCallback -> IO Closure
treeViewTestCollapseRowClosure cb = newCClosure =<< mkTreeViewTestCollapseRowCallback wrapped
where wrapped = treeViewTestCollapseRowCallbackWrapper cb
treeViewTestCollapseRowCallbackWrapper ::
TreeViewTestCollapseRowCallback ->
Ptr () ->
Ptr TreeIter ->
Ptr TreePath ->
Ptr () ->
IO CInt
treeViewTestCollapseRowCallbackWrapper _cb _ iter path _ = do
iter' <- (newBoxed TreeIter) iter
path' <- (newBoxed TreePath) path
result <- _cb iter' path'
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestCollapseRow obj cb = liftIO $ connectTreeViewTestCollapseRow obj cb SignalConnectBefore
afterTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestCollapseRow obj cb = connectTreeViewTestCollapseRow obj cb SignalConnectAfter
connectTreeViewTestCollapseRow :: (GObject a, MonadIO m) =>
a -> TreeViewTestCollapseRowCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewTestCollapseRow obj cb after = liftIO $ do
cb' <- mkTreeViewTestCollapseRowCallback (treeViewTestCollapseRowCallbackWrapper cb)
connectSignalFunPtr obj "test-collapse-row" cb' after
-- signal TreeView::test-expand-row
type TreeViewTestExpandRowCallback =
TreeIter ->
TreePath ->
IO Bool
noTreeViewTestExpandRowCallback :: Maybe TreeViewTestExpandRowCallback
noTreeViewTestExpandRowCallback = Nothing
type TreeViewTestExpandRowCallbackC =
Ptr () -> -- object
Ptr TreeIter ->
Ptr TreePath ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewTestExpandRowCallback :: TreeViewTestExpandRowCallbackC -> IO (FunPtr TreeViewTestExpandRowCallbackC)
treeViewTestExpandRowClosure :: TreeViewTestExpandRowCallback -> IO Closure
treeViewTestExpandRowClosure cb = newCClosure =<< mkTreeViewTestExpandRowCallback wrapped
where wrapped = treeViewTestExpandRowCallbackWrapper cb
treeViewTestExpandRowCallbackWrapper ::
TreeViewTestExpandRowCallback ->
Ptr () ->
Ptr TreeIter ->
Ptr TreePath ->
Ptr () ->
IO CInt
treeViewTestExpandRowCallbackWrapper _cb _ iter path _ = do
iter' <- (newBoxed TreeIter) iter
path' <- (newBoxed TreePath) path
result <- _cb iter' path'
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId
onTreeViewTestExpandRow obj cb = liftIO $ connectTreeViewTestExpandRow obj cb SignalConnectBefore
afterTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId
afterTreeViewTestExpandRow obj cb = connectTreeViewTestExpandRow obj cb SignalConnectAfter
connectTreeViewTestExpandRow :: (GObject a, MonadIO m) =>
a -> TreeViewTestExpandRowCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewTestExpandRow obj cb after = liftIO $ do
cb' <- mkTreeViewTestExpandRowCallback (treeViewTestExpandRowCallbackWrapper cb)
connectSignalFunPtr obj "test-expand-row" cb' after
-- signal TreeView::toggle-cursor-row
type TreeViewToggleCursorRowCallback =
IO Bool
noTreeViewToggleCursorRowCallback :: Maybe TreeViewToggleCursorRowCallback
noTreeViewToggleCursorRowCallback = Nothing
type TreeViewToggleCursorRowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewToggleCursorRowCallback :: TreeViewToggleCursorRowCallbackC -> IO (FunPtr TreeViewToggleCursorRowCallbackC)
treeViewToggleCursorRowClosure :: TreeViewToggleCursorRowCallback -> IO Closure
treeViewToggleCursorRowClosure cb = newCClosure =<< mkTreeViewToggleCursorRowCallback wrapped
where wrapped = treeViewToggleCursorRowCallbackWrapper cb
treeViewToggleCursorRowCallbackWrapper ::
TreeViewToggleCursorRowCallback ->
Ptr () ->
Ptr () ->
IO CInt
treeViewToggleCursorRowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId
onTreeViewToggleCursorRow obj cb = liftIO $ connectTreeViewToggleCursorRow obj cb SignalConnectBefore
afterTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId
afterTreeViewToggleCursorRow obj cb = connectTreeViewToggleCursorRow obj cb SignalConnectAfter
connectTreeViewToggleCursorRow :: (GObject a, MonadIO m) =>
a -> TreeViewToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewToggleCursorRow obj cb after = liftIO $ do
cb' <- mkTreeViewToggleCursorRowCallback (treeViewToggleCursorRowCallbackWrapper cb)
connectSignalFunPtr obj "toggle-cursor-row" cb' after
-- signal TreeView::unselect-all
type TreeViewUnselectAllCallback =
IO Bool
noTreeViewUnselectAllCallback :: Maybe TreeViewUnselectAllCallback
noTreeViewUnselectAllCallback = Nothing
type TreeViewUnselectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkTreeViewUnselectAllCallback :: TreeViewUnselectAllCallbackC -> IO (FunPtr TreeViewUnselectAllCallbackC)
treeViewUnselectAllClosure :: TreeViewUnselectAllCallback -> IO Closure
treeViewUnselectAllClosure cb = newCClosure =<< mkTreeViewUnselectAllCallback wrapped
where wrapped = treeViewUnselectAllCallbackWrapper cb
treeViewUnselectAllCallbackWrapper ::
TreeViewUnselectAllCallback ->
Ptr () ->
Ptr () ->
IO CInt
treeViewUnselectAllCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId
onTreeViewUnselectAll obj cb = liftIO $ connectTreeViewUnselectAll obj cb SignalConnectBefore
afterTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId
afterTreeViewUnselectAll obj cb = connectTreeViewUnselectAll obj cb SignalConnectAfter
connectTreeViewUnselectAll :: (GObject a, MonadIO m) =>
a -> TreeViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewUnselectAll obj cb after = liftIO $ do
cb' <- mkTreeViewUnselectAllCallback (treeViewUnselectAllCallbackWrapper cb)
connectSignalFunPtr obj "unselect-all" cb' after
-- object TreeViewAccessible
newtype TreeViewAccessible = TreeViewAccessible (ForeignPtr TreeViewAccessible)
noTreeViewAccessible :: Maybe TreeViewAccessible
noTreeViewAccessible = Nothing
foreign import ccall "gtk_tree_view_accessible_get_type"
c_gtk_tree_view_accessible_get_type :: IO GType
type instance ParentTypes TreeViewAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection, Atk.Table, CellAccessibleParent]
instance GObject TreeViewAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_tree_view_accessible_get_type
class GObject o => TreeViewAccessibleK o
instance (GObject o, IsDescendantOf TreeViewAccessible o) => TreeViewAccessibleK o
toTreeViewAccessible :: TreeViewAccessibleK o => o -> IO TreeViewAccessible
toTreeViewAccessible = unsafeCastTo TreeViewAccessible
-- object TreeViewColumn
newtype TreeViewColumn = TreeViewColumn (ForeignPtr TreeViewColumn)
noTreeViewColumn :: Maybe TreeViewColumn
noTreeViewColumn = Nothing
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO GType
type instance ParentTypes TreeViewColumn = '[GObject.Object, Buildable, CellLayout]
instance GObject TreeViewColumn where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tree_view_column_get_type
class GObject o => TreeViewColumnK o
instance (GObject o, IsDescendantOf TreeViewColumn o) => TreeViewColumnK o
toTreeViewColumn :: TreeViewColumnK o => o -> IO TreeViewColumn
toTreeViewColumn = unsafeCastTo TreeViewColumn
-- method TreeViewColumn::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new ::
IO (Ptr TreeViewColumn)
treeViewColumnNew ::
(MonadIO m) =>
m TreeViewColumn
treeViewColumnNew = liftIO $ do
result <- gtk_tree_view_column_new
checkUnexpectedReturnNULL "gtk_tree_view_column_new" result
result' <- (newObject TreeViewColumn) result
return result'
-- method TreeViewColumn::new_with_area
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr TreeViewColumn)
treeViewColumnNewWithArea ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m TreeViewColumn
treeViewColumnNewWithArea area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_tree_view_column_new_with_area area'
checkUnexpectedReturnNULL "gtk_tree_view_column_new_with_area" result
result' <- (newObject TreeViewColumn) result
touchManagedPtr area
return result'
-- method TreeViewColumn::add_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
Int32 -> -- column : TBasicType TInt32
IO ()
treeViewColumnAddAttribute ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
T.Text -> -- attribute
Int32 -> -- column
m ()
treeViewColumnAddAttribute _obj cell_renderer attribute column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
attribute' <- textToCString attribute
gtk_tree_view_column_add_attribute _obj' cell_renderer' attribute' column
touchManagedPtr _obj
touchManagedPtr cell_renderer
freeMem attribute'
return ()
-- method TreeViewColumn::cell_get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
IO CInt
treeViewColumnCellGetPosition ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
m (Bool,Int32,Int32)
treeViewColumnCellGetPosition _obj cell_renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
x_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_column_cell_get_position _obj' cell_renderer' x_offset width
let result' = (/= 0) result
x_offset' <- peek x_offset
width' <- peek width
touchManagedPtr _obj
touchManagedPtr cell_renderer
freeMem x_offset
freeMem width
return (result', x_offset', width')
-- method TreeViewColumn::cell_get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- y_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
treeViewColumnCellGetSize ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Maybe (Gdk.Rectangle) -> -- cell_area
m (Int32,Int32,Int32,Int32)
treeViewColumnCellGetSize _obj cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCell_area <- case cell_area of
Nothing -> return nullPtr
Just jCell_area -> do
let jCell_area' = unsafeManagedPtrGetPtr jCell_area
return jCell_area'
x_offset <- allocMem :: IO (Ptr Int32)
y_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_tree_view_column_cell_get_size _obj' maybeCell_area x_offset y_offset width height
x_offset' <- peek x_offset
y_offset' <- peek y_offset
width' <- peek width
height' <- peek height
touchManagedPtr _obj
whenJust cell_area touchManagedPtr
freeMem x_offset
freeMem y_offset
freeMem width
freeMem height
return (x_offset', y_offset', width', height')
-- method TreeViewColumn::cell_is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnCellIsVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnCellIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_cell_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::cell_set_cell_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
CInt -> -- is_expander : TBasicType TBoolean
CInt -> -- is_expanded : TBasicType TBoolean
IO ()
treeViewColumnCellSetCellData ::
(MonadIO m, TreeViewColumnK a, TreeModelK b) =>
a -> -- _obj
b -> -- tree_model
TreeIter -> -- iter
Bool -> -- is_expander
Bool -> -- is_expanded
m ()
treeViewColumnCellSetCellData _obj tree_model iter is_expander is_expanded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tree_model' = unsafeManagedPtrCastPtr tree_model
let iter' = unsafeManagedPtrGetPtr iter
let is_expander' = (fromIntegral . fromEnum) is_expander
let is_expanded' = (fromIntegral . fromEnum) is_expanded
gtk_tree_view_column_cell_set_cell_data _obj' tree_model' iter' is_expander' is_expanded'
touchManagedPtr _obj
touchManagedPtr tree_model
touchManagedPtr iter
return ()
-- method TreeViewColumn::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clear" gtk_tree_view_column_clear ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnClear ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_clear _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::clear_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
IO ()
treeViewColumnClearAttributes ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
m ()
treeViewColumnClearAttributes _obj cell_renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
gtk_tree_view_column_clear_attributes _obj' cell_renderer'
touchManagedPtr _obj
touchManagedPtr cell_renderer
return ()
-- method TreeViewColumn::clicked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnClicked ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnClicked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_clicked _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::focus_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
IO ()
treeViewColumnFocusCell ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
m ()
treeViewColumnFocusCell _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_tree_view_column_focus_cell _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CFloat
treeViewColumnGetAlignment ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Float
treeViewColumnGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetButton ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_button _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_button" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetClickable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetClickable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_clickable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetExpand ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_expand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetFixedWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetFixedWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_fixed_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_max_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetMaxWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetMaxWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_max_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_min_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetMinWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetMinWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_min_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetReorderable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetReorderable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_reorderable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetResizable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetResizable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_resizable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sizing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumnSizing"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CUInt
treeViewColumnGetSizing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m TreeViewColumnSizing
treeViewColumnGetSizing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sizing _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetSortColumnId ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetSortColumnId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_column_id _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_sort_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetSortIndicator ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetSortIndicator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_indicator _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SortType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CUInt
treeViewColumnGetSortOrder ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m SortType
treeViewColumnGetSortOrder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_order _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetSpacing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_spacing _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CString
treeViewColumnGetTitle ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m T.Text
treeViewColumnGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_title _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_tree_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetTreeView ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetTreeView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_tree_view _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_tree_view" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetWidget ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_widget _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_x_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetXOffset ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetXOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_x_offset _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnPackEnd ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
treeViewColumnPackEnd _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_end _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnPackStart ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
treeViewColumnPackStart _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_start _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::queue_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnQueueResize ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnQueueResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_queue_resize _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CFloat -> -- xalign : TBasicType TFloat
IO ()
treeViewColumnSetAlignment ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Float -> -- xalign
m ()
treeViewColumnSetAlignment _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_tree_view_column_set_alignment _obj' xalign'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_cell_data_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc"
Ptr () -> -- func_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewColumnSetCellDataFunc ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
Maybe (TreeCellDataFunc) -> -- func
m ()
treeViewColumnSetCellDataFunc _obj cell_renderer func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc)
return jFunc'
let func_data = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_column_set_cell_data_func _obj' cell_renderer' maybeFunc func_data destroy
touchManagedPtr _obj
touchManagedPtr cell_renderer
return ()
-- method TreeViewColumn::set_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- clickable : TBasicType TBoolean
IO ()
treeViewColumnSetClickable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- clickable
m ()
treeViewColumnSetClickable _obj clickable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clickable' = (fromIntegral . fromEnum) clickable
gtk_tree_view_column_set_clickable _obj' clickable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnSetExpand ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- expand
m ()
treeViewColumnSetExpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_set_expand _obj' expand'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- fixed_width : TBasicType TInt32
IO ()
treeViewColumnSetFixedWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- fixed_width
m ()
treeViewColumnSetFixedWidth _obj fixed_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_fixed_width _obj' fixed_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_max_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- max_width : TBasicType TInt32
IO ()
treeViewColumnSetMaxWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- max_width
m ()
treeViewColumnSetMaxWidth _obj max_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_max_width _obj' max_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_min_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- min_width : TBasicType TInt32
IO ()
treeViewColumnSetMinWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- min_width
m ()
treeViewColumnSetMinWidth _obj min_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_min_width _obj' min_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- reorderable : TBasicType TBoolean
IO ()
treeViewColumnSetReorderable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- reorderable
m ()
treeViewColumnSetReorderable _obj reorderable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_tree_view_column_set_reorderable _obj' reorderable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- resizable : TBasicType TBoolean
IO ()
treeViewColumnSetResizable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- resizable
m ()
treeViewColumnSetResizable _obj resizable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resizable' = (fromIntegral . fromEnum) resizable
gtk_tree_view_column_set_resizable _obj' resizable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sizing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CUInt -> -- type : TInterface "Gtk" "TreeViewColumnSizing"
IO ()
treeViewColumnSetSizing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
TreeViewColumnSizing -> -- type
m ()
treeViewColumnSetSizing _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_tree_view_column_set_sizing _obj' type_'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- sort_column_id : TBasicType TInt32
IO ()
treeViewColumnSetSortColumnId ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- sort_column_id
m ()
treeViewColumnSetSortColumnId _obj sort_column_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_sort_column_id _obj' sort_column_id
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- setting : TBasicType TBoolean
IO ()
treeViewColumnSetSortIndicator ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- setting
m ()
treeViewColumnSetSortIndicator _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_tree_view_column_set_sort_indicator _obj' setting'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CUInt -> -- order : TInterface "Gtk" "SortType"
IO ()
treeViewColumnSetSortOrder ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
SortType -> -- order
m ()
treeViewColumnSetSortOrder _obj order = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let order' = (fromIntegral . fromEnum) order
gtk_tree_view_column_set_sort_order _obj' order'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- spacing : TBasicType TInt32
IO ()
treeViewColumnSetSpacing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
treeViewColumnSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CString -> -- title : TBasicType TUTF8
IO ()
treeViewColumnSetTitle ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
T.Text -> -- title
m ()
treeViewColumnSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_tree_view_column_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method TreeViewColumn::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- visible : TBasicType TBoolean
IO ()
treeViewColumnSetVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- visible
m ()
treeViewColumnSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_tree_view_column_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
treeViewColumnSetWidget ::
(MonadIO m, TreeViewColumnK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
treeViewColumnSetWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_tree_view_column_set_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- signal TreeViewColumn::clicked
type TreeViewColumnClickedCallback =
IO ()
noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback
noTreeViewColumnClickedCallback = Nothing
type TreeViewColumnClickedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewColumnClickedCallback :: TreeViewColumnClickedCallbackC -> IO (FunPtr TreeViewColumnClickedCallbackC)
treeViewColumnClickedClosure :: TreeViewColumnClickedCallback -> IO Closure
treeViewColumnClickedClosure cb = newCClosure =<< mkTreeViewColumnClickedCallback wrapped
where wrapped = treeViewColumnClickedCallbackWrapper cb
treeViewColumnClickedCallbackWrapper ::
TreeViewColumnClickedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeViewColumnClickedCallbackWrapper _cb _ _ = do
_cb
onTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked obj cb = liftIO $ connectTreeViewColumnClicked obj cb SignalConnectBefore
afterTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked obj cb = connectTreeViewColumnClicked obj cb SignalConnectAfter
connectTreeViewColumnClicked :: (GObject a, MonadIO m) =>
a -> TreeViewColumnClickedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewColumnClicked obj cb after = liftIO $ do
cb' <- mkTreeViewColumnClickedCallback (treeViewColumnClickedCallbackWrapper cb)
connectSignalFunPtr obj "clicked" cb' after
-- callback TreeViewColumnDropFunc
treeViewColumnDropFuncClosure :: TreeViewColumnDropFunc -> IO Closure
treeViewColumnDropFuncClosure cb = newCClosure =<< mkTreeViewColumnDropFunc wrapped
where wrapped = treeViewColumnDropFuncWrapper Nothing cb
type TreeViewColumnDropFuncC =
Ptr TreeView ->
Ptr TreeViewColumn ->
Ptr TreeViewColumn ->
Ptr TreeViewColumn ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeViewColumnDropFunc :: TreeViewColumnDropFuncC -> IO (FunPtr TreeViewColumnDropFuncC)
type TreeViewColumnDropFunc =
TreeView ->
TreeViewColumn ->
TreeViewColumn ->
TreeViewColumn ->
IO Bool
noTreeViewColumnDropFunc :: Maybe TreeViewColumnDropFunc
noTreeViewColumnDropFunc = Nothing
treeViewColumnDropFuncWrapper ::
Maybe (Ptr (FunPtr (TreeViewColumnDropFuncC))) ->
TreeViewColumnDropFunc ->
Ptr TreeView ->
Ptr TreeViewColumn ->
Ptr TreeViewColumn ->
Ptr TreeViewColumn ->
Ptr () ->
IO CInt
treeViewColumnDropFuncWrapper funptrptr _cb tree_view column prev_column next_column _ = do
tree_view' <- (newObject TreeView) tree_view
column' <- (newObject TreeViewColumn) column
prev_column' <- (newObject TreeViewColumn) prev_column
next_column' <- (newObject TreeViewColumn) next_column
result <- _cb tree_view' column' prev_column' next_column'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- Enum TreeViewColumnSizing
data TreeViewColumnSizing =
TreeViewColumnSizingGrowOnly
| TreeViewColumnSizingAutosize
| TreeViewColumnSizingFixed
| AnotherTreeViewColumnSizing Int
deriving (Show, Eq)
instance Enum TreeViewColumnSizing where
fromEnum TreeViewColumnSizingGrowOnly = 0
fromEnum TreeViewColumnSizingAutosize = 1
fromEnum TreeViewColumnSizingFixed = 2
fromEnum (AnotherTreeViewColumnSizing k) = k
toEnum 0 = TreeViewColumnSizingGrowOnly
toEnum 1 = TreeViewColumnSizingAutosize
toEnum 2 = TreeViewColumnSizingFixed
toEnum k = AnotherTreeViewColumnSizing k
foreign import ccall "gtk_tree_view_column_sizing_get_type" c_gtk_tree_view_column_sizing_get_type ::
IO GType
instance BoxedEnum TreeViewColumnSizing where
boxedEnumType _ = c_gtk_tree_view_column_sizing_get_type
-- Enum TreeViewDropPosition
data TreeViewDropPosition =
TreeViewDropPositionBefore
| TreeViewDropPositionAfter
| TreeViewDropPositionIntoOrBefore
| TreeViewDropPositionIntoOrAfter
| AnotherTreeViewDropPosition Int
deriving (Show, Eq)
instance Enum TreeViewDropPosition where
fromEnum TreeViewDropPositionBefore = 0
fromEnum TreeViewDropPositionAfter = 1
fromEnum TreeViewDropPositionIntoOrBefore = 2
fromEnum TreeViewDropPositionIntoOrAfter = 3
fromEnum (AnotherTreeViewDropPosition k) = k
toEnum 0 = TreeViewDropPositionBefore
toEnum 1 = TreeViewDropPositionAfter
toEnum 2 = TreeViewDropPositionIntoOrBefore
toEnum 3 = TreeViewDropPositionIntoOrAfter
toEnum k = AnotherTreeViewDropPosition k
foreign import ccall "gtk_tree_view_drop_position_get_type" c_gtk_tree_view_drop_position_get_type ::
IO GType
instance BoxedEnum TreeViewDropPosition where
boxedEnumType _ = c_gtk_tree_view_drop_position_get_type
-- Enum TreeViewGridLines
data TreeViewGridLines =
TreeViewGridLinesNone
| TreeViewGridLinesHorizontal
| TreeViewGridLinesVertical
| TreeViewGridLinesBoth
| AnotherTreeViewGridLines Int
deriving (Show, Eq)
instance Enum TreeViewGridLines where
fromEnum TreeViewGridLinesNone = 0
fromEnum TreeViewGridLinesHorizontal = 1
fromEnum TreeViewGridLinesVertical = 2
fromEnum TreeViewGridLinesBoth = 3
fromEnum (AnotherTreeViewGridLines k) = k
toEnum 0 = TreeViewGridLinesNone
toEnum 1 = TreeViewGridLinesHorizontal
toEnum 2 = TreeViewGridLinesVertical
toEnum 3 = TreeViewGridLinesBoth
toEnum k = AnotherTreeViewGridLines k
foreign import ccall "gtk_tree_view_grid_lines_get_type" c_gtk_tree_view_grid_lines_get_type ::
IO GType
instance BoxedEnum TreeViewGridLines where
boxedEnumType _ = c_gtk_tree_view_grid_lines_get_type
-- callback TreeViewMappingFunc
treeViewMappingFuncClosure :: TreeViewMappingFunc -> IO Closure
treeViewMappingFuncClosure cb = newCClosure =<< mkTreeViewMappingFunc wrapped
where wrapped = treeViewMappingFuncWrapper Nothing cb
type TreeViewMappingFuncC =
Ptr TreeView ->
Ptr TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTreeViewMappingFunc :: TreeViewMappingFuncC -> IO (FunPtr TreeViewMappingFuncC)
type TreeViewMappingFunc =
TreeView ->
TreePath ->
IO ()
noTreeViewMappingFunc :: Maybe TreeViewMappingFunc
noTreeViewMappingFunc = Nothing
treeViewMappingFuncWrapper ::
Maybe (Ptr (FunPtr (TreeViewMappingFuncC))) ->
TreeViewMappingFunc ->
Ptr TreeView ->
Ptr TreePath ->
Ptr () ->
IO ()
treeViewMappingFuncWrapper funptrptr _cb tree_view path _ = do
tree_view' <- (newObject TreeView) tree_view
path' <- (newBoxed TreePath) path
_cb tree_view' path'
maybeReleaseFunPtr funptrptr
-- callback TreeViewRowSeparatorFunc
treeViewRowSeparatorFuncClosure :: TreeViewRowSeparatorFunc -> IO Closure
treeViewRowSeparatorFuncClosure cb = newCClosure =<< mkTreeViewRowSeparatorFunc wrapped
where wrapped = treeViewRowSeparatorFuncWrapper Nothing cb
type TreeViewRowSeparatorFuncC =
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeViewRowSeparatorFunc :: TreeViewRowSeparatorFuncC -> IO (FunPtr TreeViewRowSeparatorFuncC)
type TreeViewRowSeparatorFunc =
TreeModel ->
TreeIter ->
IO Bool
noTreeViewRowSeparatorFunc :: Maybe TreeViewRowSeparatorFunc
noTreeViewRowSeparatorFunc = Nothing
treeViewRowSeparatorFuncWrapper ::
Maybe (Ptr (FunPtr (TreeViewRowSeparatorFuncC))) ->
TreeViewRowSeparatorFunc ->
Ptr TreeModel ->
Ptr TreeIter ->
Ptr () ->
IO CInt
treeViewRowSeparatorFuncWrapper funptrptr _cb model iter _ = do
model' <- (newObject TreeModel) model
iter' <- (newBoxed TreeIter) iter
result <- _cb model' iter'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- callback TreeViewSearchEqualFunc
treeViewSearchEqualFuncClosure :: TreeViewSearchEqualFunc -> IO Closure
treeViewSearchEqualFuncClosure cb = newCClosure =<< mkTreeViewSearchEqualFunc wrapped
where wrapped = treeViewSearchEqualFuncWrapper Nothing cb
type TreeViewSearchEqualFuncC =
Ptr TreeModel ->
Int32 ->
CString ->
Ptr TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkTreeViewSearchEqualFunc :: TreeViewSearchEqualFuncC -> IO (FunPtr TreeViewSearchEqualFuncC)
type TreeViewSearchEqualFunc =
TreeModel ->
Int32 ->
T.Text ->
TreeIter ->
IO Bool
noTreeViewSearchEqualFunc :: Maybe TreeViewSearchEqualFunc
noTreeViewSearchEqualFunc = Nothing
treeViewSearchEqualFuncWrapper ::
Maybe (Ptr (FunPtr (TreeViewSearchEqualFuncC))) ->
TreeViewSearchEqualFunc ->
Ptr TreeModel ->
Int32 ->
CString ->
Ptr TreeIter ->
Ptr () ->
IO CInt
treeViewSearchEqualFuncWrapper funptrptr _cb model column key iter _ = do
model' <- (newObject TreeModel) model
key' <- cstringToText key
iter' <- (newBoxed TreeIter) iter
result <- _cb model' column key' iter'
maybeReleaseFunPtr funptrptr
let result' = (fromIntegral . fromEnum) result
return result'
-- callback TreeViewSearchPositionFunc
treeViewSearchPositionFuncClosure :: TreeViewSearchPositionFunc -> IO Closure
treeViewSearchPositionFuncClosure cb = newCClosure =<< mkTreeViewSearchPositionFunc wrapped
where wrapped = treeViewSearchPositionFuncWrapper Nothing cb
type TreeViewSearchPositionFuncC =
Ptr TreeView ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkTreeViewSearchPositionFunc :: TreeViewSearchPositionFuncC -> IO (FunPtr TreeViewSearchPositionFuncC)
type TreeViewSearchPositionFunc =
TreeView ->
Widget ->
IO ()
noTreeViewSearchPositionFunc :: Maybe TreeViewSearchPositionFunc
noTreeViewSearchPositionFunc = Nothing
treeViewSearchPositionFuncWrapper ::
Maybe (Ptr (FunPtr (TreeViewSearchPositionFuncC))) ->
TreeViewSearchPositionFunc ->
Ptr TreeView ->
Ptr Widget ->
Ptr () ->
IO ()
treeViewSearchPositionFuncWrapper funptrptr _cb tree_view search_dialog _ = do
tree_view' <- (newObject TreeView) tree_view
search_dialog' <- (newObject Widget) search_dialog
_cb tree_view' search_dialog'
maybeReleaseFunPtr funptrptr
-- object UIManager
newtype UIManager = UIManager (ForeignPtr UIManager)
noUIManager :: Maybe UIManager
noUIManager = Nothing
foreign import ccall "gtk_ui_manager_get_type"
c_gtk_ui_manager_get_type :: IO GType
type instance ParentTypes UIManager = '[GObject.Object, Buildable]
instance GObject UIManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_ui_manager_get_type
class GObject o => UIManagerK o
instance (GObject o, IsDescendantOf UIManager o) => UIManagerK o
toUIManager :: UIManagerK o => o -> IO UIManager
toUIManager = unsafeCastTo UIManager
-- method UIManager::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "UIManager"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_new" gtk_ui_manager_new ::
IO (Ptr UIManager)
{-# DEPRECATED uIManagerNew ["(Since version 3.10)"]#-}
uIManagerNew ::
(MonadIO m) =>
m UIManager
uIManagerNew = liftIO $ do
result <- gtk_ui_manager_new
checkUnexpectedReturnNULL "gtk_ui_manager_new" result
result' <- (wrapObject UIManager) result
return result'
-- method UIManager::add_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui" gtk_ui_manager_add_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Word32 -> -- merge_id : TBasicType TUInt32
CString -> -- path : TBasicType TUTF8
CString -> -- name : TBasicType TUTF8
CString -> -- action : TBasicType TUTF8
CUInt -> -- type : TInterface "Gtk" "UIManagerItemType"
CInt -> -- top : TBasicType TBoolean
IO ()
{-# DEPRECATED uIManagerAddUi ["(Since version 3.10)"]#-}
uIManagerAddUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Word32 -> -- merge_id
T.Text -> -- path
T.Text -> -- name
Maybe (T.Text) -> -- action
[UIManagerItemType] -> -- type
Bool -> -- top
m ()
uIManagerAddUi _obj merge_id path name action type_ top = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
name' <- textToCString name
maybeAction <- case action of
Nothing -> return nullPtr
Just jAction -> do
jAction' <- textToCString jAction
return jAction'
let type_' = gflagsToWord type_
let top' = (fromIntegral . fromEnum) top
gtk_ui_manager_add_ui _obj' merge_id path' name' maybeAction type_' top'
touchManagedPtr _obj
freeMem path'
freeMem name'
freeMem maybeAction
return ()
-- method UIManager::add_ui_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_file" gtk_ui_manager_add_ui_from_file ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- filename : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromFile ["(Since version 3.10)"]#-}
uIManagerAddUiFromFile ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
[Char] -> -- filename
m Word32
uIManagerAddUiFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_file _obj' filename'
touchManagedPtr _obj
freeMem filename'
return result
) (do
freeMem filename'
)
-- method UIManager::add_ui_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_resource" gtk_ui_manager_add_ui_from_resource ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- resource_path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromResource ["(Since version 3.10)"]#-}
uIManagerAddUiFromResource ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- resource_path
m Word32
uIManagerAddUiFromResource _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource_path' <- textToCString resource_path
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resource_path'
touchManagedPtr _obj
freeMem resource_path'
return result
) (do
freeMem resource_path'
)
-- method UIManager::add_ui_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_string" gtk_ui_manager_add_ui_from_string ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- buffer : TBasicType TUTF8
Int64 -> -- length : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromString ["(Since version 3.10)"]#-}
uIManagerAddUiFromString ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- buffer
Int64 -> -- length
m Word32
uIManagerAddUiFromString _obj buffer length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
buffer' <- textToCString buffer
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_string _obj' buffer' length_
touchManagedPtr _obj
freeMem buffer'
return result
) (do
freeMem buffer'
)
-- method UIManager::ensure_update
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_ensure_update" gtk_ui_manager_ensure_update ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO ()
{-# DEPRECATED uIManagerEnsureUpdate ["(Since version 3.10)"]#-}
uIManagerEnsureUpdate ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m ()
uIManagerEnsureUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_ensure_update _obj'
touchManagedPtr _obj
return ()
-- method UIManager::get_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_accel_group" gtk_ui_manager_get_accel_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO (Ptr AccelGroup)
{-# DEPRECATED uIManagerGetAccelGroup ["(Since version 3.10)"]#-}
uIManagerGetAccelGroup ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m AccelGroup
uIManagerGetAccelGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_accel_group _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_accel_group" result
result' <- (newObject AccelGroup) result
touchManagedPtr _obj
return result'
-- method UIManager::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_action" gtk_ui_manager_get_action ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- path : TBasicType TUTF8
IO (Ptr Action)
{-# DEPRECATED uIManagerGetAction ["(Since version 3.10)"]#-}
uIManagerGetAction ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- path
m Action
uIManagerGetAction _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
result <- gtk_ui_manager_get_action _obj' path'
checkUnexpectedReturnNULL "gtk_ui_manager_get_action" result
result' <- (newObject Action) result
touchManagedPtr _obj
freeMem path'
return result'
-- method UIManager::get_action_groups
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "ActionGroup")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_action_groups" gtk_ui_manager_get_action_groups ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO (Ptr (GList (Ptr ActionGroup)))
{-# DEPRECATED uIManagerGetActionGroups ["(Since version 3.10)"]#-}
uIManagerGetActionGroups ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m [ActionGroup]
uIManagerGetActionGroups _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_action_groups _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_action_groups" result
result' <- unpackGList result
result'' <- mapM (newObject ActionGroup) result'
touchManagedPtr _obj
return result''
-- method UIManager::get_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_add_tearoffs" gtk_ui_manager_get_add_tearoffs ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO CInt
{-# DEPRECATED uIManagerGetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-}
uIManagerGetAddTearoffs ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m Bool
uIManagerGetAddTearoffs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_add_tearoffs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method UIManager::get_toplevels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_toplevels" gtk_ui_manager_get_toplevels ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CUInt -> -- types : TInterface "Gtk" "UIManagerItemType"
IO (Ptr (GSList (Ptr Widget)))
{-# DEPRECATED uIManagerGetToplevels ["(Since version 3.10)"]#-}
uIManagerGetToplevels ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
[UIManagerItemType] -> -- types
m [Widget]
uIManagerGetToplevels _obj types = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let types' = gflagsToWord types
result <- gtk_ui_manager_get_toplevels _obj' types'
checkUnexpectedReturnNULL "gtk_ui_manager_get_toplevels" result
result' <- unpackGSList result
result'' <- mapM (newObject Widget) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method UIManager::get_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_ui" gtk_ui_manager_get_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO CString
{-# DEPRECATED uIManagerGetUi ["(Since version 3.10)"]#-}
uIManagerGetUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m T.Text
uIManagerGetUi _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_ui _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_ui" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method UIManager::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_widget" gtk_ui_manager_get_widget ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- path : TBasicType TUTF8
IO (Ptr Widget)
{-# DEPRECATED uIManagerGetWidget ["(Since version 3.10)"]#-}
uIManagerGetWidget ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- path
m Widget
uIManagerGetWidget _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
result <- gtk_ui_manager_get_widget _obj' path'
checkUnexpectedReturnNULL "gtk_ui_manager_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
freeMem path'
return result'
-- method UIManager::insert_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_insert_action_group" gtk_ui_manager_insert_action_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup"
Int32 -> -- pos : TBasicType TInt32
IO ()
{-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-}
uIManagerInsertActionGroup ::
(MonadIO m, UIManagerK a, ActionGroupK b) =>
a -> -- _obj
b -> -- action_group
Int32 -> -- pos
m ()
uIManagerInsertActionGroup _obj action_group pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action_group' = unsafeManagedPtrCastPtr action_group
gtk_ui_manager_insert_action_group _obj' action_group' pos
touchManagedPtr _obj
touchManagedPtr action_group
return ()
-- method UIManager::new_merge_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_new_merge_id" gtk_ui_manager_new_merge_id ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO Word32
{-# DEPRECATED uIManagerNewMergeId ["(Since version 3.10)"]#-}
uIManagerNewMergeId ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m Word32
uIManagerNewMergeId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_new_merge_id _obj'
touchManagedPtr _obj
return result
-- method UIManager::remove_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_remove_action_group" gtk_ui_manager_remove_action_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup"
IO ()
{-# DEPRECATED uIManagerRemoveActionGroup ["(Since version 3.10)"]#-}
uIManagerRemoveActionGroup ::
(MonadIO m, UIManagerK a, ActionGroupK b) =>
a -> -- _obj
b -> -- action_group
m ()
uIManagerRemoveActionGroup _obj action_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action_group' = unsafeManagedPtrCastPtr action_group
gtk_ui_manager_remove_action_group _obj' action_group'
touchManagedPtr _obj
touchManagedPtr action_group
return ()
-- method UIManager::remove_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_remove_ui" gtk_ui_manager_remove_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Word32 -> -- merge_id : TBasicType TUInt32
IO ()
{-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-}
uIManagerRemoveUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Word32 -> -- merge_id
m ()
uIManagerRemoveUi _obj merge_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_remove_ui _obj' merge_id
touchManagedPtr _obj
return ()
-- method UIManager::set_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_set_add_tearoffs" gtk_ui_manager_set_add_tearoffs ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CInt -> -- add_tearoffs : TBasicType TBoolean
IO ()
{-# DEPRECATED uIManagerSetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-}
uIManagerSetAddTearoffs ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Bool -> -- add_tearoffs
m ()
uIManagerSetAddTearoffs _obj add_tearoffs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs
gtk_ui_manager_set_add_tearoffs _obj' add_tearoffs'
touchManagedPtr _obj
return ()
-- signal UIManager::actions-changed
type UIManagerActionsChangedCallback =
IO ()
noUIManagerActionsChangedCallback :: Maybe UIManagerActionsChangedCallback
noUIManagerActionsChangedCallback = Nothing
type UIManagerActionsChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerActionsChangedCallback :: UIManagerActionsChangedCallbackC -> IO (FunPtr UIManagerActionsChangedCallbackC)
uIManagerActionsChangedClosure :: UIManagerActionsChangedCallback -> IO Closure
uIManagerActionsChangedClosure cb = newCClosure =<< mkUIManagerActionsChangedCallback wrapped
where wrapped = uIManagerActionsChangedCallbackWrapper cb
uIManagerActionsChangedCallbackWrapper ::
UIManagerActionsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
uIManagerActionsChangedCallbackWrapper _cb _ _ = do
_cb
onUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId
onUIManagerActionsChanged obj cb = liftIO $ connectUIManagerActionsChanged obj cb SignalConnectBefore
afterUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId
afterUIManagerActionsChanged obj cb = connectUIManagerActionsChanged obj cb SignalConnectAfter
connectUIManagerActionsChanged :: (GObject a, MonadIO m) =>
a -> UIManagerActionsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerActionsChanged obj cb after = liftIO $ do
cb' <- mkUIManagerActionsChangedCallback (uIManagerActionsChangedCallbackWrapper cb)
connectSignalFunPtr obj "actions-changed" cb' after
-- signal UIManager::add-widget
type UIManagerAddWidgetCallback =
Widget ->
IO ()
noUIManagerAddWidgetCallback :: Maybe UIManagerAddWidgetCallback
noUIManagerAddWidgetCallback = Nothing
type UIManagerAddWidgetCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerAddWidgetCallback :: UIManagerAddWidgetCallbackC -> IO (FunPtr UIManagerAddWidgetCallbackC)
uIManagerAddWidgetClosure :: UIManagerAddWidgetCallback -> IO Closure
uIManagerAddWidgetClosure cb = newCClosure =<< mkUIManagerAddWidgetCallback wrapped
where wrapped = uIManagerAddWidgetCallbackWrapper cb
uIManagerAddWidgetCallbackWrapper ::
UIManagerAddWidgetCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerAddWidgetCallbackWrapper _cb _ widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
onUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId
onUIManagerAddWidget obj cb = liftIO $ connectUIManagerAddWidget obj cb SignalConnectBefore
afterUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId
afterUIManagerAddWidget obj cb = connectUIManagerAddWidget obj cb SignalConnectAfter
connectUIManagerAddWidget :: (GObject a, MonadIO m) =>
a -> UIManagerAddWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerAddWidget obj cb after = liftIO $ do
cb' <- mkUIManagerAddWidgetCallback (uIManagerAddWidgetCallbackWrapper cb)
connectSignalFunPtr obj "add-widget" cb' after
-- signal UIManager::connect-proxy
type UIManagerConnectProxyCallback =
Action ->
Widget ->
IO ()
noUIManagerConnectProxyCallback :: Maybe UIManagerConnectProxyCallback
noUIManagerConnectProxyCallback = Nothing
type UIManagerConnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerConnectProxyCallback :: UIManagerConnectProxyCallbackC -> IO (FunPtr UIManagerConnectProxyCallbackC)
uIManagerConnectProxyClosure :: UIManagerConnectProxyCallback -> IO Closure
uIManagerConnectProxyClosure cb = newCClosure =<< mkUIManagerConnectProxyCallback wrapped
where wrapped = uIManagerConnectProxyCallbackWrapper cb
uIManagerConnectProxyCallbackWrapper ::
UIManagerConnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerConnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId
onUIManagerConnectProxy obj cb = liftIO $ connectUIManagerConnectProxy obj cb SignalConnectBefore
afterUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId
afterUIManagerConnectProxy obj cb = connectUIManagerConnectProxy obj cb SignalConnectAfter
connectUIManagerConnectProxy :: (GObject a, MonadIO m) =>
a -> UIManagerConnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerConnectProxy obj cb after = liftIO $ do
cb' <- mkUIManagerConnectProxyCallback (uIManagerConnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "connect-proxy" cb' after
-- signal UIManager::disconnect-proxy
type UIManagerDisconnectProxyCallback =
Action ->
Widget ->
IO ()
noUIManagerDisconnectProxyCallback :: Maybe UIManagerDisconnectProxyCallback
noUIManagerDisconnectProxyCallback = Nothing
type UIManagerDisconnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerDisconnectProxyCallback :: UIManagerDisconnectProxyCallbackC -> IO (FunPtr UIManagerDisconnectProxyCallbackC)
uIManagerDisconnectProxyClosure :: UIManagerDisconnectProxyCallback -> IO Closure
uIManagerDisconnectProxyClosure cb = newCClosure =<< mkUIManagerDisconnectProxyCallback wrapped
where wrapped = uIManagerDisconnectProxyCallbackWrapper cb
uIManagerDisconnectProxyCallbackWrapper ::
UIManagerDisconnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerDisconnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId
onUIManagerDisconnectProxy obj cb = liftIO $ connectUIManagerDisconnectProxy obj cb SignalConnectBefore
afterUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId
afterUIManagerDisconnectProxy obj cb = connectUIManagerDisconnectProxy obj cb SignalConnectAfter
connectUIManagerDisconnectProxy :: (GObject a, MonadIO m) =>
a -> UIManagerDisconnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerDisconnectProxy obj cb after = liftIO $ do
cb' <- mkUIManagerDisconnectProxyCallback (uIManagerDisconnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "disconnect-proxy" cb' after
-- signal UIManager::post-activate
type UIManagerPostActivateCallback =
Action ->
IO ()
noUIManagerPostActivateCallback :: Maybe UIManagerPostActivateCallback
noUIManagerPostActivateCallback = Nothing
type UIManagerPostActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerPostActivateCallback :: UIManagerPostActivateCallbackC -> IO (FunPtr UIManagerPostActivateCallbackC)
uIManagerPostActivateClosure :: UIManagerPostActivateCallback -> IO Closure
uIManagerPostActivateClosure cb = newCClosure =<< mkUIManagerPostActivateCallback wrapped
where wrapped = uIManagerPostActivateCallbackWrapper cb
uIManagerPostActivateCallbackWrapper ::
UIManagerPostActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
uIManagerPostActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId
onUIManagerPostActivate obj cb = liftIO $ connectUIManagerPostActivate obj cb SignalConnectBefore
afterUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId
afterUIManagerPostActivate obj cb = connectUIManagerPostActivate obj cb SignalConnectAfter
connectUIManagerPostActivate :: (GObject a, MonadIO m) =>
a -> UIManagerPostActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerPostActivate obj cb after = liftIO $ do
cb' <- mkUIManagerPostActivateCallback (uIManagerPostActivateCallbackWrapper cb)
connectSignalFunPtr obj "post-activate" cb' after
-- signal UIManager::pre-activate
type UIManagerPreActivateCallback =
Action ->
IO ()
noUIManagerPreActivateCallback :: Maybe UIManagerPreActivateCallback
noUIManagerPreActivateCallback = Nothing
type UIManagerPreActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerPreActivateCallback :: UIManagerPreActivateCallbackC -> IO (FunPtr UIManagerPreActivateCallbackC)
uIManagerPreActivateClosure :: UIManagerPreActivateCallback -> IO Closure
uIManagerPreActivateClosure cb = newCClosure =<< mkUIManagerPreActivateCallback wrapped
where wrapped = uIManagerPreActivateCallbackWrapper cb
uIManagerPreActivateCallbackWrapper ::
UIManagerPreActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
uIManagerPreActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId
onUIManagerPreActivate obj cb = liftIO $ connectUIManagerPreActivate obj cb SignalConnectBefore
afterUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId
afterUIManagerPreActivate obj cb = connectUIManagerPreActivate obj cb SignalConnectAfter
connectUIManagerPreActivate :: (GObject a, MonadIO m) =>
a -> UIManagerPreActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerPreActivate obj cb after = liftIO $ do
cb' <- mkUIManagerPreActivateCallback (uIManagerPreActivateCallbackWrapper cb)
connectSignalFunPtr obj "pre-activate" cb' after
-- Flags UIManagerItemType
{-# DEPRECATED UIManagerItemType ["(Since version 3.10)"]#-}
data UIManagerItemType =
UIManagerItemTypeAuto
| UIManagerItemTypeMenubar
| UIManagerItemTypeMenu
| UIManagerItemTypeToolbar
| UIManagerItemTypePlaceholder
| UIManagerItemTypePopup
| UIManagerItemTypeMenuitem
| UIManagerItemTypeToolitem
| UIManagerItemTypeSeparator
| UIManagerItemTypeAccelerator
| UIManagerItemTypePopupWithAccels
| AnotherUIManagerItemType Int
deriving (Show, Eq)
instance Enum UIManagerItemType where
fromEnum UIManagerItemTypeAuto = 0
fromEnum UIManagerItemTypeMenubar = 1
fromEnum UIManagerItemTypeMenu = 2
fromEnum UIManagerItemTypeToolbar = 4
fromEnum UIManagerItemTypePlaceholder = 8
fromEnum UIManagerItemTypePopup = 16
fromEnum UIManagerItemTypeMenuitem = 32
fromEnum UIManagerItemTypeToolitem = 64
fromEnum UIManagerItemTypeSeparator = 128
fromEnum UIManagerItemTypeAccelerator = 256
fromEnum UIManagerItemTypePopupWithAccels = 512
fromEnum (AnotherUIManagerItemType k) = k
toEnum 0 = UIManagerItemTypeAuto
toEnum 1 = UIManagerItemTypeMenubar
toEnum 2 = UIManagerItemTypeMenu
toEnum 4 = UIManagerItemTypeToolbar
toEnum 8 = UIManagerItemTypePlaceholder
toEnum 16 = UIManagerItemTypePopup
toEnum 32 = UIManagerItemTypeMenuitem
toEnum 64 = UIManagerItemTypeToolitem
toEnum 128 = UIManagerItemTypeSeparator
toEnum 256 = UIManagerItemTypeAccelerator
toEnum 512 = UIManagerItemTypePopupWithAccels
toEnum k = AnotherUIManagerItemType k
foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type ::
IO GType
instance BoxedEnum UIManagerItemType where
boxedEnumType _ = c_gtk_ui_manager_item_type_get_type
instance IsGFlag UIManagerItemType
-- Enum Unit
data Unit =
UnitNone
| UnitPoints
| UnitInch
| UnitMm
| AnotherUnit Int
deriving (Show, Eq)
instance Enum Unit where
fromEnum UnitNone = 0
fromEnum UnitPoints = 1
fromEnum UnitInch = 2
fromEnum UnitMm = 3
fromEnum (AnotherUnit k) = k
toEnum 0 = UnitNone
toEnum 1 = UnitPoints
toEnum 2 = UnitInch
toEnum 3 = UnitMm
toEnum k = AnotherUnit k
foreign import ccall "gtk_unit_get_type" c_gtk_unit_get_type ::
IO GType
instance BoxedEnum Unit where
boxedEnumType _ = c_gtk_unit_get_type
-- object VBox
newtype VBox = VBox (ForeignPtr VBox)
noVBox :: Maybe VBox
noVBox = Nothing
foreign import ccall "gtk_vbox_get_type"
c_gtk_vbox_get_type :: IO GType
type instance ParentTypes VBox = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vbox_get_type
class GObject o => VBoxK o
instance (GObject o, IsDescendantOf VBox o) => VBoxK o
toVBox :: VBoxK o => o -> IO VBox
toVBox = unsafeCastTo VBox
-- method VBox::new
-- method type : Constructor
-- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "VBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vbox_new" gtk_vbox_new ::
CInt -> -- homogeneous : TBasicType TBoolean
Int32 -> -- spacing : TBasicType TInt32
IO (Ptr VBox)
{-# DEPRECATED vBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_VERTICAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-}
vBoxNew ::
(MonadIO m) =>
Bool -> -- homogeneous
Int32 -> -- spacing
m VBox
vBoxNew homogeneous spacing = liftIO $ do
let homogeneous' = (fromIntegral . fromEnum) homogeneous
result <- gtk_vbox_new homogeneous' spacing
checkUnexpectedReturnNULL "gtk_vbox_new" result
result' <- (newObject VBox) result
return result'
-- object VButtonBox
newtype VButtonBox = VButtonBox (ForeignPtr VButtonBox)
noVButtonBox :: Maybe VButtonBox
noVButtonBox = Nothing
foreign import ccall "gtk_vbutton_box_get_type"
c_gtk_vbutton_box_get_type :: IO GType
type instance ParentTypes VButtonBox = '[ButtonBox, Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VButtonBox where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vbutton_box_get_type
class GObject o => VButtonBoxK o
instance (GObject o, IsDescendantOf VButtonBox o) => VButtonBoxK o
toVButtonBox :: VButtonBoxK o => o -> IO VButtonBox
toVButtonBox = unsafeCastTo VButtonBox
-- method VButtonBox::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "VButtonBox"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vbutton_box_new" gtk_vbutton_box_new ::
IO (Ptr VButtonBox)
{-# DEPRECATED vButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vButtonBoxNew ::
(MonadIO m) =>
m VButtonBox
vButtonBoxNew = liftIO $ do
result <- gtk_vbutton_box_new
checkUnexpectedReturnNULL "gtk_vbutton_box_new" result
result' <- (newObject VButtonBox) result
return result'
-- object VPaned
newtype VPaned = VPaned (ForeignPtr VPaned)
noVPaned :: Maybe VPaned
noVPaned = Nothing
foreign import ccall "gtk_vpaned_get_type"
c_gtk_vpaned_get_type :: IO GType
type instance ParentTypes VPaned = '[Paned, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VPaned where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vpaned_get_type
class GObject o => VPanedK o
instance (GObject o, IsDescendantOf VPaned o) => VPanedK o
toVPaned :: VPanedK o => o -> IO VPaned
toVPaned = unsafeCastTo VPaned
-- method VPaned::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "VPaned"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vpaned_new" gtk_vpaned_new ::
IO (Ptr VPaned)
{-# DEPRECATED vPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vPanedNew ::
(MonadIO m) =>
m VPaned
vPanedNew = liftIO $ do
result <- gtk_vpaned_new
checkUnexpectedReturnNULL "gtk_vpaned_new" result
result' <- (newObject VPaned) result
return result'
-- object VScale
newtype VScale = VScale (ForeignPtr VScale)
noVScale :: Maybe VScale
noVScale = Nothing
foreign import ccall "gtk_vscale_get_type"
c_gtk_vscale_get_type :: IO GType
type instance ParentTypes VScale = '[Scale, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VScale where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vscale_get_type
class GObject o => VScaleK o
instance (GObject o, IsDescendantOf VScale o) => VScaleK o
toVScale :: VScaleK o => o -> IO VScale
toVScale = unsafeCastTo VScale
-- method VScale::new
-- method type : Constructor
-- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "VScale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vscale_new" gtk_vscale_new ::
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr VScale)
{-# DEPRECATED vScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vScaleNew ::
(MonadIO m, AdjustmentK a) =>
a -> -- adjustment
m VScale
vScaleNew adjustment = liftIO $ do
let adjustment' = unsafeManagedPtrCastPtr adjustment
result <- gtk_vscale_new adjustment'
checkUnexpectedReturnNULL "gtk_vscale_new" result
result' <- (newObject VScale) result
touchManagedPtr adjustment
return result'
-- method VScale::new_with_range
-- method type : Constructor
-- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "VScale"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vscale_new_with_range" gtk_vscale_new_with_range ::
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
CDouble -> -- step : TBasicType TDouble
IO (Ptr VScale)
{-# DEPRECATED vScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vScaleNewWithRange ::
(MonadIO m) =>
Double -> -- min
Double -> -- max
Double -> -- step
m VScale
vScaleNewWithRange min max step = liftIO $ do
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_vscale_new_with_range min' max' step'
checkUnexpectedReturnNULL "gtk_vscale_new_with_range" result
result' <- (newObject VScale) result
return result'
-- object VScrollbar
newtype VScrollbar = VScrollbar (ForeignPtr VScrollbar)
noVScrollbar :: Maybe VScrollbar
noVScrollbar = Nothing
foreign import ccall "gtk_vscrollbar_get_type"
c_gtk_vscrollbar_get_type :: IO GType
type instance ParentTypes VScrollbar = '[Scrollbar, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VScrollbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vscrollbar_get_type
class GObject o => VScrollbarK o
instance (GObject o, IsDescendantOf VScrollbar o) => VScrollbarK o
toVScrollbar :: VScrollbarK o => o -> IO VScrollbar
toVScrollbar = unsafeCastTo VScrollbar
-- method VScrollbar::new
-- method type : Constructor
-- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "VScrollbar"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vscrollbar_new" gtk_vscrollbar_new ::
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO (Ptr VScrollbar)
{-# DEPRECATED vScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vScrollbarNew ::
(MonadIO m, AdjustmentK a) =>
Maybe (a) -> -- adjustment
m VScrollbar
vScrollbarNew adjustment = liftIO $ do
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_vscrollbar_new maybeAdjustment
checkUnexpectedReturnNULL "gtk_vscrollbar_new" result
result' <- (newObject VScrollbar) result
whenJust adjustment touchManagedPtr
return result'
-- object VSeparator
newtype VSeparator = VSeparator (ForeignPtr VSeparator)
noVSeparator :: Maybe VSeparator
noVSeparator = Nothing
foreign import ccall "gtk_vseparator_get_type"
c_gtk_vseparator_get_type :: IO GType
type instance ParentTypes VSeparator = '[Separator, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject VSeparator where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_vseparator_get_type
class GObject o => VSeparatorK o
instance (GObject o, IsDescendantOf VSeparator o) => VSeparatorK o
toVSeparator :: VSeparatorK o => o -> IO VSeparator
toVSeparator = unsafeCastTo VSeparator
-- method VSeparator::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "VSeparator"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_vseparator_new" gtk_vseparator_new ::
IO (Ptr VSeparator)
{-# DEPRECATED vSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_VERTICAL instead"]#-}
vSeparatorNew ::
(MonadIO m) =>
m VSeparator
vSeparatorNew = liftIO $ do
result <- gtk_vseparator_new
checkUnexpectedReturnNULL "gtk_vseparator_new" result
result' <- (newObject VSeparator) result
return result'
-- object Viewport
newtype Viewport = Viewport (ForeignPtr Viewport)
noViewport :: Maybe Viewport
noViewport = Nothing
foreign import ccall "gtk_viewport_get_type"
c_gtk_viewport_get_type :: IO GType
type instance ParentTypes Viewport = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable]
instance GObject Viewport where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_viewport_get_type
class GObject o => ViewportK o
instance (GObject o, IsDescendantOf Viewport o) => ViewportK o
toViewport :: ViewportK o => o -> IO Viewport
toViewport = unsafeCastTo Viewport
-- method Viewport::new
-- method type : Constructor
-- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Viewport"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_new" gtk_viewport_new ::
Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment"
Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment"
IO (Ptr Viewport)
viewportNew ::
(MonadIO m, AdjustmentK a, AdjustmentK b) =>
Maybe (a) -> -- hadjustment
Maybe (b) -> -- vadjustment
m Viewport
viewportNew hadjustment vadjustment = liftIO $ do
maybeHadjustment <- case hadjustment of
Nothing -> return nullPtr
Just jHadjustment -> do
let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment
return jHadjustment'
maybeVadjustment <- case vadjustment of
Nothing -> return nullPtr
Just jVadjustment -> do
let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment
return jVadjustment'
result <- gtk_viewport_new maybeHadjustment maybeVadjustment
checkUnexpectedReturnNULL "gtk_viewport_new" result
result' <- (newObject Viewport) result
whenJust hadjustment touchManagedPtr
whenJust vadjustment touchManagedPtr
return result'
-- method Viewport::get_bin_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_get_bin_window" gtk_viewport_get_bin_window ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
IO (Ptr Gdk.Window)
viewportGetBinWindow ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
m Gdk.Window
viewportGetBinWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_viewport_get_bin_window _obj'
checkUnexpectedReturnNULL "gtk_viewport_get_bin_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Viewport::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_get_hadjustment" gtk_viewport_get_hadjustment ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
IO (Ptr Adjustment)
{-# DEPRECATED viewportGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
viewportGetHadjustment ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
m Adjustment
viewportGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_viewport_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_viewport_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Viewport::get_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ShadowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_get_shadow_type" gtk_viewport_get_shadow_type ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
IO CUInt
viewportGetShadowType ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
m ShadowType
viewportGetShadowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_viewport_get_shadow_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Viewport::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_get_vadjustment" gtk_viewport_get_vadjustment ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
IO (Ptr Adjustment)
{-# DEPRECATED viewportGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
viewportGetVadjustment ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
m Adjustment
viewportGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_viewport_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_viewport_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method Viewport::get_view_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_get_view_window" gtk_viewport_get_view_window ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
IO (Ptr Gdk.Window)
viewportGetViewWindow ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
m Gdk.Window
viewportGetViewWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_viewport_get_view_window _obj'
checkUnexpectedReturnNULL "gtk_viewport_get_view_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Viewport::set_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_set_hadjustment" gtk_viewport_set_hadjustment ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED viewportSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-}
viewportSetHadjustment ::
(MonadIO m, ViewportK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
viewportSetHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_viewport_set_hadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- method Viewport::set_shadow_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_set_shadow_type" gtk_viewport_set_shadow_type ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
CUInt -> -- type : TInterface "Gtk" "ShadowType"
IO ()
viewportSetShadowType ::
(MonadIO m, ViewportK a) =>
a -> -- _obj
ShadowType -> -- type
m ()
viewportSetShadowType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_viewport_set_shadow_type _obj' type_'
touchManagedPtr _obj
return ()
-- method Viewport::set_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_viewport_set_vadjustment" gtk_viewport_set_vadjustment ::
Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
{-# DEPRECATED viewportSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-}
viewportSetVadjustment ::
(MonadIO m, ViewportK a, AdjustmentK b) =>
a -> -- _obj
Maybe (b) -> -- adjustment
m ()
viewportSetVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
gtk_viewport_set_vadjustment _obj' maybeAdjustment
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
-- object VolumeButton
newtype VolumeButton = VolumeButton (ForeignPtr VolumeButton)
noVolumeButton :: Maybe VolumeButton
noVolumeButton = Nothing
foreign import ccall "gtk_volume_button_get_type"
c_gtk_volume_button_get_type :: IO GType
type instance ParentTypes VolumeButton = '[ScaleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, Orientable]
instance GObject VolumeButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_volume_button_get_type
class GObject o => VolumeButtonK o
instance (GObject o, IsDescendantOf VolumeButton o) => VolumeButtonK o
toVolumeButton :: VolumeButtonK o => o -> IO VolumeButton
toVolumeButton = unsafeCastTo VolumeButton
-- method VolumeButton::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "VolumeButton"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_volume_button_new" gtk_volume_button_new ::
IO (Ptr VolumeButton)
volumeButtonNew ::
(MonadIO m) =>
m VolumeButton
volumeButtonNew = liftIO $ do
result <- gtk_volume_button_new
checkUnexpectedReturnNULL "gtk_volume_button_new" result
result' <- (newObject VolumeButton) result
return result'
-- object Widget
newtype Widget = Widget (ForeignPtr Widget)
noWidget :: Maybe Widget
noWidget = Nothing
foreign import ccall "gtk_widget_get_type"
c_gtk_widget_get_type :: IO GType
type instance ParentTypes Widget = '[GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Widget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_widget_get_type
class GObject o => WidgetK o
instance (GObject o, IsDescendantOf Widget o) => WidgetK o
toWidget :: WidgetK o => o -> IO Widget
toWidget = unsafeCastTo Widget
-- method Widget::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_activate" gtk_widget_activate ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetActivate ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_activate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::add_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- accel_signal : TBasicType TUTF8
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags"
IO ()
widgetAddAccelerator ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a -> -- _obj
T.Text -> -- accel_signal
b -> -- accel_group
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
[AccelFlags] -> -- accel_flags
m ()
widgetAddAccelerator _obj accel_signal accel_group accel_key accel_mods accel_flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accel_signal' <- textToCString accel_signal
let accel_group' = unsafeManagedPtrCastPtr accel_group
let accel_mods' = gflagsToWord accel_mods
let accel_flags' = gflagsToWord accel_flags
gtk_widget_add_accelerator _obj' accel_signal' accel_group' accel_key accel_mods' accel_flags'
touchManagedPtr _obj
touchManagedPtr accel_group
freeMem accel_signal'
return ()
-- method Widget::add_device_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_add_device_events" gtk_widget_add_device_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
CUInt -> -- events : TInterface "Gdk" "EventMask"
IO ()
widgetAddDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
[Gdk.EventMask] -> -- events
m ()
widgetAddDeviceEvents _obj device events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let events' = gflagsToWord events
gtk_widget_add_device_events _obj' device' events'
touchManagedPtr _obj
touchManagedPtr device
return ()
-- method Widget::add_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_add_events" gtk_widget_add_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- events : TBasicType TInt32
IO ()
widgetAddEvents ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- events
m ()
widgetAddEvents _obj events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_add_events _obj' events
touchManagedPtr _obj
return ()
-- method Widget::add_mnemonic_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- label : TInterface "Gtk" "Widget"
IO ()
widgetAddMnemonicLabel ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- label
m ()
widgetAddMnemonicLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label' = unsafeManagedPtrCastPtr label
gtk_widget_add_mnemonic_label _obj' label'
touchManagedPtr _obj
touchManagedPtr label
return ()
-- method Widget::add_tick_callback
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO Word32
widgetAddTickCallback ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
TickCallback -> -- callback
m Word32
widgetAddTickCallback _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkTickCallback (tickCallbackWrapper Nothing callback)
let user_data = castFunPtrToPtr callback'
let notify = safeFreeFunPtrPtr
result <- gtk_widget_add_tick_callback _obj' callback' user_data notify
touchManagedPtr _obj
return result
-- method Widget::can_activate_accel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Word32 -> -- signal_id : TBasicType TUInt32
IO CInt
widgetCanActivateAccel ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Word32 -> -- signal_id
m Bool
widgetCanActivateAccel _obj signal_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_can_activate_accel _obj' signal_id
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::child_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- direction : TInterface "Gtk" "DirectionType"
IO CInt
widgetChildFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
DirectionType -> -- direction
m Bool
widgetChildFocus _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
result <- gtk_widget_child_focus _obj' direction'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::child_notify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_child_notify" gtk_widget_child_notify ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- child_property : TBasicType TUTF8
IO ()
widgetChildNotify ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- child_property
m ()
widgetChildNotify _obj child_property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
child_property' <- textToCString child_property
gtk_widget_child_notify _obj' child_property'
touchManagedPtr _obj
freeMem child_property'
return ()
-- method Widget::class_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_class_path" gtk_widget_class_path ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Word32 -> -- path_length : TBasicType TUInt32
Ptr CString -> -- path : TBasicType TUTF8
Ptr CString -> -- path_reversed : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-}
widgetClassPath ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Word32,T.Text,T.Text)
widgetClassPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path_length <- allocMem :: IO (Ptr Word32)
path <- allocMem :: IO (Ptr CString)
path_reversed <- allocMem :: IO (Ptr CString)
gtk_widget_class_path _obj' path_length path path_reversed
path_length' <- peek path_length
path' <- peek path
path'' <- cstringToText path'
freeMem path'
path_reversed' <- peek path_reversed
path_reversed'' <- cstringToText path_reversed'
freeMem path_reversed'
touchManagedPtr _obj
freeMem path_length
freeMem path
freeMem path_reversed
return (path_length', path'', path_reversed'')
-- method Widget::compute_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO CInt
widgetComputeExpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Orientation -> -- orientation
m Bool
widgetComputeExpand _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_widget_compute_expand _obj' orientation'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::create_pango_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Context"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Pango.Context)
widgetCreatePangoContext ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Pango.Context
widgetCreatePangoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_create_pango_context _obj'
checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result
result' <- (wrapObject Pango.Context) result
touchManagedPtr _obj
return result'
-- method Widget::create_pango_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Layout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- text : TBasicType TUTF8
IO (Ptr Pango.Layout)
widgetCreatePangoLayout ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (T.Text) -> -- text
m Pango.Layout
widgetCreatePangoLayout _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
result <- gtk_widget_create_pango_layout _obj' maybeText
checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result
result' <- (wrapObject Pango.Layout) result
touchManagedPtr _obj
freeMem maybeText
return result'
-- method Widget::destroy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_destroy" gtk_widget_destroy ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDestroy ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDestroy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_destroy _obj'
touchManagedPtr _obj
return ()
-- method Widget::destroyed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget"
IO ()
widgetDestroyed ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- widget_pointer
m (Widget)
widgetDestroyed _obj widget_pointer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_pointer' = unsafeManagedPtrCastPtr widget_pointer
widget_pointer'' <- allocMem :: IO (Ptr (Ptr Widget))
poke widget_pointer'' widget_pointer'
gtk_widget_destroyed _obj' widget_pointer''
widget_pointer''' <- peek widget_pointer''
widget_pointer'''' <- (newObject Widget) widget_pointer'''
touchManagedPtr _obj
touchManagedPtr widget_pointer
freeMem widget_pointer''
return widget_pointer''''
-- method Widget::device_is_shadowed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO CInt
widgetDeviceIsShadowed ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
m Bool
widgetDeviceIsShadowed _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_device_is_shadowed _obj' device'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr device
return result'
-- method Widget::drag_begin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "DragContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_begin" gtk_drag_begin ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList"
CUInt -> -- actions : TInterface "Gdk" "DragAction"
Int32 -> -- button : TBasicType TInt32
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO (Ptr Gdk.DragContext)
{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-}
widgetDragBegin ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
TargetList -> -- targets
[Gdk.DragAction] -> -- actions
Int32 -> -- button
Maybe (Gdk.Event) -> -- event
m Gdk.DragContext
widgetDragBegin _obj targets actions button event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = unsafeManagedPtrGetPtr targets
let actions' = gflagsToWord actions
maybeEvent <- case event of
Nothing -> return nullPtr
Just jEvent -> do
let jEvent' = unsafeManagedPtrGetPtr jEvent
return jEvent'
result <- gtk_drag_begin _obj' targets' actions' button maybeEvent
checkUnexpectedReturnNULL "gtk_drag_begin" result
result' <- (newObject Gdk.DragContext) result
touchManagedPtr _obj
touchManagedPtr targets
whenJust event touchManagedPtr
return result'
-- method Widget::drag_begin_with_coordinates
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "DragContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList"
CUInt -> -- actions : TInterface "Gdk" "DragAction"
Int32 -> -- button : TBasicType TInt32
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr Gdk.DragContext)
widgetDragBeginWithCoordinates ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
TargetList -> -- targets
[Gdk.DragAction] -> -- actions
Int32 -> -- button
Maybe (Gdk.Event) -> -- event
Int32 -> -- x
Int32 -> -- y
m Gdk.DragContext
widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = unsafeManagedPtrGetPtr targets
let actions' = gflagsToWord actions
maybeEvent <- case event of
Nothing -> return nullPtr
Just jEvent -> do
let jEvent' = unsafeManagedPtrGetPtr jEvent
return jEvent'
result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y
checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result
result' <- (newObject Gdk.DragContext) result
touchManagedPtr _obj
touchManagedPtr targets
whenJust event touchManagedPtr
return result'
-- method Widget::drag_check_threshold
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- start_x : TBasicType TInt32
Int32 -> -- start_y : TBasicType TInt32
Int32 -> -- current_x : TBasicType TInt32
Int32 -> -- current_y : TBasicType TInt32
IO CInt
widgetDragCheckThreshold ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- start_x
Int32 -> -- start_y
Int32 -> -- current_x
Int32 -> -- current_y
m Bool
widgetDragCheckThreshold _obj start_x start_y current_x current_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_check_threshold _obj' start_x start_y current_x current_y
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::drag_dest_add_image_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragDestAddImageTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragDestAddImageTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_image_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_dest_add_text_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragDestAddTextTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragDestAddTextTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_text_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_dest_add_uri_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragDestAddUriTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragDestAddUriTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_uri_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_dest_find_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Atom"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList"
IO (Ptr Gdk.Atom)
widgetDragDestFindTarget ::
(MonadIO m, WidgetK a, Gdk.DragContextK b) =>
a -> -- _obj
b -> -- context
Maybe (TargetList) -> -- target_list
m Gdk.Atom
widgetDragDestFindTarget _obj context target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
result <- gtk_drag_dest_find_target _obj' context' maybeTarget_list
checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
touchManagedPtr context
whenJust target_list touchManagedPtr
return result'
-- method Widget::drag_dest_get_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr TargetList)
widgetDragDestGetTargetList ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m TargetList
widgetDragDestGetTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_dest_get_target_list _obj'
checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
-- method Widget::drag_dest_get_track_motion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetDragDestGetTrackMotion ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetDragDestGetTrackMotion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_dest_get_track_motion _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::drag_dest_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "DestDefaults"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
widgetDragDestSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[DestDefaults] -> -- flags
Maybe ([TargetEntry]) -> -- targets
[Gdk.DragAction] -> -- actions
m ()
widgetDragDestSet _obj flags targets actions = liftIO $ do
let n_targets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
let actions' = gflagsToWord actions
gtk_drag_dest_set _obj' flags' maybeTargets n_targets actions'
touchManagedPtr _obj
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return ()
-- method Widget::drag_dest_set_proxy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window"
CUInt -> -- protocol : TInterface "Gdk" "DragProtocol"
CInt -> -- use_coordinates : TBasicType TBoolean
IO ()
widgetDragDestSetProxy ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- proxy_window
Gdk.DragProtocol -> -- protocol
Bool -> -- use_coordinates
m ()
widgetDragDestSetProxy _obj proxy_window protocol use_coordinates = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let proxy_window' = unsafeManagedPtrCastPtr proxy_window
let protocol' = (fromIntegral . fromEnum) protocol
let use_coordinates' = (fromIntegral . fromEnum) use_coordinates
gtk_drag_dest_set_proxy _obj' proxy_window' protocol' use_coordinates'
touchManagedPtr _obj
touchManagedPtr proxy_window
return ()
-- method Widget::drag_dest_set_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList"
IO ()
widgetDragDestSetTargetList ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (TargetList) -> -- target_list
m ()
widgetDragDestSetTargetList _obj target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
gtk_drag_dest_set_target_list _obj' maybeTarget_list
touchManagedPtr _obj
whenJust target_list touchManagedPtr
return ()
-- method Widget::drag_dest_set_track_motion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- track_motion : TBasicType TBoolean
IO ()
widgetDragDestSetTrackMotion ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- track_motion
m ()
widgetDragDestSetTrackMotion _obj track_motion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let track_motion' = (fromIntegral . fromEnum) track_motion
gtk_drag_dest_set_track_motion _obj' track_motion'
touchManagedPtr _obj
return ()
-- method Widget::drag_dest_unset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragDestUnset ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragDestUnset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_unset _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_get_data" gtk_drag_get_data ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO ()
widgetDragGetData ::
(MonadIO m, WidgetK a, Gdk.DragContextK b) =>
a -> -- _obj
b -> -- context
Gdk.Atom -> -- target
Word32 -> -- time_
m ()
widgetDragGetData _obj context target time_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let target' = unsafeManagedPtrGetPtr target
gtk_drag_get_data _obj' context' target' time_
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr target
return ()
-- method Widget::drag_highlight
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_highlight" gtk_drag_highlight ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragHighlight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragHighlight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_highlight _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_source_add_image_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragSourceAddImageTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragSourceAddImageTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_image_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_source_add_text_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragSourceAddTextTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragSourceAddTextTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_text_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_source_add_uri_targets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragSourceAddUriTargets ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragSourceAddUriTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_uri_targets _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_source_get_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr TargetList)
widgetDragSourceGetTargetList ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m TargetList
widgetDragSourceGetTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_source_get_target_list _obj'
checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
-- method Widget::drag_source_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set" gtk_drag_source_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
widgetDragSourceSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[Gdk.ModifierType] -> -- start_button_mask
Maybe ([TargetEntry]) -> -- targets
[Gdk.DragAction] -> -- actions
m ()
widgetDragSourceSet _obj start_button_mask targets actions = liftIO $ do
let n_targets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
let _obj' = unsafeManagedPtrCastPtr _obj
let start_button_mask' = gflagsToWord start_button_mask
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
let actions' = gflagsToWord actions
gtk_drag_source_set _obj' start_button_mask' maybeTargets n_targets actions'
touchManagedPtr _obj
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return ()
-- method Widget::drag_source_set_icon_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
widgetDragSourceSetIconGicon ::
(MonadIO m, WidgetK a, Gio.IconK b) =>
a -> -- _obj
b -> -- icon
m ()
widgetDragSourceSetIconGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_drag_source_set_icon_gicon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method Widget::drag_source_set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- icon_name : TBasicType TUTF8
IO ()
widgetDragSourceSetIconName ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- icon_name
m ()
widgetDragSourceSetIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
gtk_drag_source_set_icon_name _obj' icon_name'
touchManagedPtr _obj
freeMem icon_name'
return ()
-- method Widget::drag_source_set_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
IO ()
widgetDragSourceSetIconPixbuf ::
(MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
b -> -- pixbuf
m ()
widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_drag_source_set_icon_pixbuf _obj' pixbuf'
touchManagedPtr _obj
touchManagedPtr pixbuf
return ()
-- method Widget::drag_source_set_icon_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-}
widgetDragSourceSetIconStock ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- stock_id
m ()
widgetDragSourceSetIconStock _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
gtk_drag_source_set_icon_stock _obj' stock_id'
touchManagedPtr _obj
freeMem stock_id'
return ()
-- method Widget::drag_source_set_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList"
IO ()
widgetDragSourceSetTargetList ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (TargetList) -> -- target_list
m ()
widgetDragSourceSetTargetList _obj target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
gtk_drag_source_set_target_list _obj' maybeTarget_list
touchManagedPtr _obj
whenJust target_list touchManagedPtr
return ()
-- method Widget::drag_source_unset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragSourceUnset ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragSourceUnset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_unset _obj'
touchManagedPtr _obj
return ()
-- method Widget::drag_unhighlight
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetDragUnhighlight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetDragUnhighlight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_unhighlight _obj'
touchManagedPtr _obj
return ()
-- method Widget::draw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_draw" gtk_widget_draw ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
IO ()
widgetDraw ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Cairo.Context -> -- cr
m ()
widgetDraw _obj cr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
gtk_widget_draw _obj' cr'
touchManagedPtr _obj
touchManagedPtr cr
return ()
-- method Widget::ensure_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_ensure_style" gtk_widget_ensure_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
widgetEnsureStyle ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetEnsureStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_ensure_style _obj'
touchManagedPtr _obj
return ()
-- method Widget::error_bell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetErrorBell ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetErrorBell _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_error_bell _obj'
touchManagedPtr _obj
return ()
-- method Widget::event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_event" gtk_widget_event ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO CInt
widgetEvent ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Bool
widgetEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method Widget::freeze_child_notify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetFreezeChildNotify ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetFreezeChildNotify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_freeze_child_notify _obj'
touchManagedPtr _obj
return ()
-- method Widget::get_accessible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Atk.Object)
widgetGetAccessible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Atk.Object
widgetGetAccessible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_accessible _obj'
checkUnexpectedReturnNULL "gtk_widget_get_accessible" result
result' <- (newObject Atk.Object) result
touchManagedPtr _obj
return result'
-- method Widget::get_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "ActionGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- prefix : TBasicType TUTF8
IO (Ptr Gio.ActionGroup)
widgetGetActionGroup ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- prefix
m Gio.ActionGroup
widgetGetActionGroup _obj prefix = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
prefix' <- textToCString prefix
result <- gtk_widget_get_action_group _obj' prefix'
checkUnexpectedReturnNULL "gtk_widget_get_action_group" result
result' <- (newObject Gio.ActionGroup) result
touchManagedPtr _obj
freeMem prefix'
return result'
-- method Widget::get_allocated_baseline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetAllocatedBaseline ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetAllocatedBaseline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_baseline _obj'
touchManagedPtr _obj
return result
-- method Widget::get_allocated_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetAllocatedHeight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetAllocatedHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_height _obj'
touchManagedPtr _obj
return result
-- method Widget::get_allocated_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetAllocatedWidth ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetAllocatedWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_width _obj'
touchManagedPtr _obj
return result
-- method Widget::get_allocation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle"
IO ()
widgetGetAllocation ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Gdk.Rectangle)
widgetGetAllocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_widget_get_allocation _obj' allocation
allocation' <- (wrapBoxed Gdk.Rectangle) allocation
touchManagedPtr _obj
return allocation'
-- method Widget::get_ancestor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CGType -> -- widget_type : TBasicType TGType
IO (Ptr Widget)
widgetGetAncestor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
GType -> -- widget_type
m Widget
widgetGetAncestor _obj widget_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_type' = gtypeToCGType widget_type
result <- gtk_widget_get_ancestor _obj' widget_type'
checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Widget::get_app_paintable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetAppPaintable ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetAppPaintable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_app_paintable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_can_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_can_default" gtk_widget_get_can_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetCanDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetCanDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_can_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_can_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetCanFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetCanFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_can_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_child_requisition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition"
IO ()
{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-}
widgetGetChildRequisition ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Requisition)
widgetGetChildRequisition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_child_requisition _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
-- method Widget::get_child_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetChildVisible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetChildVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_child_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_clip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle"
IO ()
widgetGetClip ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Gdk.Rectangle)
widgetGetClip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_widget_get_clip _obj' clip
clip' <- (wrapBoxed Gdk.Rectangle) clip
touchManagedPtr _obj
return clip'
-- method Widget::get_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Clipboard"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
IO (Ptr Clipboard)
widgetGetClipboard ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Atom -> -- selection
m Clipboard
widgetGetClipboard _obj selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_widget_get_clipboard _obj' selection'
checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result
result' <- (newObject Clipboard) result
touchManagedPtr _obj
touchManagedPtr selection
return result'
-- method Widget::get_composite_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_composite_name" gtk_widget_get_composite_name ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CString
{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-}
widgetGetCompositeName ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m T.Text
widgetGetCompositeName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_composite_name _obj'
checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Widget::get_device_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO CInt
widgetGetDeviceEnabled ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
m Bool
widgetGetDeviceEnabled _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_get_device_enabled _obj' device'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr device
return result'
-- method Widget::get_device_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "EventMask"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO CUInt
widgetGetDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
m [Gdk.EventMask]
widgetGetDeviceEvents _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_get_device_events _obj' device'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr device
return result'
-- method Widget::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetDirection ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m TextDirection
widgetGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_display
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Display"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_display" gtk_widget_get_display ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Display)
widgetGetDisplay ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Display
widgetGetDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_display _obj'
checkUnexpectedReturnNULL "gtk_widget_get_display" result
result' <- (newObject Gdk.Display) result
touchManagedPtr _obj
return result'
-- method Widget::get_double_buffered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetDoubleBuffered ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetDoubleBuffered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_double_buffered _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_events" gtk_widget_get_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetEvents ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_events _obj'
touchManagedPtr _obj
return result
-- method Widget::get_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "FontMap"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Pango.FontMap)
widgetGetFontMap ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Pango.FontMap
widgetGetFontMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_font_map _obj'
checkUnexpectedReturnNULL "gtk_widget_get_font_map" result
result' <- (newObject Pango.FontMap) result
touchManagedPtr _obj
return result'
-- method Widget::get_font_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "FontOptions"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Cairo.FontOptions)
widgetGetFontOptions ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Cairo.FontOptions
widgetGetFontOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_font_options _obj'
checkUnexpectedReturnNULL "gtk_widget_get_font_options" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method Widget::get_frame_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "FrameClock"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.FrameClock)
widgetGetFrameClock ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.FrameClock
widgetGetFrameClock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_frame_clock _obj'
checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result
result' <- (newObject Gdk.FrameClock) result
touchManagedPtr _obj
return result'
-- method Widget::get_halign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Align"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetHalign ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Align
widgetGetHalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_halign _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_has_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetHasTooltip ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetHasTooltip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_has_tooltip _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_has_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_has_window" gtk_widget_get_has_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetHasWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetHasWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_has_window _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_hexpand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetHexpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetHexpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_hexpand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_hexpand_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetHexpandSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetHexpandSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_hexpand_set _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_mapped
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetMapped ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetMapped _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_mapped _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_margin_bottom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetMarginBottom ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginBottom _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_bottom _obj'
touchManagedPtr _obj
return result
-- method Widget::get_margin_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetMarginEnd ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_end _obj'
touchManagedPtr _obj
return result
-- method Widget::get_margin_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_left" gtk_widget_get_margin_left ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-}
widgetGetMarginLeft ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_left _obj'
touchManagedPtr _obj
return result
-- method Widget::get_margin_right
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_right" gtk_widget_get_margin_right ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-}
widgetGetMarginRight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginRight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_right _obj'
touchManagedPtr _obj
return result
-- method Widget::get_margin_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetMarginStart ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_start _obj'
touchManagedPtr _obj
return result
-- method Widget::get_margin_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetMarginTop ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetMarginTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_top _obj'
touchManagedPtr _obj
return result
-- method Widget::get_modifier_mask
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "ModifierType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- intent : TInterface "Gdk" "ModifierIntent"
IO CUInt
widgetGetModifierMask ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.ModifierIntent -> -- intent
m [Gdk.ModifierType]
widgetGetModifierMask _obj intent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let intent' = (fromIntegral . fromEnum) intent
result <- gtk_widget_get_modifier_mask _obj' intent'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method Widget::get_modifier_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "RcStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr RcStyle)
{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
widgetGetModifierStyle ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m RcStyle
widgetGetModifierStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_modifier_style _obj'
checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result
result' <- (newObject RcStyle) result
touchManagedPtr _obj
return result'
-- method Widget::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_name" gtk_widget_get_name ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CString
widgetGetName ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m T.Text
widgetGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_name _obj'
checkUnexpectedReturnNULL "gtk_widget_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Widget::get_no_show_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetNoShowAll ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetNoShowAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_no_show_all _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_opacity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CDouble
widgetGetOpacity ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Double
widgetGetOpacity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_opacity _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Widget::get_pango_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Pango" "Context"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Pango.Context)
widgetGetPangoContext ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Pango.Context
widgetGetPangoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_pango_context _obj'
checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result
result' <- (newObject Pango.Context) result
touchManagedPtr _obj
return result'
-- method Widget::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Widget)
widgetGetParent ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Widget
widgetGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_parent _obj'
checkUnexpectedReturnNULL "gtk_widget_get_parent" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Widget::get_parent_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Window)
widgetGetParentWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Window
widgetGetParentWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_parent_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Widget::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_path" gtk_widget_get_path ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr WidgetPath)
widgetGetPath ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m WidgetPath
widgetGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_path _obj'
checkUnexpectedReturnNULL "gtk_widget_get_path" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method Widget::get_pointer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-}
widgetGetPointer ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Int32,Int32)
widgetGetPointer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_widget_get_pointer _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
-- method Widget::get_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
widgetGetPreferredHeight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Int32,Int32)
widgetGetPreferredHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height _obj' minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method Widget::get_preferred_height_and_baseline_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minimum_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
Ptr Int32 -> -- minimum_baseline : TBasicType TInt32
Ptr Int32 -> -- natural_baseline : TBasicType TInt32
IO ()
widgetGetPreferredHeightAndBaselineForWidth ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- width
m (Int32,Int32,Int32,Int32)
widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
minimum_baseline <- allocMem :: IO (Ptr Int32)
natural_baseline <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimum_height natural_height minimum_baseline natural_baseline
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
minimum_baseline' <- peek minimum_baseline
natural_baseline' <- peek natural_baseline
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
freeMem minimum_baseline
freeMem natural_baseline
return (minimum_height', natural_height', minimum_baseline', natural_baseline')
-- method Widget::get_preferred_height_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
widgetGetPreferredHeightForWidth ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- width
m (Int32,Int32)
widgetGetPreferredHeightForWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height_for_width _obj' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
-- method Widget::get_preferred_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition"
Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition"
IO ()
widgetGetPreferredSize ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Requisition,Requisition)
widgetGetPreferredSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_preferred_size _obj' minimum_size natural_size
minimum_size' <- (wrapBoxed Requisition) minimum_size
natural_size' <- (wrapBoxed Requisition) natural_size
touchManagedPtr _obj
return (minimum_size', natural_size')
-- method Widget::get_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
widgetGetPreferredWidth ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Int32,Int32)
widgetGetPreferredWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_width _obj' minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method Widget::get_preferred_width_for_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
widgetGetPreferredWidthForHeight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- height
m (Int32,Int32)
widgetGetPreferredWidthForHeight _obj height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_width_for_height _obj' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
-- method Widget::get_realized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetRealized ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetRealized _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_realized _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_receives_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetReceivesDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetReceivesDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_receives_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_request_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SizeRequestMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetRequestMode ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m SizeRequestMode
widgetGetRequestMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_request_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_requisition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition"
IO ()
{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-}
widgetGetRequisition ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Requisition)
widgetGetRequisition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_requisition _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
-- method Widget::get_root_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Window)
{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-}
widgetGetRootWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Window
widgetGetRootWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_root_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_root_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Widget::get_scale_factor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO Int32
widgetGetScaleFactor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Int32
widgetGetScaleFactor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_scale_factor _obj'
touchManagedPtr _obj
return result
-- method Widget::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Screen)
widgetGetScreen ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Screen
widgetGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_screen _obj'
checkUnexpectedReturnNULL "gtk_widget_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method Widget::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetSensitive ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Settings)
widgetGetSettings ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Settings
widgetGetSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_settings _obj'
checkUnexpectedReturnNULL "gtk_widget_get_settings" result
result' <- (newObject Settings) result
touchManagedPtr _obj
return result'
-- method Widget::get_size_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
widgetGetSizeRequest ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Int32,Int32)
widgetGetSizeRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_size_request _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method Widget::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_state" gtk_widget_get_state ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-}
widgetGetState ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m StateType
widgetGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_state _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_state_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetStateFlags ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m [StateFlags]
widgetGetStateFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_state_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method Widget::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_style" gtk_widget_get_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Style)
{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
widgetGetStyle ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Style
widgetGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_style _obj'
checkUnexpectedReturnNULL "gtk_widget_get_style" result
result' <- (newObject Style) result
touchManagedPtr _obj
return result'
-- method Widget::get_style_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StyleContext"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr StyleContext)
widgetGetStyleContext ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m StyleContext
widgetGetStyleContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_style_context _obj'
checkUnexpectedReturnNULL "gtk_widget_get_style_context" result
result' <- (newObject StyleContext) result
touchManagedPtr _obj
return result'
-- method Widget::get_support_multidevice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetSupportMultidevice ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetSupportMultidevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_support_multidevice _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_template_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CGType -> -- widget_type : TBasicType TGType
CString -> -- name : TBasicType TUTF8
IO (Ptr GObject.Object)
widgetGetTemplateChild ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
GType -> -- widget_type
T.Text -> -- name
m GObject.Object
widgetGetTemplateChild _obj widget_type name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_type' = gtypeToCGType widget_type
name' <- textToCString name
result <- gtk_widget_get_template_child _obj' widget_type' name'
checkUnexpectedReturnNULL "gtk_widget_get_template_child" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
freeMem name'
return result'
-- method Widget::get_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CString
widgetGetTooltipMarkup ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m T.Text
widgetGetTooltipMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_markup _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Widget::get_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CString
widgetGetTooltipText ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m T.Text
widgetGetTooltipText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_text _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method Widget::get_tooltip_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Window)
widgetGetTooltipWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Window
widgetGetTooltipWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
-- method Widget::get_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Widget)
widgetGetToplevel ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Widget
widgetGetToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_toplevel _obj'
checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Widget::get_valign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Align"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetValign ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Align
widgetGetValign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_valign _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_valign_with_baseline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Align"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CUInt
widgetGetValignWithBaseline ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Align
widgetGetValignWithBaseline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_valign_with_baseline _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Widget::get_vexpand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetVexpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetVexpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_vexpand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_vexpand_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetVexpandSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetVexpandSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_vexpand_set _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetGetVisible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::get_visual
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Visual"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Visual)
widgetGetVisual ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Visual
widgetGetVisual _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_visual _obj'
checkUnexpectedReturnNULL "gtk_widget_get_visual" result
result' <- (newObject Gdk.Visual) result
touchManagedPtr _obj
return result'
-- method Widget::get_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_window" gtk_widget_get_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr Gdk.Window)
widgetGetWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Gdk.Window
widgetGetWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
-- method Widget::grab_add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grab_add" gtk_grab_add ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetGrabAdd ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetGrabAdd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grab_add _obj'
touchManagedPtr _obj
return ()
-- method Widget::grab_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetGrabDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetGrabDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_grab_default _obj'
touchManagedPtr _obj
return ()
-- method Widget::grab_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetGrabFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetGrabFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_grab_focus _obj'
touchManagedPtr _obj
return ()
-- method Widget::grab_remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grab_remove" gtk_grab_remove ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetGrabRemove ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetGrabRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grab_remove _obj'
touchManagedPtr _obj
return ()
-- method Widget::has_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_default" gtk_widget_has_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHasDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::has_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHasFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::has_grab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHasGrab ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasGrab _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_grab _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::has_rc_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_rc_style" gtk_widget_has_rc_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
widgetHasRcStyle ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasRcStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_rc_style _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::has_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHasScreen ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_screen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::has_visible_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHasVisibleFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHasVisibleFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_visible_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::hide
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_hide" gtk_widget_hide ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetHide ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetHide _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_hide _obj'
touchManagedPtr _obj
return ()
-- method Widget::hide_on_delete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetHideOnDelete ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetHideOnDelete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_hide_on_delete _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::in_destruction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetInDestruction ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetInDestruction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_in_destruction _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::init_template
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_init_template" gtk_widget_init_template ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetInitTemplate ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetInitTemplate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_init_template _obj'
touchManagedPtr _obj
return ()
-- method Widget::input_shape_combine_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO ()
widgetInputShapeCombineRegion ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Cairo.Region) -> -- region
m ()
widgetInputShapeCombineRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion <- case region of
Nothing -> return nullPtr
Just jRegion -> do
let jRegion' = unsafeManagedPtrGetPtr jRegion
return jRegion'
gtk_widget_input_shape_combine_region _obj' maybeRegion
touchManagedPtr _obj
whenJust region touchManagedPtr
return ()
-- method Widget::insert_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup"
IO ()
widgetInsertActionGroup ::
(MonadIO m, WidgetK a, Gio.ActionGroupK b) =>
a -> -- _obj
T.Text -> -- name
Maybe (b) -> -- group
m ()
widgetInsertActionGroup _obj name group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
gtk_widget_insert_action_group _obj' name' maybeGroup
touchManagedPtr _obj
whenJust group touchManagedPtr
freeMem name'
return ()
-- method Widget::intersect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_intersect" gtk_widget_intersect ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle"
IO CInt
widgetIntersect ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Rectangle -> -- area
Maybe (Gdk.Rectangle) -> -- intersection
m Bool
widgetIntersect _obj area intersection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let area' = unsafeManagedPtrGetPtr area
maybeIntersection <- case intersection of
Nothing -> return nullPtr
Just jIntersection -> do
let jIntersection' = unsafeManagedPtrGetPtr jIntersection
return jIntersection'
result <- gtk_widget_intersect _obj' area' maybeIntersection
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr area
whenJust intersection touchManagedPtr
return result'
-- method Widget::is_ancestor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget"
IO CInt
widgetIsAncestor ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- ancestor
m Bool
widgetIsAncestor _obj ancestor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ancestor' = unsafeManagedPtrCastPtr ancestor
result <- gtk_widget_is_ancestor _obj' ancestor'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr ancestor
return result'
-- method Widget::is_composited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsComposited ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsComposited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_composited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::is_drawable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsDrawable ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsDrawable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_drawable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::is_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::is_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsSensitive ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::is_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsToplevel ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_toplevel _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO CInt
widgetIsVisible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m Bool
widgetIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::keynav_failed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- direction : TInterface "Gtk" "DirectionType"
IO CInt
widgetKeynavFailed ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
DirectionType -> -- direction
m Bool
widgetKeynavFailed _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
result <- gtk_widget_keynav_failed _obj' direction'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::list_accel_closures
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "GObject" "Closure")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr (GList (Ptr Closure)))
widgetListAccelClosures ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m [Closure]
widgetListAccelClosures _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_accel_closures _obj'
checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result
result' <- unpackGList result
result'' <- mapM (newBoxed Closure) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Widget::list_action_prefixes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr CString)
widgetListActionPrefixes ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m [T.Text]
widgetListActionPrefixes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_action_prefixes _obj'
checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result
result' <- unpackZeroTerminatedUTF8CArray result
freeMem result
touchManagedPtr _obj
return result'
-- method Widget::list_mnemonic_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO (Ptr (GList (Ptr Widget)))
widgetListMnemonicLabels ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m [Widget]
widgetListMnemonicLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_mnemonic_labels _obj'
checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Widget::map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_map" gtk_widget_map ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetMap ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_map _obj'
touchManagedPtr _obj
return ()
-- method Widget::mnemonic_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- group_cycling : TBasicType TBoolean
IO CInt
widgetMnemonicActivate ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- group_cycling
m Bool
widgetMnemonicActivate _obj group_cycling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group_cycling' = (fromIntegral . fromEnum) group_cycling
result <- gtk_widget_mnemonic_activate _obj' group_cycling'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Widget::modify_base
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-}
widgetModifyBase ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
StateType -> -- state
Maybe (Gdk.Color) -> -- color
m ()
widgetModifyBase _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_base _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::modify_bg
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-}
widgetModifyBg ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
StateType -> -- state
Maybe (Gdk.Color) -> -- color
m ()
widgetModifyBg _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_bg _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::modify_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color"
Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-}
widgetModifyCursor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Gdk.Color) -> -- primary
Maybe (Gdk.Color) -> -- secondary
m ()
widgetModifyCursor _obj primary secondary = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePrimary <- case primary of
Nothing -> return nullPtr
Just jPrimary -> do
let jPrimary' = unsafeManagedPtrGetPtr jPrimary
return jPrimary'
maybeSecondary <- case secondary of
Nothing -> return nullPtr
Just jSecondary -> do
let jSecondary' = unsafeManagedPtrGetPtr jSecondary
return jSecondary'
gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary
touchManagedPtr _obj
whenJust primary touchManagedPtr
whenJust secondary touchManagedPtr
return ()
-- method Widget::modify_fg
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-}
widgetModifyFg ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
StateType -> -- state
Maybe (Gdk.Color) -> -- color
m ()
widgetModifyFg _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_fg _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::modify_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription"
IO ()
{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-}
widgetModifyFont ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Pango.FontDescription) -> -- font_desc
m ()
widgetModifyFont _obj font_desc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFont_desc <- case font_desc of
Nothing -> return nullPtr
Just jFont_desc -> do
let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc
return jFont_desc'
gtk_widget_modify_font _obj' maybeFont_desc
touchManagedPtr _obj
whenJust font_desc touchManagedPtr
return ()
-- method Widget::modify_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_style" gtk_widget_modify_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle"
IO ()
{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
widgetModifyStyle ::
(MonadIO m, WidgetK a, RcStyleK b) =>
a -> -- _obj
b -> -- style
m ()
widgetModifyStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = unsafeManagedPtrCastPtr style
gtk_widget_modify_style _obj' style'
touchManagedPtr _obj
touchManagedPtr style
return ()
-- method Widget::modify_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateType"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-}
widgetModifyText ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
StateType -> -- state
Maybe (Gdk.Color) -> -- color
m ()
widgetModifyText _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_text _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::override_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-}
widgetOverrideBackgroundColor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[StateFlags] -> -- state
Maybe (Gdk.RGBA) -> -- color
m ()
widgetOverrideBackgroundColor _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_background_color _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::override_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_override_color" gtk_widget_override_color ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateFlags"
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-}
widgetOverrideColor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[StateFlags] -> -- state
Maybe (Gdk.RGBA) -> -- color
m ()
widgetOverrideColor _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_color _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
-- method Widget::override_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA"
Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-}
widgetOverrideCursor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Gdk.RGBA) -> -- cursor
Maybe (Gdk.RGBA) -> -- secondary_cursor
m ()
widgetOverrideCursor _obj cursor secondary_cursor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCursor <- case cursor of
Nothing -> return nullPtr
Just jCursor -> do
let jCursor' = unsafeManagedPtrGetPtr jCursor
return jCursor'
maybeSecondary_cursor <- case secondary_cursor of
Nothing -> return nullPtr
Just jSecondary_cursor -> do
let jSecondary_cursor' = unsafeManagedPtrGetPtr jSecondary_cursor
return jSecondary_cursor'
gtk_widget_override_cursor _obj' maybeCursor maybeSecondary_cursor
touchManagedPtr _obj
whenJust cursor touchManagedPtr
whenJust secondary_cursor touchManagedPtr
return ()
-- method Widget::override_font
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_override_font" gtk_widget_override_font ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription"
IO ()
{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-}
widgetOverrideFont ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Pango.FontDescription) -> -- font_desc
m ()
widgetOverrideFont _obj font_desc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFont_desc <- case font_desc of
Nothing -> return nullPtr
Just jFont_desc -> do
let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc
return jFont_desc'
gtk_widget_override_font _obj' maybeFont_desc
touchManagedPtr _obj
whenJust font_desc touchManagedPtr
return ()
-- method Widget::override_symbolic_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA"
IO ()
{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-}
widgetOverrideSymbolicColor ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- name
Maybe (Gdk.RGBA) -> -- color
m ()
widgetOverrideSymbolicColor _obj name color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_symbolic_color _obj' name' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
freeMem name'
return ()
-- method Widget::path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path" gtk_widget_path ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Word32 -> -- path_length : TBasicType TUInt32
Ptr CString -> -- path : TBasicType TUTF8
Ptr CString -> -- path_reversed : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-}
widgetPath ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Word32,T.Text,T.Text)
widgetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path_length <- allocMem :: IO (Ptr Word32)
path <- allocMem :: IO (Ptr CString)
path_reversed <- allocMem :: IO (Ptr CString)
gtk_widget_path _obj' path_length path path_reversed
path_length' <- peek path_length
path' <- peek path
path'' <- cstringToText path'
freeMem path'
path_reversed' <- peek path_reversed
path_reversed'' <- cstringToText path_reversed'
freeMem path_reversed'
touchManagedPtr _obj
freeMem path_length
freeMem path
freeMem path_reversed
return (path_length', path'', path_reversed'')
-- method Widget::queue_compute_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetQueueComputeExpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetQueueComputeExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_compute_expand _obj'
touchManagedPtr _obj
return ()
-- method Widget::queue_draw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetQueueDraw ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetQueueDraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_draw _obj'
touchManagedPtr _obj
return ()
-- method Widget::queue_draw_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
widgetQueueDrawArea ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
widgetQueueDrawArea _obj x y width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_draw_area _obj' x y width height
touchManagedPtr _obj
return ()
-- method Widget::queue_draw_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO ()
widgetQueueDrawRegion ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Cairo.Region -> -- region
m ()
widgetQueueDrawRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
gtk_widget_queue_draw_region _obj' region'
touchManagedPtr _obj
touchManagedPtr region
return ()
-- method Widget::queue_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetQueueResize ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetQueueResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_resize _obj'
touchManagedPtr _obj
return ()
-- method Widget::queue_resize_no_redraw
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetQueueResizeNoRedraw ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetQueueResizeNoRedraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_resize_no_redraw _obj'
touchManagedPtr _obj
return ()
-- method Widget::realize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_realize" gtk_widget_realize ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetRealize ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetRealize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_realize _obj'
touchManagedPtr _obj
return ()
-- method Widget::region_intersect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Region"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO (Ptr Cairo.Region)
{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-}
widgetRegionIntersect ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Cairo.Region -> -- region
m Cairo.Region
widgetRegionIntersect _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
result <- gtk_widget_region_intersect _obj' region'
checkUnexpectedReturnNULL "gtk_widget_region_intersect" result
result' <- (wrapBoxed Cairo.Region) result
touchManagedPtr _obj
touchManagedPtr region
return result'
-- method Widget::register_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_register_window" gtk_widget_register_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
widgetRegisterWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
m ()
widgetRegisterWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_widget_register_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method Widget::remove_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO CInt
widgetRemoveAccelerator ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a -> -- _obj
b -> -- accel_group
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m Bool
widgetRemoveAccelerator _obj accel_group accel_key accel_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_group' = unsafeManagedPtrCastPtr accel_group
let accel_mods' = gflagsToWord accel_mods
result <- gtk_widget_remove_accelerator _obj' accel_group' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr accel_group
return result'
-- method Widget::remove_mnemonic_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- label : TInterface "Gtk" "Widget"
IO ()
widgetRemoveMnemonicLabel ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- label
m ()
widgetRemoveMnemonicLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label' = unsafeManagedPtrCastPtr label
gtk_widget_remove_mnemonic_label _obj' label'
touchManagedPtr _obj
touchManagedPtr label
return ()
-- method Widget::remove_tick_callback
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Word32 -> -- id : TBasicType TUInt32
IO ()
widgetRemoveTickCallback ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Word32 -> -- id
m ()
widgetRemoveTickCallback _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_remove_tick_callback _obj' id
touchManagedPtr _obj
return ()
-- method Widget::render_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
CString -> -- detail : TBasicType TUTF8
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-}
widgetRenderIcon ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- stock_id
Int32 -> -- size
Maybe (T.Text) -> -- detail
m GdkPixbuf.Pixbuf
widgetRenderIcon _obj stock_id size detail = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
result <- gtk_widget_render_icon _obj' stock_id' size maybeDetail
checkUnexpectedReturnNULL "gtk_widget_render_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem stock_id'
freeMem maybeDetail
return result'
-- method Widget::render_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt32
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-}
widgetRenderIconPixbuf ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- stock_id
Int32 -> -- size
m GdkPixbuf.Pixbuf
widgetRenderIconPixbuf _obj stock_id size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
result <- gtk_widget_render_icon_pixbuf _obj' stock_id' size
checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem stock_id'
return result'
-- method Widget::reparent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_reparent" gtk_widget_reparent ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-}
widgetReparent ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- new_parent
m ()
widgetReparent _obj new_parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let new_parent' = unsafeManagedPtrCastPtr new_parent
gtk_widget_reparent _obj' new_parent'
touchManagedPtr _obj
touchManagedPtr new_parent
return ()
-- method Widget::reset_rc_styles
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-}
widgetResetRcStyles ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetResetRcStyles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_reset_rc_styles _obj'
touchManagedPtr _obj
return ()
-- method Widget::reset_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetResetStyle ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetResetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_reset_style _obj'
touchManagedPtr _obj
return ()
-- method Widget::send_expose
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO Int32
widgetSendExpose ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Int32
widgetSendExpose _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_send_expose _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return result
-- method Widget::send_focus_change
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_send_focus_change" gtk_widget_send_focus_change ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO CInt
widgetSendFocusChange ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Event -> -- event
m Bool
widgetSendFocusChange _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_send_focus_change _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method Widget::set_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- accel_path : TBasicType TUTF8
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
widgetSetAccelPath ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a -> -- _obj
Maybe (T.Text) -> -- accel_path
Maybe (b) -> -- accel_group
m ()
widgetSetAccelPath _obj accel_path accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_path <- case accel_path of
Nothing -> return nullPtr
Just jAccel_path -> do
jAccel_path' <- textToCString jAccel_path
return jAccel_path'
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
gtk_widget_set_accel_path _obj' maybeAccel_path maybeAccel_group
touchManagedPtr _obj
whenJust accel_group touchManagedPtr
freeMem maybeAccel_path
return ()
-- method Widget::set_allocation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle"
IO ()
widgetSetAllocation ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Rectangle -> -- allocation
m ()
widgetSetAllocation _obj allocation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_set_allocation _obj' allocation'
touchManagedPtr _obj
touchManagedPtr allocation
return ()
-- method Widget::set_app_paintable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- app_paintable : TBasicType TBoolean
IO ()
widgetSetAppPaintable ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- app_paintable
m ()
widgetSetAppPaintable _obj app_paintable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let app_paintable' = (fromIntegral . fromEnum) app_paintable
gtk_widget_set_app_paintable _obj' app_paintable'
touchManagedPtr _obj
return ()
-- method Widget::set_can_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_can_default" gtk_widget_set_can_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- can_default : TBasicType TBoolean
IO ()
widgetSetCanDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- can_default
m ()
widgetSetCanDefault _obj can_default = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let can_default' = (fromIntegral . fromEnum) can_default
gtk_widget_set_can_default _obj' can_default'
touchManagedPtr _obj
return ()
-- method Widget::set_can_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- can_focus : TBasicType TBoolean
IO ()
widgetSetCanFocus ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- can_focus
m ()
widgetSetCanFocus _obj can_focus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let can_focus' = (fromIntegral . fromEnum) can_focus
gtk_widget_set_can_focus _obj' can_focus'
touchManagedPtr _obj
return ()
-- method Widget::set_child_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- is_visible : TBasicType TBoolean
IO ()
widgetSetChildVisible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- is_visible
m ()
widgetSetChildVisible _obj is_visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_visible' = (fromIntegral . fromEnum) is_visible
gtk_widget_set_child_visible _obj' is_visible'
touchManagedPtr _obj
return ()
-- method Widget::set_clip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle"
IO ()
widgetSetClip ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Rectangle -> -- clip
m ()
widgetSetClip _obj clip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clip' = unsafeManagedPtrGetPtr clip
gtk_widget_set_clip _obj' clip'
touchManagedPtr _obj
touchManagedPtr clip
return ()
-- method Widget::set_composite_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-}
widgetSetCompositeName ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- name
m ()
widgetSetCompositeName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_widget_set_composite_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method Widget::set_device_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
CInt -> -- enabled : TBasicType TBoolean
IO ()
widgetSetDeviceEnabled ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
Bool -> -- enabled
m ()
widgetSetDeviceEnabled _obj device enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let enabled' = (fromIntegral . fromEnum) enabled
gtk_widget_set_device_enabled _obj' device' enabled'
touchManagedPtr _obj
touchManagedPtr device
return ()
-- method Widget::set_device_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_device_events" gtk_widget_set_device_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
CUInt -> -- events : TInterface "Gdk" "EventMask"
IO ()
widgetSetDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
[Gdk.EventMask] -> -- events
m ()
widgetSetDeviceEvents _obj device events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let events' = gflagsToWord events
gtk_widget_set_device_events _obj' device' events'
touchManagedPtr _obj
touchManagedPtr device
return ()
-- method Widget::set_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- dir : TInterface "Gtk" "TextDirection"
IO ()
widgetSetDirection ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
TextDirection -> -- dir
m ()
widgetSetDirection _obj dir = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dir' = (fromIntegral . fromEnum) dir
gtk_widget_set_direction _obj' dir'
touchManagedPtr _obj
return ()
-- method Widget::set_double_buffered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- double_buffered : TBasicType TBoolean
IO ()
{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-}
widgetSetDoubleBuffered ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- double_buffered
m ()
widgetSetDoubleBuffered _obj double_buffered = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let double_buffered' = (fromIntegral . fromEnum) double_buffered
gtk_widget_set_double_buffered _obj' double_buffered'
touchManagedPtr _obj
return ()
-- method Widget::set_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_events" gtk_widget_set_events ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- events : TBasicType TInt32
IO ()
widgetSetEvents ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- events
m ()
widgetSetEvents _obj events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_events _obj' events
touchManagedPtr _obj
return ()
-- method Widget::set_font_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap"
IO ()
widgetSetFontMap ::
(MonadIO m, WidgetK a, Pango.FontMapK b) =>
a -> -- _obj
Maybe (b) -> -- font_map
m ()
widgetSetFontMap _obj font_map = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFont_map <- case font_map of
Nothing -> return nullPtr
Just jFont_map -> do
let jFont_map' = unsafeManagedPtrCastPtr jFont_map
return jFont_map'
gtk_widget_set_font_map _obj' maybeFont_map
touchManagedPtr _obj
whenJust font_map touchManagedPtr
return ()
-- method Widget::set_font_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions"
IO ()
widgetSetFontOptions ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Cairo.FontOptions) -> -- options
m ()
widgetSetFontOptions _obj options = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeOptions <- case options of
Nothing -> return nullPtr
Just jOptions -> do
let jOptions' = unsafeManagedPtrGetPtr jOptions
return jOptions'
gtk_widget_set_font_options _obj' maybeOptions
touchManagedPtr _obj
whenJust options touchManagedPtr
return ()
-- method Widget::set_halign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- align : TInterface "Gtk" "Align"
IO ()
widgetSetHalign ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Align -> -- align
m ()
widgetSetHalign _obj align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let align' = (fromIntegral . fromEnum) align
gtk_widget_set_halign _obj' align'
touchManagedPtr _obj
return ()
-- method Widget::set_has_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- has_tooltip : TBasicType TBoolean
IO ()
widgetSetHasTooltip ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- has_tooltip
m ()
widgetSetHasTooltip _obj has_tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_tooltip' = (fromIntegral . fromEnum) has_tooltip
gtk_widget_set_has_tooltip _obj' has_tooltip'
touchManagedPtr _obj
return ()
-- method Widget::set_has_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_has_window" gtk_widget_set_has_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- has_window : TBasicType TBoolean
IO ()
widgetSetHasWindow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- has_window
m ()
widgetSetHasWindow _obj has_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_window' = (fromIntegral . fromEnum) has_window
gtk_widget_set_has_window _obj' has_window'
touchManagedPtr _obj
return ()
-- method Widget::set_hexpand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
IO ()
widgetSetHexpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- expand
m ()
widgetSetHexpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_widget_set_hexpand _obj' expand'
touchManagedPtr _obj
return ()
-- method Widget::set_hexpand_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- set : TBasicType TBoolean
IO ()
widgetSetHexpandSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- set
m ()
widgetSetHexpandSet _obj set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let set' = (fromIntegral . fromEnum) set
gtk_widget_set_hexpand_set _obj' set'
touchManagedPtr _obj
return ()
-- method Widget::set_mapped
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_mapped" gtk_widget_set_mapped ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- mapped : TBasicType TBoolean
IO ()
widgetSetMapped ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- mapped
m ()
widgetSetMapped _obj mapped = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mapped' = (fromIntegral . fromEnum) mapped
gtk_widget_set_mapped _obj' mapped'
touchManagedPtr _obj
return ()
-- method Widget::set_margin_bottom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
widgetSetMarginBottom ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginBottom _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_bottom _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_margin_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
widgetSetMarginEnd ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginEnd _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_end _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_margin_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-}
widgetSetMarginLeft ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginLeft _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_left _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_margin_right
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-}
widgetSetMarginRight ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginRight _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_right _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_margin_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
widgetSetMarginStart ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginStart _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_start _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_margin_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- margin : TBasicType TInt32
IO ()
widgetSetMarginTop ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- margin
m ()
widgetSetMarginTop _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_top _obj' margin
touchManagedPtr _obj
return ()
-- method Widget::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_name" gtk_widget_set_name ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- name : TBasicType TUTF8
IO ()
widgetSetName ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- name
m ()
widgetSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_widget_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method Widget::set_no_show_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- no_show_all : TBasicType TBoolean
IO ()
widgetSetNoShowAll ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- no_show_all
m ()
widgetSetNoShowAll _obj no_show_all = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let no_show_all' = (fromIntegral . fromEnum) no_show_all
gtk_widget_set_no_show_all _obj' no_show_all'
touchManagedPtr _obj
return ()
-- method Widget::set_opacity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CDouble -> -- opacity : TBasicType TDouble
IO ()
widgetSetOpacity ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Double -> -- opacity
m ()
widgetSetOpacity _obj opacity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let opacity' = realToFrac opacity
gtk_widget_set_opacity _obj' opacity'
touchManagedPtr _obj
return ()
-- method Widget::set_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- parent : TInterface "Gtk" "Widget"
IO ()
widgetSetParent ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- parent
m ()
widgetSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent' = unsafeManagedPtrCastPtr parent
gtk_widget_set_parent _obj' parent'
touchManagedPtr _obj
touchManagedPtr parent
return ()
-- method Widget::set_parent_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_parent_window" gtk_widget_set_parent_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window"
IO ()
widgetSetParentWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- parent_window
m ()
widgetSetParentWindow _obj parent_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent_window' = unsafeManagedPtrCastPtr parent_window
gtk_widget_set_parent_window _obj' parent_window'
touchManagedPtr _obj
touchManagedPtr parent_window
return ()
-- method Widget::set_realized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_realized" gtk_widget_set_realized ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- realized : TBasicType TBoolean
IO ()
widgetSetRealized ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- realized
m ()
widgetSetRealized _obj realized = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let realized' = (fromIntegral . fromEnum) realized
gtk_widget_set_realized _obj' realized'
touchManagedPtr _obj
return ()
-- method Widget::set_receives_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- receives_default : TBasicType TBoolean
IO ()
widgetSetReceivesDefault ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- receives_default
m ()
widgetSetReceivesDefault _obj receives_default = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let receives_default' = (fromIntegral . fromEnum) receives_default
gtk_widget_set_receives_default _obj' receives_default'
touchManagedPtr _obj
return ()
-- method Widget::set_redraw_on_allocate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- redraw_on_allocate : TBasicType TBoolean
IO ()
widgetSetRedrawOnAllocate ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- redraw_on_allocate
m ()
widgetSetRedrawOnAllocate _obj redraw_on_allocate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let redraw_on_allocate' = (fromIntegral . fromEnum) redraw_on_allocate
gtk_widget_set_redraw_on_allocate _obj' redraw_on_allocate'
touchManagedPtr _obj
return ()
-- method Widget::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
widgetSetSensitive ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- sensitive
m ()
widgetSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_widget_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
-- method Widget::set_size_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
widgetSetSizeRequest ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
widgetSetSizeRequest _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_size_request _obj' width height
touchManagedPtr _obj
return ()
-- method Widget::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_state" gtk_widget_set_state ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- state : TInterface "Gtk" "StateType"
IO ()
{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-}
widgetSetState ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
StateType -> -- state
m ()
widgetSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
gtk_widget_set_state _obj' state'
touchManagedPtr _obj
return ()
-- method Widget::set_state_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "StateFlags"
CInt -> -- clear : TBasicType TBoolean
IO ()
widgetSetStateFlags ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[StateFlags] -> -- flags
Bool -> -- clear
m ()
widgetSetStateFlags _obj flags clear = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
let clear' = (fromIntegral . fromEnum) clear
gtk_widget_set_state_flags _obj' flags' clear'
touchManagedPtr _obj
return ()
-- method Widget::set_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_style" gtk_widget_set_style ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Style -> -- style : TInterface "Gtk" "Style"
IO ()
{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
widgetSetStyle ::
(MonadIO m, WidgetK a, StyleK b) =>
a -> -- _obj
Maybe (b) -> -- style
m ()
widgetSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeStyle <- case style of
Nothing -> return nullPtr
Just jStyle -> do
let jStyle' = unsafeManagedPtrCastPtr jStyle
return jStyle'
gtk_widget_set_style _obj' maybeStyle
touchManagedPtr _obj
whenJust style touchManagedPtr
return ()
-- method Widget::set_support_multidevice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- support_multidevice : TBasicType TBoolean
IO ()
widgetSetSupportMultidevice ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- support_multidevice
m ()
widgetSetSupportMultidevice _obj support_multidevice = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let support_multidevice' = (fromIntegral . fromEnum) support_multidevice
gtk_widget_set_support_multidevice _obj' support_multidevice'
touchManagedPtr _obj
return ()
-- method Widget::set_tooltip_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- markup : TBasicType TUTF8
IO ()
widgetSetTooltipMarkup ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (T.Text) -> -- markup
m ()
widgetSetTooltipMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_widget_set_tooltip_markup _obj' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
-- method Widget::set_tooltip_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- text : TBasicType TUTF8
IO ()
widgetSetTooltipText ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (T.Text) -> -- text
m ()
widgetSetTooltipText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
gtk_widget_set_tooltip_text _obj' maybeText
touchManagedPtr _obj
freeMem maybeText
return ()
-- method Widget::set_tooltip_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Window -> -- custom_window : TInterface "Gtk" "Window"
IO ()
widgetSetTooltipWindow ::
(MonadIO m, WidgetK a, WindowK b) =>
a -> -- _obj
Maybe (b) -> -- custom_window
m ()
widgetSetTooltipWindow _obj custom_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCustom_window <- case custom_window of
Nothing -> return nullPtr
Just jCustom_window -> do
let jCustom_window' = unsafeManagedPtrCastPtr jCustom_window
return jCustom_window'
gtk_widget_set_tooltip_window _obj' maybeCustom_window
touchManagedPtr _obj
whenJust custom_window touchManagedPtr
return ()
-- method Widget::set_valign
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- align : TInterface "Gtk" "Align"
IO ()
widgetSetValign ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Align -> -- align
m ()
widgetSetValign _obj align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let align' = (fromIntegral . fromEnum) align
gtk_widget_set_valign _obj' align'
touchManagedPtr _obj
return ()
-- method Widget::set_vexpand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
IO ()
widgetSetVexpand ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- expand
m ()
widgetSetVexpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_widget_set_vexpand _obj' expand'
touchManagedPtr _obj
return ()
-- method Widget::set_vexpand_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- set : TBasicType TBoolean
IO ()
widgetSetVexpandSet ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- set
m ()
widgetSetVexpandSet _obj set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let set' = (fromIntegral . fromEnum) set
gtk_widget_set_vexpand_set _obj' set'
touchManagedPtr _obj
return ()
-- method Widget::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CInt -> -- visible : TBasicType TBoolean
IO ()
widgetSetVisible ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Bool -> -- visible
m ()
widgetSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_widget_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method Widget::set_visual
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual"
IO ()
widgetSetVisual ::
(MonadIO m, WidgetK a, Gdk.VisualK b) =>
a -> -- _obj
Maybe (b) -> -- visual
m ()
widgetSetVisual _obj visual = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeVisual <- case visual of
Nothing -> return nullPtr
Just jVisual -> do
let jVisual' = unsafeManagedPtrCastPtr jVisual
return jVisual'
gtk_widget_set_visual _obj' maybeVisual
touchManagedPtr _obj
whenJust visual touchManagedPtr
return ()
-- method Widget::set_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_window" gtk_widget_set_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
widgetSetWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
m ()
widgetSetWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
window' <- refObject window
gtk_widget_set_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method Widget::shape_combine_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO ()
widgetShapeCombineRegion ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Maybe (Cairo.Region) -> -- region
m ()
widgetShapeCombineRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion <- case region of
Nothing -> return nullPtr
Just jRegion -> do
let jRegion' = unsafeManagedPtrGetPtr jRegion
return jRegion'
gtk_widget_shape_combine_region _obj' maybeRegion
touchManagedPtr _obj
whenJust region touchManagedPtr
return ()
-- method Widget::show
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_show" gtk_widget_show ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetShow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show _obj'
touchManagedPtr _obj
return ()
-- method Widget::show_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_show_all" gtk_widget_show_all ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetShowAll ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetShowAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show_all _obj'
touchManagedPtr _obj
return ()
-- method Widget::show_now
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_show_now" gtk_widget_show_now ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetShowNow ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetShowNow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show_now _obj'
touchManagedPtr _obj
return ()
-- method Widget::size_allocate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle"
IO ()
widgetSizeAllocate ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Rectangle -> -- allocation
m ()
widgetSizeAllocate _obj allocation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_size_allocate _obj' allocation'
touchManagedPtr _obj
touchManagedPtr allocation
return ()
-- method Widget::size_allocate_with_baseline
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle"
Int32 -> -- baseline : TBasicType TInt32
IO ()
widgetSizeAllocateWithBaseline ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
Gdk.Rectangle -> -- allocation
Int32 -> -- baseline
m ()
widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_size_allocate_with_baseline _obj' allocation' baseline
touchManagedPtr _obj
touchManagedPtr allocation
return ()
-- method Widget::size_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_size_request" gtk_widget_size_request ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition"
IO ()
{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-}
widgetSizeRequest ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m (Requisition)
widgetSizeRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_size_request _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
-- method Widget::style_attach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_style_attach" gtk_widget_style_attach ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-}
widgetStyleAttach ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetStyleAttach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_style_attach _obj'
touchManagedPtr _obj
return ()
-- method Widget::style_get_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CString -> -- property_name : TBasicType TUTF8
Ptr GValue -> -- value : TInterface "GObject" "Value"
IO ()
widgetStyleGetProperty ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
T.Text -> -- property_name
GValue -> -- value
m ()
widgetStyleGetProperty _obj property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_widget_style_get_property _obj' property_name' value'
touchManagedPtr _obj
touchManagedPtr value
freeMem property_name'
return ()
-- method Widget::thaw_child_notify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetThawChildNotify ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetThawChildNotify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_thaw_child_notify _obj'
touchManagedPtr _obj
return ()
-- method Widget::translate_coordinates
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget"
Int32 -> -- src_x : TBasicType TInt32
Int32 -> -- src_y : TBasicType TInt32
Ptr Int32 -> -- dest_x : TBasicType TInt32
Ptr Int32 -> -- dest_y : TBasicType TInt32
IO CInt
widgetTranslateCoordinates ::
(MonadIO m, WidgetK a, WidgetK b) =>
a -> -- _obj
b -> -- dest_widget
Int32 -> -- src_x
Int32 -> -- src_y
m (Bool,Int32,Int32)
widgetTranslateCoordinates _obj dest_widget src_x src_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest_widget' = unsafeManagedPtrCastPtr dest_widget
dest_x <- allocMem :: IO (Ptr Int32)
dest_y <- allocMem :: IO (Ptr Int32)
result <- gtk_widget_translate_coordinates _obj' dest_widget' src_x src_y dest_x dest_y
let result' = (/= 0) result
dest_x' <- peek dest_x
dest_y' <- peek dest_y
touchManagedPtr _obj
touchManagedPtr dest_widget
freeMem dest_x
freeMem dest_y
return (result', dest_x', dest_y')
-- method Widget::trigger_tooltip_query
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetTriggerTooltipQuery ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetTriggerTooltipQuery _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_trigger_tooltip_query _obj'
touchManagedPtr _obj
return ()
-- method Widget::unmap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_unmap" gtk_widget_unmap ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetUnmap ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetUnmap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unmap _obj'
touchManagedPtr _obj
return ()
-- method Widget::unparent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_unparent" gtk_widget_unparent ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetUnparent ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetUnparent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unparent _obj'
touchManagedPtr _obj
return ()
-- method Widget::unrealize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
IO ()
widgetUnrealize ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
m ()
widgetUnrealize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unrealize _obj'
touchManagedPtr _obj
return ()
-- method Widget::unregister_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
widgetUnregisterWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a -> -- _obj
b -> -- window
m ()
widgetUnregisterWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_widget_unregister_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method Widget::unset_state_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags ::
Ptr Widget -> -- _obj : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "StateFlags"
IO ()
widgetUnsetStateFlags ::
(MonadIO m, WidgetK a) =>
a -> -- _obj
[StateFlags] -> -- flags
m ()
widgetUnsetStateFlags _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_widget_unset_state_flags _obj' flags'
touchManagedPtr _obj
return ()
-- method Widget::get_default_direction
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction ::
IO CUInt
widgetGetDefaultDirection ::
(MonadIO m) =>
m TextDirection
widgetGetDefaultDirection = liftIO $ do
result <- gtk_widget_get_default_direction
let result' = (toEnum . fromIntegral) result
return result'
-- method Widget::get_default_style
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style ::
IO (Ptr Style)
{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-}
widgetGetDefaultStyle ::
(MonadIO m) =>
m Style
widgetGetDefaultStyle = liftIO $ do
result <- gtk_widget_get_default_style
checkUnexpectedReturnNULL "gtk_widget_get_default_style" result
result' <- (newObject Style) result
return result'
-- method Widget::pop_composite_child
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child ::
IO ()
{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-}
widgetPopCompositeChild ::
(MonadIO m) =>
m ()
widgetPopCompositeChild = liftIO $ do
gtk_widget_pop_composite_child
return ()
-- method Widget::push_composite_child
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child ::
IO ()
{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-}
widgetPushCompositeChild ::
(MonadIO m) =>
m ()
widgetPushCompositeChild = liftIO $ do
gtk_widget_push_composite_child
return ()
-- method Widget::set_default_direction
-- method type : MemberFunction
-- Args : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction ::
CUInt -> -- dir : TInterface "Gtk" "TextDirection"
IO ()
widgetSetDefaultDirection ::
(MonadIO m) =>
TextDirection -> -- dir
m ()
widgetSetDefaultDirection dir = liftIO $ do
let dir' = (fromIntegral . fromEnum) dir
gtk_widget_set_default_direction dir'
return ()
-- signal Widget::accel-closures-changed
type WidgetAccelClosuresChangedCallback =
IO ()
noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback
noWidgetAccelClosuresChangedCallback = Nothing
type WidgetAccelClosuresChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC)
widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure
widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped
where wrapped = widgetAccelClosuresChangedCallbackWrapper cb
widgetAccelClosuresChangedCallbackWrapper ::
WidgetAccelClosuresChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do
_cb
onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore
afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter
connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) =>
a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetAccelClosuresChanged obj cb after = liftIO $ do
cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb)
connectSignalFunPtr obj "accel-closures-changed" cb' after
-- signal Widget::button-press-event
type WidgetButtonPressEventCallback =
Gdk.EventButton ->
IO Bool
noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback
noWidgetButtonPressEventCallback = Nothing
type WidgetButtonPressEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC)
widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure
widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped
where wrapped = widgetButtonPressEventCallbackWrapper cb
widgetButtonPressEventCallbackWrapper ::
WidgetButtonPressEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
widgetButtonPressEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId
onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore
afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId
afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter
connectWidgetButtonPressEvent :: (GObject a, MonadIO m) =>
a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetButtonPressEvent obj cb after = liftIO $ do
cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb)
connectSignalFunPtr obj "button-press-event" cb' after
-- signal Widget::button-release-event
type WidgetButtonReleaseEventCallback =
Gdk.EventButton ->
IO Bool
noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback
noWidgetButtonReleaseEventCallback = Nothing
type WidgetButtonReleaseEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventButton ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC)
widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure
widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped
where wrapped = widgetButtonReleaseEventCallbackWrapper cb
widgetButtonReleaseEventCallbackWrapper ::
WidgetButtonReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId
onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore
afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId
afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter
connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) =>
a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetButtonReleaseEvent obj cb after = liftIO $ do
cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb)
connectSignalFunPtr obj "button-release-event" cb' after
-- signal Widget::can-activate-accel
type WidgetCanActivateAccelCallback =
Word32 ->
IO Bool
noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback
noWidgetCanActivateAccelCallback = Nothing
type WidgetCanActivateAccelCallbackC =
Ptr () -> -- object
Word32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC)
widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure
widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped
where wrapped = widgetCanActivateAccelCallbackWrapper cb
widgetCanActivateAccelCallbackWrapper ::
WidgetCanActivateAccelCallback ->
Ptr () ->
Word32 ->
Ptr () ->
IO CInt
widgetCanActivateAccelCallbackWrapper _cb _ signal_id _ = do
result <- _cb signal_id
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore
afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter
connectWidgetCanActivateAccel :: (GObject a, MonadIO m) =>
a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetCanActivateAccel obj cb after = liftIO $ do
cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb)
connectSignalFunPtr obj "can-activate-accel" cb' after
-- signal Widget::child-notify
type WidgetChildNotifyCallback =
GParamSpec ->
IO ()
noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback
noWidgetChildNotifyCallback = Nothing
type WidgetChildNotifyCallbackC =
Ptr () -> -- object
Ptr GParamSpec ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC)
widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure
widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped
where wrapped = widgetChildNotifyCallbackWrapper cb
widgetChildNotifyCallbackWrapper ::
WidgetChildNotifyCallback ->
Ptr () ->
Ptr GParamSpec ->
Ptr () ->
IO ()
widgetChildNotifyCallbackWrapper _cb _ child_property _ = do
child_property' <- newGParamSpecFromPtr child_property
_cb child_property'
onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId
onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore
afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId
afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter
connectWidgetChildNotify :: (GObject a, MonadIO m) =>
a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetChildNotify obj cb after = liftIO $ do
cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb)
connectSignalFunPtr obj "child-notify" cb' after
-- signal Widget::composited-changed
type WidgetCompositedChangedCallback =
IO ()
noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback
noWidgetCompositedChangedCallback = Nothing
type WidgetCompositedChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC)
widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure
widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped
where wrapped = widgetCompositedChangedCallbackWrapper cb
widgetCompositedChangedCallbackWrapper ::
WidgetCompositedChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetCompositedChangedCallbackWrapper _cb _ _ = do
_cb
onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId
onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore
afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId
afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter
connectWidgetCompositedChanged :: (GObject a, MonadIO m) =>
a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetCompositedChanged obj cb after = liftIO $ do
cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb)
connectSignalFunPtr obj "composited-changed" cb' after
-- signal Widget::configure-event
type WidgetConfigureEventCallback =
Gdk.EventConfigure ->
IO Bool
noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback
noWidgetConfigureEventCallback = Nothing
type WidgetConfigureEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventConfigure ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC)
widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure
widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped
where wrapped = widgetConfigureEventCallbackWrapper cb
widgetConfigureEventCallbackWrapper ::
WidgetConfigureEventCallback ->
Ptr () ->
Ptr Gdk.EventConfigure ->
Ptr () ->
IO CInt
widgetConfigureEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventConfigure) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId
onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore
afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId
afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter
connectWidgetConfigureEvent :: (GObject a, MonadIO m) =>
a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetConfigureEvent obj cb after = liftIO $ do
cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb)
connectSignalFunPtr obj "configure-event" cb' after
-- signal Widget::damage-event
type WidgetDamageEventCallback =
Gdk.EventExpose ->
IO Bool
noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback
noWidgetDamageEventCallback = Nothing
type WidgetDamageEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventExpose ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC)
widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure
widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped
where wrapped = widgetDamageEventCallbackWrapper cb
widgetDamageEventCallbackWrapper ::
WidgetDamageEventCallback ->
Ptr () ->
Ptr Gdk.EventExpose ->
Ptr () ->
IO CInt
widgetDamageEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventExpose) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId
onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore
afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId
afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter
connectWidgetDamageEvent :: (GObject a, MonadIO m) =>
a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDamageEvent obj cb after = liftIO $ do
cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb)
connectSignalFunPtr obj "damage-event" cb' after
-- signal Widget::delete-event
type WidgetDeleteEventCallback =
Gdk.Event ->
IO Bool
noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback
noWidgetDeleteEventCallback = Nothing
type WidgetDeleteEventCallbackC =
Ptr () -> -- object
Ptr Gdk.Event ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC)
widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure
widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped
where wrapped = widgetDeleteEventCallbackWrapper cb
widgetDeleteEventCallbackWrapper ::
WidgetDeleteEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetDeleteEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId
onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore
afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId
afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter
connectWidgetDeleteEvent :: (GObject a, MonadIO m) =>
a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDeleteEvent obj cb after = liftIO $ do
cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb)
connectSignalFunPtr obj "delete-event" cb' after
-- signal Widget::destroy
type WidgetDestroyCallback =
IO ()
noWidgetDestroyCallback :: Maybe WidgetDestroyCallback
noWidgetDestroyCallback = Nothing
type WidgetDestroyCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC)
widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure
widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped
where wrapped = widgetDestroyCallbackWrapper cb
widgetDestroyCallbackWrapper ::
WidgetDestroyCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetDestroyCallbackWrapper _cb _ _ = do
_cb
onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore
afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter
connectWidgetDestroy :: (GObject a, MonadIO m) =>
a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDestroy obj cb after = liftIO $ do
cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb)
connectSignalFunPtr obj "destroy" cb' after
-- signal Widget::destroy-event
type WidgetDestroyEventCallback =
Gdk.Event ->
IO Bool
noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback
noWidgetDestroyEventCallback = Nothing
type WidgetDestroyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.Event ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC)
widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure
widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped
where wrapped = widgetDestroyEventCallbackWrapper cb
widgetDestroyEventCallbackWrapper ::
WidgetDestroyEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetDestroyEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId
onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore
afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId
afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter
connectWidgetDestroyEvent :: (GObject a, MonadIO m) =>
a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDestroyEvent obj cb after = liftIO $ do
cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb)
connectSignalFunPtr obj "destroy-event" cb' after
-- signal Widget::direction-changed
type WidgetDirectionChangedCallback =
TextDirection ->
IO ()
noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback
noWidgetDirectionChangedCallback = Nothing
type WidgetDirectionChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC)
widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure
widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped
where wrapped = widgetDirectionChangedCallbackWrapper cb
widgetDirectionChangedCallbackWrapper ::
WidgetDirectionChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetDirectionChangedCallbackWrapper _cb _ previous_direction _ = do
let previous_direction' = (toEnum . fromIntegral) previous_direction
_cb previous_direction'
onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore
afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter
connectWidgetDirectionChanged :: (GObject a, MonadIO m) =>
a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDirectionChanged obj cb after = liftIO $ do
cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "direction-changed" cb' after
-- signal Widget::drag-begin
type WidgetDragBeginCallback =
Gdk.DragContext ->
IO ()
noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback
noWidgetDragBeginCallback = Nothing
type WidgetDragBeginCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC)
widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure
widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped
where wrapped = widgetDragBeginCallbackWrapper cb
widgetDragBeginCallbackWrapper ::
WidgetDragBeginCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragBeginCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore
afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter
connectWidgetDragBegin :: (GObject a, MonadIO m) =>
a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragBegin obj cb after = liftIO $ do
cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb)
connectSignalFunPtr obj "drag-begin" cb' after
-- signal Widget::drag-data-delete
type WidgetDragDataDeleteCallback =
Gdk.DragContext ->
IO ()
noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback
noWidgetDragDataDeleteCallback = Nothing
type WidgetDragDataDeleteCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC)
widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure
widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped
where wrapped = widgetDragDataDeleteCallbackWrapper cb
widgetDragDataDeleteCallbackWrapper ::
WidgetDragDataDeleteCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragDataDeleteCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore
afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter
connectWidgetDragDataDelete :: (GObject a, MonadIO m) =>
a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataDelete obj cb after = liftIO $ do
cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-delete" cb' after
-- signal Widget::drag-data-get
type WidgetDragDataGetCallback =
Gdk.DragContext ->
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback
noWidgetDragDataGetCallback = Nothing
type WidgetDragDataGetCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC)
widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure
widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped
where wrapped = widgetDragDataGetCallbackWrapper cb
widgetDragDataGetCallbackWrapper ::
WidgetDragDataGetCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do
context' <- (newObject Gdk.DragContext) context
data_' <- (newBoxed SelectionData) data_
_cb context' data_' info time
onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore
afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter
connectWidgetDragDataGet :: (GObject a, MonadIO m) =>
a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataGet obj cb after = liftIO $ do
cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-get" cb' after
-- signal Widget::drag-data-received
type WidgetDragDataReceivedCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback
noWidgetDragDataReceivedCallback = Nothing
type WidgetDragDataReceivedCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC)
widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure
widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped
where wrapped = widgetDragDataReceivedCallbackWrapper cb
widgetDragDataReceivedCallbackWrapper ::
WidgetDragDataReceivedCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do
context' <- (newObject Gdk.DragContext) context
data_' <- (newBoxed SelectionData) data_
_cb context' x y data_' info time
onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore
afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter
connectWidgetDragDataReceived :: (GObject a, MonadIO m) =>
a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataReceived obj cb after = liftIO $ do
cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-received" cb' after
-- signal Widget::drag-drop
type WidgetDragDropCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
IO Bool
noWidgetDragDropCallback :: Maybe WidgetDragDropCallback
noWidgetDragDropCallback = Nothing
type WidgetDragDropCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC)
widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure
widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped
where wrapped = widgetDragDropCallbackWrapper cb
widgetDragDropCallbackWrapper ::
WidgetDragDropCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
widgetDragDropCallbackWrapper _cb _ context x y time _ = do
context' <- (newObject Gdk.DragContext) context
result <- _cb context' x y time
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore
afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter
connectWidgetDragDrop :: (GObject a, MonadIO m) =>
a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDrop obj cb after = liftIO $ do
cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb)
connectSignalFunPtr obj "drag-drop" cb' after
-- signal Widget::drag-end
type WidgetDragEndCallback =
Gdk.DragContext ->
IO ()
noWidgetDragEndCallback :: Maybe WidgetDragEndCallback
noWidgetDragEndCallback = Nothing
type WidgetDragEndCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC)
widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure
widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped
where wrapped = widgetDragEndCallbackWrapper cb
widgetDragEndCallbackWrapper ::
WidgetDragEndCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragEndCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore
afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter
connectWidgetDragEnd :: (GObject a, MonadIO m) =>
a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragEnd obj cb after = liftIO $ do
cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb)
connectSignalFunPtr obj "drag-end" cb' after
-- signal Widget::drag-failed
type WidgetDragFailedCallback =
Gdk.DragContext ->
DragResult ->
IO Bool
noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback
noWidgetDragFailedCallback = Nothing
type WidgetDragFailedCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC)
widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure
widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped
where wrapped = widgetDragFailedCallbackWrapper cb
widgetDragFailedCallbackWrapper ::
WidgetDragFailedCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
CUInt ->
Ptr () ->
IO CInt
widgetDragFailedCallbackWrapper _cb _ context result_ _ = do
context' <- (newObject Gdk.DragContext) context
let result_' = (toEnum . fromIntegral) result_
result <- _cb context' result_'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore
afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter
connectWidgetDragFailed :: (GObject a, MonadIO m) =>
a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragFailed obj cb after = liftIO $ do
cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb)
connectSignalFunPtr obj "drag-failed" cb' after
-- signal Widget::drag-leave
type WidgetDragLeaveCallback =
Gdk.DragContext ->
Word32 ->
IO ()
noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback
noWidgetDragLeaveCallback = Nothing
type WidgetDragLeaveCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC)
widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure
widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped
where wrapped = widgetDragLeaveCallbackWrapper cb
widgetDragLeaveCallbackWrapper ::
WidgetDragLeaveCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Word32 ->
Ptr () ->
IO ()
widgetDragLeaveCallbackWrapper _cb _ context time _ = do
context' <- (newObject Gdk.DragContext) context
_cb context' time
onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore
afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter
connectWidgetDragLeave :: (GObject a, MonadIO m) =>
a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragLeave obj cb after = liftIO $ do
cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb)
connectSignalFunPtr obj "drag-leave" cb' after
-- signal Widget::drag-motion
type WidgetDragMotionCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
IO Bool
noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback
noWidgetDragMotionCallback = Nothing
type WidgetDragMotionCallbackC =
Ptr () -> -- object
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC)
widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure
widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped
where wrapped = widgetDragMotionCallbackWrapper cb
widgetDragMotionCallbackWrapper ::
WidgetDragMotionCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
widgetDragMotionCallbackWrapper _cb _ context x y time _ = do
context' <- (newObject Gdk.DragContext) context
result <- _cb context' x y time
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore
afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter
connectWidgetDragMotion :: (GObject a, MonadIO m) =>
a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragMotion obj cb after = liftIO $ do
cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb)
connectSignalFunPtr obj "drag-motion" cb' after
-- signal Widget::draw
type WidgetDrawCallback =
Cairo.Context ->
IO Bool
noWidgetDrawCallback :: Maybe WidgetDrawCallback
noWidgetDrawCallback = Nothing
type WidgetDrawCallbackC =
Ptr () -> -- object
Ptr Cairo.Context ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC)
widgetDrawClosure :: WidgetDrawCallback -> IO Closure
widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped
where wrapped = widgetDrawCallbackWrapper cb
widgetDrawCallbackWrapper ::
WidgetDrawCallback ->
Ptr () ->
Ptr Cairo.Context ->
Ptr () ->
IO CInt
widgetDrawCallbackWrapper _cb _ cr _ = do
cr' <- (newBoxed Cairo.Context) cr
result <- _cb cr'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId
onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore
afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId
afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter
connectWidgetDraw :: (GObject a, MonadIO m) =>
a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDraw obj cb after = liftIO $ do
cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb)
connectSignalFunPtr obj "draw" cb' after
-- signal Widget::enter-notify-event
type WidgetEnterNotifyEventCallback =
Gdk.EventCrossing ->
IO Bool
noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback
noWidgetEnterNotifyEventCallback = Nothing
type WidgetEnterNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventCrossing ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC)
widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure
widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped
where wrapped = widgetEnterNotifyEventCallbackWrapper cb
widgetEnterNotifyEventCallbackWrapper ::
WidgetEnterNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventCrossing) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId
onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore
afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId
afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter
connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEnterNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "enter-notify-event" cb' after
-- signal Widget::event
type WidgetEventCallback =
Gdk.Event ->
IO Bool
noWidgetEventCallback :: Maybe WidgetEventCallback
noWidgetEventCallback = Nothing
type WidgetEventCallbackC =
Ptr () -> -- object
Ptr Gdk.Event ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC)
widgetEventClosure :: WidgetEventCallback -> IO Closure
widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped
where wrapped = widgetEventCallbackWrapper cb
widgetEventCallbackWrapper ::
WidgetEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId
onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore
afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId
afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter
connectWidgetEvent :: (GObject a, MonadIO m) =>
a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEvent obj cb after = liftIO $ do
cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb)
connectSignalFunPtr obj "event" cb' after
-- signal Widget::event-after
type WidgetEventAfterCallback =
Gdk.Event ->
IO ()
noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback
noWidgetEventAfterCallback = Nothing
type WidgetEventAfterCallbackC =
Ptr () -> -- object
Ptr Gdk.Event ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC)
widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure
widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped
where wrapped = widgetEventAfterCallbackWrapper cb
widgetEventAfterCallbackWrapper ::
WidgetEventAfterCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO ()
widgetEventAfterCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
_cb event'
onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId
onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore
afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId
afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter
connectWidgetEventAfter :: (GObject a, MonadIO m) =>
a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEventAfter obj cb after = liftIO $ do
cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb)
connectSignalFunPtr obj "event-after" cb' after
-- signal Widget::focus
type WidgetFocusCallback =
DirectionType ->
IO Bool
noWidgetFocusCallback :: Maybe WidgetFocusCallback
noWidgetFocusCallback = Nothing
type WidgetFocusCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC)
widgetFocusClosure :: WidgetFocusCallback -> IO Closure
widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped
where wrapped = widgetFocusCallbackWrapper cb
widgetFocusCallbackWrapper ::
WidgetFocusCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetFocusCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
result <- _cb direction'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId
onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore
afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId
afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter
connectWidgetFocus :: (GObject a, MonadIO m) =>
a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocus obj cb after = liftIO $ do
cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb)
connectSignalFunPtr obj "focus" cb' after
-- signal Widget::focus-in-event
type WidgetFocusInEventCallback =
Gdk.EventFocus ->
IO Bool
noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback
noWidgetFocusInEventCallback = Nothing
type WidgetFocusInEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventFocus ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC)
widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure
widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped
where wrapped = widgetFocusInEventCallbackWrapper cb
widgetFocusInEventCallbackWrapper ::
WidgetFocusInEventCallback ->
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
widgetFocusInEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventFocus) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId
onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore
afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId
afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter
connectWidgetFocusInEvent :: (GObject a, MonadIO m) =>
a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocusInEvent obj cb after = liftIO $ do
cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb)
connectSignalFunPtr obj "focus-in-event" cb' after
-- signal Widget::focus-out-event
type WidgetFocusOutEventCallback =
Gdk.EventFocus ->
IO Bool
noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback
noWidgetFocusOutEventCallback = Nothing
type WidgetFocusOutEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventFocus ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC)
widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure
widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped
where wrapped = widgetFocusOutEventCallbackWrapper cb
widgetFocusOutEventCallbackWrapper ::
WidgetFocusOutEventCallback ->
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
widgetFocusOutEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventFocus) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId
onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore
afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId
afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter
connectWidgetFocusOutEvent :: (GObject a, MonadIO m) =>
a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocusOutEvent obj cb after = liftIO $ do
cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb)
connectSignalFunPtr obj "focus-out-event" cb' after
-- signal Widget::grab-broken-event
type WidgetGrabBrokenEventCallback =
Gdk.EventGrabBroken ->
IO Bool
noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback
noWidgetGrabBrokenEventCallback = Nothing
type WidgetGrabBrokenEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventGrabBroken ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC)
widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure
widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped
where wrapped = widgetGrabBrokenEventCallbackWrapper cb
widgetGrabBrokenEventCallbackWrapper ::
WidgetGrabBrokenEventCallback ->
Ptr () ->
Ptr Gdk.EventGrabBroken ->
Ptr () ->
IO CInt
widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventGrabBroken) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId
onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore
afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId
afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter
connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) =>
a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabBrokenEvent obj cb after = liftIO $ do
cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb)
connectSignalFunPtr obj "grab-broken-event" cb' after
-- signal Widget::grab-focus
type WidgetGrabFocusCallback =
IO ()
noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback
noWidgetGrabFocusCallback = Nothing
type WidgetGrabFocusCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC)
widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure
widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped
where wrapped = widgetGrabFocusCallbackWrapper cb
widgetGrabFocusCallbackWrapper ::
WidgetGrabFocusCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetGrabFocusCallbackWrapper _cb _ _ = do
_cb
onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId
onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore
afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId
afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter
connectWidgetGrabFocus :: (GObject a, MonadIO m) =>
a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabFocus obj cb after = liftIO $ do
cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb)
connectSignalFunPtr obj "grab-focus" cb' after
-- signal Widget::grab-notify
type WidgetGrabNotifyCallback =
Bool ->
IO ()
noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback
noWidgetGrabNotifyCallback = Nothing
type WidgetGrabNotifyCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC)
widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure
widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped
where wrapped = widgetGrabNotifyCallbackWrapper cb
widgetGrabNotifyCallbackWrapper ::
WidgetGrabNotifyCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO ()
widgetGrabNotifyCallbackWrapper _cb _ was_grabbed _ = do
let was_grabbed' = (/= 0) was_grabbed
_cb was_grabbed'
onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore
afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter
connectWidgetGrabNotify :: (GObject a, MonadIO m) =>
a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabNotify obj cb after = liftIO $ do
cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb)
connectSignalFunPtr obj "grab-notify" cb' after
-- signal Widget::hide
type WidgetHideCallback =
IO ()
noWidgetHideCallback :: Maybe WidgetHideCallback
noWidgetHideCallback = Nothing
type WidgetHideCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC)
widgetHideClosure :: WidgetHideCallback -> IO Closure
widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped
where wrapped = widgetHideCallbackWrapper cb
widgetHideCallbackWrapper ::
WidgetHideCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetHideCallbackWrapper _cb _ _ = do
_cb
onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore
afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter
connectWidgetHide :: (GObject a, MonadIO m) =>
a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetHide obj cb after = liftIO $ do
cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb)
connectSignalFunPtr obj "hide" cb' after
-- signal Widget::hierarchy-changed
type WidgetHierarchyChangedCallback =
Maybe Widget ->
IO ()
noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback
noWidgetHierarchyChangedCallback = Nothing
type WidgetHierarchyChangedCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC)
widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure
widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped
where wrapped = widgetHierarchyChangedCallbackWrapper cb
widgetHierarchyChangedCallbackWrapper ::
WidgetHierarchyChangedCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
widgetHierarchyChangedCallbackWrapper _cb _ previous_toplevel _ = do
maybePrevious_toplevel <-
if previous_toplevel == nullPtr
then return Nothing
else do
previous_toplevel' <- (newObject Widget) previous_toplevel
return $ Just previous_toplevel'
_cb maybePrevious_toplevel
onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId
onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore
afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId
afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter
connectWidgetHierarchyChanged :: (GObject a, MonadIO m) =>
a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetHierarchyChanged obj cb after = liftIO $ do
cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb)
connectSignalFunPtr obj "hierarchy-changed" cb' after
-- signal Widget::key-press-event
type WidgetKeyPressEventCallback =
Gdk.EventKey ->
IO Bool
noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback
noWidgetKeyPressEventCallback = Nothing
type WidgetKeyPressEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventKey ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC)
widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure
widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped
where wrapped = widgetKeyPressEventCallbackWrapper cb
widgetKeyPressEventCallbackWrapper ::
WidgetKeyPressEventCallback ->
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
widgetKeyPressEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventKey) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId
onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore
afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId
afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter
connectWidgetKeyPressEvent :: (GObject a, MonadIO m) =>
a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeyPressEvent obj cb after = liftIO $ do
cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb)
connectSignalFunPtr obj "key-press-event" cb' after
-- signal Widget::key-release-event
type WidgetKeyReleaseEventCallback =
Gdk.EventKey ->
IO Bool
noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback
noWidgetKeyReleaseEventCallback = Nothing
type WidgetKeyReleaseEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventKey ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC)
widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure
widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped
where wrapped = widgetKeyReleaseEventCallbackWrapper cb
widgetKeyReleaseEventCallbackWrapper ::
WidgetKeyReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventKey) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId
onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore
afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId
afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter
connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) =>
a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeyReleaseEvent obj cb after = liftIO $ do
cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb)
connectSignalFunPtr obj "key-release-event" cb' after
-- signal Widget::keynav-failed
type WidgetKeynavFailedCallback =
DirectionType ->
IO Bool
noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback
noWidgetKeynavFailedCallback = Nothing
type WidgetKeynavFailedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC)
widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure
widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped
where wrapped = widgetKeynavFailedCallbackWrapper cb
widgetKeynavFailedCallbackWrapper ::
WidgetKeynavFailedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetKeynavFailedCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
result <- _cb direction'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore
afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter
connectWidgetKeynavFailed :: (GObject a, MonadIO m) =>
a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeynavFailed obj cb after = liftIO $ do
cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb)
connectSignalFunPtr obj "keynav-failed" cb' after
-- signal Widget::leave-notify-event
type WidgetLeaveNotifyEventCallback =
Gdk.EventCrossing ->
IO Bool
noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback
noWidgetLeaveNotifyEventCallback = Nothing
type WidgetLeaveNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventCrossing ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC)
widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure
widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped
where wrapped = widgetLeaveNotifyEventCallbackWrapper cb
widgetLeaveNotifyEventCallbackWrapper ::
WidgetLeaveNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventCrossing) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId
onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore
afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId
afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter
connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "leave-notify-event" cb' after
-- signal Widget::map
type WidgetMapCallback =
IO ()
noWidgetMapCallback :: Maybe WidgetMapCallback
noWidgetMapCallback = Nothing
type WidgetMapCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC)
widgetMapClosure :: WidgetMapCallback -> IO Closure
widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped
where wrapped = widgetMapCallbackWrapper cb
widgetMapCallbackWrapper ::
WidgetMapCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetMapCallbackWrapper _cb _ _ = do
_cb
onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore
afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter
connectWidgetMap :: (GObject a, MonadIO m) =>
a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMap obj cb after = liftIO $ do
cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb)
connectSignalFunPtr obj "map" cb' after
-- signal Widget::map-event
type WidgetMapEventCallback =
Gdk.EventAny ->
IO Bool
noWidgetMapEventCallback :: Maybe WidgetMapEventCallback
noWidgetMapEventCallback = Nothing
type WidgetMapEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventAny ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC)
widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure
widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped
where wrapped = widgetMapEventCallbackWrapper cb
widgetMapEventCallbackWrapper ::
WidgetMapEventCallback ->
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
widgetMapEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventAny) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId
onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore
afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId
afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter
connectWidgetMapEvent :: (GObject a, MonadIO m) =>
a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMapEvent obj cb after = liftIO $ do
cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb)
connectSignalFunPtr obj "map-event" cb' after
-- signal Widget::mnemonic-activate
type WidgetMnemonicActivateCallback =
Bool ->
IO Bool
noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback
noWidgetMnemonicActivateCallback = Nothing
type WidgetMnemonicActivateCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC)
widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure
widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped
where wrapped = widgetMnemonicActivateCallbackWrapper cb
widgetMnemonicActivateCallbackWrapper ::
WidgetMnemonicActivateCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do
let arg1' = (/= 0) arg1
result <- _cb arg1'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore
afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter
connectWidgetMnemonicActivate :: (GObject a, MonadIO m) =>
a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMnemonicActivate obj cb after = liftIO $ do
cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb)
connectSignalFunPtr obj "mnemonic-activate" cb' after
-- signal Widget::motion-notify-event
type WidgetMotionNotifyEventCallback =
Gdk.EventMotion ->
IO Bool
noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback
noWidgetMotionNotifyEventCallback = Nothing
type WidgetMotionNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventMotion ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC)
widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure
widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped
where wrapped = widgetMotionNotifyEventCallbackWrapper cb
widgetMotionNotifyEventCallbackWrapper ::
WidgetMotionNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventMotion ->
Ptr () ->
IO CInt
widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventMotion) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId
onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore
afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId
afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter
connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMotionNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "motion-notify-event" cb' after
-- signal Widget::move-focus
type WidgetMoveFocusCallback =
DirectionType ->
IO ()
noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback
noWidgetMoveFocusCallback = Nothing
type WidgetMoveFocusCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC)
widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure
widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped
where wrapped = widgetMoveFocusCallbackWrapper cb
widgetMoveFocusCallbackWrapper ::
WidgetMoveFocusCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetMoveFocusCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
_cb direction'
onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore
afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter
connectWidgetMoveFocus :: (GObject a, MonadIO m) =>
a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMoveFocus obj cb after = liftIO $ do
cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb)
connectSignalFunPtr obj "move-focus" cb' after
-- signal Widget::parent-set
type WidgetParentSetCallback =
Maybe Widget ->
IO ()
noWidgetParentSetCallback :: Maybe WidgetParentSetCallback
noWidgetParentSetCallback = Nothing
type WidgetParentSetCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC)
widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure
widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped
where wrapped = widgetParentSetCallbackWrapper cb
widgetParentSetCallbackWrapper ::
WidgetParentSetCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
widgetParentSetCallbackWrapper _cb _ old_parent _ = do
maybeOld_parent <-
if old_parent == nullPtr
then return Nothing
else do
old_parent' <- (newObject Widget) old_parent
return $ Just old_parent'
_cb maybeOld_parent
onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId
onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore
afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId
afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter
connectWidgetParentSet :: (GObject a, MonadIO m) =>
a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetParentSet obj cb after = liftIO $ do
cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb)
connectSignalFunPtr obj "parent-set" cb' after
-- signal Widget::popup-menu
type WidgetPopupMenuCallback =
IO Bool
noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback
noWidgetPopupMenuCallback = Nothing
type WidgetPopupMenuCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC)
widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure
widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped
where wrapped = widgetPopupMenuCallbackWrapper cb
widgetPopupMenuCallbackWrapper ::
WidgetPopupMenuCallback ->
Ptr () ->
Ptr () ->
IO CInt
widgetPopupMenuCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore
afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter
connectWidgetPopupMenu :: (GObject a, MonadIO m) =>
a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetPopupMenu obj cb after = liftIO $ do
cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb)
connectSignalFunPtr obj "popup-menu" cb' after
-- signal Widget::property-notify-event
type WidgetPropertyNotifyEventCallback =
Gdk.EventProperty ->
IO Bool
noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback
noWidgetPropertyNotifyEventCallback = Nothing
type WidgetPropertyNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventProperty ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC)
widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure
widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped
where wrapped = widgetPropertyNotifyEventCallbackWrapper cb
widgetPropertyNotifyEventCallbackWrapper ::
WidgetPropertyNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventProperty ->
Ptr () ->
IO CInt
widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventProperty) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId
onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore
afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId
afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter
connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "property-notify-event" cb' after
-- signal Widget::proximity-in-event
type WidgetProximityInEventCallback =
Gdk.EventProximity ->
IO Bool
noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback
noWidgetProximityInEventCallback = Nothing
type WidgetProximityInEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventProximity ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC)
widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure
widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped
where wrapped = widgetProximityInEventCallbackWrapper cb
widgetProximityInEventCallbackWrapper ::
WidgetProximityInEventCallback ->
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
widgetProximityInEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventProximity) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId
onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore
afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId
afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter
connectWidgetProximityInEvent :: (GObject a, MonadIO m) =>
a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetProximityInEvent obj cb after = liftIO $ do
cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb)
connectSignalFunPtr obj "proximity-in-event" cb' after
-- signal Widget::proximity-out-event
type WidgetProximityOutEventCallback =
Gdk.EventProximity ->
IO Bool
noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback
noWidgetProximityOutEventCallback = Nothing
type WidgetProximityOutEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventProximity ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC)
widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure
widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped
where wrapped = widgetProximityOutEventCallbackWrapper cb
widgetProximityOutEventCallbackWrapper ::
WidgetProximityOutEventCallback ->
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
widgetProximityOutEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventProximity) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId
onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore
afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId
afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter
connectWidgetProximityOutEvent :: (GObject a, MonadIO m) =>
a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetProximityOutEvent obj cb after = liftIO $ do
cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb)
connectSignalFunPtr obj "proximity-out-event" cb' after
-- signal Widget::query-tooltip
type WidgetQueryTooltipCallback =
Int32 ->
Int32 ->
Bool ->
Tooltip ->
IO Bool
noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback
noWidgetQueryTooltipCallback = Nothing
type WidgetQueryTooltipCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC)
widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure
widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped
where wrapped = widgetQueryTooltipCallbackWrapper cb
widgetQueryTooltipCallbackWrapper ::
WidgetQueryTooltipCallback ->
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () ->
IO CInt
widgetQueryTooltipCallbackWrapper _cb _ x y keyboard_mode tooltip _ = do
let keyboard_mode' = (/= 0) keyboard_mode
tooltip' <- (newObject Tooltip) tooltip
result <- _cb x y keyboard_mode' tooltip'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore
afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter
connectWidgetQueryTooltip :: (GObject a, MonadIO m) =>
a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetQueryTooltip obj cb after = liftIO $ do
cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb)
connectSignalFunPtr obj "query-tooltip" cb' after
-- signal Widget::realize
type WidgetRealizeCallback =
IO ()
noWidgetRealizeCallback :: Maybe WidgetRealizeCallback
noWidgetRealizeCallback = Nothing
type WidgetRealizeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC)
widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure
widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped
where wrapped = widgetRealizeCallbackWrapper cb
widgetRealizeCallbackWrapper ::
WidgetRealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetRealizeCallbackWrapper _cb _ _ = do
_cb
onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore
afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter
connectWidgetRealize :: (GObject a, MonadIO m) =>
a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetRealize obj cb after = liftIO $ do
cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb)
connectSignalFunPtr obj "realize" cb' after
-- signal Widget::screen-changed
type WidgetScreenChangedCallback =
Maybe Gdk.Screen ->
IO ()
noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback
noWidgetScreenChangedCallback = Nothing
type WidgetScreenChangedCallbackC =
Ptr () -> -- object
Ptr Gdk.Screen ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC)
widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure
widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped
where wrapped = widgetScreenChangedCallbackWrapper cb
widgetScreenChangedCallbackWrapper ::
WidgetScreenChangedCallback ->
Ptr () ->
Ptr Gdk.Screen ->
Ptr () ->
IO ()
widgetScreenChangedCallbackWrapper _cb _ previous_screen _ = do
maybePrevious_screen <-
if previous_screen == nullPtr
then return Nothing
else do
previous_screen' <- (newObject Gdk.Screen) previous_screen
return $ Just previous_screen'
_cb maybePrevious_screen
onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId
onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore
afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId
afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter
connectWidgetScreenChanged :: (GObject a, MonadIO m) =>
a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetScreenChanged obj cb after = liftIO $ do
cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb)
connectSignalFunPtr obj "screen-changed" cb' after
-- signal Widget::scroll-event
type WidgetScrollEventCallback =
Gdk.EventScroll ->
IO Bool
noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback
noWidgetScrollEventCallback = Nothing
type WidgetScrollEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventScroll ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC)
widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure
widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped
where wrapped = widgetScrollEventCallbackWrapper cb
widgetScrollEventCallbackWrapper ::
WidgetScrollEventCallback ->
Ptr () ->
Ptr Gdk.EventScroll ->
Ptr () ->
IO CInt
widgetScrollEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventScroll) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId
onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore
afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId
afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter
connectWidgetScrollEvent :: (GObject a, MonadIO m) =>
a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetScrollEvent obj cb after = liftIO $ do
cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb)
connectSignalFunPtr obj "scroll-event" cb' after
-- signal Widget::selection-clear-event
type WidgetSelectionClearEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback
noWidgetSelectionClearEventCallback = Nothing
type WidgetSelectionClearEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSelection ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC)
widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure
widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped
where wrapped = widgetSelectionClearEventCallbackWrapper cb
widgetSelectionClearEventCallbackWrapper ::
WidgetSelectionClearEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionClearEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId
onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore
afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId
afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter
connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionClearEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-clear-event" cb' after
-- signal Widget::selection-get
type WidgetSelectionGetCallback =
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback
noWidgetSelectionGetCallback = Nothing
type WidgetSelectionGetCallbackC =
Ptr () -> -- object
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC)
widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure
widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped
where wrapped = widgetSelectionGetCallbackWrapper cb
widgetSelectionGetCallbackWrapper ::
WidgetSelectionGetCallback ->
Ptr () ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do
data_' <- (newBoxed SelectionData) data_
_cb data_' info time
onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId
onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore
afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId
afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter
connectWidgetSelectionGet :: (GObject a, MonadIO m) =>
a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionGet obj cb after = liftIO $ do
cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb)
connectSignalFunPtr obj "selection-get" cb' after
-- signal Widget::selection-notify-event
type WidgetSelectionNotifyEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback
noWidgetSelectionNotifyEventCallback = Nothing
type WidgetSelectionNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSelection ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC)
widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure
widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped
where wrapped = widgetSelectionNotifyEventCallbackWrapper cb
widgetSelectionNotifyEventCallbackWrapper ::
WidgetSelectionNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId
onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore
afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId
afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter
connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-notify-event" cb' after
-- signal Widget::selection-received
type WidgetSelectionReceivedCallback =
SelectionData ->
Word32 ->
IO ()
noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback
noWidgetSelectionReceivedCallback = Nothing
type WidgetSelectionReceivedCallbackC =
Ptr () -> -- object
Ptr SelectionData ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC)
widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure
widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped
where wrapped = widgetSelectionReceivedCallbackWrapper cb
widgetSelectionReceivedCallbackWrapper ::
WidgetSelectionReceivedCallback ->
Ptr () ->
Ptr SelectionData ->
Word32 ->
Ptr () ->
IO ()
widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do
data_' <- (newBoxed SelectionData) data_
_cb data_' time
onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId
onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore
afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId
afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter
connectWidgetSelectionReceived :: (GObject a, MonadIO m) =>
a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionReceived obj cb after = liftIO $ do
cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb)
connectSignalFunPtr obj "selection-received" cb' after
-- signal Widget::selection-request-event
type WidgetSelectionRequestEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback
noWidgetSelectionRequestEventCallback = Nothing
type WidgetSelectionRequestEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventSelection ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC)
widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure
widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped
where wrapped = widgetSelectionRequestEventCallbackWrapper cb
widgetSelectionRequestEventCallbackWrapper ::
WidgetSelectionRequestEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId
onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore
afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId
afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter
connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionRequestEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-request-event" cb' after
-- signal Widget::show
type WidgetShowCallback =
IO ()
noWidgetShowCallback :: Maybe WidgetShowCallback
noWidgetShowCallback = Nothing
type WidgetShowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC)
widgetShowClosure :: WidgetShowCallback -> IO Closure
widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped
where wrapped = widgetShowCallbackWrapper cb
widgetShowCallbackWrapper ::
WidgetShowCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetShowCallbackWrapper _cb _ _ = do
_cb
onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore
afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter
connectWidgetShow :: (GObject a, MonadIO m) =>
a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetShow obj cb after = liftIO $ do
cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb)
connectSignalFunPtr obj "show" cb' after
-- signal Widget::show-help
type WidgetShowHelpCallback =
WidgetHelpType ->
IO Bool
noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback
noWidgetShowHelpCallback = Nothing
type WidgetShowHelpCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC)
widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure
widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped
where wrapped = widgetShowHelpCallbackWrapper cb
widgetShowHelpCallbackWrapper ::
WidgetShowHelpCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetShowHelpCallbackWrapper _cb _ help_type _ = do
let help_type' = (toEnum . fromIntegral) help_type
result <- _cb help_type'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId
onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore
afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId
afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter
connectWidgetShowHelp :: (GObject a, MonadIO m) =>
a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetShowHelp obj cb after = liftIO $ do
cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb)
connectSignalFunPtr obj "show-help" cb' after
-- signal Widget::size-allocate
type WidgetSizeAllocateCallback =
Gdk.Rectangle ->
IO ()
noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback
noWidgetSizeAllocateCallback = Nothing
type WidgetSizeAllocateCallbackC =
Ptr () -> -- object
Ptr Gdk.Rectangle ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC)
widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure
widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped
where wrapped = widgetSizeAllocateCallbackWrapper cb
widgetSizeAllocateCallbackWrapper ::
WidgetSizeAllocateCallback ->
Ptr () ->
Ptr Gdk.Rectangle ->
Ptr () ->
IO ()
widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do
allocation' <- (newBoxed Gdk.Rectangle) allocation
_cb allocation'
onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore
afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter
connectWidgetSizeAllocate :: (GObject a, MonadIO m) =>
a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSizeAllocate obj cb after = liftIO $ do
cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb)
connectSignalFunPtr obj "size-allocate" cb' after
-- signal Widget::state-changed
type WidgetStateChangedCallback =
StateType ->
IO ()
noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback
noWidgetStateChangedCallback = Nothing
type WidgetStateChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC)
widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure
widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped
where wrapped = widgetStateChangedCallbackWrapper cb
widgetStateChangedCallbackWrapper ::
WidgetStateChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetStateChangedCallbackWrapper _cb _ state _ = do
let state' = (toEnum . fromIntegral) state
_cb state'
onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId
onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore
afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId
afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter
connectWidgetStateChanged :: (GObject a, MonadIO m) =>
a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStateChanged obj cb after = liftIO $ do
cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb)
connectSignalFunPtr obj "state-changed" cb' after
-- signal Widget::state-flags-changed
type WidgetStateFlagsChangedCallback =
[StateFlags] ->
IO ()
noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback
noWidgetStateFlagsChangedCallback = Nothing
type WidgetStateFlagsChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC)
widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure
widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped
where wrapped = widgetStateFlagsChangedCallbackWrapper cb
widgetStateFlagsChangedCallbackWrapper ::
WidgetStateFlagsChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do
let flags' = wordToGFlags flags
_cb flags'
onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore
afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter
connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) =>
a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStateFlagsChanged obj cb after = liftIO $ do
cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb)
connectSignalFunPtr obj "state-flags-changed" cb' after
-- signal Widget::style-set
type WidgetStyleSetCallback =
Maybe Style ->
IO ()
noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback
noWidgetStyleSetCallback = Nothing
type WidgetStyleSetCallbackC =
Ptr () -> -- object
Ptr Style ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC)
widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure
widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped
where wrapped = widgetStyleSetCallbackWrapper cb
widgetStyleSetCallbackWrapper ::
WidgetStyleSetCallback ->
Ptr () ->
Ptr Style ->
Ptr () ->
IO ()
widgetStyleSetCallbackWrapper _cb _ previous_style _ = do
maybePrevious_style <-
if previous_style == nullPtr
then return Nothing
else do
previous_style' <- (newObject Style) previous_style
return $ Just previous_style'
_cb maybePrevious_style
onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId
onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore
afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId
afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter
connectWidgetStyleSet :: (GObject a, MonadIO m) =>
a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStyleSet obj cb after = liftIO $ do
cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb)
connectSignalFunPtr obj "style-set" cb' after
-- signal Widget::style-updated
type WidgetStyleUpdatedCallback =
IO ()
noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback
noWidgetStyleUpdatedCallback = Nothing
type WidgetStyleUpdatedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC)
widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure
widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped
where wrapped = widgetStyleUpdatedCallbackWrapper cb
widgetStyleUpdatedCallbackWrapper ::
WidgetStyleUpdatedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetStyleUpdatedCallbackWrapper _cb _ _ = do
_cb
onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore
afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter
connectWidgetStyleUpdated :: (GObject a, MonadIO m) =>
a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStyleUpdated obj cb after = liftIO $ do
cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb)
connectSignalFunPtr obj "style-updated" cb' after
-- signal Widget::touch-event
type WidgetTouchEventCallback =
Gdk.Event ->
IO Bool
noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback
noWidgetTouchEventCallback = Nothing
type WidgetTouchEventCallbackC =
Ptr () -> -- object
Ptr Gdk.Event ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC)
widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure
widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped
where wrapped = widgetTouchEventCallbackWrapper cb
widgetTouchEventCallbackWrapper ::
WidgetTouchEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetTouchEventCallbackWrapper _cb _ object _ = do
object' <- (newBoxed Gdk.Event) object
result <- _cb object'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId
onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore
afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId
afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter
connectWidgetTouchEvent :: (GObject a, MonadIO m) =>
a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetTouchEvent obj cb after = liftIO $ do
cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb)
connectSignalFunPtr obj "touch-event" cb' after
-- signal Widget::unmap
type WidgetUnmapCallback =
IO ()
noWidgetUnmapCallback :: Maybe WidgetUnmapCallback
noWidgetUnmapCallback = Nothing
type WidgetUnmapCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC)
widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure
widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped
where wrapped = widgetUnmapCallbackWrapper cb
widgetUnmapCallbackWrapper ::
WidgetUnmapCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetUnmapCallbackWrapper _cb _ _ = do
_cb
onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore
afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter
connectWidgetUnmap :: (GObject a, MonadIO m) =>
a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnmap obj cb after = liftIO $ do
cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb)
connectSignalFunPtr obj "unmap" cb' after
-- signal Widget::unmap-event
type WidgetUnmapEventCallback =
Gdk.EventAny ->
IO Bool
noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback
noWidgetUnmapEventCallback = Nothing
type WidgetUnmapEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventAny ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC)
widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure
widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped
where wrapped = widgetUnmapEventCallbackWrapper cb
widgetUnmapEventCallbackWrapper ::
WidgetUnmapEventCallback ->
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
widgetUnmapEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventAny) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId
onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore
afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId
afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter
connectWidgetUnmapEvent :: (GObject a, MonadIO m) =>
a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnmapEvent obj cb after = liftIO $ do
cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb)
connectSignalFunPtr obj "unmap-event" cb' after
-- signal Widget::unrealize
type WidgetUnrealizeCallback =
IO ()
noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback
noWidgetUnrealizeCallback = Nothing
type WidgetUnrealizeCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC)
widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure
widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped
where wrapped = widgetUnrealizeCallbackWrapper cb
widgetUnrealizeCallbackWrapper ::
WidgetUnrealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetUnrealizeCallbackWrapper _cb _ _ = do
_cb
onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore
afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter
connectWidgetUnrealize :: (GObject a, MonadIO m) =>
a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnrealize obj cb after = liftIO $ do
cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb)
connectSignalFunPtr obj "unrealize" cb' after
-- signal Widget::visibility-notify-event
type WidgetVisibilityNotifyEventCallback =
Gdk.EventVisibility ->
IO Bool
noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback
noWidgetVisibilityNotifyEventCallback = Nothing
type WidgetVisibilityNotifyEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventVisibility ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC)
widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure
widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped
where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb
widgetVisibilityNotifyEventCallbackWrapper ::
WidgetVisibilityNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventVisibility ->
Ptr () ->
IO CInt
widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventVisibility) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId
onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore
afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId
afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter
connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "visibility-notify-event" cb' after
-- signal Widget::window-state-event
type WidgetWindowStateEventCallback =
Gdk.EventWindowState ->
IO Bool
noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback
noWidgetWindowStateEventCallback = Nothing
type WidgetWindowStateEventCallbackC =
Ptr () -> -- object
Ptr Gdk.EventWindowState ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC)
widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure
widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped
where wrapped = widgetWindowStateEventCallbackWrapper cb
widgetWindowStateEventCallbackWrapper ::
WidgetWindowStateEventCallback ->
Ptr () ->
Ptr Gdk.EventWindowState ->
Ptr () ->
IO CInt
widgetWindowStateEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventWindowState) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId
onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore
afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId
afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter
connectWidgetWindowStateEvent :: (GObject a, MonadIO m) =>
a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetWindowStateEvent obj cb after = liftIO $ do
cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb)
connectSignalFunPtr obj "window-state-event" cb' after
-- object WidgetAccessible
newtype WidgetAccessible = WidgetAccessible (ForeignPtr WidgetAccessible)
noWidgetAccessible :: Maybe WidgetAccessible
noWidgetAccessible = Nothing
foreign import ccall "gtk_widget_accessible_get_type"
c_gtk_widget_accessible_get_type :: IO GType
type instance ParentTypes WidgetAccessible = '[Accessible, Atk.Object, GObject.Object, Atk.Component]
instance GObject WidgetAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_widget_accessible_get_type
class GObject o => WidgetAccessibleK o
instance (GObject o, IsDescendantOf WidgetAccessible o) => WidgetAccessibleK o
toWidgetAccessible :: WidgetAccessibleK o => o -> IO WidgetAccessible
toWidgetAccessible = unsafeCastTo WidgetAccessible
-- Enum WidgetHelpType
data WidgetHelpType =
WidgetHelpTypeTooltip
| WidgetHelpTypeWhatsThis
| AnotherWidgetHelpType Int
deriving (Show, Eq)
instance Enum WidgetHelpType where
fromEnum WidgetHelpTypeTooltip = 0
fromEnum WidgetHelpTypeWhatsThis = 1
fromEnum (AnotherWidgetHelpType k) = k
toEnum 0 = WidgetHelpTypeTooltip
toEnum 1 = WidgetHelpTypeWhatsThis
toEnum k = AnotherWidgetHelpType k
foreign import ccall "gtk_widget_help_type_get_type" c_gtk_widget_help_type_get_type ::
IO GType
instance BoxedEnum WidgetHelpType where
boxedEnumType _ = c_gtk_widget_help_type_get_type
-- struct WidgetPath
newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath)
noWidgetPath :: Maybe WidgetPath
noWidgetPath = Nothing
foreign import ccall "gtk_widget_path_get_type" c_gtk_widget_path_get_type ::
IO GType
instance BoxedObject WidgetPath where
boxedType _ = c_gtk_widget_path_get_type
-- method WidgetPath::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_new" gtk_widget_path_new ::
IO (Ptr WidgetPath)
widgetPathNew ::
(MonadIO m) =>
m WidgetPath
widgetPathNew = liftIO $ do
result <- gtk_widget_path_new
checkUnexpectedReturnNULL "gtk_widget_path_new" result
result' <- (wrapBoxed WidgetPath) result
return result'
-- method WidgetPath::append_for_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_for_widget" gtk_widget_path_append_for_widget ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO Int32
widgetPathAppendForWidget ::
(MonadIO m, WidgetK a) =>
WidgetPath -> -- _obj
a -> -- widget
m Int32
widgetPathAppendForWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_widget_path_append_for_widget _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return result
-- method WidgetPath::append_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_type" gtk_widget_path_append_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO Int32
widgetPathAppendType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Int32
widgetPathAppendType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_append_type _obj' type_'
touchManagedPtr _obj
return result
-- method WidgetPath::append_with_siblings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_with_siblings" gtk_widget_path_append_with_siblings ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Ptr WidgetPath -> -- siblings : TInterface "Gtk" "WidgetPath"
Word32 -> -- sibling_index : TBasicType TUInt32
IO Int32
widgetPathAppendWithSiblings ::
(MonadIO m) =>
WidgetPath -> -- _obj
WidgetPath -> -- siblings
Word32 -> -- sibling_index
m Int32
widgetPathAppendWithSiblings _obj siblings sibling_index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let siblings' = unsafeManagedPtrGetPtr siblings
result <- gtk_widget_path_append_with_siblings _obj' siblings' sibling_index
touchManagedPtr _obj
touchManagedPtr siblings
return result
-- method WidgetPath::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_copy" gtk_widget_path_copy ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO (Ptr WidgetPath)
widgetPathCopy ::
(MonadIO m) =>
WidgetPath -> -- _obj
m WidgetPath
widgetPathCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_copy _obj'
checkUnexpectedReturnNULL "gtk_widget_path_copy" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_free" gtk_widget_path_free ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO ()
widgetPathFree ::
(MonadIO m) =>
WidgetPath -> -- _obj
m ()
widgetPathFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_free _obj'
touchManagedPtr _obj
return ()
-- method WidgetPath::get_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_get_object_type" gtk_widget_path_get_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO CGType
widgetPathGetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
m GType
widgetPathGetObjectType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_get_object_type _obj'
let result' = GType result
touchManagedPtr _obj
return result'
-- method WidgetPath::has_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_has_parent" gtk_widget_path_has_parent ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO CInt
widgetPathHasParent ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Bool
widgetPathHasParent _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_has_parent _obj' type_'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::is_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_is_type" gtk_widget_path_is_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO CInt
widgetPathIsType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Bool
widgetPathIsType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_is_type _obj' type_'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_add_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_add_class" gtk_widget_path_iter_add_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterAddClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterAddClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_add_class _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_add_qclass
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_add_qclass" gtk_widget_path_iter_add_qclass ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
IO ()
widgetPathIterAddQclass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m ()
widgetPathIterAddQclass _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_iter_add_qclass _obj' pos qname
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_add_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_add_region" gtk_widget_path_iter_add_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO ()
{-# DEPRECATED widgetPathIterAddRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterAddRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
[RegionFlags] -> -- flags
m ()
widgetPathIterAddRegion _obj pos name flags = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
let flags' = gflagsToWord flags
gtk_widget_path_iter_add_region _obj' pos name' flags'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_clear_classes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_clear_classes" gtk_widget_path_iter_clear_classes ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO ()
widgetPathIterClearClasses ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m ()
widgetPathIterClearClasses _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_iter_clear_classes _obj' pos
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_clear_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_clear_regions" gtk_widget_path_iter_clear_regions ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO ()
{-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterClearRegions ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m ()
widgetPathIterClearRegions _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_iter_clear_regions _obj' pos
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_name" gtk_widget_path_iter_get_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CString
widgetPathIterGetName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m T.Text
widgetPathIterGetName _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_name _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_object_type" gtk_widget_path_iter_get_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CGType
widgetPathIterGetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m GType
widgetPathIterGetObjectType _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_object_type _obj' pos
let result' = GType result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_sibling_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_sibling_index" gtk_widget_path_iter_get_sibling_index ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO Word32
widgetPathIterGetSiblingIndex ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m Word32
widgetPathIterGetSiblingIndex _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_sibling_index _obj' pos
touchManagedPtr _obj
return result
-- method WidgetPath::iter_get_siblings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_siblings" gtk_widget_path_iter_get_siblings ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr WidgetPath)
widgetPathIterGetSiblings ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m WidgetPath
widgetPathIterGetSiblings _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_siblings _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_get_siblings" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_state" gtk_widget_path_iter_get_state ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CUInt
widgetPathIterGetState ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [StateFlags]
widgetPathIterGetState _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_state _obj' pos
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_class" gtk_widget_path_iter_has_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO CInt
widgetPathIterHasClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m Bool
widgetPathIterHasClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- gtk_widget_path_iter_has_class _obj' pos name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method WidgetPath::iter_has_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_name" gtk_widget_path_iter_has_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO CInt
widgetPathIterHasName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m Bool
widgetPathIterHasName _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- gtk_widget_path_iter_has_name _obj' pos name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method WidgetPath::iter_has_qclass
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_qclass" gtk_widget_path_iter_has_qclass ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
IO CInt
widgetPathIterHasQclass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m Bool
widgetPathIterHasQclass _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_has_qclass _obj' pos qname
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_qname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_qname" gtk_widget_path_iter_has_qname ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
IO CInt
widgetPathIterHasQname ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m Bool
widgetPathIterHasQname _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_has_qname _obj' pos qname
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_qregion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_qregion" gtk_widget_path_iter_has_qregion ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED widgetPathIterHasQregion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterHasQregion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m (Bool,[RegionFlags])
widgetPathIterHasQregion _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
flags <- allocMem :: IO (Ptr CUInt)
result <- gtk_widget_path_iter_has_qregion _obj' pos qname flags
let result' = (/= 0) result
flags' <- peek flags
let flags'' = wordToGFlags flags'
touchManagedPtr _obj
freeMem flags
return (result', flags'')
-- method WidgetPath::iter_has_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_region" gtk_widget_path_iter_has_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED widgetPathIterHasRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterHasRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m (Bool,[RegionFlags])
widgetPathIterHasRegion _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
flags <- allocMem :: IO (Ptr CUInt)
result <- gtk_widget_path_iter_has_region _obj' pos name' flags
let result' = (/= 0) result
flags' <- peek flags
let flags'' = wordToGFlags flags'
touchManagedPtr _obj
freeMem name'
freeMem flags
return (result', flags'')
-- method WidgetPath::iter_list_classes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_list_classes" gtk_widget_path_iter_list_classes ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr (GSList CString))
widgetPathIterListClasses ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [T.Text]
widgetPathIterListClasses _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_list_classes _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_list_classes" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method WidgetPath::iter_list_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_list_regions" gtk_widget_path_iter_list_regions ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr (GSList CString))
{-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterListRegions ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [T.Text]
widgetPathIterListRegions _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_list_regions _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_list_regions" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method WidgetPath::iter_remove_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_remove_class" gtk_widget_path_iter_remove_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterRemoveClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterRemoveClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_remove_class _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_remove_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_remove_region" gtk_widget_path_iter_remove_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetPathIterRemoveRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterRemoveRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterRemoveRegion _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_remove_region _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_name" gtk_widget_path_iter_set_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterSetName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterSetName _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_set_name _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_set_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_object_type" gtk_widget_path_iter_set_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CGType -> -- type : TBasicType TGType
IO ()
widgetPathIterSetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
GType -> -- type
m ()
widgetPathIterSetObjectType _obj pos type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
gtk_widget_path_iter_set_object_type _obj' pos type_'
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_state" gtk_widget_path_iter_set_state ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CUInt -> -- state : TInterface "Gtk" "StateFlags"
IO ()
widgetPathIterSetState ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
[StateFlags] -> -- state
m ()
widgetPathIterSetState _obj pos state = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let state' = gflagsToWord state
gtk_widget_path_iter_set_state _obj' pos state'
touchManagedPtr _obj
return ()
-- method WidgetPath::length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_length" gtk_widget_path_length ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO Int32
widgetPathLength ::
(MonadIO m) =>
WidgetPath -> -- _obj
m Int32
widgetPathLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_length _obj'
touchManagedPtr _obj
return result
-- method WidgetPath::prepend_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_prepend_type" gtk_widget_path_prepend_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO ()
widgetPathPrependType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m ()
widgetPathPrependType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
gtk_widget_path_prepend_type _obj' type_'
touchManagedPtr _obj
return ()
-- method WidgetPath::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_ref" gtk_widget_path_ref ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO (Ptr WidgetPath)
widgetPathRef ::
(MonadIO m) =>
WidgetPath -> -- _obj
m WidgetPath
widgetPathRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_ref _obj'
checkUnexpectedReturnNULL "gtk_widget_path_ref" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_to_string" gtk_widget_path_to_string ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO CString
widgetPathToString ::
(MonadIO m) =>
WidgetPath -> -- _obj
m T.Text
widgetPathToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_to_string _obj'
checkUnexpectedReturnNULL "gtk_widget_path_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method WidgetPath::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_unref" gtk_widget_path_unref ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO ()
widgetPathUnref ::
(MonadIO m) =>
WidgetPath -> -- _obj
m ()
widgetPathUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_unref _obj'
touchManagedPtr _obj
return ()
-- object Window
newtype Window = Window (ForeignPtr Window)
noWindow :: Maybe Window
noWindow = Nothing
foreign import ccall "gtk_window_get_type"
c_gtk_window_get_type :: IO GType
type instance ParentTypes Window = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Window where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_window_get_type
class GObject o => WindowK o
instance (GObject o, IsDescendantOf Window o) => WindowK o
toWindow :: WindowK o => o -> IO Window
toWindow = unsafeCastTo Window
-- method Window::new
-- method type : Constructor
-- Args : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_new" gtk_window_new ::
CUInt -> -- type : TInterface "Gtk" "WindowType"
IO (Ptr Window)
windowNew ::
(MonadIO m) =>
WindowType -> -- type
m Window
windowNew type_ = liftIO $ do
let type_' = (fromIntegral . fromEnum) type_
result <- gtk_window_new type_'
checkUnexpectedReturnNULL "gtk_window_new" result
result' <- (newObject Window) result
return result'
-- method Window::activate_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_activate_default" gtk_window_activate_default ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowActivateDefault ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowActivateDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_activate_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::activate_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_activate_focus" gtk_window_activate_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowActivateFocus ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowActivateFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_activate_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::activate_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_activate_key" gtk_window_activate_key ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
windowActivateKey ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Gdk.EventKey -> -- event
m Bool
windowActivateKey _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_window_activate_key _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method Window::add_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_add_accel_group" gtk_window_add_accel_group ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
windowAddAccelGroup ::
(MonadIO m, WindowK a, AccelGroupK b) =>
a -> -- _obj
b -> -- accel_group
m ()
windowAddAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_group' = unsafeManagedPtrCastPtr accel_group
gtk_window_add_accel_group _obj' accel_group'
touchManagedPtr _obj
touchManagedPtr accel_group
return ()
-- method Window::add_mnemonic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_add_mnemonic" gtk_window_add_mnemonic ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Word32 -> -- keyval : TBasicType TUInt32
Ptr Widget -> -- target : TInterface "Gtk" "Widget"
IO ()
windowAddMnemonic ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Word32 -> -- keyval
b -> -- target
m ()
windowAddMnemonic _obj keyval target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target' = unsafeManagedPtrCastPtr target
gtk_window_add_mnemonic _obj' keyval target'
touchManagedPtr _obj
touchManagedPtr target
return ()
-- method Window::begin_move_drag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_begin_move_drag" gtk_window_begin_move_drag ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginMoveDrag ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- button
Int32 -> -- root_x
Int32 -> -- root_y
Word32 -> -- timestamp
m ()
windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_begin_move_drag _obj' button root_x root_y timestamp
touchManagedPtr _obj
return ()
-- method Window::begin_resize_drag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CUInt -> -- edge : TInterface "Gdk" "WindowEdge"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginResizeDrag ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Gdk.WindowEdge -> -- edge
Int32 -> -- button
Int32 -> -- root_x
Int32 -> -- root_y
Word32 -> -- timestamp
m ()
windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let edge' = (fromIntegral . fromEnum) edge
gtk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp
touchManagedPtr _obj
return ()
-- method Window::close
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_close" gtk_window_close ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowClose ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_close _obj'
touchManagedPtr _obj
return ()
-- method Window::deiconify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_deiconify" gtk_window_deiconify ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowDeiconify ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowDeiconify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_deiconify _obj'
touchManagedPtr _obj
return ()
-- method Window::fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_fullscreen" gtk_window_fullscreen ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowFullscreen ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_fullscreen _obj'
touchManagedPtr _obj
return ()
-- method Window::fullscreen_on_monitor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
Int32 -> -- monitor : TBasicType TInt32
IO ()
windowFullscreenOnMonitor ::
(MonadIO m, WindowK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
Int32 -> -- monitor
m ()
windowFullscreenOnMonitor _obj screen monitor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_window_fullscreen_on_monitor _obj' screen' monitor
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- method Window::get_accept_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_accept_focus" gtk_window_get_accept_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetAcceptFocus ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetAcceptFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_accept_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Application"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_application" gtk_window_get_application ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Application)
windowGetApplication ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Application
windowGetApplication _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_application _obj'
checkUnexpectedReturnNULL "gtk_window_get_application" result
result' <- (newObject Application) result
touchManagedPtr _obj
return result'
-- method Window::get_attached_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_attached_to" gtk_window_get_attached_to ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Widget)
windowGetAttachedTo ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Widget
windowGetAttachedTo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_attached_to _obj'
checkUnexpectedReturnNULL "gtk_window_get_attached_to" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Window::get_decorated
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_decorated" gtk_window_get_decorated ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetDecorated ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetDecorated _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_decorated _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_default_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_default_size" gtk_window_get_default_size ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
windowGetDefaultSize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m (Int32,Int32)
windowGetDefaultSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_window_get_default_size _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method Window::get_default_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_default_widget" gtk_window_get_default_widget ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Widget)
windowGetDefaultWidget ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Widget
windowGetDefaultWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_default_widget _obj'
checkUnexpectedReturnNULL "gtk_window_get_default_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Window::get_deletable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_deletable" gtk_window_get_deletable ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetDeletable ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetDeletable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_deletable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_destroy_with_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_destroy_with_parent" gtk_window_get_destroy_with_parent ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetDestroyWithParent ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetDestroyWithParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_destroy_with_parent _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_focus" gtk_window_get_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Widget)
windowGetFocus ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Widget
windowGetFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_focus _obj'
checkUnexpectedReturnNULL "gtk_window_get_focus" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Window::get_focus_on_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_focus_on_map" gtk_window_get_focus_on_map ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetFocusOnMap ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetFocusOnMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_focus_on_map _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_focus_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_focus_visible" gtk_window_get_focus_visible ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetFocusVisible ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetFocusVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_focus_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_gravity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Gravity"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_gravity" gtk_window_get_gravity ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CUInt
windowGetGravity ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Gdk.Gravity
windowGetGravity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_gravity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Window::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WindowGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_group" gtk_window_get_group ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr WindowGroup)
windowGetGroup ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m WindowGroup
windowGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_group _obj'
checkUnexpectedReturnNULL "gtk_window_get_group" result
result' <- (newObject WindowGroup) result
touchManagedPtr _obj
return result'
-- method Window::get_has_resize_grip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_has_resize_grip" gtk_window_get_has_resize_grip ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
{-# DEPRECATED windowGetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-}
windowGetHasResizeGrip ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetHasResizeGrip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_has_resize_grip _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_hide_titlebar_when_maximized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_hide_titlebar_when_maximized" gtk_window_get_hide_titlebar_when_maximized ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetHideTitlebarWhenMaximized ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetHideTitlebarWhenMaximized _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_hide_titlebar_when_maximized _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_icon" gtk_window_get_icon ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr GdkPixbuf.Pixbuf)
windowGetIcon ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
windowGetIcon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_icon _obj'
checkUnexpectedReturnNULL "gtk_window_get_icon" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method Window::get_icon_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_icon_list" gtk_window_get_icon_list ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf)))
windowGetIconList ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m [GdkPixbuf.Pixbuf]
windowGetIconList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_icon_list _obj'
checkUnexpectedReturnNULL "gtk_window_get_icon_list" result
result' <- unpackGList result
result'' <- mapM (newObject GdkPixbuf.Pixbuf) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Window::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_icon_name" gtk_window_get_icon_name ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CString
windowGetIconName ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m T.Text
windowGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_window_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Window::get_mnemonic_modifier
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "ModifierType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_mnemonic_modifier" gtk_window_get_mnemonic_modifier ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CUInt
windowGetMnemonicModifier ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m [Gdk.ModifierType]
windowGetMnemonicModifier _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_mnemonic_modifier _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method Window::get_mnemonics_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_mnemonics_visible" gtk_window_get_mnemonics_visible ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetMnemonicsVisible ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetMnemonicsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_mnemonics_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_modal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_modal" gtk_window_get_modal ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetModal ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetModal _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_modal _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_opacity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_opacity" gtk_window_get_opacity ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CDouble
{-# DEPRECATED windowGetOpacity ["(Since version 3.8)","Use gtk_widget_get_opacity instead."]#-}
windowGetOpacity ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Double
windowGetOpacity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_opacity _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Window::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_position" gtk_window_get_position ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Int32 -> -- root_x : TBasicType TInt32
Ptr Int32 -> -- root_y : TBasicType TInt32
IO ()
windowGetPosition ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m (Int32,Int32)
windowGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
root_x <- allocMem :: IO (Ptr Int32)
root_y <- allocMem :: IO (Ptr Int32)
gtk_window_get_position _obj' root_x root_y
root_x' <- peek root_x
root_y' <- peek root_y
touchManagedPtr _obj
freeMem root_x
freeMem root_y
return (root_x', root_y')
-- method Window::get_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_resizable" gtk_window_get_resizable ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetResizable ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetResizable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_resizable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_resize_grip_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_resize_grip_area" gtk_window_get_resize_grip_area ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO CInt
{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."]#-}
windowGetResizeGripArea ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m (Bool,Gdk.Rectangle)
windowGetResizeGripArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
result <- gtk_window_get_resize_grip_area _obj' rect
let result' = (/= 0) result
rect' <- (wrapBoxed Gdk.Rectangle) rect
touchManagedPtr _obj
return (result', rect')
-- method Window::get_role
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_role" gtk_window_get_role ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CString
windowGetRole ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m T.Text
windowGetRole _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_role _obj'
checkUnexpectedReturnNULL "gtk_window_get_role" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Window::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_screen" gtk_window_get_screen ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Gdk.Screen)
windowGetScreen ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Gdk.Screen
windowGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_screen _obj'
checkUnexpectedReturnNULL "gtk_window_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
-- method Window::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_size" gtk_window_get_size ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
windowGetSize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m (Int32,Int32)
windowGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_window_get_size _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
-- method Window::get_skip_pager_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_skip_pager_hint" gtk_window_get_skip_pager_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetSkipPagerHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetSkipPagerHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_skip_pager_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_skip_taskbar_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_skip_taskbar_hint" gtk_window_get_skip_taskbar_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetSkipTaskbarHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetSkipTaskbarHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_skip_taskbar_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_title" gtk_window_get_title ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CString
windowGetTitle ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m T.Text
windowGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_title _obj'
checkUnexpectedReturnNULL "gtk_window_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Window::get_titlebar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_titlebar" gtk_window_get_titlebar ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Widget)
windowGetTitlebar ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Widget
windowGetTitlebar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_titlebar _obj'
checkUnexpectedReturnNULL "gtk_window_get_titlebar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Window::get_transient_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_transient_for" gtk_window_get_transient_for ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO (Ptr Window)
windowGetTransientFor ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Window
windowGetTransientFor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_transient_for _obj'
checkUnexpectedReturnNULL "gtk_window_get_transient_for" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
-- method Window::get_type_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gdk" "WindowTypeHint"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_type_hint" gtk_window_get_type_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CUInt
windowGetTypeHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Gdk.WindowTypeHint
windowGetTypeHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_type_hint _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Window::get_urgency_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_urgency_hint" gtk_window_get_urgency_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowGetUrgencyHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowGetUrgencyHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_urgency_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::get_window_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WindowType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_window_type" gtk_window_get_window_type ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CUInt
windowGetWindowType ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m WindowType
windowGetWindowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_get_window_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Window::has_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_has_group" gtk_window_has_group ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowHasGroup ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowHasGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_has_group _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::has_toplevel_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_has_toplevel_focus" gtk_window_has_toplevel_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowHasToplevelFocus ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowHasToplevelFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_has_toplevel_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::iconify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_iconify" gtk_window_iconify ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowIconify ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowIconify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_iconify _obj'
touchManagedPtr _obj
return ()
-- method Window::is_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_is_active" gtk_window_is_active ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowIsActive ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowIsActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_is_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::is_maximized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_is_maximized" gtk_window_is_maximized ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
windowIsMaximized ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowIsMaximized _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_is_maximized _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::maximize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_maximize" gtk_window_maximize ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowMaximize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowMaximize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_maximize _obj'
touchManagedPtr _obj
return ()
-- method Window::mnemonic_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifier : TInterface "Gdk" "ModifierType"
IO CInt
windowMnemonicActivate ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifier
m Bool
windowMnemonicActivate _obj keyval modifier = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let modifier' = gflagsToWord modifier
result <- gtk_window_mnemonic_activate _obj' keyval modifier'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::move
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_move" gtk_window_move ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
windowMove ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ()
windowMove _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_move _obj' x y
touchManagedPtr _obj
return ()
-- method Window::parse_geometry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_parse_geometry" gtk_window_parse_geometry ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- geometry : TBasicType TUTF8
IO CInt
windowParseGeometry ::
(MonadIO m, WindowK a) =>
a -> -- _obj
T.Text -> -- geometry
m Bool
windowParseGeometry _obj geometry = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
geometry' <- textToCString geometry
result <- gtk_window_parse_geometry _obj' geometry'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem geometry'
return result'
-- method Window::present
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_present" gtk_window_present ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowPresent ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowPresent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_present _obj'
touchManagedPtr _obj
return ()
-- method Window::present_with_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_present_with_time" gtk_window_present_with_time ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowPresentWithTime ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Word32 -> -- timestamp
m ()
windowPresentWithTime _obj timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_present_with_time _obj' timestamp
touchManagedPtr _obj
return ()
-- method Window::propagate_key_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_propagate_key_event" gtk_window_propagate_key_event ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
windowPropagateKeyEvent ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Gdk.EventKey -> -- event
m Bool
windowPropagateKeyEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_window_propagate_key_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method Window::remove_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_remove_accel_group" gtk_window_remove_accel_group ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
windowRemoveAccelGroup ::
(MonadIO m, WindowK a, AccelGroupK b) =>
a -> -- _obj
b -> -- accel_group
m ()
windowRemoveAccelGroup _obj accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_group' = unsafeManagedPtrCastPtr accel_group
gtk_window_remove_accel_group _obj' accel_group'
touchManagedPtr _obj
touchManagedPtr accel_group
return ()
-- method Window::remove_mnemonic
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Word32 -> -- keyval : TBasicType TUInt32
Ptr Widget -> -- target : TInterface "Gtk" "Widget"
IO ()
windowRemoveMnemonic ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Word32 -> -- keyval
b -> -- target
m ()
windowRemoveMnemonic _obj keyval target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let target' = unsafeManagedPtrCastPtr target
gtk_window_remove_mnemonic _obj' keyval target'
touchManagedPtr _obj
touchManagedPtr target
return ()
-- method Window::reshow_with_initial_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_reshow_with_initial_size" gtk_window_reshow_with_initial_size ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
{-# DEPRECATED windowReshowWithInitialSize ["(Since version 3.10)","GUI builders can call gtk_widget_hide(),"," gtk_widget_unrealize() and then gtk_widget_show() on @window"," themselves, if they still need this functionality."]#-}
windowReshowWithInitialSize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowReshowWithInitialSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_reshow_with_initial_size _obj'
touchManagedPtr _obj
return ()
-- method Window::resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_resize" gtk_window_resize ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowResize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
windowResize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_resize _obj' width height
touchManagedPtr _obj
return ()
-- method Window::resize_grip_is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_resize_grip_is_visible" gtk_window_resize_grip_is_visible ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO CInt
{-# DEPRECATED windowResizeGripIsVisible ["(Since version 3.14)","Resize grips have been removed."]#-}
windowResizeGripIsVisible ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m Bool
windowResizeGripIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_resize_grip_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Window::resize_to_geometry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowResizeToGeometry ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
windowResizeToGeometry _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_resize_to_geometry _obj' width height
touchManagedPtr _obj
return ()
-- method Window::set_accept_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_accept_focus" gtk_window_set_accept_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetAcceptFocus ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetAcceptFocus _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_accept_focus _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_application
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_application" gtk_window_set_application ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Application -> -- application : TInterface "Gtk" "Application"
IO ()
windowSetApplication ::
(MonadIO m, WindowK a, ApplicationK b) =>
a -> -- _obj
Maybe (b) -> -- application
m ()
windowSetApplication _obj application = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeApplication <- case application of
Nothing -> return nullPtr
Just jApplication -> do
let jApplication' = unsafeManagedPtrCastPtr jApplication
return jApplication'
gtk_window_set_application _obj' maybeApplication
touchManagedPtr _obj
whenJust application touchManagedPtr
return ()
-- method Window::set_attached_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_attached_to" gtk_window_set_attached_to ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget"
IO ()
windowSetAttachedTo ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- attach_widget
m ()
windowSetAttachedTo _obj attach_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAttach_widget <- case attach_widget of
Nothing -> return nullPtr
Just jAttach_widget -> do
let jAttach_widget' = unsafeManagedPtrCastPtr jAttach_widget
return jAttach_widget'
gtk_window_set_attached_to _obj' maybeAttach_widget
touchManagedPtr _obj
whenJust attach_widget touchManagedPtr
return ()
-- method Window::set_decorated
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_decorated" gtk_window_set_decorated ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetDecorated ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetDecorated _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_decorated _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default" gtk_window_set_default ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Widget -> -- default_widget : TInterface "Gtk" "Widget"
IO ()
windowSetDefault ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- default_widget
m ()
windowSetDefault _obj default_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeDefault_widget <- case default_widget of
Nothing -> return nullPtr
Just jDefault_widget -> do
let jDefault_widget' = unsafeManagedPtrCastPtr jDefault_widget
return jDefault_widget'
gtk_window_set_default _obj' maybeDefault_widget
touchManagedPtr _obj
whenJust default_widget touchManagedPtr
return ()
-- method Window::set_default_geometry
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowSetDefaultGeometry ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
windowSetDefaultGeometry _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_set_default_geometry _obj' width height
touchManagedPtr _obj
return ()
-- method Window::set_default_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowSetDefaultSize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Int32 -> -- width
Int32 -> -- height
m ()
windowSetDefaultSize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_set_default_size _obj' width height
touchManagedPtr _obj
return ()
-- method Window::set_deletable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_deletable" gtk_window_set_deletable ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetDeletable ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetDeletable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_deletable _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_destroy_with_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_destroy_with_parent" gtk_window_set_destroy_with_parent ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetDestroyWithParent ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetDestroyWithParent _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_destroy_with_parent _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_focus" gtk_window_set_focus ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Widget -> -- focus : TInterface "Gtk" "Widget"
IO ()
windowSetFocus ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- focus
m ()
windowSetFocus _obj focus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFocus <- case focus of
Nothing -> return nullPtr
Just jFocus -> do
let jFocus' = unsafeManagedPtrCastPtr jFocus
return jFocus'
gtk_window_set_focus _obj' maybeFocus
touchManagedPtr _obj
whenJust focus touchManagedPtr
return ()
-- method Window::set_focus_on_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_focus_on_map" gtk_window_set_focus_on_map ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetFocusOnMap ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetFocusOnMap _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_focus_on_map _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_focus_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_focus_visible" gtk_window_set_focus_visible ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetFocusVisible ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetFocusVisible _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_focus_visible _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_geometry_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_geometry_hints" gtk_window_set_geometry_hints ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Widget -> -- geometry_widget : TInterface "Gtk" "Widget"
Ptr Gdk.Geometry -> -- geometry : TInterface "Gdk" "Geometry"
CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints"
IO ()
windowSetGeometryHints ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- geometry_widget
Maybe (Gdk.Geometry) -> -- geometry
[Gdk.WindowHints] -> -- geom_mask
m ()
windowSetGeometryHints _obj geometry_widget geometry geom_mask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGeometry_widget <- case geometry_widget of
Nothing -> return nullPtr
Just jGeometry_widget -> do
let jGeometry_widget' = unsafeManagedPtrCastPtr jGeometry_widget
return jGeometry_widget'
maybeGeometry <- case geometry of
Nothing -> return nullPtr
Just jGeometry -> do
let jGeometry' = unsafeManagedPtrGetPtr jGeometry
return jGeometry'
let geom_mask' = gflagsToWord geom_mask
gtk_window_set_geometry_hints _obj' maybeGeometry_widget maybeGeometry geom_mask'
touchManagedPtr _obj
whenJust geometry_widget touchManagedPtr
whenJust geometry touchManagedPtr
return ()
-- method Window::set_gravity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_gravity" gtk_window_set_gravity ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CUInt -> -- gravity : TInterface "Gdk" "Gravity"
IO ()
windowSetGravity ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Gdk.Gravity -> -- gravity
m ()
windowSetGravity _obj gravity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let gravity' = (fromIntegral . fromEnum) gravity
gtk_window_set_gravity _obj' gravity'
touchManagedPtr _obj
return ()
-- method Window::set_has_resize_grip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_has_resize_grip" gtk_window_set_has_resize_grip ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- value : TBasicType TBoolean
IO ()
{-# DEPRECATED windowSetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-}
windowSetHasResizeGrip ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- value
m ()
windowSetHasResizeGrip _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
gtk_window_set_has_resize_grip _obj' value'
touchManagedPtr _obj
return ()
-- method Window::set_has_user_ref_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_has_user_ref_count" gtk_window_set_has_user_ref_count ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetHasUserRefCount ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetHasUserRefCount _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_has_user_ref_count _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_hide_titlebar_when_maximized
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_hide_titlebar_when_maximized" gtk_window_set_hide_titlebar_when_maximized ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetHideTitlebarWhenMaximized ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetHideTitlebarWhenMaximized _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_hide_titlebar_when_maximized _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_icon" gtk_window_set_icon ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf"
IO ()
windowSetIcon ::
(MonadIO m, WindowK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
Maybe (b) -> -- icon
m ()
windowSetIcon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
let jIcon' = unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_window_set_icon _obj' maybeIcon
touchManagedPtr _obj
whenJust icon touchManagedPtr
return ()
-- method Window::set_icon_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_window_set_icon_from_file" gtk_window_set_icon_from_file ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- filename : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
windowSetIconFromFile ::
(MonadIO m, WindowK a) =>
a -> -- _obj
[Char] -> -- filename
m ()
windowSetIconFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
onException (do
_ <- propagateGError $ gtk_window_set_icon_from_file _obj' filename'
touchManagedPtr _obj
freeMem filename'
return ()
) (do
freeMem filename'
)
-- method Window::set_icon_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_icon_list" gtk_window_set_icon_list ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf")
IO ()
windowSetIconList ::
(MonadIO m, WindowK a, GdkPixbuf.PixbufK b) =>
a -> -- _obj
[b] -> -- list
m ()
windowSetIconList _obj list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let list' = map unsafeManagedPtrCastPtr list
list'' <- packGList list'
gtk_window_set_icon_list _obj' list''
touchManagedPtr _obj
mapM_ touchManagedPtr list
g_list_free list''
return ()
-- method Window::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_icon_name" gtk_window_set_icon_name ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- name : TBasicType TUTF8
IO ()
windowSetIconName ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Maybe (T.Text) -> -- name
m ()
windowSetIconName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
gtk_window_set_icon_name _obj' maybeName
touchManagedPtr _obj
freeMem maybeName
return ()
-- method Window::set_keep_above
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_keep_above" gtk_window_set_keep_above ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetKeepAbove ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetKeepAbove _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_keep_above _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_keep_below
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_keep_below" gtk_window_set_keep_below ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetKeepBelow ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetKeepBelow _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_keep_below _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_mnemonic_modifier
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_mnemonic_modifier" gtk_window_set_mnemonic_modifier ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CUInt -> -- modifier : TInterface "Gdk" "ModifierType"
IO ()
windowSetMnemonicModifier ::
(MonadIO m, WindowK a) =>
a -> -- _obj
[Gdk.ModifierType] -> -- modifier
m ()
windowSetMnemonicModifier _obj modifier = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let modifier' = gflagsToWord modifier
gtk_window_set_mnemonic_modifier _obj' modifier'
touchManagedPtr _obj
return ()
-- method Window::set_mnemonics_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_mnemonics_visible" gtk_window_set_mnemonics_visible ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetMnemonicsVisible ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetMnemonicsVisible _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_mnemonics_visible _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_modal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_modal" gtk_window_set_modal ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- modal : TBasicType TBoolean
IO ()
windowSetModal ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- modal
m ()
windowSetModal _obj modal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let modal' = (fromIntegral . fromEnum) modal
gtk_window_set_modal _obj' modal'
touchManagedPtr _obj
return ()
-- method Window::set_opacity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_opacity" gtk_window_set_opacity ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CDouble -> -- opacity : TBasicType TDouble
IO ()
{-# DEPRECATED windowSetOpacity ["(Since version 3.8)","Use gtk_widget_set_opacity instead."]#-}
windowSetOpacity ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Double -> -- opacity
m ()
windowSetOpacity _obj opacity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let opacity' = realToFrac opacity
gtk_window_set_opacity _obj' opacity'
touchManagedPtr _obj
return ()
-- method Window::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_position" gtk_window_set_position ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CUInt -> -- position : TInterface "Gtk" "WindowPosition"
IO ()
windowSetPosition ::
(MonadIO m, WindowK a) =>
a -> -- _obj
WindowPosition -> -- position
m ()
windowSetPosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_window_set_position _obj' position'
touchManagedPtr _obj
return ()
-- method Window::set_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_resizable" gtk_window_set_resizable ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- resizable : TBasicType TBoolean
IO ()
windowSetResizable ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- resizable
m ()
windowSetResizable _obj resizable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resizable' = (fromIntegral . fromEnum) resizable
gtk_window_set_resizable _obj' resizable'
touchManagedPtr _obj
return ()
-- method Window::set_role
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_role" gtk_window_set_role ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- role : TBasicType TUTF8
IO ()
windowSetRole ::
(MonadIO m, WindowK a) =>
a -> -- _obj
T.Text -> -- role
m ()
windowSetRole _obj role = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
role' <- textToCString role
gtk_window_set_role _obj' role'
touchManagedPtr _obj
freeMem role'
return ()
-- method Window::set_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_screen" gtk_window_set_screen ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO ()
windowSetScreen ::
(MonadIO m, WindowK a, Gdk.ScreenK b) =>
a -> -- _obj
b -> -- screen
m ()
windowSetScreen _obj screen = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let screen' = unsafeManagedPtrCastPtr screen
gtk_window_set_screen _obj' screen'
touchManagedPtr _obj
touchManagedPtr screen
return ()
-- method Window::set_skip_pager_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_skip_pager_hint" gtk_window_set_skip_pager_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetSkipPagerHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetSkipPagerHint _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_skip_pager_hint _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_skip_taskbar_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_skip_taskbar_hint" gtk_window_set_skip_taskbar_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetSkipTaskbarHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetSkipTaskbarHint _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_skip_taskbar_hint _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_startup_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_startup_id" gtk_window_set_startup_id ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- startup_id : TBasicType TUTF8
IO ()
windowSetStartupId ::
(MonadIO m, WindowK a) =>
a -> -- _obj
T.Text -> -- startup_id
m ()
windowSetStartupId _obj startup_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
startup_id' <- textToCString startup_id
gtk_window_set_startup_id _obj' startup_id'
touchManagedPtr _obj
freeMem startup_id'
return ()
-- method Window::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_title" gtk_window_set_title ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- title : TBasicType TUTF8
IO ()
windowSetTitle ::
(MonadIO m, WindowK a) =>
a -> -- _obj
T.Text -> -- title
m ()
windowSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_window_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method Window::set_titlebar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_titlebar" gtk_window_set_titlebar ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Widget -> -- titlebar : TInterface "Gtk" "Widget"
IO ()
windowSetTitlebar ::
(MonadIO m, WindowK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- titlebar
m ()
windowSetTitlebar _obj titlebar = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTitlebar <- case titlebar of
Nothing -> return nullPtr
Just jTitlebar -> do
let jTitlebar' = unsafeManagedPtrCastPtr jTitlebar
return jTitlebar'
gtk_window_set_titlebar _obj' maybeTitlebar
touchManagedPtr _obj
whenJust titlebar touchManagedPtr
return ()
-- method Window::set_transient_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_transient_for" gtk_window_set_transient_for ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
Ptr Window -> -- parent : TInterface "Gtk" "Window"
IO ()
windowSetTransientFor ::
(MonadIO m, WindowK a, WindowK b) =>
a -> -- _obj
Maybe (b) -> -- parent
m ()
windowSetTransientFor _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
gtk_window_set_transient_for _obj' maybeParent
touchManagedPtr _obj
whenJust parent touchManagedPtr
return ()
-- method Window::set_type_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_type_hint" gtk_window_set_type_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint"
IO ()
windowSetTypeHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Gdk.WindowTypeHint -> -- hint
m ()
windowSetTypeHint _obj hint = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hint' = (fromIntegral . fromEnum) hint
gtk_window_set_type_hint _obj' hint'
touchManagedPtr _obj
return ()
-- method Window::set_urgency_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_urgency_hint" gtk_window_set_urgency_hint ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetUrgencyHint ::
(MonadIO m, WindowK a) =>
a -> -- _obj
Bool -> -- setting
m ()
windowSetUrgencyHint _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_urgency_hint _obj' setting'
touchManagedPtr _obj
return ()
-- method Window::set_wmclass
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_wmclass" gtk_window_set_wmclass ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
CString -> -- wmclass_name : TBasicType TUTF8
CString -> -- wmclass_class : TBasicType TUTF8
IO ()
windowSetWmclass ::
(MonadIO m, WindowK a) =>
a -> -- _obj
T.Text -> -- wmclass_name
T.Text -> -- wmclass_class
m ()
windowSetWmclass _obj wmclass_name wmclass_class = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
wmclass_name' <- textToCString wmclass_name
wmclass_class' <- textToCString wmclass_class
gtk_window_set_wmclass _obj' wmclass_name' wmclass_class'
touchManagedPtr _obj
freeMem wmclass_name'
freeMem wmclass_class'
return ()
-- method Window::stick
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_stick" gtk_window_stick ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowStick ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowStick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_stick _obj'
touchManagedPtr _obj
return ()
-- method Window::unfullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_unfullscreen" gtk_window_unfullscreen ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowUnfullscreen ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowUnfullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_unfullscreen _obj'
touchManagedPtr _obj
return ()
-- method Window::unmaximize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_unmaximize" gtk_window_unmaximize ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowUnmaximize ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowUnmaximize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_unmaximize _obj'
touchManagedPtr _obj
return ()
-- method Window::unstick
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_unstick" gtk_window_unstick ::
Ptr Window -> -- _obj : TInterface "Gtk" "Window"
IO ()
windowUnstick ::
(MonadIO m, WindowK a) =>
a -> -- _obj
m ()
windowUnstick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_window_unstick _obj'
touchManagedPtr _obj
return ()
-- method Window::get_default_icon_list
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_default_icon_list" gtk_window_get_default_icon_list ::
IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf)))
windowGetDefaultIconList ::
(MonadIO m) =>
m [GdkPixbuf.Pixbuf]
windowGetDefaultIconList = liftIO $ do
result <- gtk_window_get_default_icon_list
checkUnexpectedReturnNULL "gtk_window_get_default_icon_list" result
result' <- unpackGList result
result'' <- mapM (newObject GdkPixbuf.Pixbuf) result'
g_list_free result
return result''
-- method Window::get_default_icon_name
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_get_default_icon_name" gtk_window_get_default_icon_name ::
IO CString
windowGetDefaultIconName ::
(MonadIO m) =>
m T.Text
windowGetDefaultIconName = liftIO $ do
result <- gtk_window_get_default_icon_name
checkUnexpectedReturnNULL "gtk_window_get_default_icon_name" result
result' <- cstringToText result
return result'
-- method Window::list_toplevels
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TGList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_list_toplevels" gtk_window_list_toplevels ::
IO (Ptr (GList (Ptr Widget)))
windowListToplevels ::
(MonadIO m) =>
m [Widget]
windowListToplevels = liftIO $ do
result <- gtk_window_list_toplevels
checkUnexpectedReturnNULL "gtk_window_list_toplevels" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
return result''
-- method Window::set_auto_startup_notification
-- method type : MemberFunction
-- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_auto_startup_notification" gtk_window_set_auto_startup_notification ::
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetAutoStartupNotification ::
(MonadIO m) =>
Bool -> -- setting
m ()
windowSetAutoStartupNotification setting = liftIO $ do
let setting' = (fromIntegral . fromEnum) setting
gtk_window_set_auto_startup_notification setting'
return ()
-- method Window::set_default_icon
-- method type : MemberFunction
-- Args : [Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default_icon" gtk_window_set_default_icon ::
Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf"
IO ()
windowSetDefaultIcon ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
a -> -- icon
m ()
windowSetDefaultIcon icon = liftIO $ do
let icon' = unsafeManagedPtrCastPtr icon
gtk_window_set_default_icon icon'
touchManagedPtr icon
return ()
-- method Window::set_default_icon_from_file
-- method type : MemberFunction
-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_window_set_default_icon_from_file" gtk_window_set_default_icon_from_file ::
CString -> -- filename : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
windowSetDefaultIconFromFile ::
(MonadIO m) =>
[Char] -> -- filename
m ()
windowSetDefaultIconFromFile filename = liftIO $ do
filename' <- stringToCString filename
onException (do
_ <- propagateGError $ gtk_window_set_default_icon_from_file filename'
freeMem filename'
return ()
) (do
freeMem filename'
)
-- method Window::set_default_icon_list
-- method type : MemberFunction
-- Args : [Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default_icon_list" gtk_window_set_default_icon_list ::
Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf")
IO ()
windowSetDefaultIconList ::
(MonadIO m, GdkPixbuf.PixbufK a) =>
[a] -> -- list
m ()
windowSetDefaultIconList list = liftIO $ do
let list' = map unsafeManagedPtrCastPtr list
list'' <- packGList list'
gtk_window_set_default_icon_list list''
mapM_ touchManagedPtr list
return ()
-- method Window::set_default_icon_name
-- method type : MemberFunction
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_default_icon_name" gtk_window_set_default_icon_name ::
CString -> -- name : TBasicType TUTF8
IO ()
windowSetDefaultIconName ::
(MonadIO m) =>
T.Text -> -- name
m ()
windowSetDefaultIconName name = liftIO $ do
name' <- textToCString name
gtk_window_set_default_icon_name name'
freeMem name'
return ()
-- method Window::set_interactive_debugging
-- method type : MemberFunction
-- Args : [Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_set_interactive_debugging" gtk_window_set_interactive_debugging ::
CInt -> -- enable : TBasicType TBoolean
IO ()
windowSetInteractiveDebugging ::
(MonadIO m) =>
Bool -> -- enable
m ()
windowSetInteractiveDebugging enable = liftIO $ do
let enable' = (fromIntegral . fromEnum) enable
gtk_window_set_interactive_debugging enable'
return ()
-- signal Window::activate-default
type WindowActivateDefaultCallback =
IO ()
noWindowActivateDefaultCallback :: Maybe WindowActivateDefaultCallback
noWindowActivateDefaultCallback = Nothing
type WindowActivateDefaultCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowActivateDefaultCallback :: WindowActivateDefaultCallbackC -> IO (FunPtr WindowActivateDefaultCallbackC)
windowActivateDefaultClosure :: WindowActivateDefaultCallback -> IO Closure
windowActivateDefaultClosure cb = newCClosure =<< mkWindowActivateDefaultCallback wrapped
where wrapped = windowActivateDefaultCallbackWrapper cb
windowActivateDefaultCallbackWrapper ::
WindowActivateDefaultCallback ->
Ptr () ->
Ptr () ->
IO ()
windowActivateDefaultCallbackWrapper _cb _ _ = do
_cb
onWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId
onWindowActivateDefault obj cb = liftIO $ connectWindowActivateDefault obj cb SignalConnectBefore
afterWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId
afterWindowActivateDefault obj cb = connectWindowActivateDefault obj cb SignalConnectAfter
connectWindowActivateDefault :: (GObject a, MonadIO m) =>
a -> WindowActivateDefaultCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowActivateDefault obj cb after = liftIO $ do
cb' <- mkWindowActivateDefaultCallback (windowActivateDefaultCallbackWrapper cb)
connectSignalFunPtr obj "activate-default" cb' after
-- signal Window::activate-focus
type WindowActivateFocusCallback =
IO ()
noWindowActivateFocusCallback :: Maybe WindowActivateFocusCallback
noWindowActivateFocusCallback = Nothing
type WindowActivateFocusCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowActivateFocusCallback :: WindowActivateFocusCallbackC -> IO (FunPtr WindowActivateFocusCallbackC)
windowActivateFocusClosure :: WindowActivateFocusCallback -> IO Closure
windowActivateFocusClosure cb = newCClosure =<< mkWindowActivateFocusCallback wrapped
where wrapped = windowActivateFocusCallbackWrapper cb
windowActivateFocusCallbackWrapper ::
WindowActivateFocusCallback ->
Ptr () ->
Ptr () ->
IO ()
windowActivateFocusCallbackWrapper _cb _ _ = do
_cb
onWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId
onWindowActivateFocus obj cb = liftIO $ connectWindowActivateFocus obj cb SignalConnectBefore
afterWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId
afterWindowActivateFocus obj cb = connectWindowActivateFocus obj cb SignalConnectAfter
connectWindowActivateFocus :: (GObject a, MonadIO m) =>
a -> WindowActivateFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowActivateFocus obj cb after = liftIO $ do
cb' <- mkWindowActivateFocusCallback (windowActivateFocusCallbackWrapper cb)
connectSignalFunPtr obj "activate-focus" cb' after
-- signal Window::enable-debugging
type WindowEnableDebuggingCallback =
Bool ->
IO Bool
noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback
noWindowEnableDebuggingCallback = Nothing
type WindowEnableDebuggingCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWindowEnableDebuggingCallback :: WindowEnableDebuggingCallbackC -> IO (FunPtr WindowEnableDebuggingCallbackC)
windowEnableDebuggingClosure :: WindowEnableDebuggingCallback -> IO Closure
windowEnableDebuggingClosure cb = newCClosure =<< mkWindowEnableDebuggingCallback wrapped
where wrapped = windowEnableDebuggingCallbackWrapper cb
windowEnableDebuggingCallbackWrapper ::
WindowEnableDebuggingCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
windowEnableDebuggingCallbackWrapper _cb _ toggle _ = do
let toggle' = (/= 0) toggle
result <- _cb toggle'
let result' = (fromIntegral . fromEnum) result
return result'
onWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId
onWindowEnableDebugging obj cb = liftIO $ connectWindowEnableDebugging obj cb SignalConnectBefore
afterWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId
afterWindowEnableDebugging obj cb = connectWindowEnableDebugging obj cb SignalConnectAfter
connectWindowEnableDebugging :: (GObject a, MonadIO m) =>
a -> WindowEnableDebuggingCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowEnableDebugging obj cb after = liftIO $ do
cb' <- mkWindowEnableDebuggingCallback (windowEnableDebuggingCallbackWrapper cb)
connectSignalFunPtr obj "enable-debugging" cb' after
-- signal Window::keys-changed
type WindowKeysChangedCallback =
IO ()
noWindowKeysChangedCallback :: Maybe WindowKeysChangedCallback
noWindowKeysChangedCallback = Nothing
type WindowKeysChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowKeysChangedCallback :: WindowKeysChangedCallbackC -> IO (FunPtr WindowKeysChangedCallbackC)
windowKeysChangedClosure :: WindowKeysChangedCallback -> IO Closure
windowKeysChangedClosure cb = newCClosure =<< mkWindowKeysChangedCallback wrapped
where wrapped = windowKeysChangedCallbackWrapper cb
windowKeysChangedCallbackWrapper ::
WindowKeysChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
windowKeysChangedCallbackWrapper _cb _ _ = do
_cb
onWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId
onWindowKeysChanged obj cb = liftIO $ connectWindowKeysChanged obj cb SignalConnectBefore
afterWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId
afterWindowKeysChanged obj cb = connectWindowKeysChanged obj cb SignalConnectAfter
connectWindowKeysChanged :: (GObject a, MonadIO m) =>
a -> WindowKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowKeysChanged obj cb after = liftIO $ do
cb' <- mkWindowKeysChangedCallback (windowKeysChangedCallbackWrapper cb)
connectSignalFunPtr obj "keys-changed" cb' after
-- signal Window::set-focus
type WindowSetFocusCallback =
Widget ->
IO ()
noWindowSetFocusCallback :: Maybe WindowSetFocusCallback
noWindowSetFocusCallback = Nothing
type WindowSetFocusCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowSetFocusCallback :: WindowSetFocusCallbackC -> IO (FunPtr WindowSetFocusCallbackC)
windowSetFocusClosure :: WindowSetFocusCallback -> IO Closure
windowSetFocusClosure cb = newCClosure =<< mkWindowSetFocusCallback wrapped
where wrapped = windowSetFocusCallbackWrapper cb
windowSetFocusCallbackWrapper ::
WindowSetFocusCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
windowSetFocusCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId
onWindowSetFocus obj cb = liftIO $ connectWindowSetFocus obj cb SignalConnectBefore
afterWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId
afterWindowSetFocus obj cb = connectWindowSetFocus obj cb SignalConnectAfter
connectWindowSetFocus :: (GObject a, MonadIO m) =>
a -> WindowSetFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowSetFocus obj cb after = liftIO $ do
cb' <- mkWindowSetFocusCallback (windowSetFocusCallbackWrapper cb)
connectSignalFunPtr obj "set-focus" cb' after
-- object WindowAccessible
newtype WindowAccessible = WindowAccessible (ForeignPtr WindowAccessible)
noWindowAccessible :: Maybe WindowAccessible
noWindowAccessible = Nothing
foreign import ccall "gtk_window_accessible_get_type"
c_gtk_window_accessible_get_type :: IO GType
type instance ParentTypes WindowAccessible = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Window]
instance GObject WindowAccessible where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_window_accessible_get_type
class GObject o => WindowAccessibleK o
instance (GObject o, IsDescendantOf WindowAccessible o) => WindowAccessibleK o
toWindowAccessible :: WindowAccessibleK o => o -> IO WindowAccessible
toWindowAccessible = unsafeCastTo WindowAccessible
-- struct WindowGeometryInfo
newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo)
noWindowGeometryInfo :: Maybe WindowGeometryInfo
noWindowGeometryInfo = Nothing
-- object WindowGroup
newtype WindowGroup = WindowGroup (ForeignPtr WindowGroup)
noWindowGroup :: Maybe WindowGroup
noWindowGroup = Nothing
foreign import ccall "gtk_window_group_get_type"
c_gtk_window_group_get_type :: IO GType
type instance ParentTypes WindowGroup = '[GObject.Object]
instance GObject WindowGroup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_window_group_get_type
class GObject o => WindowGroupK o
instance (GObject o, IsDescendantOf WindowGroup o) => WindowGroupK o
toWindowGroup :: WindowGroupK o => o -> IO WindowGroup
toWindowGroup = unsafeCastTo WindowGroup
-- method WindowGroup::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "WindowGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_new" gtk_window_group_new ::
IO (Ptr WindowGroup)
windowGroupNew ::
(MonadIO m) =>
m WindowGroup
windowGroupNew = liftIO $ do
result <- gtk_window_group_new
checkUnexpectedReturnNULL "gtk_window_group_new" result
result' <- (wrapObject WindowGroup) result
return result'
-- method WindowGroup::add_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_add_window" gtk_window_group_add_window ::
Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup"
Ptr Window -> -- window : TInterface "Gtk" "Window"
IO ()
windowGroupAddWindow ::
(MonadIO m, WindowGroupK a, WindowK b) =>
a -> -- _obj
b -> -- window
m ()
windowGroupAddWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_window_group_add_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- method WindowGroup::get_current_device_grab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_get_current_device_grab" gtk_window_group_get_current_device_grab ::
Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO (Ptr Widget)
windowGroupGetCurrentDeviceGrab ::
(MonadIO m, WindowGroupK a, Gdk.DeviceK b) =>
a -> -- _obj
b -> -- device
m Widget
windowGroupGetCurrentDeviceGrab _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_window_group_get_current_device_grab _obj' device'
checkUnexpectedReturnNULL "gtk_window_group_get_current_device_grab" result
result' <- (newObject Widget) result
touchManagedPtr _obj
touchManagedPtr device
return result'
-- method WindowGroup::get_current_grab
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_get_current_grab" gtk_window_group_get_current_grab ::
Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup"
IO (Ptr Widget)
windowGroupGetCurrentGrab ::
(MonadIO m, WindowGroupK a) =>
a -> -- _obj
m Widget
windowGroupGetCurrentGrab _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_group_get_current_grab _obj'
checkUnexpectedReturnNULL "gtk_window_group_get_current_grab" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method WindowGroup::list_windows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "Window")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_list_windows" gtk_window_group_list_windows ::
Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup"
IO (Ptr (GList (Ptr Window)))
windowGroupListWindows ::
(MonadIO m, WindowGroupK a) =>
a -> -- _obj
m [Window]
windowGroupListWindows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_window_group_list_windows _obj'
checkUnexpectedReturnNULL "gtk_window_group_list_windows" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method WindowGroup::remove_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_window_group_remove_window" gtk_window_group_remove_window ::
Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup"
Ptr Window -> -- window : TInterface "Gtk" "Window"
IO ()
windowGroupRemoveWindow ::
(MonadIO m, WindowGroupK a, WindowK b) =>
a -> -- _obj
b -> -- window
m ()
windowGroupRemoveWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_window_group_remove_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
-- Enum WindowPosition
data WindowPosition =
WindowPositionNone
| WindowPositionCenter
| WindowPositionMouse
| WindowPositionCenterAlways
| WindowPositionCenterOnParent
| AnotherWindowPosition Int
deriving (Show, Eq)
instance Enum WindowPosition where
fromEnum WindowPositionNone = 0
fromEnum WindowPositionCenter = 1
fromEnum WindowPositionMouse = 2
fromEnum WindowPositionCenterAlways = 3
fromEnum WindowPositionCenterOnParent = 4
fromEnum (AnotherWindowPosition k) = k
toEnum 0 = WindowPositionNone
toEnum 1 = WindowPositionCenter
toEnum 2 = WindowPositionMouse
toEnum 3 = WindowPositionCenterAlways
toEnum 4 = WindowPositionCenterOnParent
toEnum k = AnotherWindowPosition k
foreign import ccall "gtk_window_position_get_type" c_gtk_window_position_get_type ::
IO GType
instance BoxedEnum WindowPosition where
boxedEnumType _ = c_gtk_window_position_get_type
-- Enum WindowType
data WindowType =
WindowTypeToplevel
| WindowTypePopup
| AnotherWindowType Int
deriving (Show, Eq)
instance Enum WindowType where
fromEnum WindowTypeToplevel = 0
fromEnum WindowTypePopup = 1
fromEnum (AnotherWindowType k) = k
toEnum 0 = WindowTypeToplevel
toEnum 1 = WindowTypePopup
toEnum k = AnotherWindowType k
foreign import ccall "gtk_window_type_get_type" c_gtk_window_type_get_type ::
IO GType
instance BoxedEnum WindowType where
boxedEnumType _ = c_gtk_window_type_get_type
-- Enum WrapMode
data WrapMode =
WrapModeNone
| WrapModeChar
| WrapModeWord
| WrapModeWordChar
| AnotherWrapMode Int
deriving (Show, Eq)
instance Enum WrapMode where
fromEnum WrapModeNone = 0
fromEnum WrapModeChar = 1
fromEnum WrapModeWord = 2
fromEnum WrapModeWordChar = 3
fromEnum (AnotherWrapMode k) = k
toEnum 0 = WrapModeNone
toEnum 1 = WrapModeChar
toEnum 2 = WrapModeWord
toEnum 3 = WrapModeWordChar
toEnum k = AnotherWrapMode k
foreign import ccall "gtk_wrap_mode_get_type" c_gtk_wrap_mode_get_type ::
IO GType
instance BoxedEnum WrapMode where
boxedEnumType _ = c_gtk_wrap_mode_get_type
-- constant _BINARY_AGE
_BINARY_AGE :: Int32
_BINARY_AGE = 1806
-- constant _INPUT_ERROR
_INPUT_ERROR :: Int32
_INPUT_ERROR = -1
-- constant _INTERFACE_AGE
_INTERFACE_AGE :: Int32
_INTERFACE_AGE = 6
-- constant _LEVEL_BAR_OFFSET_HIGH
_LEVEL_BAR_OFFSET_HIGH :: T.Text
_LEVEL_BAR_OFFSET_HIGH = "high"
-- constant _LEVEL_BAR_OFFSET_LOW
_LEVEL_BAR_OFFSET_LOW :: T.Text
_LEVEL_BAR_OFFSET_LOW = "low"
-- constant _MAJOR_VERSION
_MAJOR_VERSION :: Int32
_MAJOR_VERSION = 3
-- constant _MAX_COMPOSE_LEN
_MAX_COMPOSE_LEN :: Int32
_MAX_COMPOSE_LEN = 7
-- constant _MICRO_VERSION
_MICRO_VERSION :: Int32
_MICRO_VERSION = 6
-- constant _MINOR_VERSION
_MINOR_VERSION :: Int32
_MINOR_VERSION = 18
-- constant _PAPER_NAME_A3
_PAPER_NAME_A3 :: T.Text
_PAPER_NAME_A3 = "iso_a3"
-- constant _PAPER_NAME_A4
_PAPER_NAME_A4 :: T.Text
_PAPER_NAME_A4 = "iso_a4"
-- constant _PAPER_NAME_A5
_PAPER_NAME_A5 :: T.Text
_PAPER_NAME_A5 = "iso_a5"
-- constant _PAPER_NAME_B5
_PAPER_NAME_B5 :: T.Text
_PAPER_NAME_B5 = "iso_b5"
-- constant _PAPER_NAME_EXECUTIVE
_PAPER_NAME_EXECUTIVE :: T.Text
_PAPER_NAME_EXECUTIVE = "na_executive"
-- constant _PAPER_NAME_LEGAL
_PAPER_NAME_LEGAL :: T.Text
_PAPER_NAME_LEGAL = "na_legal"
-- constant _PAPER_NAME_LETTER
_PAPER_NAME_LETTER :: T.Text
_PAPER_NAME_LETTER = "na_letter"
-- constant _PATH_PRIO_MASK
_PATH_PRIO_MASK :: Int32
_PATH_PRIO_MASK = 15
-- constant _PRINT_SETTINGS_COLLATE
_PRINT_SETTINGS_COLLATE :: T.Text
_PRINT_SETTINGS_COLLATE = "collate"
-- constant _PRINT_SETTINGS_DEFAULT_SOURCE
_PRINT_SETTINGS_DEFAULT_SOURCE :: T.Text
_PRINT_SETTINGS_DEFAULT_SOURCE = "default-source"
-- constant _PRINT_SETTINGS_DITHER
_PRINT_SETTINGS_DITHER :: T.Text
_PRINT_SETTINGS_DITHER = "dither"
-- constant _PRINT_SETTINGS_DUPLEX
_PRINT_SETTINGS_DUPLEX :: T.Text
_PRINT_SETTINGS_DUPLEX = "duplex"
-- constant _PRINT_SETTINGS_FINISHINGS
_PRINT_SETTINGS_FINISHINGS :: T.Text
_PRINT_SETTINGS_FINISHINGS = "finishings"
-- constant _PRINT_SETTINGS_MEDIA_TYPE
_PRINT_SETTINGS_MEDIA_TYPE :: T.Text
_PRINT_SETTINGS_MEDIA_TYPE = "media-type"
-- constant _PRINT_SETTINGS_NUMBER_UP
_PRINT_SETTINGS_NUMBER_UP :: T.Text
_PRINT_SETTINGS_NUMBER_UP = "number-up"
-- constant _PRINT_SETTINGS_NUMBER_UP_LAYOUT
_PRINT_SETTINGS_NUMBER_UP_LAYOUT :: T.Text
_PRINT_SETTINGS_NUMBER_UP_LAYOUT = "number-up-layout"
-- constant _PRINT_SETTINGS_N_COPIES
_PRINT_SETTINGS_N_COPIES :: T.Text
_PRINT_SETTINGS_N_COPIES = "n-copies"
-- constant _PRINT_SETTINGS_ORIENTATION
_PRINT_SETTINGS_ORIENTATION :: T.Text
_PRINT_SETTINGS_ORIENTATION = "orientation"
-- constant _PRINT_SETTINGS_OUTPUT_BASENAME
_PRINT_SETTINGS_OUTPUT_BASENAME :: T.Text
_PRINT_SETTINGS_OUTPUT_BASENAME = "output-basename"
-- constant _PRINT_SETTINGS_OUTPUT_BIN
_PRINT_SETTINGS_OUTPUT_BIN :: T.Text
_PRINT_SETTINGS_OUTPUT_BIN = "output-bin"
-- constant _PRINT_SETTINGS_OUTPUT_DIR
_PRINT_SETTINGS_OUTPUT_DIR :: T.Text
_PRINT_SETTINGS_OUTPUT_DIR = "output-dir"
-- constant _PRINT_SETTINGS_OUTPUT_FILE_FORMAT
_PRINT_SETTINGS_OUTPUT_FILE_FORMAT :: T.Text
_PRINT_SETTINGS_OUTPUT_FILE_FORMAT = "output-file-format"
-- constant _PRINT_SETTINGS_OUTPUT_URI
_PRINT_SETTINGS_OUTPUT_URI :: T.Text
_PRINT_SETTINGS_OUTPUT_URI = "output-uri"
-- constant _PRINT_SETTINGS_PAGE_RANGES
_PRINT_SETTINGS_PAGE_RANGES :: T.Text
_PRINT_SETTINGS_PAGE_RANGES = "page-ranges"
-- constant _PRINT_SETTINGS_PAGE_SET
_PRINT_SETTINGS_PAGE_SET :: T.Text
_PRINT_SETTINGS_PAGE_SET = "page-set"
-- constant _PRINT_SETTINGS_PAPER_FORMAT
_PRINT_SETTINGS_PAPER_FORMAT :: T.Text
_PRINT_SETTINGS_PAPER_FORMAT = "paper-format"
-- constant _PRINT_SETTINGS_PAPER_HEIGHT
_PRINT_SETTINGS_PAPER_HEIGHT :: T.Text
_PRINT_SETTINGS_PAPER_HEIGHT = "paper-height"
-- constant _PRINT_SETTINGS_PAPER_WIDTH
_PRINT_SETTINGS_PAPER_WIDTH :: T.Text
_PRINT_SETTINGS_PAPER_WIDTH = "paper-width"
-- constant _PRINT_SETTINGS_PRINTER
_PRINT_SETTINGS_PRINTER :: T.Text
_PRINT_SETTINGS_PRINTER = "printer"
-- constant _PRINT_SETTINGS_PRINTER_LPI
_PRINT_SETTINGS_PRINTER_LPI :: T.Text
_PRINT_SETTINGS_PRINTER_LPI = "printer-lpi"
-- constant _PRINT_SETTINGS_PRINT_PAGES
_PRINT_SETTINGS_PRINT_PAGES :: T.Text
_PRINT_SETTINGS_PRINT_PAGES = "print-pages"
-- constant _PRINT_SETTINGS_QUALITY
_PRINT_SETTINGS_QUALITY :: T.Text
_PRINT_SETTINGS_QUALITY = "quality"
-- constant _PRINT_SETTINGS_RESOLUTION
_PRINT_SETTINGS_RESOLUTION :: T.Text
_PRINT_SETTINGS_RESOLUTION = "resolution"
-- constant _PRINT_SETTINGS_RESOLUTION_X
_PRINT_SETTINGS_RESOLUTION_X :: T.Text
_PRINT_SETTINGS_RESOLUTION_X = "resolution-x"
-- constant _PRINT_SETTINGS_RESOLUTION_Y
_PRINT_SETTINGS_RESOLUTION_Y :: T.Text
_PRINT_SETTINGS_RESOLUTION_Y = "resolution-y"
-- constant _PRINT_SETTINGS_REVERSE
_PRINT_SETTINGS_REVERSE :: T.Text
_PRINT_SETTINGS_REVERSE = "reverse"
-- constant _PRINT_SETTINGS_SCALE
_PRINT_SETTINGS_SCALE :: T.Text
_PRINT_SETTINGS_SCALE = "scale"
-- constant _PRINT_SETTINGS_USE_COLOR
_PRINT_SETTINGS_USE_COLOR :: T.Text
_PRINT_SETTINGS_USE_COLOR = "use-color"
-- constant _PRINT_SETTINGS_WIN32_DRIVER_EXTRA
_PRINT_SETTINGS_WIN32_DRIVER_EXTRA :: T.Text
_PRINT_SETTINGS_WIN32_DRIVER_EXTRA = "win32-driver-extra"
-- constant _PRINT_SETTINGS_WIN32_DRIVER_VERSION
_PRINT_SETTINGS_WIN32_DRIVER_VERSION :: T.Text
_PRINT_SETTINGS_WIN32_DRIVER_VERSION = "win32-driver-version"
-- constant _PRIORITY_RESIZE
_PRIORITY_RESIZE :: Int32
_PRIORITY_RESIZE = 10
-- constant _STOCK_ABOUT
{-# DEPRECATED _STOCK_ABOUT ["(Since version 3.10)","Use named icon "help-about" or the label "_About"."]#-}
_STOCK_ABOUT :: T.Text
_STOCK_ABOUT = "gtk-about"
-- constant _STOCK_ADD
{-# DEPRECATED _STOCK_ADD ["(Since version 3.10)","Use named icon "list-add" or the label "_Add"."]#-}
_STOCK_ADD :: T.Text
_STOCK_ADD = "gtk-add"
-- constant _STOCK_APPLY
{-# DEPRECATED _STOCK_APPLY ["(Since version 3.10)","Do not use an icon. Use label "_Apply"."]#-}
_STOCK_APPLY :: T.Text
_STOCK_APPLY = "gtk-apply"
-- constant _STOCK_BOLD
{-# DEPRECATED _STOCK_BOLD ["(Since version 3.10)","Use named icon "format-text-bold"."]#-}
_STOCK_BOLD :: T.Text
_STOCK_BOLD = "gtk-bold"
-- constant _STOCK_CANCEL
{-# DEPRECATED _STOCK_CANCEL ["(Since version 3.10)","Do not use an icon. Use label "_Cancel"."]#-}
_STOCK_CANCEL :: T.Text
_STOCK_CANCEL = "gtk-cancel"
-- constant _STOCK_CAPS_LOCK_WARNING
{-# DEPRECATED _STOCK_CAPS_LOCK_WARNING ["(Since version 3.10)","Use named icon "dialog-warning-symbolic"."]#-}
_STOCK_CAPS_LOCK_WARNING :: T.Text
_STOCK_CAPS_LOCK_WARNING = "gtk-caps-lock-warning"
-- constant _STOCK_CDROM
{-# DEPRECATED _STOCK_CDROM ["(Since version 3.10)","Use named icon "media-optical"."]#-}
_STOCK_CDROM :: T.Text
_STOCK_CDROM = "gtk-cdrom"
-- constant _STOCK_CLEAR
{-# DEPRECATED _STOCK_CLEAR ["(Since version 3.10)","Use named icon "edit-clear"."]#-}
_STOCK_CLEAR :: T.Text
_STOCK_CLEAR = "gtk-clear"
-- constant _STOCK_CLOSE
{-# DEPRECATED _STOCK_CLOSE ["(Since version 3.10)","Use named icon "window-close" or the label "_Close"."]#-}
_STOCK_CLOSE :: T.Text
_STOCK_CLOSE = "gtk-close"
-- constant _STOCK_COLOR_PICKER
{-# DEPRECATED _STOCK_COLOR_PICKER ["(Since version 3.10)"]#-}
_STOCK_COLOR_PICKER :: T.Text
_STOCK_COLOR_PICKER = "gtk-color-picker"
-- constant _STOCK_CONNECT
{-# DEPRECATED _STOCK_CONNECT ["(Since version 3.10)"]#-}
_STOCK_CONNECT :: T.Text
_STOCK_CONNECT = "gtk-connect"
-- constant _STOCK_CONVERT
{-# DEPRECATED _STOCK_CONVERT ["(Since version 3.10)"]#-}
_STOCK_CONVERT :: T.Text
_STOCK_CONVERT = "gtk-convert"
-- constant _STOCK_COPY
{-# DEPRECATED _STOCK_COPY ["(Since version 3.10)","Use the named icon "edit-copy" or the label "_Copy"."]#-}
_STOCK_COPY :: T.Text
_STOCK_COPY = "gtk-copy"
-- constant _STOCK_CUT
{-# DEPRECATED _STOCK_CUT ["(Since version 3.10)","Use the named icon "edit-cut" or the label "Cu_t"."]#-}
_STOCK_CUT :: T.Text
_STOCK_CUT = "gtk-cut"
-- constant _STOCK_DELETE
{-# DEPRECATED _STOCK_DELETE ["(Since version 3.10)","Use the named icon "edit-delete" or the label "_Delete"."]#-}
_STOCK_DELETE :: T.Text
_STOCK_DELETE = "gtk-delete"
-- constant _STOCK_DIALOG_AUTHENTICATION
{-# DEPRECATED _STOCK_DIALOG_AUTHENTICATION ["(Since version 3.10)","Use named icon "dialog-password"."]#-}
_STOCK_DIALOG_AUTHENTICATION :: T.Text
_STOCK_DIALOG_AUTHENTICATION = "gtk-dialog-authentication"
-- constant _STOCK_DIALOG_ERROR
{-# DEPRECATED _STOCK_DIALOG_ERROR ["(Since version 3.10)","Use named icon "dialog-error"."]#-}
_STOCK_DIALOG_ERROR :: T.Text
_STOCK_DIALOG_ERROR = "gtk-dialog-error"
-- constant _STOCK_DIALOG_INFO
{-# DEPRECATED _STOCK_DIALOG_INFO ["(Since version 3.10)","Use named icon "dialog-information"."]#-}
_STOCK_DIALOG_INFO :: T.Text
_STOCK_DIALOG_INFO = "gtk-dialog-info"
-- constant _STOCK_DIALOG_QUESTION
{-# DEPRECATED _STOCK_DIALOG_QUESTION ["(Since version 3.10)","Use named icon "dialog-question"."]#-}
_STOCK_DIALOG_QUESTION :: T.Text
_STOCK_DIALOG_QUESTION = "gtk-dialog-question"
-- constant _STOCK_DIALOG_WARNING
{-# DEPRECATED _STOCK_DIALOG_WARNING ["(Since version 3.10)","Use named icon "dialog-warning"."]#-}
_STOCK_DIALOG_WARNING :: T.Text
_STOCK_DIALOG_WARNING = "gtk-dialog-warning"
-- constant _STOCK_DIRECTORY
{-# DEPRECATED _STOCK_DIRECTORY ["(Since version 3.10)","Use named icon "folder"."]#-}
_STOCK_DIRECTORY :: T.Text
_STOCK_DIRECTORY = "gtk-directory"
-- constant _STOCK_DISCARD
{-# DEPRECATED _STOCK_DISCARD ["(Since version 3.10)"]#-}
_STOCK_DISCARD :: T.Text
_STOCK_DISCARD = "gtk-discard"
-- constant _STOCK_DISCONNECT
{-# DEPRECATED _STOCK_DISCONNECT ["(Since version 3.10)"]#-}
_STOCK_DISCONNECT :: T.Text
_STOCK_DISCONNECT = "gtk-disconnect"
-- constant _STOCK_DND
{-# DEPRECATED _STOCK_DND ["(Since version 3.10)"]#-}
_STOCK_DND :: T.Text
_STOCK_DND = "gtk-dnd"
-- constant _STOCK_DND_MULTIPLE
{-# DEPRECATED _STOCK_DND_MULTIPLE ["(Since version 3.10)"]#-}
_STOCK_DND_MULTIPLE :: T.Text
_STOCK_DND_MULTIPLE = "gtk-dnd-multiple"
-- constant _STOCK_EDIT
{-# DEPRECATED _STOCK_EDIT ["(Since version 3.10)"]#-}
_STOCK_EDIT :: T.Text
_STOCK_EDIT = "gtk-edit"
-- constant _STOCK_EXECUTE
{-# DEPRECATED _STOCK_EXECUTE ["(Since version 3.10)","Use named icon "system-run"."]#-}
_STOCK_EXECUTE :: T.Text
_STOCK_EXECUTE = "gtk-execute"
-- constant _STOCK_FILE
{-# DEPRECATED _STOCK_FILE ["(Since version 3.10)","Use named icon "text-x-generic"."]#-}
_STOCK_FILE :: T.Text
_STOCK_FILE = "gtk-file"
-- constant _STOCK_FIND
{-# DEPRECATED _STOCK_FIND ["(Since version 3.10)","Use named icon "edit-find"."]#-}
_STOCK_FIND :: T.Text
_STOCK_FIND = "gtk-find"
-- constant _STOCK_FIND_AND_REPLACE
{-# DEPRECATED _STOCK_FIND_AND_REPLACE ["(Since version 3.10)","Use named icon "edit-find-replace"."]#-}
_STOCK_FIND_AND_REPLACE :: T.Text
_STOCK_FIND_AND_REPLACE = "gtk-find-and-replace"
-- constant _STOCK_FLOPPY
{-# DEPRECATED _STOCK_FLOPPY ["(Since version 3.10)"]#-}
_STOCK_FLOPPY :: T.Text
_STOCK_FLOPPY = "gtk-floppy"
-- constant _STOCK_FULLSCREEN
{-# DEPRECATED _STOCK_FULLSCREEN ["(Since version 3.10)","Use named icon "view-fullscreen"."]#-}
_STOCK_FULLSCREEN :: T.Text
_STOCK_FULLSCREEN = "gtk-fullscreen"
-- constant _STOCK_GOTO_BOTTOM
{-# DEPRECATED _STOCK_GOTO_BOTTOM ["(Since version 3.10)","Use named icon "go-bottom"."]#-}
_STOCK_GOTO_BOTTOM :: T.Text
_STOCK_GOTO_BOTTOM = "gtk-goto-bottom"
-- constant _STOCK_GOTO_FIRST
{-# DEPRECATED _STOCK_GOTO_FIRST ["(Since version 3.10)","Use named icon "go-first"."]#-}
_STOCK_GOTO_FIRST :: T.Text
_STOCK_GOTO_FIRST = "gtk-goto-first"
-- constant _STOCK_GOTO_LAST
{-# DEPRECATED _STOCK_GOTO_LAST ["(Since version 3.10)","Use named icon "go-last"."]#-}
_STOCK_GOTO_LAST :: T.Text
_STOCK_GOTO_LAST = "gtk-goto-last"
-- constant _STOCK_GOTO_TOP
{-# DEPRECATED _STOCK_GOTO_TOP ["(Since version 3.10)","Use named icon "go-top"."]#-}
_STOCK_GOTO_TOP :: T.Text
_STOCK_GOTO_TOP = "gtk-goto-top"
-- constant _STOCK_GO_BACK
{-# DEPRECATED _STOCK_GO_BACK ["(Since version 3.10)","Use named icon "go-previous"."]#-}
_STOCK_GO_BACK :: T.Text
_STOCK_GO_BACK = "gtk-go-back"
-- constant _STOCK_GO_DOWN
{-# DEPRECATED _STOCK_GO_DOWN ["(Since version 3.10)","Use named icon "go-down"."]#-}
_STOCK_GO_DOWN :: T.Text
_STOCK_GO_DOWN = "gtk-go-down"
-- constant _STOCK_GO_FORWARD
{-# DEPRECATED _STOCK_GO_FORWARD ["(Since version 3.10)","Use named icon "go-next"."]#-}
_STOCK_GO_FORWARD :: T.Text
_STOCK_GO_FORWARD = "gtk-go-forward"
-- constant _STOCK_GO_UP
{-# DEPRECATED _STOCK_GO_UP ["(Since version 3.10)","Use named icon "go-up"."]#-}
_STOCK_GO_UP :: T.Text
_STOCK_GO_UP = "gtk-go-up"
-- constant _STOCK_HARDDISK
{-# DEPRECATED _STOCK_HARDDISK ["(Since version 3.10)","Use named icon "drive-harddisk"."]#-}
_STOCK_HARDDISK :: T.Text
_STOCK_HARDDISK = "gtk-harddisk"
-- constant _STOCK_HELP
{-# DEPRECATED _STOCK_HELP ["(Since version 3.10)","Use named icon "help-browser"."]#-}
_STOCK_HELP :: T.Text
_STOCK_HELP = "gtk-help"
-- constant _STOCK_HOME
{-# DEPRECATED _STOCK_HOME ["(Since version 3.10)","Use named icon "go-home"."]#-}
_STOCK_HOME :: T.Text
_STOCK_HOME = "gtk-home"
-- constant _STOCK_INDENT
{-# DEPRECATED _STOCK_INDENT ["(Since version 3.10)","Use named icon "format-indent-more"."]#-}
_STOCK_INDENT :: T.Text
_STOCK_INDENT = "gtk-indent"
-- constant _STOCK_INDEX
{-# DEPRECATED _STOCK_INDEX ["(Since version 3.10)"]#-}
_STOCK_INDEX :: T.Text
_STOCK_INDEX = "gtk-index"
-- constant _STOCK_INFO
{-# DEPRECATED _STOCK_INFO ["(Since version 3.10)","Use named icon "dialog-information"."]#-}
_STOCK_INFO :: T.Text
_STOCK_INFO = "gtk-info"
-- constant _STOCK_ITALIC
{-# DEPRECATED _STOCK_ITALIC ["(Since version 3.10)","Use named icon "format-text-italic"."]#-}
_STOCK_ITALIC :: T.Text
_STOCK_ITALIC = "gtk-italic"
-- constant _STOCK_JUMP_TO
{-# DEPRECATED _STOCK_JUMP_TO ["(Since version 3.10)","Use named icon "go-jump"."]#-}
_STOCK_JUMP_TO :: T.Text
_STOCK_JUMP_TO = "gtk-jump-to"
-- constant _STOCK_JUSTIFY_CENTER
{-# DEPRECATED _STOCK_JUSTIFY_CENTER ["(Since version 3.10)","Use named icon "format-justify-center"."]#-}
_STOCK_JUSTIFY_CENTER :: T.Text
_STOCK_JUSTIFY_CENTER = "gtk-justify-center"
-- constant _STOCK_JUSTIFY_FILL
{-# DEPRECATED _STOCK_JUSTIFY_FILL ["(Since version 3.10)","Use named icon "format-justify-fill"."]#-}
_STOCK_JUSTIFY_FILL :: T.Text
_STOCK_JUSTIFY_FILL = "gtk-justify-fill"
-- constant _STOCK_JUSTIFY_LEFT
{-# DEPRECATED _STOCK_JUSTIFY_LEFT ["(Since version 3.10)","Use named icon "format-justify-left"."]#-}
_STOCK_JUSTIFY_LEFT :: T.Text
_STOCK_JUSTIFY_LEFT = "gtk-justify-left"
-- constant _STOCK_JUSTIFY_RIGHT
{-# DEPRECATED _STOCK_JUSTIFY_RIGHT ["(Since version 3.10)","Use named icon "format-justify-right"."]#-}
_STOCK_JUSTIFY_RIGHT :: T.Text
_STOCK_JUSTIFY_RIGHT = "gtk-justify-right"
-- constant _STOCK_LEAVE_FULLSCREEN
{-# DEPRECATED _STOCK_LEAVE_FULLSCREEN ["(Since version 3.10)","Use named icon "view-restore"."]#-}
_STOCK_LEAVE_FULLSCREEN :: T.Text
_STOCK_LEAVE_FULLSCREEN = "gtk-leave-fullscreen"
-- constant _STOCK_MEDIA_FORWARD
{-# DEPRECATED _STOCK_MEDIA_FORWARD ["(Since version 3.10)","Use named icon "media-seek-forward" or the label "_Forward"."]#-}
_STOCK_MEDIA_FORWARD :: T.Text
_STOCK_MEDIA_FORWARD = "gtk-media-forward"
-- constant _STOCK_MEDIA_NEXT
{-# DEPRECATED _STOCK_MEDIA_NEXT ["(Since version 3.10)","Use named icon "media-skip-forward" or the label "_Next"."]#-}
_STOCK_MEDIA_NEXT :: T.Text
_STOCK_MEDIA_NEXT = "gtk-media-next"
-- constant _STOCK_MEDIA_PAUSE
{-# DEPRECATED _STOCK_MEDIA_PAUSE ["(Since version 3.10)","Use named icon "media-playback-pause" or the label "P_ause"."]#-}
_STOCK_MEDIA_PAUSE :: T.Text
_STOCK_MEDIA_PAUSE = "gtk-media-pause"
-- constant _STOCK_MEDIA_PLAY
{-# DEPRECATED _STOCK_MEDIA_PLAY ["(Since version 3.10)","Use named icon "media-playback-start" or the label "_Play"."]#-}
_STOCK_MEDIA_PLAY :: T.Text
_STOCK_MEDIA_PLAY = "gtk-media-play"
-- constant _STOCK_MEDIA_PREVIOUS
{-# DEPRECATED _STOCK_MEDIA_PREVIOUS ["(Since version 3.10)","Use named icon "media-skip-backward" or the label "Pre_vious"."]#-}
_STOCK_MEDIA_PREVIOUS :: T.Text
_STOCK_MEDIA_PREVIOUS = "gtk-media-previous"
-- constant _STOCK_MEDIA_RECORD
{-# DEPRECATED _STOCK_MEDIA_RECORD ["(Since version 3.10)","Use named icon "media-record" or the label "_Record"."]#-}
_STOCK_MEDIA_RECORD :: T.Text
_STOCK_MEDIA_RECORD = "gtk-media-record"
-- constant _STOCK_MEDIA_REWIND
{-# DEPRECATED _STOCK_MEDIA_REWIND ["(Since version 3.10)","Use named icon "media-seek-backward" or the label "R_ewind"."]#-}
_STOCK_MEDIA_REWIND :: T.Text
_STOCK_MEDIA_REWIND = "gtk-media-rewind"
-- constant _STOCK_MEDIA_STOP
{-# DEPRECATED _STOCK_MEDIA_STOP ["(Since version 3.10)","Use named icon "media-playback-stop" or the label "_Stop"."]#-}
_STOCK_MEDIA_STOP :: T.Text
_STOCK_MEDIA_STOP = "gtk-media-stop"
-- constant _STOCK_MISSING_IMAGE
{-# DEPRECATED _STOCK_MISSING_IMAGE ["(Since version 3.10)","Use named icon "image-missing"."]#-}
_STOCK_MISSING_IMAGE :: T.Text
_STOCK_MISSING_IMAGE = "gtk-missing-image"
-- constant _STOCK_NETWORK
{-# DEPRECATED _STOCK_NETWORK ["(Since version 3.10)","Use named icon "network-workgroup"."]#-}
_STOCK_NETWORK :: T.Text
_STOCK_NETWORK = "gtk-network"
-- constant _STOCK_NEW
{-# DEPRECATED _STOCK_NEW ["(Since version 3.10)","Use named icon "document-new" or the label "_New"."]#-}
_STOCK_NEW :: T.Text
_STOCK_NEW = "gtk-new"
-- constant _STOCK_NO
{-# DEPRECATED _STOCK_NO ["(Since version 3.10)"]#-}
_STOCK_NO :: T.Text
_STOCK_NO = "gtk-no"
-- constant _STOCK_OK
{-# DEPRECATED _STOCK_OK ["(Since version 3.10)","Do not use an icon. Use label "_OK"."]#-}
_STOCK_OK :: T.Text
_STOCK_OK = "gtk-ok"
-- constant _STOCK_OPEN
{-# DEPRECATED _STOCK_OPEN ["(Since version 3.10)","Use named icon "document-open" or the label "_Open"."]#-}
_STOCK_OPEN :: T.Text
_STOCK_OPEN = "gtk-open"
-- constant _STOCK_ORIENTATION_LANDSCAPE
{-# DEPRECATED _STOCK_ORIENTATION_LANDSCAPE ["(Since version 3.10)"]#-}
_STOCK_ORIENTATION_LANDSCAPE :: T.Text
_STOCK_ORIENTATION_LANDSCAPE = "gtk-orientation-landscape"
-- constant _STOCK_ORIENTATION_PORTRAIT
{-# DEPRECATED _STOCK_ORIENTATION_PORTRAIT ["(Since version 3.10)"]#-}
_STOCK_ORIENTATION_PORTRAIT :: T.Text
_STOCK_ORIENTATION_PORTRAIT = "gtk-orientation-portrait"
-- constant _STOCK_ORIENTATION_REVERSE_LANDSCAPE
{-# DEPRECATED _STOCK_ORIENTATION_REVERSE_LANDSCAPE ["(Since version 3.10)"]#-}
_STOCK_ORIENTATION_REVERSE_LANDSCAPE :: T.Text
_STOCK_ORIENTATION_REVERSE_LANDSCAPE = "gtk-orientation-reverse-landscape"
-- constant _STOCK_ORIENTATION_REVERSE_PORTRAIT
{-# DEPRECATED _STOCK_ORIENTATION_REVERSE_PORTRAIT ["(Since version 3.10)"]#-}
_STOCK_ORIENTATION_REVERSE_PORTRAIT :: T.Text
_STOCK_ORIENTATION_REVERSE_PORTRAIT = "gtk-orientation-reverse-portrait"
-- constant _STOCK_PAGE_SETUP
{-# DEPRECATED _STOCK_PAGE_SETUP ["(Since version 3.10)","Use named icon "document-page-setup" or the label "Page Set_up"."]#-}
_STOCK_PAGE_SETUP :: T.Text
_STOCK_PAGE_SETUP = "gtk-page-setup"
-- constant _STOCK_PASTE
{-# DEPRECATED _STOCK_PASTE ["(Since version 3.10)","Use named icon "edit-paste" or the label "_Paste"."]#-}
_STOCK_PASTE :: T.Text
_STOCK_PASTE = "gtk-paste"
-- constant _STOCK_PREFERENCES
{-# DEPRECATED _STOCK_PREFERENCES ["(Since version 3.10)","Use named icon "preferences-system" or the label "_Preferences"."]#-}
_STOCK_PREFERENCES :: T.Text
_STOCK_PREFERENCES = "gtk-preferences"
-- constant _STOCK_PRINT
{-# DEPRECATED _STOCK_PRINT ["(Since version 3.10)","Use named icon "document-print" or the label "_Print"."]#-}
_STOCK_PRINT :: T.Text
_STOCK_PRINT = "gtk-print"
-- constant _STOCK_PRINT_ERROR
{-# DEPRECATED _STOCK_PRINT_ERROR ["(Since version 3.10)","Use named icon "printer-error"."]#-}
_STOCK_PRINT_ERROR :: T.Text
_STOCK_PRINT_ERROR = "gtk-print-error"
-- constant _STOCK_PRINT_PAUSED
{-# DEPRECATED _STOCK_PRINT_PAUSED ["(Since version 3.10)"]#-}
_STOCK_PRINT_PAUSED :: T.Text
_STOCK_PRINT_PAUSED = "gtk-print-paused"
-- constant _STOCK_PRINT_PREVIEW
{-# DEPRECATED _STOCK_PRINT_PREVIEW ["(Since version 3.10)","Use label "Pre_view"."]#-}
_STOCK_PRINT_PREVIEW :: T.Text
_STOCK_PRINT_PREVIEW = "gtk-print-preview"
-- constant _STOCK_PRINT_REPORT
{-# DEPRECATED _STOCK_PRINT_REPORT ["(Since version 3.10)"]#-}
_STOCK_PRINT_REPORT :: T.Text
_STOCK_PRINT_REPORT = "gtk-print-report"
-- constant _STOCK_PRINT_WARNING
{-# DEPRECATED _STOCK_PRINT_WARNING ["(Since version 3.10)"]#-}
_STOCK_PRINT_WARNING :: T.Text
_STOCK_PRINT_WARNING = "gtk-print-warning"
-- constant _STOCK_PROPERTIES
{-# DEPRECATED _STOCK_PROPERTIES ["(Since version 3.10)","Use named icon "document-properties" or the label "_Properties"."]#-}
_STOCK_PROPERTIES :: T.Text
_STOCK_PROPERTIES = "gtk-properties"
-- constant _STOCK_QUIT
{-# DEPRECATED _STOCK_QUIT ["(Since version 3.10)","Use named icon "application-exit" or the label "_Quit"."]#-}
_STOCK_QUIT :: T.Text
_STOCK_QUIT = "gtk-quit"
-- constant _STOCK_REDO
{-# DEPRECATED _STOCK_REDO ["(Since version 3.10)","Use named icon "edit-redo" or the label "_Redo"."]#-}
_STOCK_REDO :: T.Text
_STOCK_REDO = "gtk-redo"
-- constant _STOCK_REFRESH
{-# DEPRECATED _STOCK_REFRESH ["(Since version 3.10)","Use named icon "view-refresh" or the label "_Refresh"."]#-}
_STOCK_REFRESH :: T.Text
_STOCK_REFRESH = "gtk-refresh"
-- constant _STOCK_REMOVE
{-# DEPRECATED _STOCK_REMOVE ["(Since version 3.10)","Use named icon "list-remove" or the label "_Remove"."]#-}
_STOCK_REMOVE :: T.Text
_STOCK_REMOVE = "gtk-remove"
-- constant _STOCK_REVERT_TO_SAVED
{-# DEPRECATED _STOCK_REVERT_TO_SAVED ["(Since version 3.10)","Use named icon "document-revert" or the label "_Revert"."]#-}
_STOCK_REVERT_TO_SAVED :: T.Text
_STOCK_REVERT_TO_SAVED = "gtk-revert-to-saved"
-- constant _STOCK_SAVE
{-# DEPRECATED _STOCK_SAVE ["(Since version 3.10)","Use named icon "document-save" or the label "_Save"."]#-}
_STOCK_SAVE :: T.Text
_STOCK_SAVE = "gtk-save"
-- constant _STOCK_SAVE_AS
{-# DEPRECATED _STOCK_SAVE_AS ["(Since version 3.10)","Use named icon "document-save-as" or the label "Save _As"."]#-}
_STOCK_SAVE_AS :: T.Text
_STOCK_SAVE_AS = "gtk-save-as"
-- constant _STOCK_SELECT_ALL
{-# DEPRECATED _STOCK_SELECT_ALL ["(Since version 3.10)","Use named icon "edit-select-all" or the label "Select _All"."]#-}
_STOCK_SELECT_ALL :: T.Text
_STOCK_SELECT_ALL = "gtk-select-all"
-- constant _STOCK_SELECT_COLOR
{-# DEPRECATED _STOCK_SELECT_COLOR ["(Since version 3.10)"]#-}
_STOCK_SELECT_COLOR :: T.Text
_STOCK_SELECT_COLOR = "gtk-select-color"
-- constant _STOCK_SELECT_FONT
{-# DEPRECATED _STOCK_SELECT_FONT ["(Since version 3.10)"]#-}
_STOCK_SELECT_FONT :: T.Text
_STOCK_SELECT_FONT = "gtk-select-font"
-- constant _STOCK_SORT_ASCENDING
{-# DEPRECATED _STOCK_SORT_ASCENDING ["(Since version 3.10)","Use named icon "view-sort-ascending"."]#-}
_STOCK_SORT_ASCENDING :: T.Text
_STOCK_SORT_ASCENDING = "gtk-sort-ascending"
-- constant _STOCK_SORT_DESCENDING
{-# DEPRECATED _STOCK_SORT_DESCENDING ["(Since version 3.10)","Use named icon "view-sort-descending"."]#-}
_STOCK_SORT_DESCENDING :: T.Text
_STOCK_SORT_DESCENDING = "gtk-sort-descending"
-- constant _STOCK_SPELL_CHECK
{-# DEPRECATED _STOCK_SPELL_CHECK ["(Since version 3.10)","Use named icon "tools-check-spelling"."]#-}
_STOCK_SPELL_CHECK :: T.Text
_STOCK_SPELL_CHECK = "gtk-spell-check"
-- constant _STOCK_STOP
{-# DEPRECATED _STOCK_STOP ["(Since version 3.10)","Use named icon "process-stop" or the label "_Stop"."]#-}
_STOCK_STOP :: T.Text
_STOCK_STOP = "gtk-stop"
-- constant _STOCK_STRIKETHROUGH
{-# DEPRECATED _STOCK_STRIKETHROUGH ["(Since version 3.10)","Use named icon "format-text-strikethrough" or the label "_Strikethrough"."]#-}
_STOCK_STRIKETHROUGH :: T.Text
_STOCK_STRIKETHROUGH = "gtk-strikethrough"
-- constant _STOCK_UNDELETE
{-# DEPRECATED _STOCK_UNDELETE ["(Since version 3.10)"]#-}
_STOCK_UNDELETE :: T.Text
_STOCK_UNDELETE = "gtk-undelete"
-- constant _STOCK_UNDERLINE
{-# DEPRECATED _STOCK_UNDERLINE ["(Since version 3.10)","Use named icon "format-text-underline" or the label "_Underline"."]#-}
_STOCK_UNDERLINE :: T.Text
_STOCK_UNDERLINE = "gtk-underline"
-- constant _STOCK_UNDO
{-# DEPRECATED _STOCK_UNDO ["(Since version 3.10)","Use named icon "edit-undo" or the label "_Undo"."]#-}
_STOCK_UNDO :: T.Text
_STOCK_UNDO = "gtk-undo"
-- constant _STOCK_UNINDENT
{-# DEPRECATED _STOCK_UNINDENT ["(Since version 3.10)","Use named icon "format-indent-less"."]#-}
_STOCK_UNINDENT :: T.Text
_STOCK_UNINDENT = "gtk-unindent"
-- constant _STOCK_YES
{-# DEPRECATED _STOCK_YES ["(Since version 3.10)"]#-}
_STOCK_YES :: T.Text
_STOCK_YES = "gtk-yes"
-- constant _STOCK_ZOOM_100
{-# DEPRECATED _STOCK_ZOOM_100 ["(Since version 3.10)","Use named icon "zoom-original" or the label "_Normal Size"."]#-}
_STOCK_ZOOM_100 :: T.Text
_STOCK_ZOOM_100 = "gtk-zoom-100"
-- constant _STOCK_ZOOM_FIT
{-# DEPRECATED _STOCK_ZOOM_FIT ["(Since version 3.10)","Use named icon "zoom-fit-best" or the label "Best _Fit"."]#-}
_STOCK_ZOOM_FIT :: T.Text
_STOCK_ZOOM_FIT = "gtk-zoom-fit"
-- constant _STOCK_ZOOM_IN
{-# DEPRECATED _STOCK_ZOOM_IN ["(Since version 3.10)","Use named icon "zoom-in" or the label "Zoom _In"."]#-}
_STOCK_ZOOM_IN :: T.Text
_STOCK_ZOOM_IN = "gtk-zoom-in"
-- constant _STOCK_ZOOM_OUT
{-# DEPRECATED _STOCK_ZOOM_OUT ["(Since version 3.10)","Use named icon "zoom-out" or the label "Zoom _Out"."]#-}
_STOCK_ZOOM_OUT :: T.Text
_STOCK_ZOOM_OUT = "gtk-zoom-out"
-- constant _STYLE_CLASS_ACCELERATOR
_STYLE_CLASS_ACCELERATOR :: T.Text
_STYLE_CLASS_ACCELERATOR = "accelerator"
-- constant _STYLE_CLASS_ARROW
_STYLE_CLASS_ARROW :: T.Text
_STYLE_CLASS_ARROW = "arrow"
-- constant _STYLE_CLASS_BACKGROUND
_STYLE_CLASS_BACKGROUND :: T.Text
_STYLE_CLASS_BACKGROUND = "background"
-- constant _STYLE_CLASS_BOTTOM
_STYLE_CLASS_BOTTOM :: T.Text
_STYLE_CLASS_BOTTOM = "bottom"
-- constant _STYLE_CLASS_BUTTON
_STYLE_CLASS_BUTTON :: T.Text
_STYLE_CLASS_BUTTON = "button"
-- constant _STYLE_CLASS_CALENDAR
_STYLE_CLASS_CALENDAR :: T.Text
_STYLE_CLASS_CALENDAR = "calendar"
-- constant _STYLE_CLASS_CELL
_STYLE_CLASS_CELL :: T.Text
_STYLE_CLASS_CELL = "cell"
-- constant _STYLE_CLASS_CHECK
_STYLE_CLASS_CHECK :: T.Text
_STYLE_CLASS_CHECK = "check"
-- constant _STYLE_CLASS_COMBOBOX_ENTRY
_STYLE_CLASS_COMBOBOX_ENTRY :: T.Text
_STYLE_CLASS_COMBOBOX_ENTRY = "combobox-entry"
-- constant _STYLE_CLASS_CONTEXT_MENU
_STYLE_CLASS_CONTEXT_MENU :: T.Text
_STYLE_CLASS_CONTEXT_MENU = "context-menu"
-- constant _STYLE_CLASS_CSD
_STYLE_CLASS_CSD :: T.Text
_STYLE_CLASS_CSD = "csd"
-- constant _STYLE_CLASS_CURSOR_HANDLE
_STYLE_CLASS_CURSOR_HANDLE :: T.Text
_STYLE_CLASS_CURSOR_HANDLE = "cursor-handle"
-- constant _STYLE_CLASS_DEFAULT
_STYLE_CLASS_DEFAULT :: T.Text
_STYLE_CLASS_DEFAULT = "default"
-- constant _STYLE_CLASS_DESTRUCTIVE_ACTION
_STYLE_CLASS_DESTRUCTIVE_ACTION :: T.Text
_STYLE_CLASS_DESTRUCTIVE_ACTION = "destructive-action"
-- constant _STYLE_CLASS_DIM_LABEL
_STYLE_CLASS_DIM_LABEL :: T.Text
_STYLE_CLASS_DIM_LABEL = "dim-label"
-- constant _STYLE_CLASS_DND
_STYLE_CLASS_DND :: T.Text
_STYLE_CLASS_DND = "dnd"
-- constant _STYLE_CLASS_DOCK
_STYLE_CLASS_DOCK :: T.Text
_STYLE_CLASS_DOCK = "dock"
-- constant _STYLE_CLASS_ENTRY
_STYLE_CLASS_ENTRY :: T.Text
_STYLE_CLASS_ENTRY = "entry"
-- constant _STYLE_CLASS_ERROR
_STYLE_CLASS_ERROR :: T.Text
_STYLE_CLASS_ERROR = "error"
-- constant _STYLE_CLASS_EXPANDER
_STYLE_CLASS_EXPANDER :: T.Text
_STYLE_CLASS_EXPANDER = "expander"
-- constant _STYLE_CLASS_FLAT
_STYLE_CLASS_FLAT :: T.Text
_STYLE_CLASS_FLAT = "flat"
-- constant _STYLE_CLASS_FRAME
_STYLE_CLASS_FRAME :: T.Text
_STYLE_CLASS_FRAME = "frame"
-- constant _STYLE_CLASS_GRIP
_STYLE_CLASS_GRIP :: T.Text
_STYLE_CLASS_GRIP = "grip"
-- constant _STYLE_CLASS_HEADER
_STYLE_CLASS_HEADER :: T.Text
_STYLE_CLASS_HEADER = "header"
-- constant _STYLE_CLASS_HIGHLIGHT
_STYLE_CLASS_HIGHLIGHT :: T.Text
_STYLE_CLASS_HIGHLIGHT = "highlight"
-- constant _STYLE_CLASS_HORIZONTAL
_STYLE_CLASS_HORIZONTAL :: T.Text
_STYLE_CLASS_HORIZONTAL = "horizontal"
-- constant _STYLE_CLASS_IMAGE
_STYLE_CLASS_IMAGE :: T.Text
_STYLE_CLASS_IMAGE = "image"
-- constant _STYLE_CLASS_INFO
_STYLE_CLASS_INFO :: T.Text
_STYLE_CLASS_INFO = "info"
-- constant _STYLE_CLASS_INLINE_TOOLBAR
_STYLE_CLASS_INLINE_TOOLBAR :: T.Text
_STYLE_CLASS_INLINE_TOOLBAR = "inline-toolbar"
-- constant _STYLE_CLASS_INSERTION_CURSOR
_STYLE_CLASS_INSERTION_CURSOR :: T.Text
_STYLE_CLASS_INSERTION_CURSOR = "insertion-cursor"
-- constant _STYLE_CLASS_LABEL
_STYLE_CLASS_LABEL :: T.Text
_STYLE_CLASS_LABEL = "label"
-- constant _STYLE_CLASS_LEFT
_STYLE_CLASS_LEFT :: T.Text
_STYLE_CLASS_LEFT = "left"
-- constant _STYLE_CLASS_LEVEL_BAR
_STYLE_CLASS_LEVEL_BAR :: T.Text
_STYLE_CLASS_LEVEL_BAR = "level-bar"
-- constant _STYLE_CLASS_LINKED
_STYLE_CLASS_LINKED :: T.Text
_STYLE_CLASS_LINKED = "linked"
-- constant _STYLE_CLASS_LIST
_STYLE_CLASS_LIST :: T.Text
_STYLE_CLASS_LIST = "list"
-- constant _STYLE_CLASS_LIST_ROW
_STYLE_CLASS_LIST_ROW :: T.Text
_STYLE_CLASS_LIST_ROW = "list-row"
-- constant _STYLE_CLASS_MARK
_STYLE_CLASS_MARK :: T.Text
_STYLE_CLASS_MARK = "mark"
-- constant _STYLE_CLASS_MENU
_STYLE_CLASS_MENU :: T.Text
_STYLE_CLASS_MENU = "menu"
-- constant _STYLE_CLASS_MENUBAR
_STYLE_CLASS_MENUBAR :: T.Text
_STYLE_CLASS_MENUBAR = "menubar"
-- constant _STYLE_CLASS_MENUITEM
_STYLE_CLASS_MENUITEM :: T.Text
_STYLE_CLASS_MENUITEM = "menuitem"
-- constant _STYLE_CLASS_MESSAGE_DIALOG
_STYLE_CLASS_MESSAGE_DIALOG :: T.Text
_STYLE_CLASS_MESSAGE_DIALOG = "message-dialog"
-- constant _STYLE_CLASS_MONOSPACE
_STYLE_CLASS_MONOSPACE :: T.Text
_STYLE_CLASS_MONOSPACE = "monospace"
-- constant _STYLE_CLASS_NEEDS_ATTENTION
_STYLE_CLASS_NEEDS_ATTENTION :: T.Text
_STYLE_CLASS_NEEDS_ATTENTION = "needs-attention"
-- constant _STYLE_CLASS_NOTEBOOK
_STYLE_CLASS_NOTEBOOK :: T.Text
_STYLE_CLASS_NOTEBOOK = "notebook"
-- constant _STYLE_CLASS_OSD
_STYLE_CLASS_OSD :: T.Text
_STYLE_CLASS_OSD = "osd"
-- constant _STYLE_CLASS_OVERSHOOT
_STYLE_CLASS_OVERSHOOT :: T.Text
_STYLE_CLASS_OVERSHOOT = "overshoot"
-- constant _STYLE_CLASS_PANE_SEPARATOR
_STYLE_CLASS_PANE_SEPARATOR :: T.Text
_STYLE_CLASS_PANE_SEPARATOR = "pane-separator"
-- constant _STYLE_CLASS_PAPER
_STYLE_CLASS_PAPER :: T.Text
_STYLE_CLASS_PAPER = "paper"
-- constant _STYLE_CLASS_POPOVER
_STYLE_CLASS_POPOVER :: T.Text
_STYLE_CLASS_POPOVER = "popover"
-- constant _STYLE_CLASS_POPUP
_STYLE_CLASS_POPUP :: T.Text
_STYLE_CLASS_POPUP = "popup"
-- constant _STYLE_CLASS_PRIMARY_TOOLBAR
_STYLE_CLASS_PRIMARY_TOOLBAR :: T.Text
_STYLE_CLASS_PRIMARY_TOOLBAR = "primary-toolbar"
-- constant _STYLE_CLASS_PROGRESSBAR
_STYLE_CLASS_PROGRESSBAR :: T.Text
_STYLE_CLASS_PROGRESSBAR = "progressbar"
-- constant _STYLE_CLASS_PULSE
_STYLE_CLASS_PULSE :: T.Text
_STYLE_CLASS_PULSE = "pulse"
-- constant _STYLE_CLASS_QUESTION
_STYLE_CLASS_QUESTION :: T.Text
_STYLE_CLASS_QUESTION = "question"
-- constant _STYLE_CLASS_RADIO
_STYLE_CLASS_RADIO :: T.Text
_STYLE_CLASS_RADIO = "radio"
-- constant _STYLE_CLASS_RAISED
_STYLE_CLASS_RAISED :: T.Text
_STYLE_CLASS_RAISED = "raised"
-- constant _STYLE_CLASS_READ_ONLY
_STYLE_CLASS_READ_ONLY :: T.Text
_STYLE_CLASS_READ_ONLY = "read-only"
-- constant _STYLE_CLASS_RIGHT
_STYLE_CLASS_RIGHT :: T.Text
_STYLE_CLASS_RIGHT = "right"
-- constant _STYLE_CLASS_RUBBERBAND
_STYLE_CLASS_RUBBERBAND :: T.Text
_STYLE_CLASS_RUBBERBAND = "rubberband"
-- constant _STYLE_CLASS_SCALE
_STYLE_CLASS_SCALE :: T.Text
_STYLE_CLASS_SCALE = "scale"
-- constant _STYLE_CLASS_SCALE_HAS_MARKS_ABOVE
_STYLE_CLASS_SCALE_HAS_MARKS_ABOVE :: T.Text
_STYLE_CLASS_SCALE_HAS_MARKS_ABOVE = "scale-has-marks-above"
-- constant _STYLE_CLASS_SCALE_HAS_MARKS_BELOW
_STYLE_CLASS_SCALE_HAS_MARKS_BELOW :: T.Text
_STYLE_CLASS_SCALE_HAS_MARKS_BELOW = "scale-has-marks-below"
-- constant _STYLE_CLASS_SCROLLBAR
_STYLE_CLASS_SCROLLBAR :: T.Text
_STYLE_CLASS_SCROLLBAR = "scrollbar"
-- constant _STYLE_CLASS_SCROLLBARS_JUNCTION
_STYLE_CLASS_SCROLLBARS_JUNCTION :: T.Text
_STYLE_CLASS_SCROLLBARS_JUNCTION = "scrollbars-junction"
-- constant _STYLE_CLASS_SEPARATOR
_STYLE_CLASS_SEPARATOR :: T.Text
_STYLE_CLASS_SEPARATOR = "separator"
-- constant _STYLE_CLASS_SIDEBAR
_STYLE_CLASS_SIDEBAR :: T.Text
_STYLE_CLASS_SIDEBAR = "sidebar"
-- constant _STYLE_CLASS_SLIDER
_STYLE_CLASS_SLIDER :: T.Text
_STYLE_CLASS_SLIDER = "slider"
-- constant _STYLE_CLASS_SPINBUTTON
_STYLE_CLASS_SPINBUTTON :: T.Text
_STYLE_CLASS_SPINBUTTON = "spinbutton"
-- constant _STYLE_CLASS_SPINNER
_STYLE_CLASS_SPINNER :: T.Text
_STYLE_CLASS_SPINNER = "spinner"
-- constant _STYLE_CLASS_STATUSBAR
_STYLE_CLASS_STATUSBAR :: T.Text
_STYLE_CLASS_STATUSBAR = "statusbar"
-- constant _STYLE_CLASS_SUBTITLE
_STYLE_CLASS_SUBTITLE :: T.Text
_STYLE_CLASS_SUBTITLE = "subtitle"
-- constant _STYLE_CLASS_SUGGESTED_ACTION
_STYLE_CLASS_SUGGESTED_ACTION :: T.Text
_STYLE_CLASS_SUGGESTED_ACTION = "suggested-action"
-- constant _STYLE_CLASS_TITLE
_STYLE_CLASS_TITLE :: T.Text
_STYLE_CLASS_TITLE = "title"
-- constant _STYLE_CLASS_TITLEBAR
_STYLE_CLASS_TITLEBAR :: T.Text
_STYLE_CLASS_TITLEBAR = "titlebar"
-- constant _STYLE_CLASS_TOOLBAR
_STYLE_CLASS_TOOLBAR :: T.Text
_STYLE_CLASS_TOOLBAR = "toolbar"
-- constant _STYLE_CLASS_TOOLTIP
_STYLE_CLASS_TOOLTIP :: T.Text
_STYLE_CLASS_TOOLTIP = "tooltip"
-- constant _STYLE_CLASS_TOP
_STYLE_CLASS_TOP :: T.Text
_STYLE_CLASS_TOP = "top"
-- constant _STYLE_CLASS_TOUCH_SELECTION
_STYLE_CLASS_TOUCH_SELECTION :: T.Text
_STYLE_CLASS_TOUCH_SELECTION = "touch-selection"
-- constant _STYLE_CLASS_TROUGH
_STYLE_CLASS_TROUGH :: T.Text
_STYLE_CLASS_TROUGH = "trough"
-- constant _STYLE_CLASS_UNDERSHOOT
_STYLE_CLASS_UNDERSHOOT :: T.Text
_STYLE_CLASS_UNDERSHOOT = "undershoot"
-- constant _STYLE_CLASS_VERTICAL
_STYLE_CLASS_VERTICAL :: T.Text
_STYLE_CLASS_VERTICAL = "vertical"
-- constant _STYLE_CLASS_VIEW
_STYLE_CLASS_VIEW :: T.Text
_STYLE_CLASS_VIEW = "view"
-- constant _STYLE_CLASS_WARNING
_STYLE_CLASS_WARNING :: T.Text
_STYLE_CLASS_WARNING = "warning"
-- constant _STYLE_CLASS_WIDE
_STYLE_CLASS_WIDE :: T.Text
_STYLE_CLASS_WIDE = "wide"
-- constant _STYLE_PROPERTY_BACKGROUND_COLOR
_STYLE_PROPERTY_BACKGROUND_COLOR :: T.Text
_STYLE_PROPERTY_BACKGROUND_COLOR = "background-color"
-- constant _STYLE_PROPERTY_BACKGROUND_IMAGE
_STYLE_PROPERTY_BACKGROUND_IMAGE :: T.Text
_STYLE_PROPERTY_BACKGROUND_IMAGE = "background-image"
-- constant _STYLE_PROPERTY_BORDER_COLOR
_STYLE_PROPERTY_BORDER_COLOR :: T.Text
_STYLE_PROPERTY_BORDER_COLOR = "border-color"
-- constant _STYLE_PROPERTY_BORDER_RADIUS
_STYLE_PROPERTY_BORDER_RADIUS :: T.Text
_STYLE_PROPERTY_BORDER_RADIUS = "border-radius"
-- constant _STYLE_PROPERTY_BORDER_STYLE
_STYLE_PROPERTY_BORDER_STYLE :: T.Text
_STYLE_PROPERTY_BORDER_STYLE = "border-style"
-- constant _STYLE_PROPERTY_BORDER_WIDTH
_STYLE_PROPERTY_BORDER_WIDTH :: T.Text
_STYLE_PROPERTY_BORDER_WIDTH = "border-width"
-- constant _STYLE_PROPERTY_COLOR
_STYLE_PROPERTY_COLOR :: T.Text
_STYLE_PROPERTY_COLOR = "color"
-- constant _STYLE_PROPERTY_FONT
_STYLE_PROPERTY_FONT :: T.Text
_STYLE_PROPERTY_FONT = "font"
-- constant _STYLE_PROPERTY_MARGIN
_STYLE_PROPERTY_MARGIN :: T.Text
_STYLE_PROPERTY_MARGIN = "margin"
-- constant _STYLE_PROPERTY_PADDING
_STYLE_PROPERTY_PADDING :: T.Text
_STYLE_PROPERTY_PADDING = "padding"
-- constant _STYLE_PROVIDER_PRIORITY_APPLICATION
_STYLE_PROVIDER_PRIORITY_APPLICATION :: Int32
_STYLE_PROVIDER_PRIORITY_APPLICATION = 600
-- constant _STYLE_PROVIDER_PRIORITY_FALLBACK
_STYLE_PROVIDER_PRIORITY_FALLBACK :: Int32
_STYLE_PROVIDER_PRIORITY_FALLBACK = 1
-- constant _STYLE_PROVIDER_PRIORITY_SETTINGS
_STYLE_PROVIDER_PRIORITY_SETTINGS :: Int32
_STYLE_PROVIDER_PRIORITY_SETTINGS = 400
-- constant _STYLE_PROVIDER_PRIORITY_THEME
_STYLE_PROVIDER_PRIORITY_THEME :: Int32
_STYLE_PROVIDER_PRIORITY_THEME = 200
-- constant _STYLE_PROVIDER_PRIORITY_USER
_STYLE_PROVIDER_PRIORITY_USER :: Int32
_STYLE_PROVIDER_PRIORITY_USER = 800
-- constant _STYLE_REGION_COLUMN
_STYLE_REGION_COLUMN :: T.Text
_STYLE_REGION_COLUMN = "column"
-- constant _STYLE_REGION_COLUMN_HEADER
_STYLE_REGION_COLUMN_HEADER :: T.Text
_STYLE_REGION_COLUMN_HEADER = "column-header"
-- constant _STYLE_REGION_ROW
_STYLE_REGION_ROW :: T.Text
_STYLE_REGION_ROW = "row"
-- constant _STYLE_REGION_TAB
_STYLE_REGION_TAB :: T.Text
_STYLE_REGION_TAB = "tab"
-- constant _TEXT_VIEW_PRIORITY_VALIDATE
_TEXT_VIEW_PRIORITY_VALIDATE :: Int32
_TEXT_VIEW_PRIORITY_VALIDATE = 5
-- constant _TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID
_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID :: Int32
_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID = -1
-- constant _TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID
_TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID :: Int32
_TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID = -2
-- function gtk_accel_groups_activate
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_groups_activate" gtk_accel_groups_activate ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO CInt
accelGroupsActivate ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m Bool
accelGroupsActivate object accel_key accel_mods = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let accel_mods' = gflagsToWord accel_mods
result <- gtk_accel_groups_activate object' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr object
return result'
-- function gtk_accel_groups_from_object
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "AccelGroup")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_groups_from_object" gtk_accel_groups_from_object ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
IO (Ptr (GSList (Ptr AccelGroup)))
accelGroupsFromObject ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
m [AccelGroup]
accelGroupsFromObject object = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
result <- gtk_accel_groups_from_object object'
checkUnexpectedReturnNULL "gtk_accel_groups_from_object" result
result' <- unpackGSList result
result'' <- mapM (newObject AccelGroup) result'
touchManagedPtr object
return result''
-- function gtk_accelerator_get_default_mod_mask
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "ModifierType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_default_mod_mask" gtk_accelerator_get_default_mod_mask ::
IO CUInt
acceleratorGetDefaultModMask ::
(MonadIO m) =>
m [Gdk.ModifierType]
acceleratorGetDefaultModMask = liftIO $ do
result <- gtk_accelerator_get_default_mod_mask
let result' = wordToGFlags result
return result'
-- function gtk_accelerator_get_label
-- Args : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label ::
Word32 -> -- accelerator_key : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorGetLabel ::
(MonadIO m) =>
Word32 -> -- accelerator_key
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorGetLabel accelerator_key accelerator_mods = liftIO $ do
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_get_label accelerator_key accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_get_label" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_accelerator_get_label_with_keycode
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word32 -> -- accelerator_key : TBasicType TUInt32
Word32 -> -- keycode : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorGetLabelWithKeycode ::
(MonadIO m, Gdk.DisplayK a) =>
Maybe (a) -> -- display
Word32 -> -- accelerator_key
Word32 -> -- keycode
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorGetLabelWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do
maybeDisplay <- case display of
Nothing -> return nullPtr
Just jDisplay -> do
let jDisplay' = unsafeManagedPtrCastPtr jDisplay
return jDisplay'
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_get_label_with_keycode maybeDisplay accelerator_key keycode accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_get_label_with_keycode" result
result' <- cstringToText result
freeMem result
whenJust display touchManagedPtr
return result'
-- function gtk_accelerator_name
-- Args : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_name" gtk_accelerator_name ::
Word32 -> -- accelerator_key : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorName ::
(MonadIO m) =>
Word32 -> -- accelerator_key
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorName accelerator_key accelerator_mods = liftIO $ do
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_name accelerator_key accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_name" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_accelerator_name_with_keycode
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word32 -> -- accelerator_key : TBasicType TUInt32
Word32 -> -- keycode : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorNameWithKeycode ::
(MonadIO m, Gdk.DisplayK a) =>
Maybe (a) -> -- display
Word32 -> -- accelerator_key
Word32 -> -- keycode
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorNameWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do
maybeDisplay <- case display of
Nothing -> return nullPtr
Just jDisplay -> do
let jDisplay' = unsafeManagedPtrCastPtr jDisplay
return jDisplay'
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_name_with_keycode maybeDisplay accelerator_key keycode accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_name_with_keycode" result
result' <- cstringToText result
freeMem result
whenJust display touchManagedPtr
return result'
-- function gtk_accelerator_parse
-- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_parse" gtk_accelerator_parse ::
CString -> -- accelerator : TBasicType TUTF8
Ptr Word32 -> -- accelerator_key : TBasicType TUInt32
Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
acceleratorParse ::
(MonadIO m) =>
T.Text -> -- accelerator
m (Word32,[Gdk.ModifierType])
acceleratorParse accelerator = liftIO $ do
accelerator' <- textToCString accelerator
accelerator_key <- allocMem :: IO (Ptr Word32)
accelerator_mods <- allocMem :: IO (Ptr CUInt)
gtk_accelerator_parse accelerator' accelerator_key accelerator_mods
accelerator_key' <- peek accelerator_key
accelerator_mods' <- peek accelerator_mods
let accelerator_mods'' = wordToGFlags accelerator_mods'
freeMem accelerator'
freeMem accelerator_key
freeMem accelerator_mods
return (accelerator_key', accelerator_mods'')
-- function gtk_accelerator_parse_with_keycode
-- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode ::
CString -> -- accelerator : TBasicType TUTF8
Ptr Word32 -> -- accelerator_key : TBasicType TUInt32
Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt32)
Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
acceleratorParseWithKeycode ::
(MonadIO m) =>
T.Text -> -- accelerator
m (Word32,[Word32],[Gdk.ModifierType])
acceleratorParseWithKeycode accelerator = liftIO $ do
accelerator' <- textToCString accelerator
accelerator_key <- allocMem :: IO (Ptr Word32)
accelerator_codes <- allocMem :: IO (Ptr (Ptr Word32))
accelerator_mods <- allocMem :: IO (Ptr CUInt)
gtk_accelerator_parse_with_keycode accelerator' accelerator_key accelerator_codes accelerator_mods
accelerator_key' <- peek accelerator_key
accelerator_codes' <- peek accelerator_codes
accelerator_codes'' <- unpackZeroTerminatedStorableArray accelerator_codes'
freeMem accelerator_codes'
accelerator_mods' <- peek accelerator_mods
let accelerator_mods'' = wordToGFlags accelerator_mods'
freeMem accelerator'
freeMem accelerator_key
freeMem accelerator_codes
freeMem accelerator_mods
return (accelerator_key', accelerator_codes'', accelerator_mods'')
-- function gtk_accelerator_set_default_mod_mask
-- Args : [Arg {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_set_default_mod_mask" gtk_accelerator_set_default_mod_mask ::
CUInt -> -- default_mod_mask : TInterface "Gdk" "ModifierType"
IO ()
acceleratorSetDefaultModMask ::
(MonadIO m) =>
[Gdk.ModifierType] -> -- default_mod_mask
m ()
acceleratorSetDefaultModMask default_mod_mask = liftIO $ do
let default_mod_mask' = gflagsToWord default_mod_mask
gtk_accelerator_set_default_mod_mask default_mod_mask'
return ()
-- function gtk_accelerator_valid
-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid ::
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
acceleratorValid ::
(MonadIO m) =>
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
acceleratorValid keyval modifiers = liftIO $ do
let modifiers' = gflagsToWord modifiers
result <- gtk_accelerator_valid keyval modifiers'
let result' = (/= 0) result
return result'
-- function gtk_alternative_dialog_button_order
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alternative_dialog_button_order" gtk_alternative_dialog_button_order ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO CInt
{-# DEPRECATED alternativeDialogButtonOrder ["(Since version 3.10)","Deprecated"]#-}
alternativeDialogButtonOrder ::
(MonadIO m, Gdk.ScreenK a) =>
Maybe (a) -> -- screen
m Bool
alternativeDialogButtonOrder screen = liftIO $ do
maybeScreen <- case screen of
Nothing -> return nullPtr
Just jScreen -> do
let jScreen' = unsafeManagedPtrCastPtr jScreen
return jScreen'
result <- gtk_alternative_dialog_button_order maybeScreen
let result' = (/= 0) result
whenJust screen touchManagedPtr
return result'
-- function gtk_binding_entry_add_signal_from_string
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "TokenType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_add_signal_from_string" gtk_binding_entry_add_signal_from_string ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
CString -> -- signal_desc : TBasicType TUTF8
IO CUInt
bindingEntryAddSignalFromString ::
(MonadIO m) =>
BindingSet -> -- binding_set
T.Text -> -- signal_desc
m GLib.TokenType
bindingEntryAddSignalFromString binding_set signal_desc = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
signal_desc' <- textToCString signal_desc
result <- gtk_binding_entry_add_signal_from_string binding_set' signal_desc'
let result' = (toEnum . fromIntegral) result
touchManagedPtr binding_set
freeMem signal_desc'
return result'
-- function gtk_binding_entry_add_signall
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_add_signall" gtk_binding_entry_add_signall ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
CString -> -- signal_name : TBasicType TUTF8
Ptr (GSList (Ptr BindingArg)) -> -- binding_args : TGSList (TInterface "Gtk" "BindingArg")
IO ()
bindingEntryAddSignall ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
T.Text -> -- signal_name
[BindingArg] -> -- binding_args
m ()
bindingEntryAddSignall binding_set keyval modifiers signal_name binding_args = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
signal_name' <- textToCString signal_name
let binding_args' = map unsafeManagedPtrGetPtr binding_args
binding_args'' <- packGSList binding_args'
gtk_binding_entry_add_signall binding_set' keyval modifiers' signal_name' binding_args''
touchManagedPtr binding_set
mapM_ touchManagedPtr binding_args
freeMem signal_name'
g_slist_free binding_args''
return ()
-- function gtk_binding_entry_remove
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_remove" gtk_binding_entry_remove ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO ()
bindingEntryRemove ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m ()
bindingEntryRemove binding_set keyval modifiers = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
gtk_binding_entry_remove binding_set' keyval modifiers'
touchManagedPtr binding_set
return ()
-- function gtk_binding_entry_skip
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_skip" gtk_binding_entry_skip ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO ()
bindingEntrySkip ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m ()
bindingEntrySkip binding_set keyval modifiers = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
gtk_binding_entry_skip binding_set' keyval modifiers'
touchManagedPtr binding_set
return ()
-- function gtk_binding_set_find
-- Args : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BindingSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_set_find" gtk_binding_set_find ::
CString -> -- set_name : TBasicType TUTF8
IO (Ptr BindingSet)
bindingSetFind ::
(MonadIO m) =>
T.Text -> -- set_name
m BindingSet
bindingSetFind set_name_ = liftIO $ do
set_name_' <- textToCString set_name_
result <- gtk_binding_set_find set_name_'
checkUnexpectedReturnNULL "gtk_binding_set_find" result
result' <- (newPtr 64 BindingSet) result
freeMem set_name_'
return result'
-- function gtk_bindings_activate
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_bindings_activate" gtk_bindings_activate ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
bindingsActivate ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
bindingsActivate object keyval modifiers = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let modifiers' = gflagsToWord modifiers
result <- gtk_bindings_activate object' keyval modifiers'
let result' = (/= 0) result
touchManagedPtr object
return result'
-- function gtk_bindings_activate_event
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_bindings_activate_event" gtk_bindings_activate_event ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
bindingsActivateEvent ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Gdk.EventKey -> -- event
m Bool
bindingsActivateEvent object event = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let event' = unsafeManagedPtrGetPtr event
result <- gtk_bindings_activate_event object' event'
let result' = (/= 0) result
touchManagedPtr object
touchManagedPtr event
return result'
-- function gtk_builder_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_error_quark" gtk_builder_error_quark ::
IO Word32
builderErrorQuark ::
(MonadIO m) =>
m Word32
builderErrorQuark = liftIO $ do
result <- gtk_builder_error_quark
return result
-- function gtk_cairo_should_draw_window
-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cairo_should_draw_window" gtk_cairo_should_draw_window ::
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO CInt
cairoShouldDrawWindow ::
(MonadIO m, Gdk.WindowK a) =>
Cairo.Context -> -- cr
a -> -- window
m Bool
cairoShouldDrawWindow cr window = liftIO $ do
let cr' = unsafeManagedPtrGetPtr cr
let window' = unsafeManagedPtrCastPtr window
result <- gtk_cairo_should_draw_window cr' window'
let result' = (/= 0) result
touchManagedPtr cr
touchManagedPtr window
return result'
-- function gtk_cairo_transform_to_window
-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cairo_transform_to_window" gtk_cairo_transform_to_window ::
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
cairoTransformToWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
Cairo.Context -> -- cr
a -> -- widget
b -> -- window
m ()
cairoTransformToWindow cr widget window = liftIO $ do
let cr' = unsafeManagedPtrGetPtr cr
let widget' = unsafeManagedPtrCastPtr widget
let window' = unsafeManagedPtrCastPtr window
gtk_cairo_transform_to_window cr' widget' window'
touchManagedPtr cr
touchManagedPtr widget
touchManagedPtr window
return ()
-- function gtk_check_version
-- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_check_version" gtk_check_version ::
Word32 -> -- required_major : TBasicType TUInt32
Word32 -> -- required_minor : TBasicType TUInt32
Word32 -> -- required_micro : TBasicType TUInt32
IO CString
checkVersion ::
(MonadIO m) =>
Word32 -> -- required_major
Word32 -> -- required_minor
Word32 -> -- required_micro
m T.Text
checkVersion required_major required_minor required_micro = liftIO $ do
result <- gtk_check_version required_major required_minor required_micro
checkUnexpectedReturnNULL "gtk_check_version" result
result' <- cstringToText result
return result'
-- function gtk_css_provider_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_error_quark" gtk_css_provider_error_quark ::
IO Word32
cssProviderErrorQuark ::
(MonadIO m) =>
m Word32
cssProviderErrorQuark = liftIO $ do
result <- gtk_css_provider_error_quark
return result
-- function gtk_device_grab_add
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_device_grab_add" gtk_device_grab_add ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
CInt -> -- block_others : TBasicType TBoolean
IO ()
deviceGrabAdd ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- widget
b -> -- device
Bool -> -- block_others
m ()
deviceGrabAdd widget device block_others = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let device' = unsafeManagedPtrCastPtr device
let block_others' = (fromIntegral . fromEnum) block_others
gtk_device_grab_add widget' device' block_others'
touchManagedPtr widget
touchManagedPtr device
return ()
-- function gtk_device_grab_remove
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_device_grab_remove" gtk_device_grab_remove ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO ()
deviceGrabRemove ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- widget
b -> -- device
m ()
deviceGrabRemove widget device = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let device' = unsafeManagedPtrCastPtr device
gtk_device_grab_remove widget' device'
touchManagedPtr widget
touchManagedPtr device
return ()
-- function gtk_disable_setlocale
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale ::
IO ()
disableSetlocale ::
(MonadIO m) =>
m ()
disableSetlocale = liftIO $ do
gtk_disable_setlocale
return ()
-- function gtk_distribute_natural_allocation
-- Args : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation ::
Int32 -> -- extra_space : TBasicType TInt32
Word32 -> -- n_requested_sizes : TBasicType TUInt32
Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize"
IO Int32
distributeNaturalAllocation ::
(MonadIO m) =>
Int32 -> -- extra_space
Word32 -> -- n_requested_sizes
RequestedSize -> -- sizes
m Int32
distributeNaturalAllocation extra_space n_requested_sizes sizes = liftIO $ do
let sizes' = unsafeManagedPtrGetPtr sizes
result <- gtk_distribute_natural_allocation extra_space n_requested_sizes sizes'
touchManagedPtr sizes
return result
-- function gtk_drag_cancel
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_cancel" gtk_drag_cancel ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO ()
dragCancel ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m ()
dragCancel context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
gtk_drag_cancel context'
touchManagedPtr context
return ()
-- function gtk_drag_finish
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_finish" gtk_drag_finish ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CInt -> -- success : TBasicType TBoolean
CInt -> -- del : TBasicType TBoolean
Word32 -> -- time_ : TBasicType TUInt32
IO ()
dragFinish ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
Bool -> -- success
Bool -> -- del
Word32 -> -- time_
m ()
dragFinish context success del time_ = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let success' = (fromIntegral . fromEnum) success
let del' = (fromIntegral . fromEnum) del
gtk_drag_finish context' success' del' time_
touchManagedPtr context
return ()
-- function gtk_drag_get_source_widget
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_get_source_widget" gtk_drag_get_source_widget ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO (Ptr Widget)
dragGetSourceWidget ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m Widget
dragGetSourceWidget context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
result <- gtk_drag_get_source_widget context'
checkUnexpectedReturnNULL "gtk_drag_get_source_widget" result
result' <- (newObject Widget) result
touchManagedPtr context
return result'
-- function gtk_drag_set_icon_default
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_default" gtk_drag_set_icon_default ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO ()
dragSetIconDefault ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m ()
dragSetIconDefault context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
gtk_drag_set_icon_default context'
touchManagedPtr context
return ()
-- function gtk_drag_set_icon_gicon
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconGicon ::
(MonadIO m, Gdk.DragContextK a, Gio.IconK b) =>
a -> -- context
b -> -- icon
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconGicon context icon hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let icon' = unsafeManagedPtrCastPtr icon
gtk_drag_set_icon_gicon context' icon' hot_x hot_y
touchManagedPtr context
touchManagedPtr icon
return ()
-- function gtk_drag_set_icon_name
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_name" gtk_drag_set_icon_name ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconName ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
T.Text -> -- icon_name
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconName context icon_name hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
icon_name' <- textToCString icon_name
gtk_drag_set_icon_name context' icon_name' hot_x hot_y
touchManagedPtr context
freeMem icon_name'
return ()
-- function gtk_drag_set_icon_pixbuf
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconPixbuf ::
(MonadIO m, Gdk.DragContextK a, GdkPixbuf.PixbufK b) =>
a -> -- context
b -> -- pixbuf
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconPixbuf context pixbuf hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_drag_set_icon_pixbuf context' pixbuf' hot_x hot_y
touchManagedPtr context
touchManagedPtr pixbuf
return ()
-- function gtk_drag_set_icon_stock
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
{-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-}
dragSetIconStock ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
T.Text -> -- stock_id
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconStock context stock_id hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
stock_id' <- textToCString stock_id
gtk_drag_set_icon_stock context' stock_id' hot_x hot_y
touchManagedPtr context
freeMem stock_id'
return ()
-- function gtk_drag_set_icon_surface
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_surface" gtk_drag_set_icon_surface ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
IO ()
dragSetIconSurface ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
Cairo.Surface -> -- surface
m ()
dragSetIconSurface context surface = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let surface' = unsafeManagedPtrGetPtr surface
gtk_drag_set_icon_surface context' surface'
touchManagedPtr context
touchManagedPtr surface
return ()
-- function gtk_drag_set_icon_widget
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconWidget ::
(MonadIO m, Gdk.DragContextK a, WidgetK b) =>
a -> -- context
b -> -- widget
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconWidget context widget hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
gtk_drag_set_icon_widget context' widget' hot_x hot_y
touchManagedPtr context
touchManagedPtr widget
return ()
-- function gtk_draw_insertion_cursor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_draw_insertion_cursor" gtk_draw_insertion_cursor ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle"
CInt -> -- is_primary : TBasicType TBoolean
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
CInt -> -- draw_arrow : TBasicType TBoolean
IO ()
{-# DEPRECATED drawInsertionCursor ["(Since version 3.4)","Use gtk_render_insertion_cursor() instead."]#-}
drawInsertionCursor ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Cairo.Context -> -- cr
Gdk.Rectangle -> -- location
Bool -> -- is_primary
TextDirection -> -- direction
Bool -> -- draw_arrow
m ()
drawInsertionCursor widget cr location is_primary direction draw_arrow = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let cr' = unsafeManagedPtrGetPtr cr
let location' = unsafeManagedPtrGetPtr location
let is_primary' = (fromIntegral . fromEnum) is_primary
let direction' = (fromIntegral . fromEnum) direction
let draw_arrow' = (fromIntegral . fromEnum) draw_arrow
gtk_draw_insertion_cursor widget' cr' location' is_primary' direction' draw_arrow'
touchManagedPtr widget
touchManagedPtr cr
touchManagedPtr location
return ()
-- function gtk_events_pending
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_events_pending" gtk_events_pending ::
IO CInt
eventsPending ::
(MonadIO m) =>
m Bool
eventsPending = liftIO $ do
result <- gtk_events_pending
let result' = (/= 0) result
return result'
-- function gtk_false
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_false" gtk_false ::
IO CInt
false ::
(MonadIO m) =>
m Bool
false = liftIO $ do
result <- gtk_false
let result' = (/= 0) result
return result'
-- function gtk_file_chooser_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_error_quark" gtk_file_chooser_error_quark ::
IO Word32
fileChooserErrorQuark ::
(MonadIO m) =>
m Word32
fileChooserErrorQuark = liftIO $ do
result <- gtk_file_chooser_error_quark
return result
-- function gtk_get_binary_age
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_binary_age" gtk_get_binary_age ::
IO Word32
getBinaryAge ::
(MonadIO m) =>
m Word32
getBinaryAge = liftIO $ do
result <- gtk_get_binary_age
return result
-- function gtk_get_current_event
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "Event"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event" gtk_get_current_event ::
IO (Ptr Gdk.Event)
getCurrentEvent ::
(MonadIO m) =>
m Gdk.Event
getCurrentEvent = liftIO $ do
result <- gtk_get_current_event
checkUnexpectedReturnNULL "gtk_get_current_event" result
result' <- (wrapBoxed Gdk.Event) result
return result'
-- function gtk_get_current_event_device
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "Device"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_device" gtk_get_current_event_device ::
IO (Ptr Gdk.Device)
getCurrentEventDevice ::
(MonadIO m) =>
m Gdk.Device
getCurrentEventDevice = liftIO $ do
result <- gtk_get_current_event_device
checkUnexpectedReturnNULL "gtk_get_current_event_device" result
result' <- (newObject Gdk.Device) result
return result'
-- function gtk_get_current_event_state
-- Args : [Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_state" gtk_get_current_event_state ::
Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType"
IO CInt
getCurrentEventState ::
(MonadIO m) =>
m (Bool,[Gdk.ModifierType])
getCurrentEventState = liftIO $ do
state <- allocMem :: IO (Ptr CUInt)
result <- gtk_get_current_event_state state
let result' = (/= 0) result
state' <- peek state
let state'' = wordToGFlags state'
freeMem state
return (result', state'')
-- function gtk_get_current_event_time
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_time" gtk_get_current_event_time ::
IO Word32
getCurrentEventTime ::
(MonadIO m) =>
m Word32
getCurrentEventTime = liftIO $ do
result <- gtk_get_current_event_time
return result
-- function gtk_get_debug_flags
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_debug_flags" gtk_get_debug_flags ::
IO Word32
getDebugFlags ::
(MonadIO m) =>
m Word32
getDebugFlags = liftIO $ do
result <- gtk_get_debug_flags
return result
-- function gtk_get_default_language
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Pango" "Language"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_default_language" gtk_get_default_language ::
IO (Ptr Pango.Language)
getDefaultLanguage ::
(MonadIO m) =>
m Pango.Language
getDefaultLanguage = liftIO $ do
result <- gtk_get_default_language
checkUnexpectedReturnNULL "gtk_get_default_language" result
result' <- (newBoxed Pango.Language) result
return result'
-- function gtk_get_event_widget
-- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_event_widget" gtk_get_event_widget ::
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO (Ptr Widget)
getEventWidget ::
(MonadIO m) =>
Gdk.Event -> -- event
m Widget
getEventWidget event = liftIO $ do
let event' = unsafeManagedPtrGetPtr event
result <- gtk_get_event_widget event'
checkUnexpectedReturnNULL "gtk_get_event_widget" result
result' <- (newObject Widget) result
touchManagedPtr event
return result'
-- function gtk_get_interface_age
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_interface_age" gtk_get_interface_age ::
IO Word32
getInterfaceAge ::
(MonadIO m) =>
m Word32
getInterfaceAge = liftIO $ do
result <- gtk_get_interface_age
return result
-- function gtk_get_locale_direction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_locale_direction" gtk_get_locale_direction ::
IO CUInt
getLocaleDirection ::
(MonadIO m) =>
m TextDirection
getLocaleDirection = liftIO $ do
result <- gtk_get_locale_direction
let result' = (toEnum . fromIntegral) result
return result'
-- function gtk_get_major_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_major_version" gtk_get_major_version ::
IO Word32
getMajorVersion ::
(MonadIO m) =>
m Word32
getMajorVersion = liftIO $ do
result <- gtk_get_major_version
return result
-- function gtk_get_micro_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_micro_version" gtk_get_micro_version ::
IO Word32
getMicroVersion ::
(MonadIO m) =>
m Word32
getMicroVersion = liftIO $ do
result <- gtk_get_micro_version
return result
-- function gtk_get_minor_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_minor_version" gtk_get_minor_version ::
IO Word32
getMinorVersion ::
(MonadIO m) =>
m Word32
getMinorVersion = liftIO $ do
result <- gtk_get_minor_version
return result
-- function gtk_get_option_group
-- Args : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "OptionGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_option_group" gtk_get_option_group ::
CInt -> -- open_default_display : TBasicType TBoolean
IO (Ptr GLib.OptionGroup)
getOptionGroup ::
(MonadIO m) =>
Bool -> -- open_default_display
m GLib.OptionGroup
getOptionGroup open_default_display = liftIO $ do
let open_default_display' = (fromIntegral . fromEnum) open_default_display
result <- gtk_get_option_group open_default_display'
checkUnexpectedReturnNULL "gtk_get_option_group" result
result' <- (wrapBoxed GLib.OptionGroup) result
return result'
-- function gtk_grab_get_current
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grab_get_current" gtk_grab_get_current ::
IO (Ptr Widget)
grabGetCurrent ::
(MonadIO m) =>
m Widget
grabGetCurrent = liftIO $ do
result <- gtk_grab_get_current
checkUnexpectedReturnNULL "gtk_grab_get_current" result
result' <- (newObject Widget) result
return result'
-- function gtk_icon_size_from_name
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_from_name" gtk_icon_size_from_name ::
CString -> -- name : TBasicType TUTF8
IO Int32
{-# DEPRECATED iconSizeFromName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeFromName ::
(MonadIO m) =>
T.Text -> -- name
m Int32
iconSizeFromName name = liftIO $ do
name' <- textToCString name
result <- gtk_icon_size_from_name name'
freeMem name'
return result
-- function gtk_icon_size_get_name
-- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_get_name" gtk_icon_size_get_name ::
Int32 -> -- size : TBasicType TInt32
IO CString
{-# DEPRECATED iconSizeGetName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeGetName ::
(MonadIO m) =>
Int32 -> -- size
m T.Text
iconSizeGetName size = liftIO $ do
result <- gtk_icon_size_get_name size
checkUnexpectedReturnNULL "gtk_icon_size_get_name" result
result' <- cstringToText result
return result'
-- function gtk_icon_size_lookup
-- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_lookup" gtk_icon_size_lookup ::
Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO CInt
iconSizeLookup ::
(MonadIO m) =>
Int32 -> -- size
m (Bool,Int32,Int32)
iconSizeLookup size = liftIO $ do
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
result <- gtk_icon_size_lookup size width height
let result' = (/= 0) result
width' <- peek width
height' <- peek height
freeMem width
freeMem height
return (result', width', height')
-- function gtk_icon_size_lookup_for_settings
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_lookup_for_settings" gtk_icon_size_lookup_for_settings ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO CInt
{-# DEPRECATED iconSizeLookupForSettings ["(Since version 3.10)","Use gtk_icon_size_lookup() instead."]#-}
iconSizeLookupForSettings ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Int32 -> -- size
m (Bool,Int32,Int32)
iconSizeLookupForSettings settings size = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
result <- gtk_icon_size_lookup_for_settings settings' size width height
let result' = (/= 0) result
width' <- peek width
height' <- peek height
touchManagedPtr settings
freeMem width
freeMem height
return (result', width', height')
-- function gtk_icon_size_register
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_register" gtk_icon_size_register ::
CString -> -- name : TBasicType TUTF8
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO Int32
{-# DEPRECATED iconSizeRegister ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeRegister ::
(MonadIO m) =>
T.Text -> -- name
Int32 -> -- width
Int32 -> -- height
m Int32
iconSizeRegister name width height = liftIO $ do
name' <- textToCString name
result <- gtk_icon_size_register name' width height
freeMem name'
return result
-- function gtk_icon_size_register_alias
-- Args : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_register_alias" gtk_icon_size_register_alias ::
CString -> -- alias : TBasicType TUTF8
Int32 -> -- target : TBasicType TInt32
IO ()
{-# DEPRECATED iconSizeRegisterAlias ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeRegisterAlias ::
(MonadIO m) =>
T.Text -> -- alias
Int32 -> -- target
m ()
iconSizeRegisterAlias alias target = liftIO $ do
alias' <- textToCString alias
gtk_icon_size_register_alias alias' target
freeMem alias'
return ()
-- function gtk_icon_theme_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_error_quark" gtk_icon_theme_error_quark ::
IO Word32
iconThemeErrorQuark ::
(MonadIO m) =>
m Word32
iconThemeErrorQuark = liftIO $ do
result <- gtk_icon_theme_error_quark
return result
-- function gtk_init
-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_init" gtk_init ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO ()
init ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
m ((Maybe [T.Text]))
init argv = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
gtk_init argc' maybeArgv'
argc'' <- peek argc'
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
freeMem argc'
freeMem maybeArgv'
return maybeMaybeArgv''
-- function gtk_init_check
-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_init_check" gtk_init_check ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO CInt
initCheck ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
m (Bool,(Maybe [T.Text]))
initCheck argv = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
result <- gtk_init_check argc' maybeArgv'
argc'' <- peek argc'
let result' = (/= 0) result
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
freeMem argc'
freeMem maybeArgv'
return (result', maybeMaybeArgv'')
-- function gtk_init_with_args
-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_init_with_args" gtk_init_with_args ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
CString -> -- parameter_string : TBasicType TUTF8
Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry")
CString -> -- translation_domain : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
initWithArgs ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
Maybe (T.Text) -> -- parameter_string
[GLib.OptionEntry] -> -- entries
Maybe (T.Text) -> -- translation_domain
m ((Maybe [T.Text]))
initWithArgs argv parameter_string entries translation_domain = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
maybeParameter_string <- case parameter_string of
Nothing -> return nullPtr
Just jParameter_string -> do
jParameter_string' <- textToCString jParameter_string
return jParameter_string'
let entries' = map unsafeManagedPtrGetPtr entries
entries'' <- packZeroTerminatedPtrArray entries'
maybeTranslation_domain <- case translation_domain of
Nothing -> return nullPtr
Just jTranslation_domain -> do
jTranslation_domain' <- textToCString jTranslation_domain
return jTranslation_domain'
onException (do
_ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameter_string entries'' maybeTranslation_domain
argc'' <- peek argc'
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
mapM_ touchManagedPtr entries
freeMem argc'
freeMem maybeArgv'
freeMem maybeParameter_string
freeMem entries''
freeMem maybeTranslation_domain
return maybeMaybeArgv''
) (do
freeMem argc'
freeMem maybeArgv'
freeMem maybeParameter_string
freeMem entries''
freeMem maybeTranslation_domain
)
-- function gtk_key_snooper_remove
-- Args : [Arg {argName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_key_snooper_remove" gtk_key_snooper_remove ::
Word32 -> -- snooper_handler_id : TBasicType TUInt32
IO ()
{-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-}
keySnooperRemove ::
(MonadIO m) =>
Word32 -> -- snooper_handler_id
m ()
keySnooperRemove snooper_handler_id = liftIO $ do
gtk_key_snooper_remove snooper_handler_id
return ()
-- function gtk_main
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main" gtk_main ::
IO ()
main ::
(MonadIO m) =>
m ()
main = liftIO $ do
gtk_main
return ()
-- function gtk_main_do_event
-- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_do_event" gtk_main_do_event ::
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO ()
mainDoEvent ::
(MonadIO m) =>
Gdk.Event -> -- event
m ()
mainDoEvent event = liftIO $ do
let event' = unsafeManagedPtrGetPtr event
gtk_main_do_event event'
touchManagedPtr event
return ()
-- function gtk_main_iteration
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_iteration" gtk_main_iteration ::
IO CInt
mainIteration ::
(MonadIO m) =>
m Bool
mainIteration = liftIO $ do
result <- gtk_main_iteration
let result' = (/= 0) result
return result'
-- function gtk_main_iteration_do
-- Args : [Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_iteration_do" gtk_main_iteration_do ::
CInt -> -- blocking : TBasicType TBoolean
IO CInt
mainIterationDo ::
(MonadIO m) =>
Bool -> -- blocking
m Bool
mainIterationDo blocking = liftIO $ do
let blocking' = (fromIntegral . fromEnum) blocking
result <- gtk_main_iteration_do blocking'
let result' = (/= 0) result
return result'
-- function gtk_main_level
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_level" gtk_main_level ::
IO Word32
mainLevel ::
(MonadIO m) =>
m Word32
mainLevel = liftIO $ do
result <- gtk_main_level
return result
-- function gtk_main_quit
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_quit" gtk_main_quit ::
IO ()
mainQuit ::
(MonadIO m) =>
m ()
mainQuit = liftIO $ do
gtk_main_quit
return ()
-- function gtk_paint_arrow
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_arrow" gtk_paint_arrow ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType"
CInt -> -- fill : TBasicType TBoolean
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintArrow ["(Since version 3.0)","Use gtk_render_arrow() instead"]#-}
paintArrow ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
ArrowType -> -- arrow_type
Bool -> -- fill
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintArrow style cr state_type shadow_type widget detail arrow_type fill x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let arrow_type' = (fromIntegral . fromEnum) arrow_type
let fill' = (fromIntegral . fromEnum) fill
gtk_paint_arrow style' cr' state_type' shadow_type' maybeWidget maybeDetail arrow_type' fill' x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_box
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_box" gtk_paint_box ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}
paintBox ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintBox style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_box style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_box_gap
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_box_gap" gtk_paint_box_gap ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
Int32 -> -- gap_x : TBasicType TInt32
Int32 -> -- gap_width : TBasicType TInt32
IO ()
{-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}
paintBoxGap ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
Int32 -> -- gap_x
Int32 -> -- gap_width
m ()
paintBoxGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_box_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_check
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_check" gtk_paint_check ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintCheck ["(Since version 3.0)","Use gtk_render_check() instead"]#-}
paintCheck ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintCheck style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_check style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_diamond
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_diamond" gtk_paint_diamond ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-}
paintDiamond ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintDiamond style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_diamond style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_expander
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_expander" gtk_paint_expander ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
CUInt -> -- expander_style : TInterface "Gtk" "ExpanderStyle"
IO ()
{-# DEPRECATED paintExpander ["(Since version 3.0)","Use gtk_render_expander() instead"]#-}
paintExpander ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
ExpanderStyle -> -- expander_style
m ()
paintExpander style cr state_type widget detail x y expander_style = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let expander_style' = (fromIntegral . fromEnum) expander_style
gtk_paint_expander style' cr' state_type' maybeWidget maybeDetail x y expander_style'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_extension
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_extension" gtk_paint_extension ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
IO ()
{-# DEPRECATED paintExtension ["(Since version 3.0)","Use gtk_render_extension() instead"]#-}
paintExtension ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
m ()
paintExtension style cr state_type shadow_type widget detail x y width height gap_side = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_extension style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_flat_box
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_flat_box" gtk_paint_flat_box ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}
paintFlatBox ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintFlatBox style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_flat_box style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_focus
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_focus" gtk_paint_focus ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintFocus ["(Since version 3.0)","Use gtk_render_focus() instead"]#-}
paintFocus ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintFocus style cr state_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_focus style' cr' state_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_handle
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_handle" gtk_paint_handle ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
{-# DEPRECATED paintHandle ["(Since version 3.0)","Use gtk_render_handle() instead"]#-}
paintHandle ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
Orientation -> -- orientation
m ()
paintHandle style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let orientation' = (fromIntegral . fromEnum) orientation
gtk_paint_handle style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_hline
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_hline" gtk_paint_hline ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x1 : TBasicType TInt32
Int32 -> -- x2 : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
{-# DEPRECATED paintHline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}
paintHline ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x1
Int32 -> -- x2
Int32 -> -- y
m ()
paintHline style cr state_type widget detail x1 x2 y = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_hline style' cr' state_type' maybeWidget maybeDetail x1 x2 y
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_layout
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_layout" gtk_paint_layout ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CInt -> -- use_text : TBasicType TBoolean
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
IO ()
{-# DEPRECATED paintLayout ["(Since version 3.0)","Use gtk_render_layout() instead"]#-}
paintLayout ::
(MonadIO m, StyleK a, WidgetK b, Pango.LayoutK c) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Bool -> -- use_text
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
c -> -- layout
m ()
paintLayout style cr state_type use_text widget detail x y layout = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let use_text' = (fromIntegral . fromEnum) use_text
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let layout' = unsafeManagedPtrCastPtr layout
gtk_paint_layout style' cr' state_type' use_text' maybeWidget maybeDetail x y layout'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
touchManagedPtr layout
freeMem maybeDetail
return ()
-- function gtk_paint_option
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_option" gtk_paint_option ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintOption ["(Since version 3.0)","Use gtk_render_option() instead"]#-}
paintOption ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintOption style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_option style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_resize_grip
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_resize_grip" gtk_paint_resize_grip ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
CUInt -> -- edge : TInterface "Gdk" "WindowEdge"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use gtk_render_handle() instead"]#-}
paintResizeGrip ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Gdk.WindowEdge -> -- edge
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintResizeGrip style cr state_type widget detail edge x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let edge' = (fromIntegral . fromEnum) edge
gtk_paint_resize_grip style' cr' state_type' maybeWidget maybeDetail edge' x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_shadow
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_shadow" gtk_paint_shadow ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintShadow ["(Since version 3.0)","Use gtk_render_frame() instead"]#-}
paintShadow ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintShadow style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_shadow style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_shadow_gap
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_shadow_gap" gtk_paint_shadow_gap ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
Int32 -> -- gap_x : TBasicType TInt32
Int32 -> -- gap_width : TBasicType TInt32
IO ()
{-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}
paintShadowGap ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
Int32 -> -- gap_x
Int32 -> -- gap_width
m ()
paintShadowGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_shadow_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_slider
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_slider" gtk_paint_slider ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
{-# DEPRECATED paintSlider ["(Since version 3.0)","Use gtk_render_slider() instead"]#-}
paintSlider ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
Orientation -> -- orientation
m ()
paintSlider style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let orientation' = (fromIntegral . fromEnum) orientation
gtk_paint_slider style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_spinner
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_spinner" gtk_paint_spinner ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Word32 -> -- step : TBasicType TUInt32
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintSpinner ["(Since version 3.0)","Use gtk_render_activity() instead"]#-}
paintSpinner ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Word32 -> -- step
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintSpinner style cr state_type widget detail step x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_spinner style' cr' state_type' maybeWidget maybeDetail step x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_tab
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_tab" gtk_paint_tab ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-}
paintTab ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintTab style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_tab style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_vline
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_vline" gtk_paint_vline ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- y1_ : TBasicType TInt32
Int32 -> -- y2_ : TBasicType TInt32
Int32 -> -- x : TBasicType TInt32
IO ()
{-# DEPRECATED paintVline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}
paintVline ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- y1_
Int32 -> -- y2_
Int32 -> -- x
m ()
paintVline style cr state_type widget detail y1_ y2_ x = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_vline style' cr' state_type' maybeWidget maybeDetail y1_ y2_ x
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paper_size_get_default
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default" gtk_paper_size_get_default ::
IO CString
paperSizeGetDefault ::
(MonadIO m) =>
m T.Text
paperSizeGetDefault = liftIO $ do
result <- gtk_paper_size_get_default
checkUnexpectedReturnNULL "gtk_paper_size_get_default" result
result' <- cstringToText result
return result'
-- function gtk_paper_size_get_paper_sizes
-- Args : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "PaperSize")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_paper_sizes" gtk_paper_size_get_paper_sizes ::
CInt -> -- include_custom : TBasicType TBoolean
IO (Ptr (GList (Ptr PaperSize)))
paperSizeGetPaperSizes ::
(MonadIO m) =>
Bool -> -- include_custom
m [PaperSize]
paperSizeGetPaperSizes include_custom = liftIO $ do
let include_custom' = (fromIntegral . fromEnum) include_custom
result <- gtk_paper_size_get_paper_sizes include_custom'
checkUnexpectedReturnNULL "gtk_paper_size_get_paper_sizes" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed PaperSize) result'
g_list_free result
return result''
-- function gtk_parse_args
-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_parse_args" gtk_parse_args ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO CInt
parseArgs ::
(MonadIO m) =>
[T.Text] -> -- argv
m (Bool,[T.Text])
parseArgs argv = liftIO $ do
let argc = fromIntegral $ length argv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
argv' <- packUTF8CArray argv
argv'' <- allocMem :: IO (Ptr (Ptr CString))
poke argv'' argv'
result <- gtk_parse_args argc' argv''
argc'' <- peek argc'
let result' = (/= 0) result
argv''' <- peek argv''
argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''
(mapCArrayWithLength argc'') freeMem argv'''
freeMem argv'''
freeMem argc'
freeMem argv''
return (result', argv'''')
-- function gtk_print_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_error_quark" gtk_print_error_quark ::
IO Word32
printErrorQuark ::
(MonadIO m) =>
m Word32
printErrorQuark = liftIO $ do
result <- gtk_print_error_quark
return result
-- function gtk_print_run_page_setup_dialog
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_run_page_setup_dialog" gtk_print_run_page_setup_dialog ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup"
Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings"
IO (Ptr PageSetup)
printRunPageSetupDialog ::
(MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) =>
Maybe (a) -> -- parent
Maybe (b) -> -- page_setup
c -> -- settings
m PageSetup
printRunPageSetupDialog parent page_setup settings = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
maybePage_setup <- case page_setup of
Nothing -> return nullPtr
Just jPage_setup -> do
let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup
return jPage_setup'
let settings' = unsafeManagedPtrCastPtr settings
result <- gtk_print_run_page_setup_dialog maybeParent maybePage_setup settings'
checkUnexpectedReturnNULL "gtk_print_run_page_setup_dialog" result
result' <- (wrapObject PageSetup) result
whenJust parent touchManagedPtr
whenJust page_setup touchManagedPtr
touchManagedPtr settings
return result'
-- function gtk_print_run_page_setup_dialog_async
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_run_page_setup_dialog_async" gtk_print_run_page_setup_dialog_async ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup"
Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings"
FunPtr PageSetupDoneFuncC -> -- done_cb : TInterface "Gtk" "PageSetupDoneFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
printRunPageSetupDialogAsync ::
(MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) =>
Maybe (a) -> -- parent
Maybe (b) -> -- page_setup
c -> -- settings
PageSetupDoneFunc -> -- done_cb
m ()
printRunPageSetupDialogAsync parent page_setup settings done_cb = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
maybePage_setup <- case page_setup of
Nothing -> return nullPtr
Just jPage_setup -> do
let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup
return jPage_setup'
let settings' = unsafeManagedPtrCastPtr settings
ptrdone_cb <- callocMem :: IO (Ptr (FunPtr PageSetupDoneFuncC))
done_cb' <- mkPageSetupDoneFunc (pageSetupDoneFuncWrapper (Just ptrdone_cb) done_cb)
poke ptrdone_cb done_cb'
let data_ = nullPtr
gtk_print_run_page_setup_dialog_async maybeParent maybePage_setup settings' done_cb' data_
whenJust parent touchManagedPtr
whenJust page_setup touchManagedPtr
touchManagedPtr settings
return ()
-- function gtk_propagate_event
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_propagate_event" gtk_propagate_event ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO ()
propagateEvent ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Event -> -- event
m ()
propagateEvent widget event = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let event' = unsafeManagedPtrGetPtr event
gtk_propagate_event widget' event'
touchManagedPtr widget
touchManagedPtr event
return ()
-- function gtk_rc_add_default_file
-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_add_default_file" gtk_rc_add_default_file ::
CString -> -- filename : TBasicType TFileName
IO ()
{-# DEPRECATED rcAddDefaultFile ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
rcAddDefaultFile ::
(MonadIO m) =>
[Char] -> -- filename
m ()
rcAddDefaultFile filename = liftIO $ do
filename' <- stringToCString filename
gtk_rc_add_default_file filename'
freeMem filename'
return ()
-- function gtk_rc_find_module_in_path
-- Args : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_find_module_in_path" gtk_rc_find_module_in_path ::
CString -> -- module_file : TBasicType TUTF8
IO CString
{-# DEPRECATED rcFindModuleInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcFindModuleInPath ::
(MonadIO m) =>
T.Text -> -- module_file
m [Char]
rcFindModuleInPath module_file = liftIO $ do
module_file' <- textToCString module_file
result <- gtk_rc_find_module_in_path module_file'
checkUnexpectedReturnNULL "gtk_rc_find_module_in_path" result
result' <- cstringToString result
freeMem result
freeMem module_file'
return result'
-- function gtk_rc_find_pixmap_in_path
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_find_pixmap_in_path" gtk_rc_find_pixmap_in_path ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
CString -> -- pixmap_file : TBasicType TUTF8
IO CString
{-# DEPRECATED rcFindPixmapInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcFindPixmapInPath ::
(MonadIO m, SettingsK a) =>
a -> -- settings
GLib.Scanner -> -- scanner
T.Text -> -- pixmap_file
m [Char]
rcFindPixmapInPath settings scanner pixmap_file = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
let scanner' = unsafeManagedPtrGetPtr scanner
pixmap_file' <- textToCString pixmap_file
result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmap_file'
checkUnexpectedReturnNULL "gtk_rc_find_pixmap_in_path" result
result' <- cstringToString result
freeMem result
touchManagedPtr settings
touchManagedPtr scanner
freeMem pixmap_file'
return result'
-- function gtk_rc_get_default_files
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) (-1) (TBasicType TFileName)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_default_files" gtk_rc_get_default_files ::
IO (Ptr CString)
{-# DEPRECATED rcGetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetDefaultFiles ::
(MonadIO m) =>
m [[Char]]
rcGetDefaultFiles = liftIO $ do
result <- gtk_rc_get_default_files
checkUnexpectedReturnNULL "gtk_rc_get_default_files" result
result' <- unpackZeroTerminatedFileNameArray result
return result'
-- function gtk_rc_get_im_module_file
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_im_module_file" gtk_rc_get_im_module_file ::
IO CString
{-# DEPRECATED rcGetImModuleFile ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetImModuleFile ::
(MonadIO m) =>
m [Char]
rcGetImModuleFile = liftIO $ do
result <- gtk_rc_get_im_module_file
checkUnexpectedReturnNULL "gtk_rc_get_im_module_file" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_im_module_path
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_im_module_path" gtk_rc_get_im_module_path ::
IO CString
{-# DEPRECATED rcGetImModulePath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetImModulePath ::
(MonadIO m) =>
m [Char]
rcGetImModulePath = liftIO $ do
result <- gtk_rc_get_im_module_path
checkUnexpectedReturnNULL "gtk_rc_get_im_module_path" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_module_dir
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_module_dir" gtk_rc_get_module_dir ::
IO CString
{-# DEPRECATED rcGetModuleDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetModuleDir ::
(MonadIO m) =>
m [Char]
rcGetModuleDir = liftIO $ do
result <- gtk_rc_get_module_dir
checkUnexpectedReturnNULL "gtk_rc_get_module_dir" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_style
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_style" gtk_rc_get_style ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr Style)
{-# DEPRECATED rcGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetStyle ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m Style
rcGetStyle widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_rc_get_style widget'
checkUnexpectedReturnNULL "gtk_rc_get_style" result
result' <- (newObject Style) result
touchManagedPtr widget
return result'
-- function gtk_rc_get_style_by_paths
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_style_by_paths" gtk_rc_get_style_by_paths ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
CString -> -- widget_path : TBasicType TUTF8
CString -> -- class_path : TBasicType TUTF8
CGType -> -- type : TBasicType TGType
IO (Ptr Style)
{-# DEPRECATED rcGetStyleByPaths ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetStyleByPaths ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Maybe (T.Text) -> -- widget_path
Maybe (T.Text) -> -- class_path
GType -> -- type
m Style
rcGetStyleByPaths settings widget_path class_path type_ = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
maybeWidget_path <- case widget_path of
Nothing -> return nullPtr
Just jWidget_path -> do
jWidget_path' <- textToCString jWidget_path
return jWidget_path'
maybeClass_path <- case class_path of
Nothing -> return nullPtr
Just jClass_path -> do
jClass_path' <- textToCString jClass_path
return jClass_path'
let type_' = gtypeToCGType type_
result <- gtk_rc_get_style_by_paths settings' maybeWidget_path maybeClass_path type_'
checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result
result' <- (newObject Style) result
touchManagedPtr settings
freeMem maybeWidget_path
freeMem maybeClass_path
return result'
-- function gtk_rc_get_theme_dir
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_theme_dir" gtk_rc_get_theme_dir ::
IO CString
{-# DEPRECATED rcGetThemeDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetThemeDir ::
(MonadIO m) =>
m T.Text
rcGetThemeDir = liftIO $ do
result <- gtk_rc_get_theme_dir
checkUnexpectedReturnNULL "gtk_rc_get_theme_dir" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_rc_parse
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse" gtk_rc_parse ::
CString -> -- filename : TBasicType TUTF8
IO ()
{-# DEPRECATED rcParse ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcParse ::
(MonadIO m) =>
T.Text -> -- filename
m ()
rcParse filename = liftIO $ do
filename' <- textToCString filename
gtk_rc_parse filename'
freeMem filename'
return ()
-- function gtk_rc_parse_color
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_color" gtk_rc_parse_color ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO Word32
{-# DEPRECATED rcParseColor ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseColor ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
m (Word32,Gdk.Color)
rcParseColor scanner = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
result <- gtk_rc_parse_color scanner' color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr scanner
return (result, color')
-- function gtk_rc_parse_color_full
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_color_full" gtk_rc_parse_color_full ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO Word32
{-# DEPRECATED rcParseColorFull ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseColorFull ::
(MonadIO m, RcStyleK a) =>
GLib.Scanner -> -- scanner
Maybe (a) -> -- style
m (Word32,Gdk.Color)
rcParseColorFull scanner style = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
maybeStyle <- case style of
Nothing -> return nullPtr
Just jStyle -> do
let jStyle' = unsafeManagedPtrCastPtr jStyle
return jStyle'
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
result <- gtk_rc_parse_color_full scanner' maybeStyle color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr scanner
whenJust style touchManagedPtr
return (result, color')
-- function gtk_rc_parse_priority
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_priority" gtk_rc_parse_priority ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
CUInt -> -- priority : TInterface "Gtk" "PathPriorityType"
IO Word32
{-# DEPRECATED rcParsePriority ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParsePriority ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
PathPriorityType -> -- priority
m Word32
rcParsePriority scanner priority = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
let priority' = (fromIntegral . fromEnum) priority
result <- gtk_rc_parse_priority scanner' priority'
touchManagedPtr scanner
return result
-- function gtk_rc_parse_state
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_state" gtk_rc_parse_state ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr CUInt -> -- state : TInterface "Gtk" "StateType"
IO Word32
{-# DEPRECATED rcParseState ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseState ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
m (Word32,StateType)
rcParseState scanner = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
state <- allocMem :: IO (Ptr CUInt)
result <- gtk_rc_parse_state scanner' state
state' <- peek state
let state'' = (toEnum . fromIntegral) state'
touchManagedPtr scanner
freeMem state
return (result, state'')
-- function gtk_rc_parse_string
-- Args : [Arg {argName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_string" gtk_rc_parse_string ::
CString -> -- rc_string : TBasicType TUTF8
IO ()
{-# DEPRECATED rcParseString ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcParseString ::
(MonadIO m) =>
T.Text -> -- rc_string
m ()
rcParseString rc_string = liftIO $ do
rc_string' <- textToCString rc_string
gtk_rc_parse_string rc_string'
freeMem rc_string'
return ()
-- function gtk_rc_property_parse_border
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_property_parse_border" gtk_rc_property_parse_border ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseBorder ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseBorder pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_border pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_color
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_property_parse_color" gtk_rc_property_parse_color ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseColor ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseColor pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_color pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_enum
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_property_parse_enum" gtk_rc_property_parse_enum ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseEnum ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseEnum pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_enum pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_flags
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_property_parse_flags" gtk_rc_property_parse_flags ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseFlags ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseFlags pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_flags pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_requisition
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_property_parse_requisition" gtk_rc_property_parse_requisition ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseRequisition ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseRequisition pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_requisition pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_reparse_all
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_reparse_all" gtk_rc_reparse_all ::
IO CInt
{-# DEPRECATED rcReparseAll ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcReparseAll ::
(MonadIO m) =>
m Bool
rcReparseAll = liftIO $ do
result <- gtk_rc_reparse_all
let result' = (/= 0) result
return result'
-- function gtk_rc_reparse_all_for_settings
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_reparse_all_for_settings" gtk_rc_reparse_all_for_settings ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
CInt -> -- force_load : TBasicType TBoolean
IO CInt
{-# DEPRECATED rcReparseAllForSettings ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcReparseAllForSettings ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Bool -> -- force_load
m Bool
rcReparseAllForSettings settings force_load = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
let force_load' = (fromIntegral . fromEnum) force_load
result <- gtk_rc_reparse_all_for_settings settings' force_load'
let result' = (/= 0) result
touchManagedPtr settings
return result'
-- function gtk_rc_reset_styles
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_reset_styles" gtk_rc_reset_styles ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
IO ()
{-# DEPRECATED rcResetStyles ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcResetStyles ::
(MonadIO m, SettingsK a) =>
a -> -- settings
m ()
rcResetStyles settings = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
gtk_rc_reset_styles settings'
touchManagedPtr settings
return ()
-- function gtk_rc_set_default_files
-- Args : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_set_default_files" gtk_rc_set_default_files ::
Ptr CString -> -- filenames : TCArray True (-1) (-1) (TBasicType TFileName)
IO ()
{-# DEPRECATED rcSetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
rcSetDefaultFiles ::
(MonadIO m) =>
[[Char]] -> -- filenames
m ()
rcSetDefaultFiles filenames = liftIO $ do
filenames' <- packZeroTerminatedFileNameArray filenames
gtk_rc_set_default_files filenames'
mapZeroTerminatedCArray freeMem filenames'
freeMem filenames'
return ()
-- function gtk_recent_chooser_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_error_quark" gtk_recent_chooser_error_quark ::
IO Word32
recentChooserErrorQuark ::
(MonadIO m) =>
m Word32
recentChooserErrorQuark = liftIO $ do
result <- gtk_recent_chooser_error_quark
return result
-- function gtk_recent_manager_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_error_quark" gtk_recent_manager_error_quark ::
IO Word32
recentManagerErrorQuark ::
(MonadIO m) =>
m Word32
recentManagerErrorQuark = liftIO $ do
result <- gtk_recent_manager_error_quark
return result
-- function gtk_render_activity
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_activity" gtk_render_activity ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderActivity ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderActivity context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_activity context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_arrow
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_arrow" gtk_render_arrow ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- angle : TBasicType TDouble
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- size : TBasicType TDouble
IO ()
renderArrow ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- angle
Double -> -- x
Double -> -- y
Double -> -- size
m ()
renderArrow context cr angle x y size = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let angle' = realToFrac angle
let x' = realToFrac x
let y' = realToFrac y
let size' = realToFrac size
gtk_render_arrow context' cr' angle' x' y' size'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_background
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_background" gtk_render_background ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderBackground ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderBackground context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_background context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_check
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_check" gtk_render_check ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderCheck ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderCheck context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_check context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_expander
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_expander" gtk_render_expander ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderExpander ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderExpander context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_expander context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_extension
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_extension" gtk_render_extension ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
IO ()
renderExtension ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
PositionType -> -- gap_side
m ()
renderExtension context cr x y width height gap_side = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_render_extension context' cr' x' y' width' height' gap_side'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_focus
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_focus" gtk_render_focus ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderFocus ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderFocus context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_focus context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_frame
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_frame" gtk_render_frame ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderFrame ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderFrame context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_frame context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_frame_gap
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_frame_gap" gtk_render_frame_gap ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
CDouble -> -- xy0_gap : TBasicType TDouble
CDouble -> -- xy1_gap : TBasicType TDouble
IO ()
renderFrameGap ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
PositionType -> -- gap_side
Double -> -- xy0_gap
Double -> -- xy1_gap
m ()
renderFrameGap context cr x y width height gap_side xy0_gap xy1_gap = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let gap_side' = (fromIntegral . fromEnum) gap_side
let xy0_gap' = realToFrac xy0_gap
let xy1_gap' = realToFrac xy1_gap
gtk_render_frame_gap context' cr' x' y' width' height' gap_side' xy0_gap' xy1_gap'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_handle
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_handle" gtk_render_handle ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderHandle ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderHandle context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_handle context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_icon
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_icon" gtk_render_icon ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
renderIcon ::
(MonadIO m, StyleContextK a, GdkPixbuf.PixbufK b) =>
a -> -- context
Cairo.Context -> -- cr
b -> -- pixbuf
Double -> -- x
Double -> -- y
m ()
renderIcon context cr pixbuf x y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
let x' = realToFrac x
let y' = realToFrac y
gtk_render_icon context' cr' pixbuf' x' y'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr pixbuf
return ()
-- function gtk_render_icon_pixbuf
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr IconSource -> -- source : TInterface "Gtk" "IconSource"
Int32 -> -- size : TBasicType TInt32
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-}
renderIconPixbuf ::
(MonadIO m, StyleContextK a) =>
a -> -- context
IconSource -> -- source
Int32 -> -- size
m GdkPixbuf.Pixbuf
renderIconPixbuf context source size = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let source' = unsafeManagedPtrGetPtr source
result <- gtk_render_icon_pixbuf context' source' size
checkUnexpectedReturnNULL "gtk_render_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr context
touchManagedPtr source
return result'
-- function gtk_render_icon_surface
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_icon_surface" gtk_render_icon_surface ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
renderIconSurface ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Cairo.Surface -> -- surface
Double -> -- x
Double -> -- y
m ()
renderIconSurface context cr surface x y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let surface' = unsafeManagedPtrGetPtr surface
let x' = realToFrac x
let y' = realToFrac y
gtk_render_icon_surface context' cr' surface' x' y'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr surface
return ()
-- function gtk_render_insertion_cursor
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_insertion_cursor" gtk_render_insertion_cursor ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
Int32 -> -- index : TBasicType TInt32
CUInt -> -- direction : TInterface "Pango" "Direction"
IO ()
renderInsertionCursor ::
(MonadIO m, StyleContextK a, Pango.LayoutK b) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
b -> -- layout
Int32 -> -- index
Pango.Direction -> -- direction
m ()
renderInsertionCursor context cr x y layout index direction = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let layout' = unsafeManagedPtrCastPtr layout
let direction' = (fromIntegral . fromEnum) direction
gtk_render_insertion_cursor context' cr' x' y' layout' index direction'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr layout
return ()
-- function gtk_render_layout
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_layout" gtk_render_layout ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
IO ()
renderLayout ::
(MonadIO m, StyleContextK a, Pango.LayoutK b) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
b -> -- layout
m ()
renderLayout context cr x y layout = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let layout' = unsafeManagedPtrCastPtr layout
gtk_render_layout context' cr' x' y' layout'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr layout
return ()
-- function gtk_render_line
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_line" gtk_render_line ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x0 : TBasicType TDouble
CDouble -> -- y0 : TBasicType TDouble
CDouble -> -- x1 : TBasicType TDouble
CDouble -> -- y1 : TBasicType TDouble
IO ()
renderLine ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x0
Double -> -- y0
Double -> -- x1
Double -> -- y1
m ()
renderLine context cr x0 y0 x1 y1 = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x0' = realToFrac x0
let y0' = realToFrac y0
let x1' = realToFrac x1
let y1' = realToFrac y1
gtk_render_line context' cr' x0' y0' x1' y1'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_option
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_option" gtk_render_option ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderOption ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderOption context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_option context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_slider
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_slider" gtk_render_slider ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
renderSlider ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
Orientation -> -- orientation
m ()
renderSlider context cr x y width height orientation = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let orientation' = (fromIntegral . fromEnum) orientation
gtk_render_slider context' cr' x' y' width' height' orientation'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_rgb_to_hsv
-- Args : [Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rgb_to_hsv" gtk_rgb_to_hsv ::
CDouble -> -- r : TBasicType TDouble
CDouble -> -- g : TBasicType TDouble
CDouble -> -- b : TBasicType TDouble
Ptr CDouble -> -- h : TBasicType TDouble
Ptr CDouble -> -- s : TBasicType TDouble
Ptr CDouble -> -- v : TBasicType TDouble
IO ()
rgbToHsv ::
(MonadIO m) =>
Double -> -- r
Double -> -- g
Double -> -- b
m (Double,Double,Double)
rgbToHsv r g b = liftIO $ do
let r' = realToFrac r
let g' = realToFrac g
let b' = realToFrac b
h <- allocMem :: IO (Ptr CDouble)
s <- allocMem :: IO (Ptr CDouble)
v <- allocMem :: IO (Ptr CDouble)
gtk_rgb_to_hsv r' g' b' h s v
h' <- peek h
let h'' = realToFrac h'
s' <- peek s
let s'' = realToFrac s'
v' <- peek v
let v'' = realToFrac v'
freeMem h
freeMem s
freeMem v
return (h'', s'', v'')
-- function gtk_selection_add_target
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_add_target" gtk_selection_add_target ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- info : TBasicType TUInt32
IO ()
selectionAddTarget ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
Gdk.Atom -> -- target
Word32 -> -- info
m ()
selectionAddTarget widget selection target info = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let target' = unsafeManagedPtrGetPtr target
gtk_selection_add_target widget' selection' target' info
touchManagedPtr widget
touchManagedPtr selection
touchManagedPtr target
return ()
-- function gtk_selection_add_targets
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_add_targets" gtk_selection_add_targets ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Word32 -> -- ntargets : TBasicType TUInt32
IO ()
selectionAddTargets ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
[TargetEntry] -> -- targets
m ()
selectionAddTargets widget selection targets = liftIO $ do
let ntargets = fromIntegral $ length targets
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
gtk_selection_add_targets widget' selection' targets'' ntargets
touchManagedPtr widget
touchManagedPtr selection
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- function gtk_selection_clear_targets
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_clear_targets" gtk_selection_clear_targets ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
IO ()
selectionClearTargets ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
m ()
selectionClearTargets widget selection = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
gtk_selection_clear_targets widget' selection'
touchManagedPtr widget
touchManagedPtr selection
return ()
-- function gtk_selection_convert
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_convert" gtk_selection_convert ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionConvert ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
Gdk.Atom -> -- target
Word32 -> -- time_
m Bool
selectionConvert widget selection target time_ = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let target' = unsafeManagedPtrGetPtr target
result <- gtk_selection_convert widget' selection' target' time_
let result' = (/= 0) result
touchManagedPtr widget
touchManagedPtr selection
touchManagedPtr target
return result'
-- function gtk_selection_owner_set
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_owner_set" gtk_selection_owner_set ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionOwnerSet ::
(MonadIO m, WidgetK a) =>
Maybe (a) -> -- widget
Gdk.Atom -> -- selection
Word32 -> -- time_
m Bool
selectionOwnerSet widget selection time_ = liftIO $ do
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_selection_owner_set maybeWidget selection' time_
let result' = (/= 0) result
whenJust widget touchManagedPtr
touchManagedPtr selection
return result'
-- function gtk_selection_owner_set_for_display
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_owner_set_for_display" gtk_selection_owner_set_for_display ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionOwnerSetForDisplay ::
(MonadIO m, Gdk.DisplayK a, WidgetK b) =>
a -> -- display
Maybe (b) -> -- widget
Gdk.Atom -> -- selection
Word32 -> -- time_
m Bool
selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_
let result' = (/= 0) result
touchManagedPtr display
whenJust widget touchManagedPtr
touchManagedPtr selection
return result'
-- function gtk_selection_remove_all
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_remove_all" gtk_selection_remove_all ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
selectionRemoveAll ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m ()
selectionRemoveAll widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
gtk_selection_remove_all widget'
touchManagedPtr widget
return ()
-- function gtk_set_debug_flags
-- Args : [Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_set_debug_flags" gtk_set_debug_flags ::
Word32 -> -- flags : TBasicType TUInt32
IO ()
setDebugFlags ::
(MonadIO m) =>
Word32 -> -- flags
m ()
setDebugFlags flags = liftIO $ do
gtk_set_debug_flags flags
return ()
-- function gtk_show_uri
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_show_uri" gtk_show_uri ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
CString -> -- uri : TBasicType TUTF8
Word32 -> -- timestamp : TBasicType TUInt32
Ptr (Ptr GError) -> -- error
IO CInt
showUri ::
(MonadIO m, Gdk.ScreenK a) =>
Maybe (a) -> -- screen
T.Text -> -- uri
Word32 -> -- timestamp
m ()
showUri screen uri timestamp = liftIO $ do
maybeScreen <- case screen of
Nothing -> return nullPtr
Just jScreen -> do
let jScreen' = unsafeManagedPtrCastPtr jScreen
return jScreen'
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_show_uri maybeScreen uri' timestamp
whenJust screen touchManagedPtr
freeMem uri'
return ()
) (do
freeMem uri'
)
-- function gtk_stock_add
-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_add" gtk_stock_add ::
Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")
Word32 -> -- n_items : TBasicType TUInt32
IO ()
{-# DEPRECATED stockAdd ["(Since version 3.10)"]#-}
stockAdd ::
(MonadIO m) =>
[StockItem] -> -- items
m ()
stockAdd items = liftIO $ do
let n_items = fromIntegral $ length items
let items' = map unsafeManagedPtrGetPtr items
items'' <- packBlockArray 32 items'
gtk_stock_add items'' n_items
mapM_ touchManagedPtr items
freeMem items''
return ()
-- function gtk_stock_add_static
-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_add_static" gtk_stock_add_static ::
Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")
Word32 -> -- n_items : TBasicType TUInt32
IO ()
{-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-}
stockAddStatic ::
(MonadIO m) =>
[StockItem] -> -- items
m ()
stockAddStatic items = liftIO $ do
let n_items = fromIntegral $ length items
let items' = map unsafeManagedPtrGetPtr items
items'' <- packBlockArray 32 items'
gtk_stock_add_static items'' n_items
mapM_ touchManagedPtr items
freeMem items''
return ()
-- function gtk_stock_list_ids
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_list_ids" gtk_stock_list_ids ::
IO (Ptr (GSList CString))
{-# DEPRECATED stockListIds ["(Since version 3.10)"]#-}
stockListIds ::
(MonadIO m) =>
m [T.Text]
stockListIds = liftIO $ do
result <- gtk_stock_list_ids
checkUnexpectedReturnNULL "gtk_stock_list_ids" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
return result''
-- function gtk_stock_lookup
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_lookup" gtk_stock_lookup ::
CString -> -- stock_id : TBasicType TUTF8
Ptr StockItem -> -- item : TInterface "Gtk" "StockItem"
IO CInt
{-# DEPRECATED stockLookup ["(Since version 3.10)"]#-}
stockLookup ::
(MonadIO m) =>
T.Text -> -- stock_id
m (Bool,StockItem)
stockLookup stock_id = liftIO $ do
stock_id' <- textToCString stock_id
item <- callocBytes 32 :: IO (Ptr StockItem)
result <- gtk_stock_lookup stock_id' item
let result' = (/= 0) result
item' <- (wrapPtr StockItem) item
freeMem stock_id'
return (result', item')
-- function gtk_stock_set_translate_func
-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func ::
CString -> -- domain : TBasicType TUTF8
FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO ()
{-# DEPRECATED stockSetTranslateFunc ["(Since version 3.10)"]#-}
stockSetTranslateFunc ::
(MonadIO m) =>
T.Text -> -- domain
TranslateFunc -> -- func
m ()
stockSetTranslateFunc domain func = liftIO $ do
domain' <- textToCString domain
func' <- mkTranslateFunc (translateFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let notify = safeFreeFunPtrPtr
gtk_stock_set_translate_func domain' func' data_ notify
freeMem domain'
return ()
-- function gtk_target_table_free
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_table_free" gtk_target_table_free ::
Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
IO ()
targetTableFree ::
(MonadIO m) =>
[TargetEntry] -> -- targets
m ()
targetTableFree targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
gtk_target_table_free targets'' n_targets
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- function gtk_target_table_new_from_list
-- Args : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list ::
Ptr TargetList -> -- list : TInterface "Gtk" "TargetList"
Ptr Int32 -> -- n_targets : TBasicType TInt32
IO (Ptr TargetEntry)
targetTableNewFromList ::
(MonadIO m) =>
TargetList -> -- list
m [TargetEntry]
targetTableNewFromList list = liftIO $ do
let list' = unsafeManagedPtrGetPtr list
n_targets <- allocMem :: IO (Ptr Int32)
result <- gtk_target_table_new_from_list list' n_targets
n_targets' <- peek n_targets
checkUnexpectedReturnNULL "gtk_target_table_new_from_list" result
result' <- (unpackBoxedArrayWithLength 16 n_targets') result
result'' <- mapM (wrapBoxed TargetEntry) result'
freeMem result
touchManagedPtr list
freeMem n_targets
return result''
-- function gtk_targets_include_image
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_image" gtk_targets_include_image ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
CInt -> -- writable : TBasicType TBoolean
IO CInt
targetsIncludeImage ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
Bool -> -- writable
m Bool
targetsIncludeImage targets writable = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
let writable' = (fromIntegral . fromEnum) writable
result <- gtk_targets_include_image targets'' n_targets writable'
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_targets_include_rich_text
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO CInt
targetsIncludeRichText ::
(MonadIO m, TextBufferK a) =>
[Gdk.Atom] -> -- targets
a -> -- buffer
m Bool
targetsIncludeRichText targets buffer = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_targets_include_rich_text targets'' n_targets buffer'
let result' = (/= 0) result
mapM_ touchManagedPtr targets
touchManagedPtr buffer
freeMem targets''
return result'
-- function gtk_targets_include_text
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_text" gtk_targets_include_text ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
IO CInt
targetsIncludeText ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
m Bool
targetsIncludeText targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
result <- gtk_targets_include_text targets'' n_targets
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_targets_include_uri
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_uri" gtk_targets_include_uri ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
IO CInt
targetsIncludeUri ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
m Bool
targetsIncludeUri targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
result <- gtk_targets_include_uri targets'' n_targets
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_test_create_simple_window
-- Args : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_create_simple_window" gtk_test_create_simple_window ::
CString -> -- window_title : TBasicType TUTF8
CString -> -- dialog_text : TBasicType TUTF8
IO (Ptr Widget)
testCreateSimpleWindow ::
(MonadIO m) =>
T.Text -> -- window_title
T.Text -> -- dialog_text
m Widget
testCreateSimpleWindow window_title dialog_text = liftIO $ do
window_title' <- textToCString window_title
dialog_text' <- textToCString dialog_text
result <- gtk_test_create_simple_window window_title' dialog_text'
checkUnexpectedReturnNULL "gtk_test_create_simple_window" result
result' <- (newObject Widget) result
freeMem window_title'
freeMem dialog_text'
return result'
-- function gtk_test_find_label
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_label" gtk_test_find_label ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- label_pattern : TBasicType TUTF8
IO (Ptr Widget)
testFindLabel ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- label_pattern
m Widget
testFindLabel widget label_pattern = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
label_pattern' <- textToCString label_pattern
result <- gtk_test_find_label widget' label_pattern'
checkUnexpectedReturnNULL "gtk_test_find_label" result
result' <- (newObject Widget) result
touchManagedPtr widget
freeMem label_pattern'
return result'
-- function gtk_test_find_sibling
-- Args : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_sibling" gtk_test_find_sibling ::
Ptr Widget -> -- base_widget : TInterface "Gtk" "Widget"
CGType -> -- widget_type : TBasicType TGType
IO (Ptr Widget)
testFindSibling ::
(MonadIO m, WidgetK a) =>
a -> -- base_widget
GType -> -- widget_type
m Widget
testFindSibling base_widget widget_type = liftIO $ do
let base_widget' = unsafeManagedPtrCastPtr base_widget
let widget_type' = gtypeToCGType widget_type
result <- gtk_test_find_sibling base_widget' widget_type'
checkUnexpectedReturnNULL "gtk_test_find_sibling" result
result' <- (newObject Widget) result
touchManagedPtr base_widget
return result'
-- function gtk_test_find_widget
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_widget" gtk_test_find_widget ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- label_pattern : TBasicType TUTF8
CGType -> -- widget_type : TBasicType TGType
IO (Ptr Widget)
testFindWidget ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- label_pattern
GType -> -- widget_type
m Widget
testFindWidget widget label_pattern widget_type = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
label_pattern' <- textToCString label_pattern
let widget_type' = gtypeToCGType widget_type
result <- gtk_test_find_widget widget' label_pattern' widget_type'
checkUnexpectedReturnNULL "gtk_test_find_widget" result
result' <- (newObject Widget) result
touchManagedPtr widget
freeMem label_pattern'
return result'
-- function gtk_test_list_all_types
-- Args : [Arg {argName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) 0 (TBasicType TGType)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types ::
Ptr Word32 -> -- n_types : TBasicType TUInt32
IO (Ptr CGType)
testListAllTypes ::
(MonadIO m) =>
m ([GType],Word32)
testListAllTypes = liftIO $ do
n_types <- allocMem :: IO (Ptr Word32)
result <- gtk_test_list_all_types n_types
checkUnexpectedReturnNULL "gtk_test_list_all_types" result
result' <- (unpackMapZeroTerminatedStorableArray GType) result
n_types' <- peek n_types
freeMem n_types
return (result', n_types')
-- function gtk_test_register_all_types
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_register_all_types" gtk_test_register_all_types ::
IO ()
testRegisterAllTypes ::
(MonadIO m) =>
m ()
testRegisterAllTypes = liftIO $ do
gtk_test_register_all_types
return ()
-- function gtk_test_slider_get_value
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_slider_get_value" gtk_test_slider_get_value ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO CDouble
testSliderGetValue ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m Double
testSliderGetValue widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_test_slider_get_value widget'
let result' = realToFrac result
touchManagedPtr widget
return result'
-- function gtk_test_slider_set_perc
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_slider_set_perc" gtk_test_slider_set_perc ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CDouble -> -- percentage : TBasicType TDouble
IO ()
testSliderSetPerc ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Double -> -- percentage
m ()
testSliderSetPerc widget percentage = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let percentage' = realToFrac percentage
gtk_test_slider_set_perc widget' percentage'
touchManagedPtr widget
return ()
-- function gtk_test_spin_button_click
-- Args : [Arg {argName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_spin_button_click" gtk_test_spin_button_click ::
Ptr SpinButton -> -- spinner : TInterface "Gtk" "SpinButton"
Word32 -> -- button : TBasicType TUInt32
CInt -> -- upwards : TBasicType TBoolean
IO CInt
testSpinButtonClick ::
(MonadIO m, SpinButtonK a) =>
a -> -- spinner
Word32 -> -- button
Bool -> -- upwards
m Bool
testSpinButtonClick spinner button upwards = liftIO $ do
let spinner' = unsafeManagedPtrCastPtr spinner
let upwards' = (fromIntegral . fromEnum) upwards
result <- gtk_test_spin_button_click spinner' button upwards'
let result' = (/= 0) result
touchManagedPtr spinner
return result'
-- function gtk_test_text_get
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_text_get" gtk_test_text_get ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO CString
testTextGet ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m T.Text
testTextGet widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_test_text_get widget'
checkUnexpectedReturnNULL "gtk_test_text_get" result
result' <- cstringToText result
freeMem result
touchManagedPtr widget
return result'
-- function gtk_test_text_set
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_text_set" gtk_test_text_set ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- string : TBasicType TUTF8
IO ()
testTextSet ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- string
m ()
testTextSet widget string = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
string' <- textToCString string
gtk_test_text_set widget' string'
touchManagedPtr widget
freeMem string'
return ()
-- function gtk_test_widget_click
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_click" gtk_test_widget_click ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Word32 -> -- button : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
testWidgetClick ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Word32 -> -- button
[Gdk.ModifierType] -> -- modifiers
m Bool
testWidgetClick widget button modifiers = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let modifiers' = gflagsToWord modifiers
result <- gtk_test_widget_click widget' button modifiers'
let result' = (/= 0) result
touchManagedPtr widget
return result'
-- function gtk_test_widget_send_key
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_send_key" gtk_test_widget_send_key ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
testWidgetSendKey ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
testWidgetSendKey widget keyval modifiers = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let modifiers' = gflagsToWord modifiers
result <- gtk_test_widget_send_key widget' keyval modifiers'
let result' = (/= 0) result
touchManagedPtr widget
return result'
-- function gtk_test_widget_wait_for_draw
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_wait_for_draw" gtk_test_widget_wait_for_draw ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
testWidgetWaitForDraw ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m ()
testWidgetWaitForDraw widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
gtk_test_widget_wait_for_draw widget'
touchManagedPtr widget
return ()
-- function gtk_tree_get_row_drag_data
-- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_get_row_drag_data" gtk_tree_get_row_drag_data ::
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
Ptr (Ptr TreeModel) -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeGetRowDragData ::
(MonadIO m) =>
SelectionData -> -- selection_data
m (Bool,(Maybe TreeModel),(Maybe TreePath))
treeGetRowDragData selection_data = liftIO $ do
let selection_data' = unsafeManagedPtrGetPtr selection_data
tree_model <- allocMem :: IO (Ptr (Ptr TreeModel))
path <- allocMem :: IO (Ptr (Ptr TreePath))
result <- gtk_tree_get_row_drag_data selection_data' tree_model path
let result' = (/= 0) result
tree_model' <- peek tree_model
maybeTree_model' <- convertIfNonNull tree_model' $ \tree_model'' -> do
tree_model''' <- (newObject TreeModel) tree_model''
return tree_model'''
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
touchManagedPtr selection_data
freeMem tree_model
freeMem path
return (result', maybeTree_model', maybePath')
-- function gtk_tree_row_reference_deleted
-- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_deleted" gtk_tree_row_reference_deleted ::
Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeRowReferenceDeleted ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- proxy
TreePath -> -- path
m ()
treeRowReferenceDeleted proxy path = liftIO $ do
let proxy' = unsafeManagedPtrCastPtr proxy
let path' = unsafeManagedPtrGetPtr path
gtk_tree_row_reference_deleted proxy' path'
touchManagedPtr proxy
touchManagedPtr path
return ()
-- function gtk_tree_row_reference_inserted
-- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_inserted" gtk_tree_row_reference_inserted ::
Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeRowReferenceInserted ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- proxy
TreePath -> -- path
m ()
treeRowReferenceInserted proxy path = liftIO $ do
let proxy' = unsafeManagedPtrCastPtr proxy
let path' = unsafeManagedPtrGetPtr path
gtk_tree_row_reference_inserted proxy' path'
touchManagedPtr proxy
touchManagedPtr path
return ()
-- function gtk_tree_set_row_drag_data
-- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_set_row_drag_data" gtk_tree_set_row_drag_data ::
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeSetRowDragData ::
(MonadIO m, TreeModelK a) =>
SelectionData -> -- selection_data
a -> -- tree_model
TreePath -> -- path
m Bool
treeSetRowDragData selection_data tree_model path = liftIO $ do
let selection_data' = unsafeManagedPtrGetPtr selection_data
let tree_model' = unsafeManagedPtrCastPtr tree_model
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_set_row_drag_data selection_data' tree_model' path'
let result' = (/= 0) result
touchManagedPtr selection_data
touchManagedPtr tree_model
touchManagedPtr path
return result'
-- function gtk_true
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_true" gtk_true ::
IO CInt
true ::
(MonadIO m) =>
m Bool
true = liftIO $ do
result <- gtk_true
let result' = (/= 0) result
return result'