{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.Gtk.Functions ( -- * Methods -- ** accelGroupsActivate accelGroupsActivate , -- ** accelGroupsFromObject accelGroupsFromObject , -- ** acceleratorGetDefaultModMask acceleratorGetDefaultModMask , -- ** acceleratorGetLabel acceleratorGetLabel , -- ** acceleratorGetLabelWithKeycode acceleratorGetLabelWithKeycode , -- ** acceleratorName acceleratorName , -- ** acceleratorNameWithKeycode acceleratorNameWithKeycode , -- ** acceleratorParse acceleratorParse , -- ** acceleratorParseWithKeycode acceleratorParseWithKeycode , -- ** acceleratorSetDefaultModMask acceleratorSetDefaultModMask , -- ** acceleratorValid acceleratorValid , -- ** alternativeDialogButtonOrder alternativeDialogButtonOrder , -- ** bindingEntryAddSignalFromString bindingEntryAddSignalFromString , -- ** bindingEntryAddSignall bindingEntryAddSignall , -- ** bindingEntryRemove bindingEntryRemove , -- ** bindingEntrySkip bindingEntrySkip , -- ** bindingSetFind bindingSetFind , -- ** bindingsActivate bindingsActivate , -- ** bindingsActivateEvent bindingsActivateEvent , -- ** builderErrorQuark builderErrorQuark , -- ** cairoShouldDrawWindow cairoShouldDrawWindow , -- ** cairoTransformToWindow cairoTransformToWindow , -- ** checkVersion checkVersion , -- ** cssProviderErrorQuark cssProviderErrorQuark , -- ** deviceGrabAdd deviceGrabAdd , -- ** deviceGrabRemove deviceGrabRemove , -- ** disableSetlocale disableSetlocale , -- ** distributeNaturalAllocation distributeNaturalAllocation , -- ** dragCancel dragCancel , -- ** dragFinish dragFinish , -- ** dragGetSourceWidget dragGetSourceWidget , -- ** dragSetIconDefault dragSetIconDefault , -- ** dragSetIconGicon dragSetIconGicon , -- ** dragSetIconName dragSetIconName , -- ** dragSetIconPixbuf dragSetIconPixbuf , -- ** dragSetIconStock dragSetIconStock , -- ** dragSetIconSurface dragSetIconSurface , -- ** dragSetIconWidget dragSetIconWidget , -- ** drawInsertionCursor drawInsertionCursor , -- ** eventsPending eventsPending , -- ** false false , -- ** fileChooserErrorQuark fileChooserErrorQuark , -- ** getBinaryAge getBinaryAge , -- ** getCurrentEvent getCurrentEvent , -- ** getCurrentEventDevice getCurrentEventDevice , -- ** getCurrentEventState getCurrentEventState , -- ** getCurrentEventTime getCurrentEventTime , -- ** getDebugFlags getDebugFlags , -- ** getDefaultLanguage getDefaultLanguage , -- ** getEventWidget getEventWidget , -- ** getInterfaceAge getInterfaceAge , -- ** getLocaleDirection getLocaleDirection , -- ** getMajorVersion getMajorVersion , -- ** getMicroVersion getMicroVersion , -- ** getMinorVersion getMinorVersion , -- ** getOptionGroup getOptionGroup , -- ** grabGetCurrent grabGetCurrent , -- ** iconSizeFromName iconSizeFromName , -- ** iconSizeGetName iconSizeGetName , -- ** iconSizeLookup iconSizeLookup , -- ** iconSizeLookupForSettings iconSizeLookupForSettings , -- ** iconSizeRegister iconSizeRegister , -- ** iconSizeRegisterAlias iconSizeRegisterAlias , -- ** iconThemeErrorQuark iconThemeErrorQuark , -- ** init init , -- ** initCheck initCheck , -- ** initWithArgs initWithArgs , -- ** keySnooperRemove keySnooperRemove , -- ** main main , -- ** mainDoEvent mainDoEvent , -- ** mainIteration mainIteration , -- ** mainIterationDo mainIterationDo , -- ** mainLevel mainLevel , -- ** mainQuit mainQuit , -- ** paintArrow paintArrow , -- ** paintBox paintBox , -- ** paintBoxGap paintBoxGap , -- ** paintCheck paintCheck , -- ** paintDiamond paintDiamond , -- ** paintExpander paintExpander , -- ** paintExtension paintExtension , -- ** paintFlatBox paintFlatBox , -- ** paintFocus paintFocus , -- ** paintHandle paintHandle , -- ** paintHline paintHline , -- ** paintLayout paintLayout , -- ** paintOption paintOption , -- ** paintResizeGrip paintResizeGrip , -- ** paintShadow paintShadow , -- ** paintShadowGap paintShadowGap , -- ** paintSlider paintSlider , -- ** paintSpinner paintSpinner , -- ** paintTab paintTab , -- ** paintVline paintVline , -- ** paperSizeGetDefault paperSizeGetDefault , -- ** paperSizeGetPaperSizes paperSizeGetPaperSizes , -- ** parseArgs parseArgs , -- ** printErrorQuark printErrorQuark , -- ** printRunPageSetupDialog printRunPageSetupDialog , -- ** printRunPageSetupDialogAsync printRunPageSetupDialogAsync , -- ** propagateEvent propagateEvent , -- ** rcAddDefaultFile rcAddDefaultFile , -- ** rcFindModuleInPath rcFindModuleInPath , -- ** rcFindPixmapInPath rcFindPixmapInPath , -- ** rcGetDefaultFiles rcGetDefaultFiles , -- ** rcGetImModuleFile rcGetImModuleFile , -- ** rcGetImModulePath rcGetImModulePath , -- ** rcGetModuleDir rcGetModuleDir , -- ** rcGetStyle rcGetStyle , -- ** rcGetStyleByPaths rcGetStyleByPaths , -- ** rcGetThemeDir rcGetThemeDir , -- ** rcParse rcParse , -- ** rcParseColor rcParseColor , -- ** rcParseColorFull rcParseColorFull , -- ** rcParsePriority rcParsePriority , -- ** rcParseState rcParseState , -- ** rcParseString rcParseString , -- ** rcPropertyParseBorder rcPropertyParseBorder , -- ** rcPropertyParseColor rcPropertyParseColor , -- ** rcPropertyParseEnum rcPropertyParseEnum , -- ** rcPropertyParseFlags rcPropertyParseFlags , -- ** rcPropertyParseRequisition rcPropertyParseRequisition , -- ** rcReparseAll rcReparseAll , -- ** rcReparseAllForSettings rcReparseAllForSettings , -- ** rcResetStyles rcResetStyles , -- ** rcSetDefaultFiles rcSetDefaultFiles , -- ** recentChooserErrorQuark recentChooserErrorQuark , -- ** recentManagerErrorQuark recentManagerErrorQuark , -- ** renderActivity renderActivity , -- ** renderArrow renderArrow , -- ** renderBackground renderBackground , -- ** renderCheck renderCheck , -- ** renderExpander renderExpander , -- ** renderExtension renderExtension , -- ** renderFocus renderFocus , -- ** renderFrame renderFrame , -- ** renderFrameGap renderFrameGap , -- ** renderHandle renderHandle , -- ** renderIcon renderIcon , -- ** renderIconPixbuf renderIconPixbuf , -- ** renderIconSurface renderIconSurface , -- ** renderInsertionCursor renderInsertionCursor , -- ** renderLayout renderLayout , -- ** renderLine renderLine , -- ** renderOption renderOption , -- ** renderSlider renderSlider , -- ** rgbToHsv rgbToHsv , -- ** selectionAddTarget selectionAddTarget , -- ** selectionAddTargets selectionAddTargets , -- ** selectionClearTargets selectionClearTargets , -- ** selectionConvert selectionConvert , -- ** selectionOwnerSet selectionOwnerSet , -- ** selectionOwnerSetForDisplay selectionOwnerSetForDisplay , -- ** selectionRemoveAll selectionRemoveAll , -- ** setDebugFlags setDebugFlags , -- ** showUri showUri , -- ** stockAdd stockAdd , -- ** stockAddStatic stockAddStatic , -- ** stockListIds stockListIds , -- ** stockLookup stockLookup , -- ** stockSetTranslateFunc stockSetTranslateFunc , -- ** targetTableFree targetTableFree , -- ** targetTableNewFromList targetTableNewFromList , -- ** targetsIncludeImage targetsIncludeImage , -- ** targetsIncludeRichText targetsIncludeRichText , -- ** targetsIncludeText targetsIncludeText , -- ** targetsIncludeUri targetsIncludeUri , -- ** testCreateSimpleWindow testCreateSimpleWindow , -- ** testFindLabel testFindLabel , -- ** testFindSibling testFindSibling , -- ** testFindWidget testFindWidget , -- ** testListAllTypes testListAllTypes , -- ** testRegisterAllTypes testRegisterAllTypes , -- ** testSliderGetValue testSliderGetValue , -- ** testSliderSetPerc testSliderSetPerc , -- ** testSpinButtonClick testSpinButtonClick , -- ** testTextGet testTextGet , -- ** testTextSet testTextSet , -- ** testWidgetClick testWidgetClick , -- ** testWidgetSendKey testWidgetSendKey , -- ** testWidgetWaitForDraw testWidgetWaitForDraw , -- ** treeGetRowDragData treeGetRowDragData , -- ** treeRowReferenceDeleted treeRowReferenceDeleted , -- ** treeRowReferenceInserted treeRowReferenceInserted , -- ** treeSetRowDragData treeSetRowDragData , -- ** true true , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.Gtk.Types import GI.Gtk.Callbacks import qualified GI.GLib as GLib import qualified GI.GObject as GObject import qualified GI.Gdk as Gdk import qualified GI.GdkPixbuf as GdkPixbuf import qualified GI.Gio as Gio import qualified GI.Pango as Pango import qualified GI.Cairo as Cairo -- 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' -- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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 -- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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 -- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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 -- 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_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_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_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 -- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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 -- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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'